7 USE yomhook
,ONLY : lhook, dr_hook
8 USE parkind1
,ONLY : jprb
18 REAL :: pa(n), plog(n)
21 REAL(KIND=JPRB) :: zhook_handle
23 IF (lhook) CALL dr_hook(
'VSLOG',0,zhook_handle)
27 IF (lhook) CALL dr_hook(
'VSLOG',1,zhook_handle)
subroutine vslog(PA, PLOG, N)