module minim_data !----------------------------------------------------------------------------- ! commom.minim ! common /minimm/ real(kind=8) :: tolf,rtolf integer :: maxfun,maxmin,minfun,minmin,& print_min_ini,print_min_stat,print_min_res !----------------------------------------------------------------------------- ! common /przechowalnia/ subroutines: minim_jlee,minimize,minim_dc, ! minim_mcmf,minimize_sc1 real(kind=8),dimension(:),allocatable :: v !77+maxvar*(maxvar+17)/2 (maxvar=6*maxres) !----------------------------------------------------------------------------- end module minim_data