4 *CMZ :- -26/04/91 11.11.56 by Bryan Webber
6 *-- Author : Bryan Webber
8 C-----------------------------------------------------------------------
10 SUBROUTINE HWRPOW(XVAL,XJAC)
12 C-----------------------------------------------------------------------
14 C RETURNS XVAL DISTRIBUTED ON (XMIN,XMAX) LIKE XVAL**XPOW
16 C AND CORRESPONDING JACOBIAN FACTOR XJAC
18 C SET FIRST=.TRUE. IF NEW XMIN,XMAX OR XPOW
20 C-----------------------------------------------------------------------
22 DOUBLE PRECISION HWR,XVAL,XJAC,XMIN,XMAX,XPOW,P,Q,A,B,C,Z,ZERO
32 COMMON/HWRPIN/XMIN,XMAX,XPOW,FIRST
38 IF (P.EQ.ZERO) CALL HWWARN('HWRPOW',500,*999)
62 *CMZ :- -26/04/91 14.55.45 by Federico Carminati
64 *-- Author : David Ward, modified by Bryan Webber
66 C-----------------------------------------------------------------------
70 C-----------------------------------------------------------------------
72 C Random number from distribution having flat top [-A,A] & gaussian
76 C-----------------------------------------------------------------------
78 DOUBLE PRECISION HWRUNG,HWRGAU,HWRUNI,A,B,PRUN,ZERO
82 EXTERNAL HWRGAU,HWRUNI,HWRLOG
92 PRUN=1./(1.+B*1.2533/A)
102 HWRUNG=HWRGAU(0,ZERO,B)
104 HWRUNG=HWRUNG+SIGN(A,HWRUNG)