File |
Line number |
Procedure |
Code |
./optim/optim_readdata.F |
108 |
OPTIM_READDATA |
if ( dfile .eq. ctrlname ) then |
./optim/optim_readdata.F |
113 |
OPTIM_READDATA |
else if ( dfile .eq. costname ) then |
./optim/optim_readdata.F |
122 |
OPTIM_READDATA |
print*,' argument. *dfile* = ',dfile |
./optim/optim_readdata.F |
134 |
OPTIM_READDATA |
& dfile,'_',expId(1:10),'.opt', nopt |
./optim/optim_readdata.F |
334 |
OPTIM_READDATA |
if ( dfile .eq. ctrlname ) then |
./optim/optim_readdata.F |
336 |
OPTIM_READDATA |
else if ( dfile .eq. costname ) then |
./optim/optim_readdata.F |
4 |
OPTIM_READDATA |
I dfile, |
./optim/optim_readdata.F |
61 |
OPTIM_READDATA |
character*(9) dfile |
./optim/optim_writedata.F |
100 |
OPTIM_WRITEDATA |
& dfile,'_',expId(1:10),'.opt', nopt |
./optim/optim_writedata.F |
48 |
OPTIM_WRITEDATA |
character*(9) dfile |
./optim/optim_writedata.F |
4 |
OPTIM_WRITEDATA |
I dfile, |
./optim/optim_writedata.F |
82 |
OPTIM_WRITEDATA |
if ( dfile .eq. ctrlname ) then |
./optim/optim_writedata.F |
90 |
OPTIM_WRITEDATA |
print*,' argument. *dfile* = ',dfile |