49 |
_RL adobjf_ctds (nsx,nsy) |
_RL adobjf_ctds (nsx,nsy) |
50 |
_RL adobjf_ctdt (nsx,nsy) |
_RL adobjf_ctdt (nsx,nsy) |
51 |
|
|
52 |
|
#ifdef ALLOW_COST_VECTOR |
53 |
|
common /adcost_array/ |
54 |
|
& adobjf_vector |
55 |
|
_RL adobjf_vector(snx,nsx,nsy) |
56 |
|
#endif |
57 |
|
|
58 |
c ================================================================== |
c ================================================================== |
59 |
c END OF HEADER ADCOST |
c END OF HEADER ADCOST |
60 |
c ================================================================== |
c ================================================================== |