X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fsc_move.F;h=7911b30e42a21a7fe8b1c221c3a02e465035d8cf;hb=fb796f6ccc7879c3ae3d07e87499aaa430469deb;hp=201e20f86d0f625e192b37b08beecef85347bbc5;hpb=7c5373260289072f6022e1d937ab775fc820e6a2;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)