Télécharger la plaquette Cast3M


fr en

Télécharger thcond2.eso

Retour à la liste

Numérotation des lignes : 

thcond2

  1. C THCOND2   SOURCE    PV        22/01/18    21:15:09     11267          
  2.  
  3. C=======================================================================
  4. C=                            T H C O N D 2                            =
  5. C=                            -----------                              =
  6. C=                      (TCOND2 dans le cas de la thermique)           =
  7. C=  Fonction :                                                         =
  8. C=  ----------                                                         =
  9. C=  Ce sous-programme remplit le segment DESCRipteur de la matrice de  =
  10. C=  CAPACITE (CONDUCTIVITE)dans le cas d'un modele THERMOHYDRIQUE.     =
  11. C=                                                                     =
  12. C=  Parametres :  (E)=Entree   (S)=Sortie                              =
  13. C=  ------------                                                       =
  14. C=   NBNN    (E)  Nombre de NOEUDS dans le type d'element considere    =
  15. C=   IDESCR  (S)  Pointeur sur le segment DESCR                        =
  16. C=                                                                     =
  17. C=                                                                     =
  18. C=   Zakaria HABIBI le 30 juin 2008.                                   =
  19. C=======================================================================
  20.  
  21.       SUBROUTINE THCOND2 (NBNN,IDESCR)
  22.  
  23.       IMPLICIT INTEGER(I-N)
  24.       IMPLICIT REAL*8 (A-H,O-Z)
  25.  
  26. -INC PPARAM
  27. -INC SMRIGID
  28.  
  29.       CHARACTER*4 MOTHER,MOCHAL,MOTGAZ,MOCGAZ,MOTCAP,MOCCAP
  30.  
  31.       PARAMETER ( MOTHER='T   ' )
  32.       PARAMETER ( MOCHAL='Q   ' )
  33.       PARAMETER ( MOTGAZ='PG  ' )
  34.       PARAMETER ( MOCGAZ='QG  ' )
  35.       PARAMETER ( MOTCAP='PC  ' )
  36.       PARAMETER ( MOCCAP='QC  ' )
  37.  
  38.  
  39. C  1 - Cas des elements MASSIFS
  40. C ==============================
  41.  
  42.         NLIGRP=3*NBNN
  43.         NLIGRD=3*NBNN
  44.         SEGINI,DESCR
  45.         DO i=1,NLIGRP
  46.             IF (i.LE.NBNN) THEN
  47.               LISINC(i)=MOTGAZ
  48.               LISDUA(i)=MOCGAZ
  49.               NOELEP(i)=i
  50.               NOELED(i)=i
  51.             ELSE IF (i.GT.NBNN.AND.i.LE.(2*NBNN)) THEN
  52.               LISINC(i)=MOTCAP
  53.               LISDUA(i)=MOCCAP
  54.               NOELEP(i)=i-NBNN
  55.               NOELED(i)=i-NBNN
  56.             ELSE
  57.               LISINC(i)=MOTHER
  58.               LISDUA(i)=MOCHAL
  59.               j=i-(2*NBNN)
  60.               NOELEP(i)=j
  61.               NOELED(i)=j
  62.             ENDIF
  63.         ENDDO
  64.  
  65.       IDESCR=DESCR
  66.       SEGDES,DESCR
  67.  
  68.       RETURN
  69.       END
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  

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