Télécharger ttet4f.eso

Retour à la liste

Numérotation des lignes :

  1. C TTET4F SOURCE CHAT 05/01/13 03:54:32 5004
  2. SUBROUTINE TTET4F(POINTS,IINTE)
  3. ************************************************************************
  4. *
  5. * T T E T 4 F
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. * ACQUISITION DES CARACTERISTIQUES D'INTEGRATION
  11. * POUR L'ELEMENT DE THERMIQUE TET4
  12. *
  13. *
  14. * MODULES UTILISES:
  15. * -----------------
  16. *
  17. IMPLICIT INTEGER(I-N)
  18. -INC SMINTE
  19. *
  20. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  21. * -----------
  22. *
  23. * POINTS (E) CHAINE DE CARACTERES: 'NOEUDS' OU 'GAUSS'
  24. * IINTE (S) ENTIER,POINTEUR SUR LE SEGMENT MINTE.
  25. *
  26. CHARACTER*(*) POINTS
  27. *
  28. * CONSTANTES:
  29. * -----------
  30. *
  31. * NBPGAU NOMBRE DE POINTS DE GAUSS.
  32. * NBNO NOMBRE DE NOEUDS DANS L'ELEMENT.
  33. *
  34. * VARIABLES:
  35. * ----------
  36. *
  37. SAVE IPINT1,IPINT2
  38. *
  39. * AUTEUR, DATE DE CREATION:
  40. * -------------------------
  41. *
  42. * DENIS ROBERT,LE 16 FEVRIER 1988.
  43. *
  44. * LANGAGE:
  45. * --------
  46. *
  47. * ESOPE + FORTRAN77
  48. *
  49. ************************************************************************
  50. DATA IPINT1,IPINT2 /0,0/
  51. *
  52. IF (IPINT1.NE.0.AND.POINTS(1:5).EQ.'GAUSS') THEN
  53. IINTE=IPINT1
  54. ELSEIF (IPINT2.NE.0.AND.POINTS(1:5).EQ.'NOEUD') THEN
  55. IINTE=IPINT2
  56. ELSE
  57. NBPGAU=5
  58. NBNO=4
  59. *
  60. SEGINI,MINTE
  61. IINTE=MINTE
  62. IF(POINTS(1:5).EQ.'GAUSS')THEN
  63. IPINT1=IINTE
  64. ELSE
  65. IPINT2=IINTE
  66. ENDIF
  67. CALL TTET4A(POINTS,QSIGAU,ETAGAU,DZEGAU,POIGAU,SHPTOT)
  68. SEGDES,MINTE
  69. CALL SAVSEG(IINTE)
  70. ENDIF
  71. *
  72. END
  73.  
  74.  

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