6 FUNCTION gammas(PX) RESULT(PGAMMA)
46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
53 REAL,
INTENT(IN) :: px
59 REAL :: zser,zstp,ztmp,zx,zy,zcoef(6)
61 REAL(KIND=JPRB) :: zhook_handle
63 IF (lhook) CALL dr_hook(
'GAMMAS',0,zhook_handle)
64 zcoef(1) = 76.18009172947146
65 zcoef(2) =-86.50532032941677
66 zcoef(3) = 24.01409824083091
67 zcoef(4) = -1.231739572450155
68 zcoef(5) = 0.1208650973866179e-2
69 zcoef(6) = -0.5395239384953e-5
70 zstp = 2.5066282746310005
80 ztmp = (zx + 0.5)*alog(ztmp) - ztmp
81 zser = 1.000000000190015
85 zser = zser + zcoef(jj)/zy
89 pgamma = zpi/sin(zpi*px)/exp( ztmp + alog( zstp*zser/zx ) )
91 pgamma = exp( ztmp + alog( zstp*zser/zx ) )
93 IF (lhook) CALL dr_hook(
'GAMMAS',1,zhook_handle)