Esope source files

   1 : C IDGRAF    SOURCE    AM        11/05/03    21:16:58     6955           
   2 :       SUBROUTINE IDGRAF(MFR,IFOU,IPNOMC,NBROBL,NBRFAC)                          
   3 : *--------------------------------------------------------------------*          
   4 : *                                                                    *          
   5 : *    RECHERCHE DES NOMS DE COMPOSANTES DE GRADIENTS EN FLEXION       *          
   6 : *    _________________________________________________________       *          
   7 : *                                                                    *          
   8 : *    ENTREES:                                                        *          
   9 : *                                                                    *          
  10 : *        MFR       NUMERO DE LA FORMULATION                          *          
  11 : *        IFOU      VALEUR DE IFOUR DE CCOPTIO                        *          
  12 : *                                                                    *          
  13 : *    SORTIES:                                                        *          
  14 : *                                                                    *          
  15 : *        IPNOMC    POINTEUR SUR LES LISTES DE COMPOSANTES            *          
  16 : *        NBROBL    LEUR NOMBRE ( 0 SI RIEN TROUVE )                  *          
  17 : *        NBRFAC    LEUR NOMBRE ( 0 SI RIEN TROUVE )                  *          
  18 : *                                                                    *          
  19 : *--------------------------------------------------------------------*          
  20 : *                                                                               
  21 :       IMPLICIT INTEGER(I-N)
  22 :       SEGMENT NOMID                                                             
  23 :        CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)                                
  24 :                                                                                 
  25 :       ENDSEGMENT                                                                
  26 : *                                                                               
  27 :       NBROBL=0                                                                  
  28 :       NBRFAC=0                                                                  
  29 :       NOMID =0                                                                  
  30 : *                                                                               
  31 :       IF (MFR.EQ.3.OR.MFR.EQ.9) THEN                                            
  32 : *                                                                               
  33 : *     1/ COQUE TRIDIMENTIONNELLE  ( COQ3,DKT,COQ4 )                             
  34 : *                                                                               
  35 :          IF (IFOU.EQ.2) THEN                                                    
  36 :             NBROBL=9                                                            
  37 :             SEGINI NOMID                                                        
  38 :             LESOBL(1)='BX,X'                                                    
  39 :             LESOBL(2)='BX,Y'                                                    
  40 :             LESOBL(3)='BX '                                                     
  41 :             LESOBL(4)='BY,X'                                                    
  42 :             LESOBL(5)='BY,Y'                                                    
  43 :             LESOBL(6)='BY '                                                     
  44 :             LESOBL(7)='BZ,X'                                                    
  45 :             LESOBL(8)='BZ,Y'                                                    
  46 :             LESOBL(9)='BZ '                                                     
  47 : 
  48 : *                                                                               
  49 : *     2/COQUE AXI ET FOURIER ( COQ2 )
  50 : *                                                                               
  51 :         ELSEIF (IFOU.EQ.1.OR.IFOU.EQ.0.OR.IFOU.EQ.-1.OR.
  52 :      .           IFOU.EQ.-2)THEN
  53 :           NBROBL=2
  54 :           SEGINI,NOMID
  55 :           LESOBL(1)='BU,S'
  56 :           LESOBL(2)='BU,T'
  57 :         ENDIF
  58 : *
  59 :       ELSEIF (MFR.EQ.75) THEN
  60 : C =====
  61 : C  Joint Unidimensionnel JOI1
  62 : C =====
  63 :        IF (IFOU.EQ.2) THEN
  64 :           NBROBL=9
  65 :           SEGINI,NOMID
  66 :           LESOBL(1)='RX,X '
  67 :           LESOBL(2)='RX,Y '
  68 :           LESOBL(3)='RX,Z '
  69 :           LESOBL(4)='RY,X '
  70 :           LESOBL(5)='RY,Y '
  71 :           LESOBL(6)='RY,Z '
  72 :           LESOBL(7)='RZ,X '
  73 :           LESOBL(8)='RZ,Y '
  74 :           LESOBL(9)='RZ,Z '
  75 :        ELSE IF (IFOU.EQ.-2.OR.IFOU.EQ.-1) THEN
  76 :         NBROBL=2
  77 :         SEGINI,NOMID
  78 :           LESOBL(1)='RZ,X '
  79 :           LESOBL(2)='RZ,Y '
  80 :        ENDIF
  81 : 
  82 : *
  83 : C   CAS DES POUTRES ET TUYAUX
  84 : 
  85 :       ELSEIF (MFR.EQ.7.OR.MFR.EQ.13) THEN
  86 : C 
  87 :         IF (IFOU.EQ.2) THEN
  88 :           NBROBL=3
  89 :           SEGINI,NOMID
  90 :           LESOBL(1)='BU,S'
  91 :           LESOBL(2)='BV,S'
  92 :           LESOBL(3)='BW,S'
  93 : C
  94 :         ELSE
  95 :           NBROBL=1
  96 :           SEGINI,NOMID
  97 :           LESOBL(1)='BW,S'
  98 :         ENDIF
  99 : 
 100 :       ENDIF                                                                     
 101 : *                                                                               
 102 :       IF(NOMID.EQ.0)SEGINI NOMID                                                
 103 :       IPNOMC=NOMID                                                              
 104 :       SEGDES NOMID                                                              
 105 :       RETURN                                                                    
 106 :       END                                                                       
 107 :  
 108 :  
 109 :