Esope source files

   1 : C IDPRIN    SOURCE    FANDEUR   10/02/01    21:15:29     6603           
   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 :       SEGMENT NOMID
  24 :         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  25 :       ENDSEGMENT
  26 : 
  27 :       NBROBL=0
  28 :       NBRFAC=0
  29 :       NOMID=0
  30 : 
  31 : C  1 - ELEMENT MASSIF - MILIEU POREUX
  32 : C ====================================
  33 :       IF (MFR.EQ.1.OR.MFR.EQ.31.OR.MFR.EQ.33.OR.MFR.EQ.35.OR.
  34 :      &    MFR.EQ.63) THEN
  35 : C =====
  36 : C  1.1 - Cas particulier : MASSIF 1D (IDIM=1)
  37 : C =====
  38 :         IF (MFR.EQ.1.AND.IFOU.GE.3.AND.IFOU.LE.15) THEN
  39 :           NBROBL=3
  40 :           SEGINI,NOMID
  41 :           LESOBL(1)='SI11'
  42 :           LESOBL(2)='SI22'
  43 :           LESOBL(3)='SI33'
  44 : C =====
  45 : C  1.2 - Cas general
  46 : C =====
  47 :         ELSE
  48 :           NBROBL=12
  49 :           SEGINI,NOMID
  50 :           LESOBL(1)='SI11'
  51 :           LESOBL(2)='SI22'
  52 :           LESOBL(3)='SI33'
  53 :           LESOBL(4)='COX1'
  54 :           LESOBL(5)='COY1'
  55 :           LESOBL(6)='COZ1'
  56 :           LESOBL(7)='COX2'
  57 :           LESOBL(8)='COY2'
  58 :           LESOBL(9)='COZ2'
  59 :           LESOBL(10)='COX3'
  60 :           LESOBL(11)='COY3'
  61 :           LESOBL(12)='COZ3'
  62 :         ENDIF
  63 : 
  64 : C  2 - Elements COQUES
  65 : C =====================
  66 :       ELSE IF (MFR.EQ.3.OR.MFR.EQ.5.OR.MFR.EQ.9) THEN
  67 :         NBROBL=8
  68 :         SEGINI,NOMID
  69 :         LESOBL(1)='SI11'
  70 :         LESOBL(2)='SI22'
  71 :         LESOBL(3)='COX1'
  72 :         LESOBL(4)='COY1'
  73 :         LESOBL(5)='COZ1'
  74 :         LESOBL(6)='COX2'
  75 :         LESOBL(7)='COY2'
  76 :         LESOBL(8)='COZ2'
  77 : 
  78 : C  3 - Elements LINESPRING et TUYAU FISSURE (tridimensionnel)
  79 : C ==========================================
  80 :       ELSE IF (MFR.EQ.15.OR.MFR.EQ.17) THEN
  81 :         IF (IFOU.EQ.2) THEN
  82 :           NBROBL=1
  83 :           SEGINI,NOMID
  84 :           LESOBL(1)='SI11'
  85 :         ENDIF
  86 :       ENDIF
  87 : 
  88 : C  Par DEFAUT : segment VIDE
  89 : C ===========================
  90 :       IF (NOMID.EQ.0) SEGINI,NOMID
  91 : 
  92 :       SEGDES,NOMID
  93 :       IPNOMC=NOMID
  94 : 
  95 :       RETURN
  96 :       END
  97 : 
  98 :