Télécharger la plaquette Cast3M


fr en

Télécharger eltype.eso

Retour à la liste

Numérotation des lignes : 

eltype

  1. C ELTYPE    SOURCE    CHAT      05/01/12    23:38:29     5004
  2. C
  3.       SUBROUTINE ELTYPE(ITYPE,IORDRE,IDE,NBNO,ISENS,ICODE)
  4. C     **********************************************************************
  5. C     OBJET ELTYPE : RENVOI DES INFO SUR LE TYPE D'UN ELEMENT
  6. C     SI ISENS = 1
  7. C       EN ENTREE :
  8. C         ITYPE   : TYPE DE L'ELEMENT (1..8) (SEGMENT,TRIANGLE...)
  9. C         IORDRE  : ORDRE DE L'ELEMENT (1,2) (LINEAIRE,QUADRATIQUE...)
  10. C       EN SORTIE :
  11. C         ICODE   : LE CODE DE L'ELEMENT
  12. C         IDE     : DIMENSION DE L'ELEMENT
  13. C         NBNO    : NOMBRE TOTAL DE NOEUDS DE L'ELEMENT
  14. C     SI ISENS = -1
  15. C       EN ENTREE :
  16. C         ICODE   : LE CODE DE L'ELEMENT
  17. C       EN SORTIE :
  18. C         ITYPE   : TYPE DE L'ELEMENT (1..8) (SEGMENT,TRIANGLE...)
  19. C         IORDRE  : ORDRE DE L'ELEMENT (1,2) (LINEAIRE,QUADRATIQUE...)
  20. C         IDE     : DIMENSION DE L'ELEMENT
  21. C         NBNO    : NOMBRE TOTAL DE NOEUDS DE L'ELEMENT
  22. C     **********************************************************************
  23.       IMPLICIT INTEGER(I-N)
  24.       INTEGER ITYPE,IORDRE,ISENS,ICODE,IDE,NBNO
  25. C
  26.       INTEGER   MAXEL,MAXTYP,MAXORD
  27.       PARAMETER   (MAXEL = 21, MAXTYP = 8, MAXORD = 2)
  28.       INTEGER ISTYO,ISTY,ISTO,ISNBNO,ISIDE,ISCODE
  29.       COMMON /ELCODE/ ISCODE(MAXEL)
  30.       COMMON /ELTYPO/ ISTYO(MAXTYP,MAXORD)
  31.       COMMON /ELTYPC/ ISTY(MAXEL)
  32.       COMMON /ELORDR/ ISTO(MAXEL)
  33.       COMMON /ELNBNO/ ISNBNO(MAXEL)
  34.       COMMON /ELIDE/  ISIDE(MAXEL)
  35.       INTEGER INUMS
  36. C
  37.       IF(ISENS.EQ.1)THEN
  38.         IF(( IORDRE.LT.1 ).OR.( IORDRE.GT.MAXORD ))THEN
  39.           CALL ESERRO(1,-1,'ELTYPE ',' ORDRE DES ELEMENTS')
  40.           ICODE = -1
  41.           GOTO 9999
  42.         ENDIF
  43.         IF(( ITYPE.LT.1 ).OR.( ITYPE.GT.MAXTYP ))THEN
  44.           CALL ESERRO(1,-1,'ELTYPE ',' TYPE DES ELEMENTS')
  45.           ICODE = -1
  46.           GOTO 9999
  47.         ENDIF
  48.         INUMS = ISTYO(ITYPE,IORDRE)
  49.         ICODE = ISCODE(INUMS)
  50.         IDE   = ISIDE(INUMS)
  51.         NBNO  = ISNBNO(INUMS)
  52. C
  53.       ELSE
  54.         CALL ELNUMS(ICODE,INUMS)
  55.         IF(( INUMS.LT.1 ).OR.( INUMS.GT.MAXEL ))THEN
  56.           CALL ESERRO(1,-1,'ELTYPE ',' CODE DES ELEMENTS')
  57.           ITYPE = -1
  58.           IORDRE = -1
  59.           GOTO 9999
  60.         ENDIF
  61.         ITYPE  = ISTY(INUMS)
  62.         IORDRE = ISTO(INUMS)
  63.         IDE    = ISIDE(INUMS)
  64.         NBNO   = ISNBNO(INUMS)
  65.       ENDIF
  66. C
  67.  9999 END
  68.  
  69.  
  70.  

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