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

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