small cleaning

[unres4.git] / source / unres / io.f90

diff --git a/source/unres/io.f90 b/source/unres/io.f90
index 4936ea8..243c8b6 100644 (file)
--- 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