git://git.uio.no / u / mrichter / AliRoot.git / blame
| Commit | Line | Data |
|---|---|---|
| fe4da5cc | 1 | * |
| 2 | * $Id$ | |
| 3 | * | |
| 4 | * $Log$ | |
| 5 | * Revision 1.1.1.1 1996/04/01 15:01:58 mclareni | |
| 6 | * Mathlib gen | |
| 7 | * | |
| 8 | * | |
| 9 | #include "gen/pilot.h" | |
| 10 | SUBROUTINE HYPGM(A,B,C,Z,H,ACC,NCVG) | |
| 11 | COMPLEX A,B,C,Z,H,AA,BB,CC,ZZ,ADD,DD,HH | |
| 12 | NCVG=0 | |
| 13 | ZZ=Z | |
| 14 | HH=(1.0,0.0) | |
| 15 | AA=A | |
| 16 | BB=B | |
| 17 | CC=C | |
| 18 | ADD=(1.0,0.0) | |
| 19 | DD=(1.0,0.0) | |
| 20 | DO 21 I=1,50 | |
| 21 | ADD=ADD*ZZ*AA/DD*BB/CC | |
| 22 | HH=HH+ADD | |
| 23 | IF(CRIT(HH,ADD,ACC))3,4,4 | |
| 24 | 4 AA=AA+1.0 | |
| 25 | BB=BB+1.0 | |
| 26 | CC=CC+1.0 | |
| 27 | DD=DD+1.0 | |
| 28 | 21 CONTINUE | |
| 29 | NCVG=1 | |
| 30 | 3 H=HH | |
| 31 | RETURN | |
| 32 | END |