X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fio.f90;h=243c8b62acd3bb43e9411004a82352433f27afad;hb=c43a5a1d5cc1d3f94c53de28dd1fd93bea770790;hp=4936ea8e98628f7ef5de00140a280c0eb8bc93d9;hpb=095c479c65c6ef7f85194cae2b096c4082b118ab;p=unres4.git

diff --git a/source/unres/io.f90 b/source/unres/io.f90
index 4936ea8..243c8b6 100644
--- a/source/unres/io.f90
+++ b/source/unres/io.f90
@@ -703,16 +703,10 @@
       allocate(itype(maxres)) !(maxres)
 !
 ! Zero out tables.
-!      
-      do i=1,2*maxres
-        do j=1,3
-          c(j,i)=0.0D0
-          dc(j,i)=0.0D0
-        enddo
-      enddo
-      do i=1,maxres
-         itype(i)=0
-      enddo
+!
+      c(:,:)=0.0D0
+      dc(:,:)=0.0D0
+      itype(:)=0
 !-----------------------------
 !
 ! Body
@@ -973,6 +967,7 @@
 !      allocate(dc(3,0:2*nres+2))
 !      allocate(itype(nres+2))
       allocate(itel(nres+2))
+      itel(:)=0
 
 !      do i=1,2*nres+2
 !        do j=1,3
@@ -980,10 +975,10 @@
 !          dc(j,i)=dc_alloc(j,i)
 !        enddo
 !      enddo
-      do i=1,nres+2
+!      do i=1,nres+2
 !        itype(i)=itype_alloc(i)
-        itel(i)=0
-      enddo
+!        itel(i)=0
+!      enddo
 !--------------------------
       do i=1,nres
 #ifdef PROCOR