53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
63 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
64 LOGICAL,
DIMENSION(JPCOVER) :: ocover
70 CHARACTER(LEN=12) :: yrecfm
72 LOGICAL,
DIMENSION(:),
ALLOCATABLE :: gcover
73 REAL(KIND=JPRB) :: zhook_handle
78 IF (lhook) CALL dr_hook(
'READ_LCOVER',0,zhook_handle)
81 hprogram,yrecfm,iversion,iresp)
85 ALLOCATE(gcover(jpcover))
88 hprogram,
'COVER_LIST ',yrecfm)
90 hprogram,yrecfm,gcover(:),iresp,hdir=
'-')
93 ocover(:
SIZE(gcover))=gcover(:)
95 IF (lhook) CALL dr_hook(
'READ_LCOVER',1,zhook_handle)
subroutine read_lcover(HPROGRAM, OCOVER)
subroutine old_name(HPROGRAM, HRECIN, HRECOUT)