X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Felecont.f;h=79d6a7ecd73da59f140a1134f6da35b8ebf2442a;hb=refs%2Fheads%2Fadam;hp=7c024eaaec7fb96f5ea6ee6153495cefb94f99dd;hpb=e9e7a2a71c54224a033e1fa3f9a60848b688eadb;p=unres.git

diff --git a/source/unres/src-HCD-5D/elecont.f b/source/unres/src-HCD-5D/elecont.f
index 7c024ea..79d6a7e 100644
--- a/source/unres/src-HCD-5D/elecont.f
+++ b/source/unres/src-HCD-5D/elecont.f
@@ -428,7 +428,7 @@ cd            write (iout,*) i1,j1,not_done
             iii1=max0(ii1-1,1)
             do ij=iii1,i1
              nsec(ij)=nsec(ij)+1
-             if (nsec(ij).le.2) then
+             if (nsec(ij).le.2 .and. nsec(ij).gt.0) then
               isec(ij,nsec(ij))=nbeta
              endif
             enddo