X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Freadrtns_csa.F;h=4031bcc4543aa877d7f0c83f9e36f112b80bcc9b;hb=c9b1860a53fbd6d95cdb6301b45aa4a114187196;hp=e88a67e3d3a0130b39386cf834e020398eb6d086;hpb=fea53c2754b9d423e976a02b2b64fe49d6056473;p=unres.git

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