Télécharger la plaquette Cast3M


fr en

Télécharger s3nbco.eso

Retour à la liste

Numérotation des lignes : 

s3nbco

  1. C S3NBCO    SOURCE    CHAT      06/03/29    21:32:56     5360
  2. C
  3. C
  4.       FUNCTION S3NBCO(NBN)
  5. C     *************************************************************
  6. C     OBJET :   RENVOI LE NOMBRE DE COTE D'UN ELEMENT
  7. C     EN ENTREE:
  8. C       NBN   : NOMBRE DE NOEUDS DE L'ELEMENT
  9. C     EN SORTIE:
  10. C     CONDITION D'APPLICATION : TETRA, PYRA, PRISME, HEXA
  11. C     ************************************************************
  12.       IMPLICIT INTEGER(I-N)
  13.       INTEGER S3NBCO
  14.       INTEGER NBN
  15. C
  16.       INTEGER iarr
  17. C
  18.       GOTO (1,1,1,100,100,100,1,200) NBN
  19. C        =====================
  20. C     --- ELEMENT NON RECONNU ---
  21. C        =====================
  22.     1 S3NBCO = -1
  23.       iarr = -1
  24.       CALL DSERRE(1,iarr,'S3NBCO',' TYPE D ELEMENT INCONNU')
  25.       GOTO 9999
  26. C        ====================================
  27. C     --- CAS DU TETRAEDRE, PYRAMIDE, PRISME ---
  28. C        ====================================
  29.   100 S3NBCO = NBN
  30.       GOTO 9999
  31. C        ==================
  32. C     --- CAS DE L'HEXAEDRE ---
  33. C        ==================
  34.   200 S3NBCO = 6
  35.       GOTO 9999
  36. C
  37.  9999 END
  38.  
  39.  
  40.  
  41.  

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