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

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