File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_theta0.F |
96 |
COST_THETA0 |
ilfld = ilnblnk( xx_theta_file ) |
./pkg/ecco/cost_theta0.F |
98 |
COST_THETA0 |
& xx_theta_file(1:ilfld),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
85 |
GRDCHK_SETXX |
il=ilnblnk( xx_theta_file ) |
./pkg/grdchk/grdchk_setxx.F |
88 |
GRDCHK_SETXX |
& yadmark, xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
91 |
GRDCHK_SETXX |
& xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
83 |
GRDCHK_GETADXX |
il=ilnblnk( xx_theta_file ) |
./pkg/grdchk/grdchk_getadxx.F |
86 |
GRDCHK_GETADXX |
& yadmark, xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
88 |
GRDCHK_GETXX |
il=ilnblnk( xx_theta_file ) |
./pkg/grdchk/grdchk_getxx.F |
91 |
GRDCHK_GETXX |
& yadmark, xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
94 |
GRDCHK_GETXX |
& xx_theta_file(1:il),'.',optimcycle |
./optim/optim_numbmod.F |
115 |
OPTIM_NUMBMOD |
& xx_theta_file, |
./pkg/admtlm/admtlm_upxx.F |
115 |
ADMTLM_UPXX |
il=ilnblnk( xx_theta_file ) |
./pkg/admtlm/admtlm_upxx.F |
117 |
ADMTLM_UPXX |
& 'g_',xx_theta_file(1:il),'.',optimcycle |
./pkg/admtlm/admtlm_upxx.F |
186 |
ADMTLM_UPXX |
il=ilnblnk( xx_theta_file ) |
./pkg/admtlm/admtlm_upxx.F |
188 |
ADMTLM_UPXX |
& xx_theta_file(1:il),'.',optimcycle-1 |
./pkg/admtlm/admtlm_upxx.F |
192 |
ADMTLM_UPXX |
il=ilnblnk( xx_theta_file ) |
./pkg/admtlm/admtlm_upxx.F |
194 |
ADMTLM_UPXX |
& xx_theta_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
93 |
CTRL_MAP_INI |
il=ilnblnk( xx_theta_file ) |
./pkg/ctrl/ctrl_map_ini.F |
95 |
CTRL_MAP_INI |
& xx_theta_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_pack.F |
107 |
CTRL_PACK |
call CTRL_SET_FNAME(xx_theta_file, fname_theta, mythid) |
./pkg/ctrl/ctrl_map_ini_ecco.F |
101 |
CTRL_MAP_INI_ECCO |
il=ilnblnk( xx_theta_file ) |
./pkg/ctrl/ctrl_map_ini_ecco.F |
103 |
CTRL_MAP_INI_ECCO |
& xx_theta_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl.h |
369 |
NO PROCEDURE |
& xx_theta_file |
./pkg/ctrl/ctrl.h |
402 |
NO PROCEDURE |
character*(MAX_LEN_FNAM) xx_theta_file |
./pkg/ctrl/ctrl_init.F |
140 |
CTRL_INIT |
& xx_theta_file, 1, 101, 1, 1, 1, |
./pkg/ctrl/ctrl_unpack.F |
116 |
CTRL_UNPACK |
call CTRL_SET_FNAME(xx_theta_file, fname_theta, mythid) |
./pkg/ctrl/ctrl_readparms.F |
136 |
CTRL_READPARMS |
xx_theta_file = 'xx_theta' |
./pkg/ctrl/ctrl_readparms.F |
73 |
CTRL_READPARMS |
& xx_theta_file, |