+ if (nran_start.gt.0) then
+ write (iout,*)
+ & "Chains will be regenerated starting from residue",nran_start
+ do it=1,100
+ call gen_rand_conf_mchain(nran_start,*10)
+ write (iout,*) "Conformation successfully generated",it
+ goto 11
+ 10 write (iout,*) "Problems with regenerating chains",it
+ enddo
+ 11 continue
+ write (iout,*) "Cartesian coords after chain rebuild"
+ call cartprint
+ call chainbuild_cart
+ write (iout,*) "Cartesian coords after chainbuild_ecart"
+ call cartprint
+ call int_from_cart1(.false.)
+ call intout
+ endif