SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/vslog.F Source File

Go to the documentation of this file.

00001       SUBROUTINE VSLOG(PA,PLOG,N)
00002 !
00003       USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00004       USE PARKIND1  ,ONLY : JPRB
00005 !
00006 !
00007 !
00008 
00009 *   COMPUTES THE LOGARITHM
00010 
00011 #include "impnone.h"
00012 
00013       INTEGER N
00014       REAL PA(N), PLOG(N)
00015 
00016       INTEGER J
00017       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00018 
00019       IF (LHOOK) CALL DR_HOOK('VSLOG',0,ZHOOK_HANDLE)
00020       DO J=1,N
00021         PLOG(J) = LOG(PA(J))
00022       END DO
00023       IF (LHOOK) CALL DR_HOOK('VSLOG',1,ZHOOK_HANDLE)
00024 
00025       END