external func,gradient,fdum
external func_restr,grad_restr
logical not_done,change,reduce
- common /przechowalnia/ v
+c common /przechowalnia/ v
icall = 1
include 'COMMON.CHAIN'
dimension iv(liv)
double precision minval,x(maxvar),d(maxvar),v(1:lv),xx(maxvar)
- common /przechowalnia/ v
+c common /przechowalnia/ v
double precision energia(0:n_ene)
external func_dc,grad_dc,fdum