C FOGAMM    SOURCE    CB215821  23/10/18    21:15:04     11760          
      SUBROUTINE FOGAMM

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
C  Ancien OPERATEUR FONC
C  CAS 'GAMMA'
C  CALCUL DE LA FONCTION GAMMA
C
C     C. BERTHINIER 17/10/23  SOURCE Obsolete (voir operateur BESS)
C

-INC PPARAM
-INC CCOPTIO

      MOTERR='FOBESS'
      CALL ERREUR(1039)
      RETURN

      END