unres
[unres.git] / source / unres / src-HCD-5D / readpdb-mult.F
index 12d011e..e603267 100644 (file)
@@ -28,6 +28,7 @@ C geometry.
          iterter(i)=0
       enddo
       ibeg=1
+      ishift=0
       ishift1=0
       lsecondary=.false.
       nhfrag=0