Numérotation des lignes :

capaj1
C CAPAJ1    SOURCE    CB215821  21/02/11    21:15:05     10886                SUBROUTINE CAPAJ1(IPMAIL,IVAMAT,NMATT,IPMATR,INFOR)       IMPLICIT INTEGER(I-N)      IMPLICIT REAL*8 (A-H,O-Z) C=======================================================================C=                            C A P A J 1                              =C=                            -----------                              =C=                                                                     =C=  Fonction :                                                         =C=  ----------                                                         =C=  Calcul de la matrice de CAPACITE CALORIFIQUE d'un element JOI1     =C=                                                                     =C=  Clement BERTHINIER, le 03 fevrier 2021.                            =C======================================================================= -INC PPARAM-INC CCOPTIO-INC SMELEME-INC SMRIGID-INC SMCHAML       SEGMENT MPTVAL        INTEGER IPOS(NS),NSOF(NS),IVAL(NCOSOU)        CHARACTER*16 TYVAL(NCOSOU)      ENDSEGMENT       MELEME = IPMAIL      NBNN   = NUM(/1)      NBELEM = NUM(/2)       XMATRI = IPMATR      MPTVAL = IVAMAT  C     BOUCLE SUR LES ELEMENTS DU MAILLAGE ELEMENTAIRE IPMAILC     ======================================================      DO iElt = 1, NBELEM C       2 - BOUCLE SUR LES NOEUDS DES ELEMENTS SUPPORT (SEG2)C       =====================================================        DO iNOEU = 1, NBNN          IF    (INFOR .EQ. 1)THENC           Cas THERMIQUE : Calcul du terme M * Cp            MELVAL = MPTVAL.IVAL(1)            IGMN   = MIN(iNOEU,VELCHE(/1))            IEMN   = MIN(iElt,VELCHE(/2))            XM     = VELCHE(IGMN,IEMN)             MELVAL = MPTVAL.IVAL(2)            IGMN   = MIN(iNOEU,VELCHE(/1))            IEMN   = MIN(iElt,VELCHE(/2))            XC     = VELCHE(IGMN,IEMN)             XRIG = XM * XC           ELSEIF(INFOR .EQ. 2)THENC           Cas DIFFUSION : Directement le CDG (CD généralise)            MELVAL = MPTVAL.IVAL(1)            IGMN   = MIN(iNOEU,VELCHE(/1))            IEMN   = MIN(iElt,VELCHE(/2))            XRIG   = VELCHE(IGMN,IEMN)          ENDIF C         Remplissage direct de la matrice          RE(iNOEU,iNOEU,iElt) = XRIG        ENDDO      ENDDO       END  

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