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  24/05/06    21:15:19     11082          
  2.  
  3. C=======================================================================
  4. C=    RECHERCHE DES NOMS DE COMPOSANTES DE CONTRAINTES PRINCIPALES     =
  5. C=    ------------------------------------------------------------     =
  6. C=                                                                     =
  7. C= Entrees :                                                           =
  8. C=   MFR       numero de la formulation utilisee                       =
  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.  
  18.       SUBROUTINE IDPRIN (MFR,IFOU,IPNOMC,NBROBL,NBRFAC)
  19.  
  20.       IMPLICIT INTEGER(I-N)
  21.       IMPLICIT REAL*8 (A-H,O-Z)
  22.  
  23. C==DEB= FORMULATION HHO == Include specifique ==========================
  24. -INC CCHHOPA
  25. C==FIN= FORMULATION HHO ================================================
  26.  
  27.       SEGMENT NOMID
  28.         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  29.       ENDSEGMENT
  30.  
  31.       NBROBL=0
  32.       NBRFAC=0
  33.       NOMID=0
  34.  
  35. C  1 - ELEMENT MASSIF - MILIEU POREUX & FORMULATION HHO
  36. C ====================================
  37.       IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33.OR.MFR.EQ.35.OR.
  38.      &    MFR.EQ.63.OR.MFR.EQ.HHO_MFR_ELEMENT) THEN
  39. C =====
  40. C  1.1 - Cas particulier : MASSIF 1D (IDIM=1)
  41. C =====
  42.         IF (MFR.EQ.1.AND.IFOU.GE.3.AND.IFOU.LE.15) THEN
  43.           NBROBL=3
  44.           SEGINI,NOMID
  45.           LESOBL(1)='SI11'
  46.           LESOBL(2)='SI22'
  47.           LESOBL(3)='SI33'
  48. C =====
  49. C  1.2 - Cas general
  50. C =====
  51.         ELSE
  52.           NBROBL=12
  53.           SEGINI,NOMID
  54.           LESOBL(1)='SI11'
  55.           LESOBL(2)='SI22'
  56.           LESOBL(3)='SI33'
  57.           LESOBL(4)='COX1'
  58.           LESOBL(5)='COY1'
  59.           LESOBL(6)='COZ1'
  60.           LESOBL(7)='COX2'
  61.           LESOBL(8)='COY2'
  62.           LESOBL(9)='COZ2'
  63.           LESOBL(10)='COX3'
  64.           LESOBL(11)='COY3'
  65.           LESOBL(12)='COZ3'
  66.         ENDIF
  67.  
  68. C  2 - Elements COQUES
  69. C =====================
  70.       ELSE IF (MFR.EQ.3.OR.MFR.EQ.5.OR.MFR.EQ.9) THEN
  71.         NBROBL=8
  72.         SEGINI,NOMID
  73.         LESOBL(1)='SI11'
  74.         LESOBL(2)='SI22'
  75.         LESOBL(3)='COX1'
  76.         LESOBL(4)='COY1'
  77.         LESOBL(5)='COZ1'
  78.         LESOBL(6)='COX2'
  79.         LESOBL(7)='COY2'
  80.         LESOBL(8)='COZ2'
  81.  
  82. C  3 - Elements LINESPRING et TUYAU FISSURE (tridimensionnel)
  83. C ==========================================
  84.       ELSE IF (MFR.EQ.15.OR.MFR.EQ.17) THEN
  85.         IF (IFOU.EQ.2) THEN
  86.           NBROBL=1
  87.           SEGINI,NOMID
  88.           LESOBL(1)='SI11'
  89.         ENDIF
  90.  
  91.  
  92.       ELSE IF (MFR.EQ.52) THEN
  93.           NBROBL=1
  94.           SEGINI,NOMID
  95.           LESOBL(1)='PN'
  96.  
  97.       ENDIF
  98.  
  99. C  Par DEFAUT : segment VIDE
  100. C ===========================
  101.       IF (NOMID.EQ.0) SEGINI,NOMID
  102.  
  103.       SEGACT,NOMID*NOMOD
  104.       IPNOMC=NOMID
  105.  
  106.       RETURN
  107.       END
  108.  
  109.  
  110.  

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