| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_readparms.F |
190 |
ECCO_READPARMS |
& gencost_mask, |
|
./pkg/ecco/ecco_readparms.F |
601 |
ECCO_READPARMS |
gencost_mask(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
731 |
ECCO_READPARMS |
if ( ( gencost_mask(k) .NE. ' ' ).AND. |
|
./pkg/ecco/ecco_readparms.F |
734 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_readparms.F |
735 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'C' |
|
./pkg/ecco/ecco_readparms.F |
748 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_readparms.F |
749 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'W' |
|
./pkg/ecco/ecco_readparms.F |
762 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_readparms.F |
763 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'S' |
|
./pkg/ecco/ecco_readparms.F |
776 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_readparms.F |
777 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'K' |
|
./pkg/ecco/cost_gencost_boxmean.F |
123 |
COST_GENCOST_BOXMEAN |
il = ilnblnk(gencost_mask(kgen)) |
|
./pkg/ecco/cost_gencost_boxmean.F |
124 |
COST_GENCOST_BOXMEAN |
write(tempfile(1:128),'(2A)') gencost_mask(kgen)(1:il),'T' |
|
./pkg/ecco/cost_gencost_boxmean.F |
126 |
COST_GENCOST_BOXMEAN |
if ( (.NOT.exst).OR.(gencost_mask(kgen).EQ.' ') ) then |
|
./pkg/ecco/ecco.h |
330 |
NO PROCEDURE |
& gencost_mask |
|
./pkg/ecco/ecco.h |
341 |
NO PROCEDURE |
character*(MAX_LEN_FNAM) gencost_mask(NGENCOST) |
|
./pkg/ecco/ecco_check.F |
449 |
ECCO_CHECK |
if(gencost_mask(k) .eq. ' ') then |
|
./pkg/ecco/ecco_check.F |
460 |
ECCO_CHECK |
if ((gencost_mask(k) .ne. ' ').AND. |
|
./pkg/ecco/ecco_check.F |
462 |
ECCO_CHECK |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_check.F |
463 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'C' |
|
./pkg/ecco/ecco_check.F |
476 |
ECCO_CHECK |
if ((gencost_mask(k) .ne. ' ').AND. |
|
./pkg/ecco/ecco_check.F |
478 |
ECCO_CHECK |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_check.F |
479 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'W' |
|
./pkg/ecco/ecco_check.F |
491 |
ECCO_CHECK |
il = ilnblnk(gencost_mask(k)) |
|
./pkg/ecco/ecco_check.F |
492 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'S' |