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