projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
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