6 SUBROUTINE open_file_fa(KUNIT,HFILE,HFORM,HACTION,HACCESS,KRECL)
43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
53 INTEGER,
INTENT(OUT):: kunit
54 CHARACTER(LEN=28),
INTENT(IN) :: hfile
55 CHARACTER(LEN=11),
INTENT(IN) :: hform
56 CHARACTER(LEN=9),
INTENT(IN) :: haction
57 CHARACTER(LEN=6),
INTENT(IN) :: haccess
58 INTEGER,
INTENT(IN) :: krecl
64 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'OPEN_FILE_FA',0,zhook_handle)
70 IF(haction==
'READ ')
THEN
71 INQUIRE (file=hfile,exist=lexist)
72 IF (.NOT. lexist )
THEN
73 CALL
abor1_sfx(
'ERROR WHILE OPENING '//hfile//
' THIS FILE IS MISSING'// &
74 ' IN THE RUN DIRECTORY')
80 IF (hform==
'FORMATTED')
THEN
81 OPEN(unit=kunit,file=hfile,action=haction, &
84 IF (haccess==
'DIRECT')
THEN
85 OPEN(unit=kunit,file=hfile,action=haction, &
86 form=hform,access=haccess,recl=krecl, err=100 )
88 OPEN(unit=kunit,file=hfile,action=haction, &
93 IF (lhook) CALL dr_hook(
'OPEN_FILE_FA',1,zhook_handle)
96 CALL
abor1_sfx(
'OPEN_FILE_FA: ERROR WHEN OPENING FILE '//hfile)
97 IF (lhook) CALL dr_hook(
'OPEN_FILE_FA',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine open_file_fa(KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)