include 'COMMON.SBRIDGE'
common /srutu/ icall
double precision energy(0:max_ene)
+ print *,"A TU?"
c do i=2,nres
c vbld(i)=vbld(i)+ran_number(-0.1d0,0.1d0)
c if (itype(i).ne.10)
totT=1.d0
eq_time=0.0d0
call read_fragments
+ print *, "AFTER read fragments"
call chainbuild_cart
+ print *,"chainbuild_cart"
call cartprint
+ print *,"After cartprint"
call intout
icall=1
+ print *,"before ETOT"
call etotal(energy(0))
etot = energy(0)
call enerprint(energy(0))
print *,'icheckgrad=',icheckgrad
goto (10,20,30) icheckgrad
10 call check_ecartint
+ call check_ecartint
return
20 call check_cartgrad
return