update

[unres.git] / source / unres / src_MD-M / csa.f

diff --git a/source/unres/src_MD-M/csa.f b/source/unres/src_MD-M/csa.f
index 3c2e8e9..49996be 100644 (file)
--- a/source/unres/src_MD-M/csa.f
+++ b/source/unres/src_MD-M/csa.f
@@ -72,7 +72,8 @@ c al      m=0
       do while(m.lt.n .and. itrial.le.10000)
         itrial=itrial+1
         jeden=1
-        call gen_rand_conf(jeden,*10)
+        nrestmp=nres
+        call gen_rand_conf(jeden,nrestmp,*10)
 !        call intout
         m=m+1
         do j=2,nres-1
@@ -107,7 +108,8 @@ ccccccccccccccccccccccccccccccccccccccccccccccccc
       do while(m.lt.n .and. itrial.le.10000)
         itrial=itrial+1
         jeden=1
-        call gen_rand_conf(jeden,*10)
+        nrestmp=nres
+        call gen_rand_conf(jeden,nrestmp,*10)
 !        call intout
         m=m+1
         do j=2,nres-1