6 SUBROUTINE open_file_ol(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
59 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'OPEN_FILE_OL',0,zhook_handle)
69 IF (hform==
'FORMATTED')
THEN
70 OPEN(unit=kunit,file=hfile,action=haction, &
71 form=hform, status=
'OLD', err=100 )
73 IF (haccess==
'DIRECT')
THEN
74 OPEN(unit=kunit,file=hfile,action=haction, &
75 form=hform,access=haccess,recl=krecl, status=
'OLD',err=100 )
77 OPEN(unit=kunit,file=hfile,action=haction, &
78 form=hform, status=
'OLD', err=100 )
82 IF (lhook) CALL dr_hook(
'OPEN_FILE_OL',1,zhook_handle)
85 CALL
abor1_sfx(
'OPEN_FILE_OL: ERROR WHEN OPENING FILE '//hfile)
86 IF (lhook) CALL dr_hook(
'OPEN_FILE_OL',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine open_file_ol(KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)