Télécharger eltype.eso

Retour à la liste

Numérotation des lignes :

  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