Télécharger la plaquette Cast3M


fr en

Télécharger bess.eso

Retour à la liste

Numérotation des lignes : 

bess

  1. C BESS      SOURCE    CB215821  23/10/18    21:15:03     11760          
  2.       SUBROUTINE BESS
  3.  
  4.       IMPLICIT INTEGER(I-N)
  5.       IMPLICIT REAL*8(A-H,O-Z)
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC CCREEL
  10.  
  11.       PARAMETER(NTYP=6)
  12.       CHARACTER*2 CTYP(NTYP)
  13.       DATA CTYP/'J0','J1','JN','Y0','Y1','YN'/
  14.       MACRO,   ( J0 , J1 , JN , Y0 , Y1 , YN )
  15.  
  16. C     On vient lire le Type de fonction de Bessel que l'on souhaite utiliser
  17.       CALL LIRMOT(CTYP,NTYP,IPOS1,1)
  18.       IF(IERR .NE. 0)RETURN
  19.  
  20.       CASE, IPOS1
  21.         WHEN, J0
  22.           CALL OPOBJE(24)
  23.         WHEN, J1
  24.           CALL OPOBJE(25)
  25.         WHEN, Y0
  26.           CALL OPOBJE(26)
  27.         WHEN, Y1
  28.           CALL OPOBJE(27)
  29.         WHEN, JN
  30.           CALL OPOBJE(31)
  31.         WHEN, YN
  32.           CALL OPOBJE(32)
  33.       ENDCASE
  34.  
  35.       RETURN
  36.       END
  37.  
  38.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales