193 |
c are provided within m1qn3. euclid, ctonbe, ctcabe can be replaced |
c are provided within m1qn3. euclid, ctonbe, ctcabe can be replaced |
194 |
c by something more efficient, simul_rc is a dummy routine for |
c by something more efficient, simul_rc is a dummy routine for |
195 |
c the reverse communication mode and should not be changed. |
c the reverse communication mode and should not be changed. |
196 |
print *, ' OPTIM_SUB: call m1qn3_offline' |
print *, ' OPTIM_SUB: call m1qn3_offline ........' |
197 |
call m1qn3_offline (simul_rc,euclid,ctonbe,ctcabe, |
call m1qn3_offline (simul_rc,euclid,ctonbe,ctcabe, |
198 |
& nn,xx,objf,adxx,dxmin,df1, |
& nn,xx,objf,adxx,dxmin,df1, |
199 |
& epsg,normtype,impres,io,imode,omode,niter,nsim, |
& epsg,normtype,impres,io,imode,omode,niter,nsim, |
200 |
& iz,dz,ndz,reverse,indic,izs,rzs,dzs) |
& iz,dz,ndz,reverse,indic,izs,rzs,dzs) |
201 |
close(io) |
close(io) |
202 |
|
print *, ' OPTIM_SUB: ...........................' |
203 |
print *, ' OPTIM_SUB: returned from m1qn3_offline' |
print *, ' OPTIM_SUB: returned from m1qn3_offline' |
204 |
|
print *, ' OPTIM_SUB: nn = ', nn |
205 |
|
print *, ' OPTIM_SUB: xx(1) = ', xx(1), xx(2) |
206 |
|
print *, ' OPTIM_SUB: adxx(1) = ', adxx(1), adxx(2) |
207 |
|
print *, ' OPTIM_SUB: omode = ', omode |
208 |
|
print *, ' OPTIM_SUB: niter = ', niter |
209 |
|
print *, ' OPTIM_SUB: nsim = ', nsim |
210 |
|
print *, ' OPTIM_SUB: reverse = ', reverse |
211 |
|
|
212 |
c write state of m1qn3 into pickup file for warm restart |
c write state of m1qn3 into pickup file for warm restart |
213 |
call optim_store_m1qn3(ndz,iz,dz,niter,nsim,epsg,df1, |
call optim_store_m1qn3(ndz,iz,dz,niter,nsim,epsg,df1, |