cdrhookinit.F90

Go to the documentation of this file.

SUBROUTINE cdrhookinit(KRET)
!-- Makes sure Dr.Hook gets properly initialized from C-main program, too
USE parkind1  ,ONLY  : jpim, jprb
USE yomhook   ,ONLY  : lhook, dr_hook
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(OUT) :: KRET
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('CDRHOOKINIT',0,zhook_handle)
IF (lhook) THEN
  kret = 1 ! Dr.Hook is ON
ELSE
  kret = 0 ! Dr.Hook is OFF
ENDIF
IF (lhook) CALL dr_hook('CDRHOOKINIT',1,zhook_handle)
END SUBROUTINE cdrhookinit