X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Funres.F;h=a63047f007d37467e798bc61b7e2eb20d682784e;hb=890cd4ffc8cc239da40ddf432851bf8fd27df279;hp=b14c040d5ac0ea8683557bb3ce4ed283829a7d73;hpb=0554326db3980ec9ef78634d4dc612a56ec2e719;p=unres.git

diff --git a/source/unres/src_MD/unres.F b/source/unres/src_MD/unres.F
index b14c040..a63047f 100644
--- a/source/unres/src_MD/unres.F
+++ b/source/unres/src_MD/unres.F
@@ -736,6 +736,7 @@ c      enddo
       print *,'icheckgrad=',icheckgrad
       goto (10,20,30) icheckgrad
   10  call check_ecartint
+      call check_ecartint
       return
   20  call check_cartgrad
       return