external random_init necessary for gfortran 9.3

[unres.git] / source / unres / src_CSA / readrtns_csa.F

diff --git a/source/unres/src_CSA/readrtns_csa.F b/source/unres/src_CSA/readrtns_csa.F
index 9ab4510..4031bcc 100644 (file)
--- a/source/unres/src_CSA/readrtns_csa.F
+++ b/source/unres/src_CSA/readrtns_csa.F
@@ -73,7 +73,7 @@ c      include 'COMMON.THREAD'
       include 'COMMON.MCM'
 c      include 'COMMON.MAP'
       include 'COMMON.HEADER'
-c      include 'COMMON.CSA'
+      include 'COMMON.CSA'
       include 'COMMON.CHAIN'
 c      include 'COMMON.MUCA'
 c      include 'COMMON.MD'
@@ -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
@@ -808,9 +809,6 @@ c            call gen_rand_conf(itmp,*31)
 
       endif 
 C Generate distance constraints, if the PDB structure is to be regularized. 
-      if (nthread.gt.0) then
-        call read_threadbase
-      endif
       call setup_var
       if (me.eq.king .or. .not. out1file)
      & call intout