Télécharger la plaquette Cast3M


fr en

Télécharger idprin.eso

Retour à la liste

Numérotation des lignes : 

idprin

  1. C IDPRIN    SOURCE    OF166741  26/02/23    21:15:20     12480          
  2.  
  3. C=======================================================================
  4. C=    RECHERCHE DES NOMS DE COMPOSANTES DE CONTRAINTES PRINCIPALES     =
  5. C=    ------------------------------------------------------------     =
  6. C=                                                                     =
  7. C= Entrees :                                                           =
  8. C=   IPMODL    pointeur ACTIF sur objet IMODEL                         =
  9. C=   IFOU      valeur de IFOUR de CCOPTIO                              =
  10. C=                                                                     =
  11. C= Sorties :                                                           =
  12. C=   IPNOMC    pointeur de type NOMID sur les listes de noms de        =
  13. C=             composantes OBLigatoires et FACultatives                =
  14. C=   NBROBL    nombre de composantes OBLigatoires                      =
  15. C=   NBRFAC    nombre de composantes FACultatives                      =
  16. C=                                                                     =
  17. C=  Remarque : Voir INOMID ou CCOPTIO pour signification IFOUR         =
  18. C=======================================================================
  19. C
  20.       SUBROUTINE IDPRIN(IPMODL,IFOU,IPNOMC,NBROBL,NBRFAC)
  21. C
  22.       IMPLICIT INTEGER(I-N)
  23.       IMPLICIT REAL*8 (A-H,O-Z)
  24. C
  25. -INC PPARAM
  26. -INC CCOPTIO
  27. C==DEB= FORMULATION HHO == Include specifique ==========================
  28. -INC CCHHOPA
  29. C==FIN= FORMULATION HHO ================================================
  30. C
  31. -INC SMMODEL
  32. C
  33.       NBROBL = 0
  34.       NBRFAC = 0
  35. C
  36.       IMODEL=IPMODL
  37.       NOMID =IMODEL.LNOMID(9)
  38. C
  39. C     Ne pas recreer le NOMID si deja present
  40.       IF (NOMID.NE.0) THEN
  41.         NBROBL=LESOBL(/2)
  42.         NBRFAC=LESFAC(/2)
  43.         IPNOMC=NOMID
  44.         RETURN
  45.       ENDIF
  46. C
  47.       MELE=IMODEL.NEFMOD
  48.       MFR =NUMMFR(MELE)
  49.       MFR2=NUMFOR(IMODEL)
  50. C     =================================================================
  51. C     FORMULATION MECANIQUE/POREUX/LIAISON
  52. C     =================================================================
  53.       IF ((MFR2.EQ.2) .OR. (MFR2.EQ.33) .OR. (MFR2.EQ.24)) THEN
  54. C
  55. C       ELEMENT MASSIF - MILIEU POREUX & FORMULATION HHO
  56. C       ================================================
  57.         IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33.OR.MFR.EQ.35.OR.
  58.      &      MFR.EQ.63.OR.MFR.EQ.HHO_MFR_ELEMENT) THEN
  59.           IF (MFR.EQ.1.AND.IFOU.GE.3.AND.IFOU.LE.15) THEN
  60.             NBROBL=3
  61.             SEGINI,NOMID
  62.             LESOBL(1)='SI11'
  63.             LESOBL(2)='SI22'
  64.             LESOBL(3)='SI33'
  65.           ELSE
  66.             NBROBL=12
  67.             SEGINI,NOMID
  68.             LESOBL(1)='SI11'
  69.             LESOBL(2)='SI22'
  70.             LESOBL(3)='SI33'
  71.             LESOBL(4)='COX1'
  72.             LESOBL(5)='COY1'
  73.             LESOBL(6)='COZ1'
  74.             LESOBL(7)='COX2'
  75.             LESOBL(8)='COY2'
  76.             LESOBL(9)='COZ2'
  77.             LESOBL(10)='COX3'
  78.             LESOBL(11)='COY3'
  79.             LESOBL(12)='COZ3'
  80.           ENDIF
  81. C
  82. C       Elements COQUES ET COQUES EPAISSES
  83. C       ==================================
  84.         ELSE IF (MFR.EQ.3.OR.MFR.EQ.5.OR.MFR.EQ.9) THEN
  85.           NBROBL=8
  86.           SEGINI,NOMID
  87.           LESOBL(1)='SI11'
  88.           LESOBL(2)='SI22'
  89.           LESOBL(3)='COX1'
  90.           LESOBL(4)='COY1'
  91.           LESOBL(5)='COZ1'
  92.           LESOBL(6)='COX2'
  93.           LESOBL(7)='COY2'
  94.           LESOBL(8)='COZ2'
  95. C
  96. C       Elements LINESPRING et TUYAU FISSURE
  97. C       ====================================
  98.         ELSE IF (MFR.EQ.15.OR.MFR.EQ.17) THEN
  99.           IF (IFOU.EQ.2) THEN
  100.             NBROBL=1
  101.             SEGINI,NOMID
  102.             LESOBL(1)='SI11'
  103.           ENDIF
  104.         ENDIF
  105. C     =================================================================
  106. C     FORMULATION NAVIER_STOKES
  107. C     =================================================================
  108.       ELSE IF (MFR2.EQ.52) THEN
  109.         NBROBL=1
  110.         SEGINI,NOMID
  111.         LESOBL(1)='PN'
  112. C     =================================================================
  113.       ENDIF
  114. C
  115.       IF (NOMID.NE.0) SEGACT,NOMID*NOMOD
  116.       IPNOMC=NOMID
  117.       END
  118.  
  119.  
  120.  

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