| File |
Line number |
Procedure |
Code |
|
./optim/optim_readdata.F |
107 |
OPTIM_READDATA |
if ( dfile .eq. ctrlname ) then |
|
./optim/optim_readdata.F |
112 |
OPTIM_READDATA |
else if ( dfile .eq. costname ) then |
|
./optim/optim_readdata.F |
121 |
OPTIM_READDATA |
print*,' argument. *dfile* = ',dfile |
|
./optim/optim_readdata.F |
133 |
OPTIM_READDATA |
& dfile,'_',yctrlid(1:10),'.opt', nopt |
|
./optim/optim_readdata.F |
333 |
OPTIM_READDATA |
if ( dfile .eq. ctrlname ) then |
|
./optim/optim_readdata.F |
335 |
OPTIM_READDATA |
else if ( dfile .eq. costname ) then |
|
./optim/optim_readdata.F |
4 |
OPTIM_READDATA |
I dfile, |
|
./optim/optim_readdata.F |
60 |
OPTIM_READDATA |
character*(9) dfile |
|
./optim/optim_writedata.F |
47 |
OPTIM_WRITEDATA |
character*(9) dfile |
|
./optim/optim_writedata.F |
4 |
OPTIM_WRITEDATA |
I dfile, |
|
./optim/optim_writedata.F |
81 |
OPTIM_WRITEDATA |
if ( dfile .eq. ctrlname ) then |
|
./optim/optim_writedata.F |
89 |
OPTIM_WRITEDATA |
print*,' argument. *dfile* = ',dfile |
|
./optim/optim_writedata.F |
99 |
OPTIM_WRITEDATA |
& dfile,'_',yctrlid(1:10),'.opt', nopt |