Télécharger la plaquette Cast3M


fr en

Télécharger tpoi1.eso

Retour à la liste

Numérotation des lignes : 

tpoi1

  1. C TPOI1     SOURCE    OF166741  23/12/04    21:15:13     11800          
  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, aux    =
  10. C=   points d'integration (Gauss) ou au centre de gravite pour         =
  11. C=   l'element POI1 (CONVECTION en 1D)                                 =
  12. C=                                                                     =
  13. C=  Parametres :  (E)=Entree  (S)=Sortie                               =
  14. C=  ------------                                                       =
  15. C=   ISUPTH  (E)   Indique le support d'integration demande            =
  16. C=   IPINTE  (S)   Pointeur sur le segment MINTE associe (ACTIF en S)  =
  17. C=======================================================================
  18.  
  19.       SUBROUTINE TPOI1 (ISUPTH,IPINTE)
  20.  
  21.       IMPLICIT INTEGER(I-N)
  22.       IMPLICIT REAL*8 (A-H,O-Z)
  23.  
  24. -INC SMINTE
  25.  
  26.       PARAMETER (XZero = 0.D0, XUn = 1.D0)
  27.  
  28.       NBNO   = 1
  29.       NBPGAU = 1
  30.       SEGINI,MINTE
  31.  
  32. c      QSIGAU(1) = XZero
  33. c      ETAGAU(1) = XZero
  34. c      DZEGAU(1) = XZero
  35.  
  36.       POIGAU(1) = XUn
  37.  
  38.       SHPTOT(1,1,1) = XUn
  39. c      SHPTOT(2,1,1) = XZero
  40.  
  41.       IPINTE = MINTE
  42.  
  43. C      RETURN
  44.       END
  45.  
  46.  
  47.  

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