Adam's corrections

[unres.git] / source / unres / src-HCD-5D / sc_move.F

diff --git a/source/unres/src-HCD-5D/sc_move.F b/source/unres/src-HCD-5D/sc_move.F
index 201e20f..7911b30 100644 (file)
--- a/source/unres/src-HCD-5D/sc_move.F
+++ b/source/unres/src-HCD-5D/sc_move.F
@@ -369,7 +369,7 @@ c      parameter (liv=60,lv=(77+maxvar*(maxvar+17)/2))
       external funcgrad_restr1
       external optsave
 #else
-      external func,gradient,fdum
+      external fdum
       external func_restr1,grad_restr1
       logical not_done,change,reduce 
       dimension iv(liv)