      FUNCTION CGC2 (I1,I2,I3)
C *** SEE R H LANDAU, PROGRAM LPOTT, 1981
      IMPLICIT  REAL*8   (A-H,O-Z)
      DIMENSION G(150)
C
        DATA N/1/
      IF (N.NE.1) GO TO 20
      N = 2
      G(1) = LOG(1.)
      DO 10 I=2,110
C      REMOVED CARD
         G(I) = LOG(I-1.)+G(I-1)
 10   CONTINUE
 20   CONTINUE
      IF ((I1+I2+I3)/2*2.EQ.(I1+I2+I3)) GO TO 30
      M1 = (I1+I2+I3-3)/2
      CGC2 = (2*I3-1)*EXP(G(I1+I2-I3)+G(I2+I3-I1)+G(I3+I1-I2)-G(I1+I2+I3
     1-1)+2.*(G(M1+1)-G(M1-I1+2)-G(M1-I2+2)-G(M1-I3+2)))
      GO TO 40
 30   CGC2 = 0.0
 40   RETURN
      END
