| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/getcon.F |
144 |
NO PROCEDURE |
DATA ANAME(41),ACON(41) / 'DEG2RAD ', DEG2RAD / |
|
./pkg/fizhi/getcon.F |
35 |
NO PROCEDURE |
& HEATI, TICE, VKRM, DEG2RAD, CALTOJ, EPS, VIRTCON, EPSFAC, |
|
./pkg/fizhi/getcon.F |
95 |
NO PROCEDURE |
PARAMETER ( DEG2RAD = PI/180.d0) |
|
./pkg/sphere/sphere.F |
314 |
SHC2ZONE |
REAL DEG2RAD, SLAT |
|
./pkg/sphere/sphere.F |
320 |
SHC2ZONE |
DEG2RAD = ACOS(-1.0)/180.0 |
|
./pkg/sphere/sphere.F |
325 |
SHC2ZONE |
SLAT = SIN(XLAT*DEG2RAD) |
|
./pkg/sphere/sphere.F |
403 |
SHC4ZONE |
REAL DEG2RAD, CE, CO, SE, SO |
|
./pkg/sphere/sphere.F |
417 |
SHC4ZONE |
DEG2RAD = ACOS(-1.0)/180.0 |
|
./pkg/sphere/sphere.F |
418 |
SHC4ZONE |
SIN0 = SIN(XLAT *DEG2RAD) |
|
./pkg/sphere/sphere.F |
419 |
SHC4ZONE |
SIN1 = SIN(AMAX1(-90.0,XLAT1)*DEG2RAD) |
|
./pkg/sphere/sphere.F |
420 |
SHC4ZONE |
SIN2 = SIN(AMIN1( 0.0,XLAT2)*DEG2RAD) |
|
./pkg/sphere/sphere.F |
505 |
FRSBASE |
REAL DEG2RAD, T, ARG |
|
./pkg/sphere/sphere.F |
508 |
FRSBASE |
DEG2RAD = ACOS(-1.0)/180.0 |
|
./pkg/sphere/sphere.F |
514 |
FRSBASE |
ARG = A * DEG2RAD |