Go to the source code of this file.
|
| INTERFACE SUBROUTINE | ECHIEN (CDNAMC, KTYPTR, LDMAP,&&KTRONC, KDGL, KNXLON, KNLOPA, PSINLA,&&KFLEV, PREF, PVALH, PVBH, KINF,&&PEPS, KULOUT) ! ------------------------------------------------------------------ USE PARKIND1 |
| |
| INTERFACE SUBROUTINE JPRB IMPLICIT NONE | INTEGER (KIND=JPIM) |
| |
|
| INTERFACE SUBROUTINE | ONLY |
| |
◆ ECHIEN()
| INTERFACE SUBROUTINE ECHIEN |
( |
CDNAMC |
, |
|
|
KTYPTR |
, |
|
|
LDMAP |
, |
|
|
&& |
KTRONC, |
|
|
KDGL |
, |
|
|
KNXLON |
, |
|
|
KNLOPA |
, |
|
|
PSINLA |
, |
|
|
&& |
KFLEV, |
|
|
PREF |
, |
|
|
PVALH |
, |
|
|
PVBH |
, |
|
|
KINF |
, |
|
|
&& |
PEPS, |
|
|
KULOUT |
|
|
) |
| |
◆ INTEGER()
| INTERFACE SUBROUTINE JPRB IMPLICIT NONE INTEGER |
( |
KIND |
= JPIM | ) |
|
◆ ONLY
| INTERFACE SUBROUTINE ONLY |