Télécharger tseg2f.eso

Retour à la liste

Numérotation des lignes :

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

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