This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / hypgm.F
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