56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
63 CHARACTER(LEN=*),
INTENT(IN) :: hprogram
64 CHARACTER(LEN=*),
INTENT(IN) :: hfile
65 CHARACTER(LEN=*),
INTENT(IN) :: hform
66 INTEGER,
INTENT(OUT) :: knmc
73 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
'READ_TOPD_HEADER_CONNEX',0,zhook_handle)
82 WRITE(iluout,*)
'Open ',hfile,
'header'
84 CALL
open_file(hprogram,nunit,hfile,hform,haction=
'READ')
95 IF (lhook) CALL dr_hook(
'READ_TOPD_HEADER_CONNEX',1,zhook_handle)
subroutine close_file(HPROGRAM, KUNIT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_file(HPROGRAM, KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)