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
69 IF (lhook) CALL dr_hook(
'OPEN_FILE_ASC',0,zhook_handle)
71 IF(haction==
'READ ')
THEN
72 INQUIRE (file=hfile,exist=lexist)
73 IF (.NOT. lexist )
THEN
74 CALL
abor1_sfx(
'ERROR WHILE OPENING '//hfile//
' THIS FILE IS MISSING'// &
75 ' 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_ASC',1,zhook_handle)
96 CALL
abor1_sfx(
'OPEN_FILE_ASC: ERROR WHEN OPENING FILE '//hfile)
97 IF (lhook) CALL dr_hook(
'OPEN_FILE_ASC',1,zhook_handle)
subroutine open_file_asc(KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)
subroutine abor1_sfx(YTEXT)