File indexing completed on 2018-03-02 18:44:27 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
6c747cb1b2 Patr*0001
0002
0003
0004
0005
0006
0007
0008
0009 #ifdef ALLOW_COST
0010 common /thsice_cost_objf/
0011 & objf_thsice
0012 _RL objf_thsice (nsx,nsy)
0013
0014 common /thsice_cost_aux_r/
0015 & num_thsice,
0016 & mult_thsice
0017 _RL num_thsice (nsx,nsy)
0018 _RL mult_thsice
0019
0020
0021 common /thsice_cost_ice_i/
0022 & thsice_cost_ice_flag
0023 integer thsice_cost_ice_flag
0024 #endif
0025
0026
0027
0028