C MREM      SOURCE    CHAT      09/10/09    21:21:15     6519           
       SUBROUTINE MREM
************************************************************************       
*      remontee de la sotution complete  apres resolution a partir
*  d une matrice condensee par CMCT ( hors de resou )
* 
*     Syntaxe :
*         chpo3 = MREM chpo1 (rig1 et rig2) chpo2 ;
*                   
*               chpo1  solution reduite sur les ddl non elimines
*               rig1  rigidites initiale (hors  dependances )
*               rig2  rigidites de dependances 
*
*               chpo3  solution complete en deplacements et LX 
* 
*************************************************************************           
      IMPLICIT INTEGER(I-N)
        IMPLICIT REAL*8(A-H,O-Z)       
-INC SMRIGID
-INC CCOPTIO
-INC SMCHPOI
        CALL LIROBJ('CHPOINT',mchpoi,1,IRETOU)
       IF(IERR.NE.0) GO TO 5000
        CALL LIROBJ('RIGIDITE',ri1,1,IRETOU)
       IF(IERR.NE.0) GO TO 5000         
        CALL LIROBJ('RIGIDITE',ri2,1,IRETOU)
       IF(IERR.NE.0) GO TO 5000         
        CALL LIROBJ('RIGIDITE',ri3,1,IRETOU)
       IF(IERR.NE.0) GO TO 5000         
        CALL LIROBJ('RIGIDITE',ri4,1,IRETOU)
       IF(IERR.NE.0) GO TO 5000         
        CALL LIROBJ('CHPOINT',ichp6,1,IRETOU)
        IF(IERR.NE.0) GO TO 5000
        CALL LIROBJ('CHPOINT',mchpo1,1,IRETOU)
        IF(IERR.NE.0) GO TO 5000
C               
       call mrem1(mchpoi,ri1,ri2,ri3,ri4,ichp6,mchpo1,iret)
       call ecrobj('CHPOINT',iret)

5000   continue                  
       return 
       end