projects
/
unres.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
fea53c2
)
external random_init necessary for gfortran 9.3
author
Cezary Czaplewski
<czarek@chem.univ.gda.pl>
Sun, 6 Sep 2020 10:01:52 +0000
(12:01 +0200)
committer
Cezary Czaplewski
<czarek@chem.univ.gda.pl>
Sun, 6 Sep 2020 10:01:52 +0000
(12:01 +0200)
source/unres/src_CSA/readrtns_csa.F
patch
|
blob
|
history
source/unres/src_MD-M/readrtns_CSA.F
patch
|
blob
|
history
source/unres/src_MD/readrtns.F
patch
|
blob
|
history
source/unres/src_MIN/readrtns_min.F
patch
|
blob
|
history
diff --git
a/source/unres/src_CSA/readrtns_csa.F
b/source/unres/src_CSA/readrtns_csa.F
index
e88a67e
..
4031bcc
100644
(file)
--- a/
source/unres/src_CSA/readrtns_csa.F
+++ b/
source/unres/src_CSA/readrtns_csa.F
@@
-83,6
+83,7
@@
c include 'COMMON.MD'
character*8 diagmeth(0:3) /'Library','EVVRSP','Givens','Jacobi'/
character*80 ucase
character*320 controlcard
character*8 diagmeth(0:3) /'Library','EVVRSP','Givens','Jacobi'/
character*80 ucase
character*320 controlcard
+ external random_init
nglob_csa=0
eglob_csa=1d99
nglob_csa=0
eglob_csa=1d99
diff --git
a/source/unres/src_MD-M/readrtns_CSA.F
b/source/unres/src_MD-M/readrtns_CSA.F
index
4c48bc0
..
a14f1b3
100644
(file)
--- a/
source/unres/src_MD-M/readrtns_CSA.F
+++ b/
source/unres/src_MD-M/readrtns_CSA.F
@@
-109,6
+109,7
@@
C
character*8 diagmeth(0:3) /'Library','EVVRSP','Givens','Jacobi'/
character*80 ucase
character*320 controlcard
character*8 diagmeth(0:3) /'Library','EVVRSP','Givens','Jacobi'/
character*80 ucase
character*320 controlcard
+ external random_init
nglob_csa=0
eglob_csa=1d99
nglob_csa=0
eglob_csa=1d99
diff --git
a/source/unres/src_MD/readrtns.F
b/source/unres/src_MD/readrtns.F
index
fc49c33
..
6dc1fa1
100644
(file)
--- a/
source/unres/src_MD/readrtns.F
+++ b/
source/unres/src_MD/readrtns.F
@@
-89,6
+89,7
@@
csa include 'COMMON.CSA'
character*8 diagmeth(0:3) /'Library','EVVRSP','Givens','Jacobi'/
character*80 ucase
character*320 controlcard
character*8 diagmeth(0:3) /'Library','EVVRSP','Givens','Jacobi'/
character*80 ucase
character*320 controlcard
+ external random_init
nglob_csa=0
eglob_csa=1d99
nglob_csa=0
eglob_csa=1d99
diff --git
a/source/unres/src_MIN/readrtns_min.F
b/source/unres/src_MIN/readrtns_min.F
index
9d444cf
..
5c50565
100644
(file)
--- a/
source/unres/src_MIN/readrtns_min.F
+++ b/
source/unres/src_MIN/readrtns_min.F
@@
-77,6
+77,7
@@
C
character*8 diagmeth(0:3) /'Library','EVVRSP','Givens','Jacobi'/
character*80 ucase
character*320 controlcard
character*8 diagmeth(0:3) /'Library','EVVRSP','Givens','Jacobi'/
character*80 ucase
character*320 controlcard
+ external random_init
nglob_csa=0
eglob_csa=1d99
nglob_csa=0
eglob_csa=1d99