DR_HOOK Subroutine

  1. hook.F90
  2. YOMHOOK
  3. DR_HOOK

public subroutine DR_HOOK(HSTRING, KINTEGER, PREAL)

Uses

Arguments

Type IntentOptional AttributesName
character(len=*) :: HSTRING
integer :: KINTEGER
real(kind=JPRB) :: PREAL

Contents

Source Code

DR_HOOK

Source Code

SUBROUTINE DR_HOOK(HSTRING,KINTEGER,PREAL)
USE PARKIND1
  CHARACTER(LEN=*) :: HSTRING
  INTEGER          :: KINTEGER
  REAL(KIND=JPRB)  :: PREAL
print*, HSTRING,KINTEGER
PREAL=0.
END SUBROUTINE DR_HOOK