Symbol Description Uses
gencost_name 20


File Line number Procedure Code
./pkg/ecco/cost_gencost_all.F 55 COST_GENCOST_ALL 
         if ( (gencost_name(k).NE.'sshv4-mdt').AND.
./pkg/ecco/cost_gencost_all.F 56 COST_GENCOST_ALL 
     &        (gencost_name(k).NE.'sshv4-tp').AND.
./pkg/ecco/cost_gencost_all.F 57 COST_GENCOST_ALL 
     &        (gencost_name(k).NE.'sshv4-ers').AND.
./pkg/ecco/cost_gencost_all.F 58 COST_GENCOST_ALL 
     &        (gencost_name(k).NE.'sshv4-gfo').AND.
./pkg/ecco/cost_gencost_all.F 59 COST_GENCOST_ALL 
     &        (gencost_name(k).NE.'sshv4-lsc').AND.
./pkg/ecco/cost_gencost_all.F 60 COST_GENCOST_ALL 
     &        (gencost_name(k).NE.'sstv4-amsre').AND.
./pkg/ecco/cost_gencost_all.F 61 COST_GENCOST_ALL 
     &        (gencost_name(k).NE.'sstv4-amsre-lsc') ) then
./pkg/ecco/cost_gencost_sshv4.F 163 COST_GENCOST_SSHV4 
        if (gencost_name(k).EQ.'sshv4-mdt') igen_mdt=k
./pkg/ecco/cost_gencost_sshv4.F 164 COST_GENCOST_SSHV4 
        if (gencost_name(k).EQ.'sshv4-tp') igen_tp=k
./pkg/ecco/cost_gencost_sshv4.F 165 COST_GENCOST_SSHV4 
        if (gencost_name(k).EQ.'sshv4-ers') igen_ers=k
./pkg/ecco/cost_gencost_sshv4.F 166 COST_GENCOST_SSHV4 
        if (gencost_name(k).EQ.'sshv4-gfo') igen_gfo=k
./pkg/ecco/cost_gencost_sshv4.F 167 COST_GENCOST_SSHV4 
        if (gencost_name(k).EQ.'sshv4-lsc') igen_lsc=k
./pkg/ecco/cost_gencost_sstv4.F 118 COST_GENCOST_SSTV4 
        if (gencost_name(k).EQ.'sstv4-amsre') igen_amsre=k
./pkg/ecco/cost_gencost_sstv4.F 119 COST_GENCOST_SSTV4 
        if (gencost_name(k).EQ.'sstv4-amsre-lsc') igen_amsre_lsc=k
./pkg/ecco/ecco_cost.h 88 NO PROCEDURE 
     &       gencost_name,
./pkg/ecco/ecco_cost.h 95 NO PROCEDURE 
      character*(MAX_LEN_FNAM) gencost_name(NGENCOST)
./pkg/ecco/ecco_cost_final.F 1202 ECCO_COST_FINAL 
         IL  = ILNBLNK( gencost_name(num_var) )
./pkg/ecco/ecco_cost_final.F 1205 ECCO_COST_FINAL 
     &    gencost_name(num_var)(1:IL),' (gencost ', num_var, ') = ',
./pkg/ecco/ecco_readparms.F 134 ECCO_READPARMS 
     &         gencost_name,
./pkg/ecco/ecco_readparms.F 451 ECCO_READPARMS 
         gencost_name(k)       = 'gencost'