X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fmolread_zs.F;h=8cf7f647586b5564c33bf596e4178d30e27b02c4;hb=c1d1c37da366f8e8001d54dc758d5f5a6bcd90cd;hp=808ee7220dfa900f34e1b13e2a7e0afe40b37604;hpb=107ad1479c841e0b44ead7c961c78ca528be291c;p=unres.git

diff --git a/source/wham/src-M/molread_zs.F b/source/wham/src-M/molread_zs.F
index 808ee72..8cf7f64 100644
--- a/source/wham/src-M/molread_zs.F
+++ b/source/wham/src-M/molread_zs.F
@@ -696,8 +696,13 @@ c
             liiflag=.false.
             iistart=ii
           endif
-          if (ii_in_use(ii).ne.0.and..not.liiflag) then
-             iishift=ii-iistart
+          if (ii_in_use(ii).ne.0.and..not.liiflag.or.
+     &                   .not.liiflag.and.ii.eq.lim_odl) then
+             if (ii.eq.lim_odl) then
+              iishift=ii-iistart+1
+             else
+              iishift=ii-iistart
+             endif
              liiflag=.true.
              do ki=iistart,lim_odl-iishift
               ires_homo(ki)=ires_homo(ki+iishift)