X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Felecont.f;h=79d6a7ecd73da59f140a1134f6da35b8ebf2442a;hb=34afc6bc75a1158d5a5a7f08c5a7d84c8c1fb7c4;hp=7c024eaaec7fb96f5ea6ee6153495cefb94f99dd;hpb=4f0aefffb3277492cac65561d39aa45e7dc34aa5;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