X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Freadrtns_CSA.F;fp=source%2Funres%2Fsrc_MD-M%2Freadrtns_CSA.F;h=a14f1b39844db07b729e54c8eabfd9b0abcb6920;hb=c9b1860a53fbd6d95cdb6301b45aa4a114187196;hp=4c48bc0ebc7bcf62b84632ad8f398b20e235b4ad;hpb=fea53c2754b9d423e976a02b2b64fe49d6056473;p=unres.git

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