Télécharger la plaquette Cast3M


fr en

Télécharger tconp1.eso

Retour à la liste

Numérotation des lignes : 

tconp1

  1. C TCONP1    SOURCE    OF166741  25/02/21    21:18:46     12166          
  2.  
  3. C=======================================================================
  4. C=                            T C O N P 1                              =
  5. C=                            -----------                              =
  6. C=                                                                     =
  7. C=  Fonction :                                                         =
  8. C=  ----------                                                         =
  9. C=  Calcul de la matrice de CONVECTION d'un element POI1               =
  10. C=                                                                     =
  11. C=  Clement BERTHINIER, le 04 fevrier 2021.                            =
  12. C=======================================================================
  13.  
  14.       SUBROUTINE TCONP1(IPMAIL,IVAMAT,IPMATR)
  15.  
  16.       IMPLICIT INTEGER(I-N)
  17.       IMPLICIT REAL*8 (A-H,O-Z)
  18.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21.  
  22. -INC SMELEME
  23. -INC SMRIGID
  24. -INC SMCHAML
  25.  
  26. -INC TMPTVAL
  27.  
  28.       MELEME = IPMAIL
  29.       NBELEM = NUM(/2)
  30.  
  31.       XMATRI = IPMATR
  32.  
  33. C     Preparation du champ de caracteristiques 'H'
  34.       MPTVAL = IVAMAT
  35.       MELVAL = MPTVAL.IVAL(1)
  36.       IVEL2  = VELCHE(/2)
  37.  
  38. C     BOUCLE SUR LES POI1 DU MAILLAGE ELEMENTAIRE IPMAIL
  39. C     ==================================================
  40.       DO iElt = 1, NBELEM
  41.         IEMN = MIN(iElt,IVEL2)
  42.  
  43. C       Remplissage de la matrice
  44.         RE(1,1,iElt) = MELVAL.VELCHE(1,IEMN)
  45.       ENDDO
  46.  
  47.       RETURN
  48.       END
  49.  
  50.  
  51.  

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