| File |
Line number |
Procedure |
Code |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
46 |
COST_WEIGHTS |
REAL*8 tmpwti(Nr) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
88 |
COST_WEIGHTS |
READ(iUnit,rec=1) tmpwti |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
91 |
COST_WEIGHTS |
CALL MDS_BYTESWAPR8( Nr, tmpwti ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
97 |
COST_WEIGHTS |
wti(k) = tmpwti(k) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
46 |
COST_WEIGHTS |
REAL*8 tmpwti(Nr) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
88 |
COST_WEIGHTS |
READ(iUnit,rec=1) tmpwti |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
91 |
COST_WEIGHTS |
CALL MDS_BYTESWAPR8( Nr, tmpwti ) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
97 |
COST_WEIGHTS |
wti(k) = tmpwti(k) |