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