Esope source files

   1 : C MREM      SOURCE    CHAT      09/10/09    21:21:15     6519           
   2 :        SUBROUTINE MREM
   3 : ************************************************************************       
   4 : *      remontee de la sotution complete  apres resolution a partir
   5 : *  d une matrice condensee par CMCT ( hors de resou )
   6 : * 
   7 : *     Syntaxe :
   8 : *         chpo3 = MREM chpo1 (rig1 et rig2) chpo2 ;
   9 : *                   
  10 : *               chpo1  solution reduite sur les ddl non elimines
  11 : *               rig1  rigidites initiale (hors  dependances )
  12 : *               rig2  rigidites de dependances 
  13 : *
  14 : *               chpo3  solution complete en deplacements et LX 
  15 : * 
  16 : *************************************************************************           
  17 :       IMPLICIT INTEGER(I-N)
  18 :         IMPLICIT REAL*8(A-H,O-Z)       
  19 : -INC SMRIGID
  20 : -INC CCOPTIO
  21 : -INC SMCHPOI
  21 :         CALL LIROBJ('CHPOINT',mchpoi,1,IRETOU)
  22 :        IF(IERR.NE.0) GO TO 5000
  22 :         CALL LIROBJ('RIGIDITE',ri1,1,IRETOU)
  23 :        IF(IERR.NE.0) GO TO 5000         
  23 :         CALL LIROBJ('RIGIDITE',ri2,1,IRETOU)
  24 :        IF(IERR.NE.0) GO TO 5000         
  24 :         CALL LIROBJ('RIGIDITE',ri3,1,IRETOU)
  25 :        IF(IERR.NE.0) GO TO 5000         
  25 :         CALL LIROBJ('RIGIDITE',ri4,1,IRETOU)
  26 :        IF(IERR.NE.0) GO TO 5000         
  26 :         CALL LIROBJ('CHPOINT',ichp6,1,IRETOU)
  27 :         IF(IERR.NE.0) GO TO 5000
  27 :         CALL LIROBJ('CHPOINT',mchpo1,1,IRETOU)
  28 :         IF(IERR.NE.0) GO TO 5000
  29 : C               
  29 :        call mrem1(mchpoi,ri1,ri2,ri3,ri4,ichp6,mchpo1,iret)
  29 :        call ecrobj('CHPOINT',iret)
  30 : 
  31 : 5000   continue                  
  32 :        return 
  33 :        end 
  34 :  
  35 :  
  36 :  
  37 :  
  38 :  
  39 :  
  40 :  
  41 :