6 SUBROUTINE open_file_lfi(KUNIT,HFILE,HFORM,HACTION,HACCESS,HPOSITION,KRECL)
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
55 INTEGER,
INTENT(OUT):: kunit
56 CHARACTER(LEN=28),
INTENT(IN) :: hfile
57 CHARACTER(LEN=11),
INTENT(IN) :: hform
58 CHARACTER(LEN=9),
INTENT(IN) :: haction
59 CHARACTER(LEN=6),
INTENT(IN) :: haccess
60 CHARACTER(LEN=6),
INTENT(IN) :: hposition
61 INTEGER,
INTENT(IN) :: krecl
68 REAL(KIND=JPRB) :: zhook_handle
72 IF (lhook) CALL dr_hook(
'OPEN_FILE_LFI',0,zhook_handle)
73 CALL fmattr(hfile,cluout_lfi,kunit,iresp)
75 IF(haction==
'READ ')
THEN
76 INQUIRE (file=hfile,exist=lexist)
77 IF (.NOT. lexist )
THEN
78 CALL
abor1_sfx(
'ERROR WHILE OPENING '//hfile//
' THIS FILE IS MISSING'// &
79 ' IN THE RUN DIRECTORY')
83 IF (hform==
'FORMATTED')
THEN
84 OPEN(unit=kunit,file=hfile,action=haction, &
85 form=hform, position=hposition, err=100 )
87 IF (haccess==
'DIRECT')
THEN
88 OPEN(unit=kunit,file=hfile,action=haction, &
89 form=hform,access=haccess,recl=krecl, err=100 )
91 OPEN(unit=kunit,file=hfile,action=haction, &
96 IF (lhook) CALL dr_hook(
'OPEN_FILE_LFI',1,zhook_handle)
100 WRITE(iluout,*)
'Error when opening file ',hfile
101 CALL
abor1_sfx(
'OPEN_FILE_LFI: ERROR WHEN OPENING FILE '//hfile)
102 IF (lhook) CALL dr_hook(
'OPEN_FILE_LFI',1,zhook_handle)
subroutine open_file_lfi(KUNIT, HFILE, HFORM, HACTION, HACCESS, HPOSITION, KRECL)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)