Esope source files

   1 : C TCOND2    SOURCE    FANDEUR   11/07/19    21:17:30     7042           
   2 : 
   3 : C=======================================================================
   4 : C=                            T C O N D 2                              =
   5 : C=                            -----------                              =
   6 : C=                                                                     =
   7 : C=  Fonction :                                                         =
   8 : C=  ----------                                                         =
   9 : C=  Ce sous-programme remplit le segment DESCRipteur de la matrice de  =
  10 : C=  CONDUCTIVITE/CAPACITE (RIGIDITE) dans le cas d'un modele THERMIQUE =
  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=   ICOQ    (E)  = 0 si element MASSIF, sinon element COQUE           =
  16 : C=   IDESCR  (S)  Pointeur sur le segment DESCR                        =
  17 : C=                                                                     =
  18 : C=  Remarques :                                                        =
  19 : C=  -----------                                                        =
  20 : C=  - L'inconnue PRIMALE est la temperature 'T   ' pour les elements   =
  21 : C=    MASSIFs et 'TINF', 'TSUP' et 'T   ' dans le cas d'element COQUE. =
  22 : C=  - L'inconnue DUALE est la chaleur 'Q   ' pour les elements MASSIFs =
  23 : C=    et 'QINF', 'QSUP' et 'Q   ' dans le cas d'elements COQUEs.       =
  24 : C=  - Ces noms de composantes pourraient figurer dans BDATA.           =
  25 : C=                                                                     =
  26 : C=  Denis ROBERT, le 6 janvier 1988.                                   =
  27 : C=  Mise a jour pour les coques, P. DOWLATYARI, juin 1990.             =
  28 : C=======================================================================
  29 : 
  30 :       SUBROUTINE TCOND2 (ICOQ,NBNN,IDESCR)
  31 : 
  32 :       IMPLICIT INTEGER(I-N)
  33 :       IMPLICIT REAL*8 (A-H,O-Z)
  34 : 
  35 : -INC SMRIGID
  36 : 
  37 :       CHARACTER*4 MOTHER,MOCHAL,MOTHR1,MOTHR2,MOCHL1,MOCHL2
  38 : 
  39 :       PARAMETER ( MOTHER='T   ' )
  40 :       PARAMETER ( MOCHAL='Q   ' )
  41 :       PARAMETER ( MOTHR1='TINF',MOTHR2='TSUP' )
  42 :       PARAMETER ( MOCHL1='QINF',MOCHL2='QSUP' )
  43 : 
  44 : C  1 - Cas des elements COQUES
  45 : C =============================
  46 :       IF (ICOQ.NE.0) THEN
  47 :         NLIGRP = 3*NBNN
  48 :         NLIGRD = 3*NBNN
  49 :         SEGINI,DESCR
  50 :         NBNN2 = 2*NBNN
  51 :         DO i = 1, NLIGRP
  52 :           IF (i.LE.NBNN) THEN
  53 :             LISINC(i) = MOTHR1
  54 :             LISDUA(i) = MOCHL1
  55 :             NOELEP(i) = i
  56 :             NOELED(i) = i
  57 :           ELSE IF (i.LE.NBNN2) THEN
  58 :             LISINC(i) = MOTHER
  59 :             LISDUA(i) = MOCHAL
  60 :             j = i-NBNN
  61 :             NOELEP(i) = j
  62 :             NOELED(i) = j
  63 :           ELSE
  64 :             LISINC(i) = MOTHR2
  65 :             LISDUA(i) = MOCHL2
  66 :             j = i-NBNN2
  67 :             NOELEP(i) = j
  68 :             NOELED(i) = j
  69 :           ENDIF
  70 :         ENDDO
  71 : 
  72 : C  2 - Cas des elements MASSIFS
  73 : C ==============================
  74 :       ELSE
  75 :         NLIGRP = NBNN
  76 :         NLIGRD = NBNN
  77 :         SEGINI,DESCR
  78 :         DO i = 1, NLIGRP
  79 :           LISINC(i) = MOTHER
  80 :           LISDUA(i) = MOCHAL
  81 :           NOELEP(i) = i
  82 :           NOELED(i) = i
  83 :         ENDDO
  84 :       ENDIF
  85 : 
  86 :       SEGDES,DESCR
  87 :       IDESCR = DESCR
  88 : 
  89 :       RETURN
  90 :       END
  91 : 
  92 :