unres

[unres.git] / source / unres / src-HCD-5D / elecont.f

diff --git a/source/unres/src-HCD-5D/elecont.f b/source/unres/src-HCD-5D/elecont.f
index 7c024ea..79d6a7e 100644 (file)
--- 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