C MTREDU    SOURCE    CHAT      09/10/09    21:21:16     6519           
C     SUBROUTINE MTREDU ( IPX, IPRIGI, IPMASS, IPRES)
************************************************************************        
*                                                                               
*                                MTREDU
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     EFFECTUE L'OPERATION IPRES = (K**-1)M IPX
*
* MODE D'APPEL:                                 
* -------------
*                                                                               
*     CALL MTREDU ( IPX, IPRIGI, IPMASS, IPRES)
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE                                         
* -----------                                                                   
*
*     IPX     ENTIER    (E)  POINTEUR DE L'OBJET CHPOIN CONTENANT
*                            LE VECTEUR A MULTIPLIER
*     IPRIGI  ENTIER    (E)  POINTEUR SUR L'OBJET 'RIGIDITE' K
*     IPMASS  ENTIER    (E)  POINTEUR SUR L'OBJET 'RIGIDITE' M
*     IPRES   ENTIER    (S)  POINTEUR SUR L'OBJET CHPOIN CONTENANT
*                            LE VECTEUR SOLUTION
* 
*
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*   C. LE BIDEAU  09 / 2001  ( FORTRAN + ESOPE )                                       
*
***********************************************************************

       SUBROUTINE MTREDU ( IPX, IPRIGI, IPMASS, IPRES)
      IMPLICIT INTEGER(I-N)
       IMPLICIT REAL*8 (A-H, O-Z)

-INC  CCOPTIO
-INC  SMLMOTS
-INC  SMCHPOI
-INC  SMRIGID
-INC  CCHAMP

        SEGMENT IDEMEN (0)
        
        
        
        IPRES = 0
        CALL MUCPRI (IPX, IPMASS, IPBV)
        SEGINI IDEMEN                                                             
        IDEMEN(**)=IPBV                                                       
        NOID=0                                                                    
        NOEN=1                                                                   
        CALL LDMT   (IPRIGI,IDEMEN,NOID,NOEN,1.D-15)
        SEGACT IDEMEN                                   
        IPRES = IDEMEN(1)
        SEGSUP IDEMEN                                                          
        IF (IERR .NE. 0) RETURN
        
        END