40 USE modi_open_file_lfi
42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
50 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
51 INTEGER,
INTENT(OUT) :: klunam
52 CHARACTER(LEN=28),
INTENT(IN) :: hfile
57 CHARACTER(LEN=28) :: ynam
60 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'OPEN_NAMELIST_LFI',0,zhook_handle)
67 IF (len_trim(hfile)>0)
THEN
73 CALL
open_file_lfi(klunam,ynam,
"FORMATTED ",
"READ ",
" ",
"REWIND",iresp)
74 IF (lhook) CALL dr_hook(
'OPEN_NAMELIST_LFI',1,zhook_handle)
subroutine open_file_lfi(KUNIT, HFILE, HFORM, HACTION, HACCESS, HPOSITION, KRECL)
subroutine open_namelist_lfi(HPROGRAM, KLUNAM, HFILE)