Télécharger la plaquette Cast3M


fr en

Télécharger tcond2.eso

Retour à la liste

Numérotation des lignes : 

tcond2

  1. C TCOND2    SOURCE    CB215821  24/04/12    21:17:19     11897          
  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,NOMPRI,NOMDUA)
  31.  
  32.       IMPLICIT INTEGER(I-N)
  33.       IMPLICIT REAL*8 (A-H,O-Z)
  34.  
  35. -INC PPARAM
  36. -INC SMRIGID
  37. -INC SMMODEL
  38.       POINTEUR NOMID1.NOMID,NOMID2.NOMID
  39.  
  40.       NOMID1=NOMPRI
  41.       NOMID2=NOMDUA
  42.       SEGACT,NOMID1,NOMID2
  43.  
  44. C  1 - Cas des elements COQUES
  45. C =============================
  46.       IF (ICOQ.NE.0) THEN
  47. C       Verification de la TAILLE des noms des INCONNUES
  48.         IF (NOMID1.LESOBL(/2).NE.3 .AND. NOMID2.LESOBL(/2).NE.3)THEN
  49.           CALL ERREUR(21)
  50.           RETURN
  51.         ENDIF
  52.  
  53.         NLIGRP = 3*NBNN
  54.         NLIGRD = 3*NBNN
  55.         SEGINI,DESCR
  56.         NBNN2 = 2*NBNN
  57.         DO i = 1, NLIGRP
  58.           IF (i.LE.NBNN) THEN
  59.             LISINC(i) = NOMID1.LESOBL(1)
  60.             LISDUA(i) = NOMID2.LESOBL(1)
  61.             NOELEP(i) = i
  62.             NOELED(i) = i
  63.           ELSE IF (i.LE.NBNN2) THEN
  64.             LISINC(i) = NOMID1.LESOBL(2)
  65.             LISDUA(i) = NOMID2.LESOBL(2)
  66.             j = i-NBNN
  67.             NOELEP(i) = j
  68.             NOELED(i) = j
  69.           ELSE
  70.             LISINC(i) = NOMID1.LESOBL(3)
  71.             LISDUA(i) = NOMID2.LESOBL(3)
  72.             j = i-NBNN2
  73.             NOELEP(i) = j
  74.             NOELED(i) = j
  75.           ENDIF
  76.         ENDDO
  77.  
  78. C  2 - Cas des elements MASSIFS
  79. C ==============================
  80.       ELSE
  81. C       Verification de la TAILLE des noms des INCONNUES
  82.         IF (NOMID1.LESOBL(/2).NE.1 .AND. NOMID2.LESOBL(/2).NE.1)THEN
  83.           CALL ERREUR(21)
  84.           RETURN
  85.         ENDIF
  86.  
  87.         NLIGRP = NBNN
  88.         NLIGRD = NBNN
  89.         SEGINI,DESCR
  90.         DO i = 1, NLIGRP
  91.           LISINC(i) = NOMID1.LESOBL(1)
  92.           LISDUA(i) = NOMID2.LESOBL(1)
  93.           NOELEP(i) = i
  94.           NOELED(i) = i
  95.         ENDDO
  96.       ENDIF
  97.  
  98.       SEGDES,DESCR
  99. C      SEGDES,NOMID1,NOMID2
  100.       IDESCR = DESCR
  101.  
  102.       END
  103.  
  104.  
  105.  
  106.  
  107.  

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