X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Freadpdb.F;h=c56b1df728ed37f0251635c88a0669e21fef7e9b;hb=df61eb1a0ad598d7c6c5b4037dee4bec200d5bc2;hp=1190bb154fb4b42bb6348558a92f5ba0acef601a;hpb=5aac27f7c6317fa0975184363614b42716034716;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