| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
171 |
COST_GENCOST_SSHV4 |
igen_mdt=0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
178 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-mdt') igen_mdt=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
342 |
COST_GENCOST_SSHV4 |
& gencost_scalefile(igen_mdt), |
|
./pkg/ecco/cost_gencost_sshv4.F |
343 |
COST_GENCOST_SSHV4 |
& gencost_smooth2Ddiffnbt(igen_mdt),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
642 |
COST_GENCOST_SSHV4 |
& gencost_scalefile(igen_mdt), |
|
./pkg/ecco/cost_gencost_sshv4.F |
643 |
COST_GENCOST_SSHV4 |
& gencost_smooth2Ddiffnbt(igen_mdt),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
657 |
COST_GENCOST_SSHV4 |
& gencost_scalefile(igen_mdt), |
|
./pkg/ecco/cost_gencost_sshv4.F |
658 |
COST_GENCOST_SSHV4 |
& gencost_smooth2Ddiffnbt(igen_mdt),mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
701 |
COST_GENCOST_SSHV4 |
junkweight = gencost_weight(i,j,bi,bj,igen_mdt) |
|
./pkg/ecco/cost_gencost_sshv4.F |
707 |
COST_GENCOST_SSHV4 |
objf_gencost(bi,bj,igen_mdt) = objf_gencost(bi,bj,igen_mdt) |
|
./pkg/ecco/cost_gencost_sshv4.F |
709 |
COST_GENCOST_SSHV4 |
if ( junkweight .ne. 0. ) num_gencost(bi,bj,igen_mdt) = |
|
./pkg/ecco/cost_gencost_sshv4.F |
710 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_mdt) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
89 |
COST_GENCOST_SSHV4 |
integer igen_mdt, igen_lsc, igen_gmsl |