Télécharger tpoi1.eso

Retour à la liste

Numérotation des lignes :

  1. C TPOI1 SOURCE CHAT 05/01/13 03:43:20 5004
  2.  
  3. C=======================================================================
  4. C= T P O I 1 =
  5. C= --------- =
  6. C= =
  7. C= Fonction : =
  8. C= ---------- =
  9. C= Acquisition des caracteristiques d'integration aux noeuds ou aux =
  10. C= points de Gauss pour l'element POI1 (CONVECTION en 1D) =
  11. C= =
  12. C= Parametres : (E)=Entree (S)=Sortie =
  13. C= ------------ =
  14. C= POINTS (E) Indique le support d'integration 'NOEUDS'/'GAUSS' =
  15. C= IINTE (S) Pointeur sur le segment MINTE associe =
  16. C=======================================================================
  17.  
  18. SUBROUTINE TPOI1 (POINTS,IINTE)
  19.  
  20. IMPLICIT INTEGER(I-N)
  21. IMPLICIT REAL*8 (A-H,O-Z)
  22.  
  23. -INC SMINTE
  24.  
  25. CHARACTER*(*) POINTS
  26.  
  27. SAVE IPINT1
  28. DATA IPINT1 / 0 /
  29.  
  30. IF (IPINT1.NE.0) THEN
  31. IINTE=IPINT1
  32. ELSE
  33. NBNO=1
  34. NBPGAU=1
  35. SEGINI,MINTE
  36. QSIGAU(1)=0.
  37. ETAGAU(1)=0.
  38. DZEGAU(1)=0.
  39. POIGAU(1)=1.
  40. SHPTOT(1,1,1)=1.
  41. SHPTOT(2,1,1)=0.
  42. SEGDES,MINTE
  43. IINTE=MINTE
  44. CALL SAVSEG(IINTE)
  45. IPINT1=IINTE
  46. ENDIF
  47.  
  48. RETURN
  49. END
  50.  
  51.  
  52.  

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