X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Freadrtns_csa.F;h=4031bcc4543aa877d7f0c83f9e36f112b80bcc9b;hb=36afcee4bcfb42f3fe1625ea0cb83da75812fcaa;hp=e88a67e3d3a0130b39386cf834e020398eb6d086;hpb=4f83f263b2f7b12464872dde2641f9481eb461b5;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