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)