2 !-----------------------------------------------------------------------------
5 real(kind=8) :: tolf,rtolf
6 integer :: maxfun,maxmin,minfun,minmin,&
7 print_min_ini,print_min_stat,print_min_res
8 !-----------------------------------------------------------------------------
9 ! common /przechowalnia/ subroutines: minim_jlee,minimize,minim_dc,
10 ! minim_mcmf,minimize_sc1
11 real(kind=8),dimension(:),allocatable :: v !77+maxvar*(maxvar+17)/2 (maxvar=6*maxres)
12 !-----------------------------------------------------------------------------