projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
dfa nfgtasks
[unres.git]
/
source
/
unres
/
src_MD
/
ssMD.F
diff --git
a/source/unres/src_MD/ssMD.F
b/source/unres/src_MD/ssMD.F
index
9c4bfd3
..
6c7d523
100644
(file)
--- a/
source/unres/src_MD/ssMD.F
+++ b/
source/unres/src_MD/ssMD.F
@@
-589,7
+589,7
@@
cmc write(iout,*)"ALLNSS ",allnss,(allihpb(i),alljhpb(i),i=1,allnss)
& MPI_INTEGER,MPI_SUM,king,FG_COMM,IERR)
call MPI_Gather(newnss,1,MPI_INTEGER,
& i_newnss,1,MPI_INTEGER,king,FG_COMM,IERR)
- displ(0)=0
+C displ(0)=0
do i=1,nfgtasks-1,1
displ(i)=i_newnss(i-1)+displ(i-1)
enddo