poprawka turn3 i turn4 uwaga moga byc wlaczone diagnostki

[unres.git] / source / unres / src_MD / unres.F

diff --git a/source/unres/src_MD/unres.F b/source/unres/src_MD/unres.F
index b14c040..a63047f 100644 (file)
--- 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