BROWSER/doc_surf81/dr__hook__util__multi_8h_source.html

 INTERFACE
 SUBROUTINE DR_HOOK_UTIL_MULTI(LDHOOK,CDNAME,KCASE,PKEY,KPKEY,CDFILENAME,KSIZEINFO)
 USE PARKIND1  ,ONLY : JPIM     ,JPRB
 IMPLICIT NONE
 LOGICAL,INTENT(IN)          :: LDHOOK
 CHARACTER(LEN=*),INTENT(IN) :: CDNAME,CDFILENAME
 INTEGER(KIND=JPIM),INTENT(IN) :: KPKEY, KCASE,KSIZEINFO
 REAL(KIND=JPRB),INTENT(INOUT) :: PKEY(KPKEY)
 END SUBROUTINE DR_HOOK_UTIL_MULTI
 END INTERFACE
ONLY
INTERFACE SUBROUTINE ONLY
Definition: dr_hook_util_multi.h:3

LOGICAL
INTERFACE SUBROUTINE JPRB IMPLICIT NONE LOGICAL
Definition: dr_hook_util_multi.h:3

PARKIND1

INTEGER
INTERFACE SUBROUTINE JPRB IMPLICIT NONE INTEGER(KIND=JPIM)

DR_HOOK_UTIL_MULTI
INTERFACE SUBROUTINE DR_HOOK_UTIL_MULTI(LDHOOK, CDNAME, KCASE, PKEY, KPKEY, CDFILENAME, KSIZEINFO) USE PARKIND1

REAL
INTERFACE SUBROUTINE FACILO_MT PUNDF USE OPTIONAL ::LDUNDF ! OUT REAL(KIND=JPDBLR)