40 #if defined(SFX_ASC) || defined(SFX_ARO) || defined(SFX_MNH) || defined(SFX_NC)
41 USE modi_close_file_asc
44 USE modi_close_file_fa
47 USE modi_close_file_ol
50 USE modi_close_file_lfi
54 USE modi_close_file_mnh
57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
65 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
66 INTEGER,
INTENT(IN) :: kunit
67 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'CLOSE_FILE',0,zhook_handle)
75 IF (hprogram==
'MESONH')
THEN
77 CALL close_file_mnh(hprogram,kunit)
79 ELSE IF (hprogram==
'OFFLIN')
THEN
83 ELSE IF (hprogram==
'FA ')
THEN
87 ELSE IF (hprogram==
'LFI ')
THEN
92 #if defined(SFX_ASC) || defined(SFX_ARO) || defined(SFX_MNH) || defined(SFX_NC)
96 IF (lhook) CALL dr_hook(
'CLOSE_FILE',1,zhook_handle)
subroutine close_file_fa(HPROGRAM, KUNIT)
subroutine close_file(HPROGRAM, KUNIT)
subroutine close_file_ol(HPROGRAM, KUNIT)
subroutine close_file_lfi(HPROGRAM, KUNIT)
subroutine close_file_asc(HPROGRAM, KUNIT)