This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / legv.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:01:59  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10       SUBROUTINE LEGV
11 #include "legbl.inc"
12      1,F1,F2,SSRZ
13      2,CLOGOK,CSQRTK,RGAM
14       A=0.5
15       C=VV+1.5
16       CALL HYPGM(A,A,C,ZZ1,F1,ACC,NCVG)
17       CALL HYPGM(A,A,C,ZZ2,F2,ACC,NCV )
18       NCVG=NCVG+2*NCV
19 C*UL6 F1=F1*EXP((VV+0.5)*CLOGOK(ZZ +SRZ,NFRIG,3))
20       F1=F1*EXP((VV+0.5)*CLOGOK(ZZ +SRZ,NFRIG,3))
21       F2=F2*EXP((VV+0.5)*CLOGOK(ZZ -SRZ,-NFRIG,3))
22       A=1.5
23       B=1.0
24       SSRZ=CSQRTK(2.0*SRZ,NFRIG,2)*RGAM(VV,A,B)
25       SGN=1.0
26       IF(AIMAG(ZZ))8,14,12
27     8 SGN=-1.0
28       GOTO 12
29    14 SGN=SIGN(1.0,(NFRIG+0.5)*REAL(ZZ))
30    12 PP=(F1+SGN*U*F2)/(PISR*SSRZ)
31       IF(NFRIG)11,10,11
32    10 QQ=0.5*PISR*(F2+SGN*U*F1)/SSRZ
33       GOTO 80
34    11 QQ=PISR*F2/SSRZ
35    80 RETURN
36       END