Searched refs:WHICHINT (Results 1 – 5 of 5) sorted by relevance
| /dports/science/latte/LATTE-1.2.2/src/ |
| H A D | dfdr.F90 | 33 CHARACTER(LEN=1) :: WHICHINT local
38 DUNIVSCALE(I, J, L1, L2, 0, R, WHICHINT)
46 DUNIVSCALE(I, J, L1, L2, MP, R, WHICHINT)
|
| H A D | dfda.F90 | 34 CHARACTER(LEN=1) :: WHICHINT local
38 UNIVSCALE(I, J, L1, L2, 0, R, WHICHINT) * &
52 UNIVSCALE(I, J, L1, L2, MP, R, WHICHINT)
|
| H A D | dfdb.F90 | 34 CHARACTER(LEN=1) :: WHICHINT local
37 UNIVSCALE(I, J, L1, L2, 0, R, WHICHINT) * &
51 UNIVSCALE(I, J, L1, L2, MP, R, WHICHINT)
|
| H A D | dunivscaling_function.F90 | 52 CHARACTER(LEN=1) :: WHICHINT local
187 SELECT CASE(WHICHINT)
243 IF (WHICHINT .EQ. "H") THEN
251 ELSEIF (WHICHINT .EQ. "S") THEN
|
| H A D | univscaling_function.F90 | 52 CHARACTER(LEN=1) :: WHICHINT local
189 SELECT CASE(WHICHINT)
240 IF (WHICHINT .EQ. "H") THEN
|