X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fsrc-HCD-5D%2Fsc_move.F;h=7911b30e42a21a7fe8b1c221c3a02e465035d8cf;hb=fd10e81284102e5a8466e05c87f0202979a2f00b;hp=201e20f86d0f625e192b37b08beecef85347bbc5;hpb=15cbe2fc81082e6828fa504b3b22499600134b54;p=unres.git

diff --git a/source/unres/src-HCD-5D/sc_move.F b/source/unres/src-HCD-5D/sc_move.F
index 201e20f..7911b30 100644
--- 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)