61 |
|
|
62 |
c == end of interface == |
c == end of interface == |
63 |
|
|
64 |
|
print *, 'pathei-lsopt in simul' |
65 |
|
|
66 |
c-- Call the combined modified forward model and the adjoint model. |
c-- Call the combined modified forward model and the adjoint model. |
67 |
do i = 1,nn |
do i = 1,nn |
68 |
adxx(i) = 0.0 |
adxx(i) = 0. |
69 |
enddo |
enddo |
70 |
adobjf = 1.0 |
|
71 |
|
adobjf = 1. |
72 |
c |
c |
73 |
lheaderonly = .false. |
lheaderonly = .false. |
74 |
|
|
75 |
|
print *, 'pathei-lsopt vor optim_readdata' |
76 |
|
|
77 |
call optim_readdata( nn, ctrlname, lheaderonly, objf, xx ) |
call optim_readdata( nn, ctrlname, lheaderonly, objf, xx ) |
78 |
call optim_readdata( nn, costname, lheaderonly, objf, adxx ) |
call optim_readdata( nn, costname, lheaderonly, objf, adxx ) |
79 |
|
|