BROWSER/doc_surf81/dr__hook__util_8h_source.html

 INTERFACE
 SUBROUTINE DR_HOOK_UTIL(LDHOOK,CDNAME,KCASE,PKEY,CDFILENAME,KSIZEINFO)
 USE PARKIND1  ,ONLY : JPIM     ,JPRB
 IMPLICIT NONE
 LOGICAL, INTENT(INOUT)      :: LDHOOK
 CHARACTER(LEN=*),INTENT(IN) :: CDNAME,CDFILENAME
 INTEGER(KIND=JPIM),INTENT(IN) :: KCASE,KSIZEINFO
 REAL(KIND=JPRB),INTENT(INOUT) :: PKEY
 END SUBROUTINE DR_HOOK_UTIL
 END INTERFACE
PARKIND1

ONLY
INTERFACE SUBROUTINE ONLY
Definition: dr_hook_util.h:3

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

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

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

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