[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / g / dinvav.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:47  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      FUNCTION DINVAV(X)
C
C     DINVAV(X) COMPUTES THE VALUE OF THE INVERSE OF THE CONDITIONAL
C     CUMULATIVE DISTRIBUTION FUNCTION OF THE VAVILOV DISTRIBUTION
C     AT THE POINT X
C
      COMMON /VAVILA/ B(200),S,TT
      COMMON /VAVILI/ T0,T1,T,OMEGA
C
      Z=3.1415926535898*X
      COF=2.*COS(Z)
      C1=0.
      C0=B(1)
C
      DO 1 K = 2,200
      C2=C1
      C1=C0
    1 C0=B(K)+COF*C1-C2
C
      DINVAV=T0+TT*X+C0*SIN(Z)
      RETURN
C
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:02:47 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	FUNCTION DINVAV(X)
	11	C
	12	C DINVAV(X) COMPUTES THE VALUE OF THE INVERSE OF THE CONDITIONAL
	13	C CUMULATIVE DISTRIBUTION FUNCTION OF THE VAVILOV DISTRIBUTION
	14	C AT THE POINT X
	15	C
	16	COMMON /VAVILA/ B(200),S,TT
	17	COMMON /VAVILI/ T0,T1,T,OMEGA
	18	C
	19	Z=3.1415926535898*X
	20	COF=2.*COS(Z)
	21	C1=0.
	22	C0=B(1)
	23	C
	24	DO 1 K = 2,200
	25	C2=C1
	26	C1=C0
	27	1 C0=B(K)+COF*C1-C2
	28	C
	29	DINVAV=T0+TTX+C0SIN(Z)
	30	RETURN
	31	C
	32	END