Esope source files

   1 : C MUFLRI    SOURCE    CHAT      09/10/09    21:21:23     6519           
   2 :       SUBROUTINE MUFLRI(IPO1,XFLOT,IRET,IEPS)                                   
   3 : C=====================================================================          
   4 : C                                                                               
   5 : C     MULTIPLIE UN OBJET RIGIDITE PAR XFLO                                      
   6 : C     L'OBJET RIGIDITE RESULTANT VOIT SON POINTEUR STOCKE DANS IRET             
   7 : C     ENTREES                                                                   
   8 : C       IPO1=POINTEUR SUR L'OBJET RIGIDITE                                      
   9 : C       XFLOT=SCALAIRE                                                          
  10 : C       IEPS = 1  MULTIPLICATION   = -1 DIVISION                                
  11 : C     SORTIES                                                                   
  12 : C       IRET=POINTEUR SUR L'OBJET   RIGI*XFLOT                                  
  13 : C                                                                               
  14 : C=====================================================================          
  15 :       IMPLICIT INTEGER(I-N)
  16 :       REAL*8 XFLOT                                                              
  17 : -INC SMRIGID                                                                    
  18 :       IF(IEPS.EQ.-1)THEN                                                        
  19 :       XFLOT = 1.D0/XFLOT                                                        
  20 :       ENDIF                                                                     
  21 :       RI1=IPO1                                                                  
  22 :       SEGACT RI1                                                                
  23 :       NRIGE=RI1.IRIGEL(/1)                                                      
  24 :       NRIGEL=RI1.IRIGEL(/2)                                                     
  25 :       SEGINI MRIGID                                                             
  26 :       IRET=MRIGID                                                               
  27 :       MTYMAT=RI1.MTYMAT                                                         
  28 :       ICHOLE=0                                                                  
  29 :       IMGEO1=RI1.IMGEO1
  30 :       IVECRI=RI1.IVECRI                                                         
  31 :       DO 1 IA=1,NRIGEL                                                          
  32 :       DO 2 J =1,NRIGE                                                           
  33 :     2 IRIGEL(J,IA)=RI1.IRIGEL(J,IA)                                             
  34 :       COERIG(IA)=RI1.COERIG(IA)*XFLOT                                           
  35 : 1     CONTINUE                                                                  
  36 :       SEGDES MRIGID,RI1                                                         
  37 :       RETURN                                                                    
  38 :       END                                                                       
  39 :  
  40 :  
  41 :  
  42 :  
  43 :  
  44 :