Télécharger la plaquette Cast3M


fr en

Télécharger elsovo.eso

Retour à la liste

Numérotation des lignes : 

elsovo

  1. C ELSOVO    SOURCE    PV        22/04/25    21:15:05     11344          
  2. C
  3. C
  4.       SUBROUTINE ELSOVO(ICODE,INDSO,NBSO,NBNO,iarr)
  5. C     *****************************************************************
  6. C     OBJET ELSOVO : RENVOI LES POSITONS DES SOMMETS
  7. C
  8. C     EN ENTREE  :
  9. C        ICODE   : CODE DE L'ELEMENT
  10. C     EN SORTIE  :
  11. C        INDSO   :
  12. C        NBNO    : NOMBRE TOTAL DE NOEUDS (NOEUDS MILIEU + SOMMETS)
  13. C        iarr    : CODE D'ERREUR
  14. C
  15. C     REMARQUE   : FONCTIONNE POUR LE CODE VIPLEF
  16. C                  ELEMENTS S3,Q8,H20
  17. C     *****************************************************************
  18.       IMPLICIT INTEGER(I-N)
  19.       INTEGER ICODE,INDSO(*),NBSO,NBNO,iarr
  20. C
  21.       INTEGER ISNBNO
  22.       INTEGER    MAXEL
  23.       PARAMETER (MAXEL = 21)
  24.       COMMON /ELNBNO/ ISNBNO(MAXEL)
  25.       EXTERNAL FCUB20,FCAR8
  26.       INTEGER INUMS
  27.       dimension izero(2)
  28.       izero(1)=0
  29.       izero(2)=0
  30. C
  31.       CALL ELNUMS(ICODE,INUMS)
  32.       GOTO (10, 20, 30, 40, 50, 60, 70, 80, 90, 100,
  33.      >      110,120,130,140,150,160,170,180,190,200,
  34.      >      210) INUMS
  35. C
  36.       iarr = -1
  37.       CALL ESERRO(1,iarr,'ELSOVO ',' CODE DE L ELEMENT')
  38.       GOTO 9999
  39. C
  40.    10 CONTINUE
  41.    20 CONTINUE
  42.    30 CONTINUE
  43.    40 CONTINUE
  44.    50 CONTINUE
  45.    60 CONTINUE
  46.         iarr = -3
  47.         CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  48.         GOTO 9999
  49.    70 CONTINUE
  50.         CALL FCAR8(8,izero,INDSO,NBSO)
  51.         NBNO = ISNBNO(INUMS)
  52.         GOTO 9999
  53.    80 CONTINUE
  54.    90 CONTINUE
  55.   100 CONTINUE
  56.   110 CONTINUE
  57.   120 CONTINUE
  58.   130 CONTINUE
  59.   140 CONTINUE
  60.   150 CONTINUE
  61.   160 CONTINUE
  62.   170 CONTINUE
  63.   180 CONTINUE
  64.   190 CONTINUE
  65.         iarr = -3
  66.         CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  67.         GOTO 9999
  68.   200 CONTINUE
  69.         CALL FCUB20(8,izero,INDSO,NBSO)
  70.         NBNO = ISNBNO(INUMS)
  71.         GOTO 9999
  72.   210 CONTINUE
  73.         iarr = -3
  74.         CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  75.         GOTO 9999
  76.  
  77. C
  78.  9999 END
  79.  
  80.  
  81.  
  82.  
  83.  

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