X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FMD.F;h=b740de75a1a4d95b5463383686557f2773940aa8;hb=22cd5a3c3c583f883079b2b3f984900dfd313b26;hp=f65a52708172f220f2b1d7e3facec99070073b9d;hpb=7dcaf96e49cd62f1d1f429d1ceaf7c872e613488;p=unres.git

diff --git a/source/unres/src_MD-M/MD.F b/source/unres/src_MD-M/MD.F
index f65a527..b740de7 100644
--- a/source/unres/src_MD-M/MD.F
+++ b/source/unres/src_MD-M/MD.F
@@ -209,9 +209,12 @@ c Variable time step algorithm.
         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)