16 USE yomhook
,ONLY : lhook, dr_hook
17 USE parkind1
,ONLY : jprb
26 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
27 LOGICAL,
INTENT(OUT) :: ogarden
28 CHARACTER(LEN=1),
INTENT(IN),
OPTIONAL :: hdir
33 CHARACTER(LEN=1) :: ydir
34 CHARACTER(LEN=12) :: yrecfm
39 REAL(KIND=JPRB) :: zhook_handle
44 IF (lhook) CALL dr_hook(
'READ_COVER_GARDEN',0,zhook_handle)
47 IF (present(hdir)) ydir = hdir
51 hprogram,yrecfm,iversion,iresp,hdir=ydir)
58 hprogram,yrecfm,ogarden,iresp,hdir=ydir)
60 IF (lhook) CALL dr_hook(
'READ_COVER_GARDEN',1,zhook_handle)
subroutine read_cover_garden(HPROGRAM, OGARDEN, HDIR)