X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Freadpdb.F;h=c56b1df728ed37f0251635c88a0669e21fef7e9b;hb=2bc0c5f06a45a86998d13adb237a1c84e46e12e8;hp=1190bb154fb4b42bb6348558a92f5ba0acef601a;hpb=57fd9101200e85f97d56c97be8c418396b08e05a;p=unres.git

diff --git a/source/unres/src-HCD-5D/readpdb.F b/source/unres/src-HCD-5D/readpdb.F
index 1190bb1..c56b1df 100644
--- a/source/unres/src-HCD-5D/readpdb.F
+++ b/source/unres/src-HCD-5D/readpdb.F
@@ -30,6 +30,7 @@ C geometry.
       lsecondary=.false.
       nhfrag=0
       nbfrag=0
+      ires=0
       do
         read (ipdbin,'(a80)',end=10) card
         if (card(:5).eq.'HELIX') then