40 USE modi_open_file_lfi
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
52 INTEGER,
INTENT(OUT) :: ktex
58 CHARACTER(LEN=28) :: ytex
59 CHARACTER(LEN=11) :: yform
60 CHARACTER(LEN=9) :: yaction
61 CHARACTER(LEN=6) :: yaccess
62 CHARACTER(LEN=6) :: yposition
63 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
'OPEN_WRITE_COVER_TEX_LFI',0,zhook_handle)
70 ytex =
'class_cover_data.tex'
75 CALL
open_file_lfi(ktex,ytex,yform,yaction,yaccess,yposition,iresp)
76 IF (lhook) CALL dr_hook(
'OPEN_WRITE_COVER_TEX_LFI',1,zhook_handle)
subroutine open_file_lfi(KUNIT, HFILE, HFORM, HACTION, HACCESS, HPOSITION, KRECL)
subroutine open_write_cover_tex_lfi(KTEX)