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
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