From c9b1860a53fbd6d95cdb6301b45aa4a114187196 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Sun, 6 Sep 2020 12:01:52 +0200 Subject: [PATCH] external random_init necessary for gfortran 9.3 --- source/unres/src_CSA/readrtns_csa.F | 1 + source/unres/src_MD-M/readrtns_CSA.F | 1 + source/unres/src_MD/readrtns.F | 1 + source/unres/src_MIN/readrtns_min.F | 1 + 4 files changed, 4 insertions(+) diff --git a/source/unres/src_CSA/readrtns_csa.F b/source/unres/src_CSA/readrtns_csa.F index e88a67e..4031bcc 100644 --- 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 + external random_init 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 --- 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 + external random_init 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 --- 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 + external random_init 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 --- 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 + external random_init nglob_csa=0 eglob_csa=1d99 -- 1.7.9.5