Esope source files

   1 : C IDFRO     SOURCE    CHAT      05/10/27    21:16:12     5227           
   2 :       SUBROUTINE IDFRO (MOOBL,MOFAC,IPLAC,IRET)
   3 : *--------------------------------------------------------------------*
   4 : *       Noms de composantes de materiaux en frottement               *
   5 : *--------------------------------------------------------------------*
   6 : *                                                                    *
   7 : *  ENTREES:                                                          *
   8 : *  -------                                                           *                                *
   9 : *     MOOBL    pointeur sur les mots obligatoires                    *
  10 : *     MOFAC    POINTEUR SUR LES MOTS FACULTATIFS                     *
  11 : *     IPLAC    numero du materiau dans MODFRO                        *
  12 : *                                                                    *   
  13 : *  SORTIES:                                                          *
  14 : *  --------                                                          *
  15 : *     IRET = 0 si problème                                           *
  16 : *--------------------------------------------------------------------*
  17 : *
  18 :       IMPLICIT INTEGER(I-N)
  19 :       IMPLICIT REAl*8(A-H,O-Z)
  20 : -INC SMLMOTS
  21 : -INC CCOPTIO
  22 : *
  23 :       IRET=1
  24 :       jgn=8
  25 : *
  26 :       IF (IPLAC.EQ.1) THEN
  27 : *
  28 : *         FROTTEMENT DE COULOMB
  29 : *         ---------------------
  30 :     
  31 :           INMAT=1
  32 :           JGM=1
  33 :           SEGINI MLMOTS
  34 :           MOOBL=MLMOTS
  35 :           MOTS(1)='MU  '
  36 : *
  37 :           JGM=2
  38 :           SEGINI MLMOTS
  39 :           MOFAC=MLMOTS
  40 :           MOTS(1)='COHE'
  41 :           MOTS(2)='ADHE'        
  42 : 
  43 :       ELSE IF (IPLAC.EQ.2) THEN                                                                                                                   
  44 : *                                                                       
  45 : *         FROTTEMENTS DE CABLES                                         
  46 : *         ---------------------                                                              
  47 :            
  48 :           INMAT=1                                                     
  49 :           JGM=2                                                                                                     
  50 :           SEGINI MLMOTS                                                 
  51 :           MOOBL=MLMOTS                                                  
  52 :           MOTS(1)='FF  '                                                
  53 :           MOTS(2)='PHIF' 
  54 :           jgm=0
  55 :           segini mlmots
  56 :           mofac=mlmots                                                 
  57 :       ELSE
  58 :           IRET=0
  58 :           CALL ERREUR (261)
  59 :       ENDIF
  60 :       RETURN
  61 :       END
  62 : 
  63 : 
  64 : 
  65 : 
  66 : 
  67 : 
  68 :  
  69 :  
  70 :