C TCONP1    SOURCE    PV090527  26/04/30    21:16:35     12529          

C=======================================================================
C=                            T C O N P 1                              =
C=                            -----------                              =
C=                                                                     =
C=  Fonction :                                                         =
C=  ----------                                                         =
C=  Calcul de la matrice de CONVECTION d'un element POI1               =
C=                                                                     =
C=  Clement BERTHINIER, le 04 fevrier 2021.                            =
C=======================================================================

      SUBROUTINE TCONP1(IPMAIL,IVAMAT,IPMATR)

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

-INC PPARAM
-INC CCOPTIO

-INC SMELEME
-INC SMRIGID
-INC SMCHAML

-INC TMPTVAL

      MELEME = IPMAIL
      NBELEM = NUM(/2)

      XMATRI = IPMATR

C     Preparation du champ de caracteristiques 'H'
      MPTVAL = IVAMAT
      MELVAL = MPTVAL.IVAL(1)
      IVEL2  = VELCHE(/2)

C     BOUCLE SUR LES POI1 DU MAILLAGE ELEMENTAIRE IPMAIL
C     ==================================================
      DO iElt = 1, NBELEM
        IEMN = MIN(iElt,IVEL2)

C       Remplissage de la matrice
        RE(1,1,iElt) = MELVAL.VELCHE(1,IEMN)
      ENDDO

      RETURN
      END