58 USE yomhook
,ONLY : lhook, dr_hook
59 USE parkind1
,ONLY : jprb
65 CHARACTER(LEN=*),
INTENT(IN) :: hprogram
66 CHARACTER(LEN=*),
INTENT(IN) :: hfile
67 CHARACTER(LEN=*),
INTENT(IN) :: hform
68 REAL,
INTENT(OUT) :: px0
69 REAL,
INTENT(OUT) :: py0
70 INTEGER,
INTENT(OUT) :: knxc
71 INTEGER,
INTENT(OUT) :: knyc
72 REAL,
INTENT(OUT) :: pnul
73 REAL,
INTENT(OUT) :: pdxt
79 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'READ_TOPD_HEADER_DTM',0,zhook_handle)
87 WRITE(iluout,*)
'Open ',hfile,
'header'
89 CALL
open_file(hprogram,nunit,hfile,hform,haction=
'READ')
106 IF (lhook) CALL dr_hook(
'READ_TOPD_HEADER_DTM',1,zhook_handle)
subroutine close_file(HPROGRAM, KUNIT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_file(HPROGRAM, KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)