57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
64 CHARACTER(LEN=*),
INTENT(IN) :: hprogram
65 CHARACTER(LEN=*),
INTENT(IN) :: hfile
66 CHARACTER(LEN=*),
INTENT(IN) :: hform
67 INTEGER,
INTENT(IN) :: knpt
68 REAL,
DIMENSION(:),
INTENT(OUT) :: ptopd_read
74 REAL(KIND=JPRB) :: zhook_handle
76 IF (lhook) CALL dr_hook(
'READ_TOPD_FILE',0,zhook_handle)
83 CALL
open_file(hprogram,nunit,hfile,hform,haction=
'READ')
92 READ(nunit,*,end=110) ptopd_read(ji)
94 IF (ptopd_read(ji).LT.0.0) ptopd_read(ji) = xundef
100 IF (lhook) CALL dr_hook(
'READ_TOPD_FILE',1,zhook_handle)
subroutine read_topd_file(HPROGRAM, HFILE, HFORM, KNPT, PTOPD_READ)
subroutine close_file(HPROGRAM, KUNIT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_file(HPROGRAM, KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)