| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml_fields_load.F |
105 |
CHEAPAML_FIELDS_LOAD |
_RL recipNym1, local, u, ssqa |
|
./pkg/cheapaml/cheapaml_fields_load.F |
107 |
CHEAPAML_FIELDS_LOAD |
recipNym1 = Ny - 1 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
108 |
CHEAPAML_FIELDS_LOAD |
IF ( Ny.GT.1 ) recipNym1 = 1. _d 0 / recipNym1 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
456 |
CHEAPAML_FIELDS_LOAD |
local = 225. _d 0 - (jG-1)*recipNym1*37.5 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
512 |
CHEAPAML_FIELDS_LOAD |
local = -5. _d 0*COS( 2. _d 0*PI*(jG-1)*recipNym1 ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
106 |
CHEAPAML_INIT_VARIA |
localt = 25. _d 0 - (jG-1)*recipNym1*10. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
45 |
CHEAPAML_INIT_VARIA |
_RL recipNym1 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
52 |
CHEAPAML_INIT_VARIA |
recipNym1 = Ny - 1 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
53 |
CHEAPAML_INIT_VARIA |
IF ( Ny.GT.1 ) recipNym1 = 1. _d 0 / recipNym1 |