Go to the source code of this file.
|
| INTERFACE SUBROUTINE | EGGMLT (PRPI, KDLUX, KDLUN, KDGUX, KDGUN, KULOUT,&&KPRINT, PRPK, PLON0U, PLON1U, PLON2U, KSOTRP, PLAT1R, PLAT2R,&&PHSUD, PBETA) !-------------------------------------------------------------------------- USE PARKIND1 |
| |
| INTERFACE SUBROUTINE JPRB IMPLICIT NONE | REAL (KIND=JPRB) |
| |
|
| INTERFACE SUBROUTINE | ONLY |
| |
◆ EGGMLT()
| INTERFACE SUBROUTINE EGGMLT |
( |
PRPI |
, |
|
|
KDLUX |
, |
|
|
KDLUN |
, |
|
|
KDGUX |
, |
|
|
KDGUN |
, |
|
|
KULOUT |
, |
|
|
&& |
KPRINT, |
|
|
PRPK |
, |
|
|
PLON0U |
, |
|
|
PLON1U |
, |
|
|
PLON2U |
, |
|
|
KSOTRP |
, |
|
|
PLAT1R |
, |
|
|
PLAT2R |
, |
|
|
&& |
PHSUD, |
|
|
PBETA |
|
|
) |
| |
◆ REAL()
| INTERFACE SUBROUTINE JPRB IMPLICIT NONE REAL |
( |
KIND |
= JPRB | ) |
|
◆ ONLY
| INTERFACE SUBROUTINE ONLY |