X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Freadpdb.F;h=7aa8fd41b9d593a5b850536c668bbcb9568f9252;hb=d09b54932dd8b227a90f50766bae56f6bf66189c;hp=3caff57720b1a5aae3dcf2cc4125013549aaf5a3;hpb=d101c97dea752458d76055fdbae49c26fff03c1f;p=unres.git

diff --git a/source/unres/src_MD-M/readpdb.F b/source/unres/src_MD-M/readpdb.F
index 3caff57..7aa8fd4 100644
--- a/source/unres/src_MD-M/readpdb.F
+++ b/source/unres/src_MD-M/readpdb.F
@@ -17,7 +17,7 @@ C geometry.
       character*80 card
       dimension sccor(3,20)
       double precision e1(3),e2(3),e3(3)
-      integer rescode,iterter(maxres)
+      integer rescode,iterter(maxres),cou
       logical fail
       do i=1,maxres
          iterter(i)=0