C TPOI1     SOURCE    CHAT      05/01/13    03:43:20     5004           

C=======================================================================
C=                            T P O I 1                                =
C=                            ---------                                =
C=                                                                     =
C=  Fonction :                                                         =
C=  ----------                                                         =
C=   Acquisition des caracteristiques d'integration aux noeuds ou aux  =
C=   points de Gauss pour l'element POI1 (CONVECTION en 1D)            =
C=                                                                     =
C=  Parametres :  (E)=Entree  (S)=Sortie                               =
C=  ------------                                                       =
C=   POINTS  (E)   Indique le support d'integration 'NOEUDS'/'GAUSS'   =
C=   IINTE   (S)   Pointeur sur le segment MINTE associe               =
C=======================================================================

      SUBROUTINE TPOI1 (POINTS,IINTE)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC SMINTE

      CHARACTER*(*) POINTS

      SAVE IPINT1
      DATA IPINT1 / 0 /

      IF (IPINT1.NE.0) THEN
        IINTE=IPINT1
      ELSE
        NBNO=1
        NBPGAU=1
        SEGINI,MINTE
        QSIGAU(1)=0.
        ETAGAU(1)=0.
        DZEGAU(1)=0.
        POIGAU(1)=1.
        SHPTOT(1,1,1)=1.
        SHPTOT(2,1,1)=0.
        SEGDES,MINTE
        IINTE=MINTE
        CALL SAVSEG(IINTE)
        IPINT1=IINTE
      ENDIF

      RETURN
      END