C   19/10/85 510191801  MEMBER NAME  GAMFCT   (FORT)        FORTRAN77
C
      FUNCTION GAMFCT(BETA)
C
C  GET GAMMA FACTOR FROM BETA (V/C)    T.KAJITA 19-OCT-85
C
      IF(ABS(BETA).LT.1.)GO TO 10
      GAMFCT=10000.
      RETURN
C
   10 GAMFCT = 1. / SQRT(1.-BETA**2)
C
      RETURN
      END