41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
49 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
50 INTEGER,
INTENT(IN) :: klunam
51 REAL(KIND=JPRB) :: zhook_handle
61 IF (lhook) CALL dr_hook(
'CLOSE_NAMELIST_FA',0,zhook_handle)
63 IF (lhook) CALL dr_hook(
'CLOSE_NAMELIST_FA',1,zhook_handle)
subroutine close_namelist_fa(HPROGRAM, KLUNAM)