write (67,'(80f10.5)') (v_transf(i),i=1,ind)
#endif
endif
+ call check_cartgrad
if (mod(itime,ntwx).eq.0) then
write (tytul,'("time",f8.2)') totT
if(mdpdb) then
+ call check_cartgrad
+ write(iout,*) "kupa gowna"
call hairpin(.true.,nharp,iharp)
call secondary2(.true.)
call pdbout(potE,tytul,ipdb)
stdforcp(i)=stdfp*dsqrt(gamp)
enddo
do i=nnt,nct
- stdforcsc(i)=stdfsc(itype(i))*dsqrt(gamsc(itype(i)))
+ stdforcsc(i)=stdfsc(itype(i))*dsqrt(gamsc(iabs(itype(i))))
enddo
endif
c Open the pdb file for snapshotshots