X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=inline;f=source%2Funres%2Fio.F90;h=4750e579ee861416b994ecdb6493941cbf6c9971;hb=91b9f78d94b96277537615722323ebe03cc0a014;hp=8ec3d1934523d157abaf5525e91b65615033fbbe;hpb=c2b8cd6399133f378681275a7498952235472c0a;p=unres4.git

diff --git a/source/unres/io.F90 b/source/unres/io.F90
index 8ec3d19..4750e57 100644
--- a/source/unres/io.F90
+++ b/source/unres/io.F90
@@ -1015,7 +1015,7 @@
 
 !        print *,'Finished reading pdb data'
         if(me.eq.king.or..not.out1file) &
-         write (iout,'(a,i3,a,i3)')'nsup=',nsup,&
+         write (iout,'(a,i7,a,i7)')'nsup=',nsup,&
          ' nstart_sup=',nstart_sup !,"ergwergewrgae"
 !el        if(.not.allocated(itype_pdb)) 
         allocate(itype_pdb(nres))
@@ -1239,7 +1239,9 @@
 !       print *,"tu dochodze"
 ! znamy nres oraz nss można zaalokowac potrzebne tablice
       call alloc_geo_arrays
+      print *,"after  alloc_geo_arrays"
       call alloc_ener_arrays
+      print *,"after  alloc_ener_arrays"
 !--------------------------------
 ! 8/13/98 Set limits to generating the dihedral angles
       do i=1,nres
@@ -1396,7 +1398,7 @@
       if (itype(nres,molnum(nres)).eq.ntyp1_molec(molnum(nres))) nct=nct-1
       if (pdbref) then
         if(me.eq.king.or..not.out1file) &
-         write (iout,'(a,i3)') 'nsup=',nsup
+         write (iout,'(a,i7)') 'nsup=',nsup
         nstart_seq=nnt
         if (nsup.le.(nct-nnt+1)) then
           do i=0,nct-nnt+1-nsup