Télécharger la plaquette Cast3M


fr en

Télécharger capap1.eso

Retour à la liste

Numérotation des lignes : 

capap1

  1. C CAPAP1    SOURCE    OF166741  25/02/21    21:15:25     12166          
  2.  
  3. C=======================================================================
  4. C=                            C A P A P 1                              =
  5. C=                            -----------                              =
  6. C=                                                                     =
  7. C=  Fonction :                                                         =
  8. C=  ----------                                                         =
  9. C=  Calcul de la matrice de CAPACITE CALORIFIQUE d'un element POI1     =
  10. C=                                                                     =
  11. C=  Clement BERTHINIER, le 23 fevrier 2021.                            =
  12. C=======================================================================
  13.       SUBROUTINE CAPAP1(IPMAIL,IVAMAT,IPMATR,INFOR)
  14.  
  15.       IMPLICIT INTEGER(I-N)
  16.       IMPLICIT REAL*8 (A-H,O-Z)
  17.  
  18. -INC PPARAM
  19. -INC CCOPTIO
  20.  
  21. -INC SMELEME
  22. -INC SMRIGID
  23. -INC SMCHAML
  24.  
  25. -INC TMPTVAL
  26.  
  27.       MELEME = IPMAIL
  28.       NBELEM = NUM(/2)
  29.  
  30.       XMATRI = IPMATR
  31.       MPTVAL = IVAMAT
  32.  
  33. C     BOUCLE SUR LES ELEMENTS DU MAILLAGE ELEMENTAIRE IPMAIL
  34. C     ======================================================
  35.       DO iElt = 1, NBELEM
  36.         IF    (INFOR .EQ. 1)THEN
  37. C         Cas THERMIQUE : Calcul du terme M * Cp
  38.           MELVAL = MPTVAL.IVAL(1)
  39.           IEMN   = MIN(iElt,MELVAL.VELCHE(/2))
  40.           XM     = MELVAL.VELCHE(1,IEMN)
  41.  
  42.           MELVAL = MPTVAL.IVAL(2)
  43.           IEMN   = MIN(iElt,MELVAL.VELCHE(/2))
  44.           XC     = MELVAL.VELCHE(1,IEMN)
  45.  
  46.           XRIG = XM * XC
  47.  
  48.         ELSEIF(INFOR .EQ. 2)THEN
  49. C         Cas DIFFUSION : Directement le CDG (CD généralise)
  50.           MELVAL = MPTVAL.IVAL(1)
  51.           IEMN   = MIN(iElt,MELVAL.VELCHE(/2))
  52.           XRIG   = MELVAL.VELCHE(1,IEMN)
  53.         ENDIF
  54.  
  55. C       Remplissage direct de la matrice
  56.         RE(1,1,iElt) = XRIG
  57.       ENDDO
  58.  
  59.       END
  60.  
  61.  
  62.  

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