Sources Esope | Cast3M

fogamm
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