Télécharger tpr15.eso

Retour à la liste

Numérotation des lignes :

  1. C TPR15 SOURCE CHAT 05/01/13 03:43:28 5004
  2. SUBROUTINE TPR15(POINTS,IINTE)
  3. ************************************************************************
  4. *
  5. * T P R 1 5
  6. * ---------
  7. *
  8. * FONCTION:
  9. * ---------
  10. * ACQUISITION DES CARACTERISTIQUES D'INTEGRATION
  11. * POUR L'ELEMENT DE THERMIQUE PR15
  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=21
  57. NBNO=15
  58. *
  59. SEGINI,MINTE
  60. IINTE=MINTE
  61. IF(POINTS(1:5).EQ.'GAUSS')THEN
  62. IPINT1=IINTE
  63. ELSE
  64. IPINT2=IINTE
  65. ENDIF
  66. CALL TPR15A(POINTS,QSIGAU,ETAGAU,DZEGAU,POIGAU,SHPTOT)
  67. SEGDES,MINTE
  68. CALL SAVSEG(IINTE)
  69. ENDIF
  70. *
  71. END
  72.  
  73.  

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