X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fsc_move.F;h=10a6f8b72d99fe9c64ac0fbfaa4c97208eece470;hb=d355d78dcd9297bc105e644cd405796d4176f821;hp=b6837fde271a4f35fe8a920d4432dcfdb3d3b80b;hpb=79038a5092816eb9843e9cd91cd3517eaed101e8;p=unres.git

diff --git a/source/unres/src_MD/sc_move.F b/source/unres/src_MD/sc_move.F
index b6837fd..10a6f8b 100644
--- a/source/unres/src_MD/sc_move.F
+++ b/source/unres/src_MD/sc_move.F
@@ -539,11 +539,11 @@ c     Intercept NaNs in the coordinates, before calling etotal
       call zerograd
       call chainbuild
 cd    write (iout,*) 'ETOTAL called from FUNC'
-      call egb1(evdw)
-      call esc(escloc)
-      f=wsc*evdw+wscloc*escloc
-cd      call etotal(energia(0))
-cd      f=wsc*energia(1)+wscloc*energia(12)
+c1      call egb1(evdw)
+c1      call esc(escloc)
+c1      f=wsc*evdw+wscloc*escloc
+      call etotal(energia(0))
+      f=wsc*energia(1)+wscloc*energia(12)
 cd      print *,f,evdw,escloc,energia(0)
 C
 C Sum up the components of the Cartesian gradient.