Télécharger tte10.eso

Retour à la liste

Numérotation des lignes :

  1. C TTE10 SOURCE CHAT 05/01/13 03:54:19 5004
  2. SUBROUTINE TTE10(POINTS,IINTE)
  3. ************************************************************************
  4. *
  5. * T T E 1 0
  6. * ---------
  7. *
  8. * FONCTION:
  9. * ---------
  10. * ACQUISITION DES CARACTERISTIQUES D'INTEGRATION
  11. * POUR L'ELEMENT DE THERMIQUE TE10
  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. * NBPGAU NOMBRE DE POINTS DE GAUSS.
  31. * NBNO NOMBRE DE NOEUDS DANS L'ELEMENT.
  32. *
  33. * VARIABLES:
  34. * ----------
  35. *
  36. SAVE IPINT1,IPINT2
  37. *
  38. * AUTEUR, DATE DE CREATION:
  39. * -------------------------
  40. *
  41. * DENIS ROBERT,LE 22 DECEMBRE 1987.
  42. *
  43. * LANGAGE:
  44. * --------
  45. *
  46. * ESOPE + FORTRAN77
  47. *
  48. ************************************************************************
  49. DATA IPINT1,IPINT2 /0,0/
  50. *
  51. IF (IPINT1.NE.0.AND.POINTS(1:5).EQ.'GAUSS') THEN
  52. IINTE=IPINT1
  53. ELSEIF (IPINT2.NE.0.AND.POINTS(1:5).EQ.'NOEUD') THEN
  54. IINTE=IPINT2
  55. ELSE
  56. NBPGAU=5
  57. NBNO=10
  58. if(POINTS(1:5).EQ.'NOEUD') nbpgau=10
  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 TTE10A(POINTS,QSIGAU,ETAGAU,DZEGAU,POIGAU,SHPTOT)
  68. SEGDES,MINTE
  69. CALL SAVSEG(IINTE)
  70. ENDIF
  71. *
  72. END
  73.  
  74.  
  75.  

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