Sources Esope | Cast3M

fobess
C FOBESS    SOURCE    CB215821  23/10/18    21:15:04     11760          
      SUBROUTINE FOBESS
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
C  Ancien OPERATEUR FONC
C  CAS 'BESSEL'
C  CALCUL DES FONCTIONS DE BESSEL J0 J1 Y0 Y1
C
C E. DE LANGRE
C
C     C. BERTHINIER 17/10/23  SOURCE Obsolete (voir operateur BESS)
C
 
-INC PPARAM
-INC CCOPTIO
 
      MOTERR='FOBESS'
      CALL ERREUR(1039)
      RETURN
 
      END