Esope source files

   1 : C REMPMS    SOURCE    CHAT      05/01/13    02:50:09     5004           
   2 :       SUBROUTINE REMPMS(REL,LRE,RE)
   3 : C====================================================================
   4 : C
   5 : C     TRANSVASE REL (LRE,LRE) MATRICE DE RIGIDITE 
   6 : C     INFERIEURE DANS RE(LRE,LRE) 
   7 : C
   8 : C     IDEM REMPMT SANS A PRIORI SUR LA MATRICE
   9 : C
  10 : C====================================================================
  11 :       IMPLICIT INTEGER(I-N)
  12 :       IMPLICIT REAL*8(A-H,O-Z)
  13 :       DIMENSION REL(LRE,*),RE(LRE,*)
  14 :       DO 100 IA=1,LRE
  15 :       DO 100 IB=1,LRE
  16 :       RE(IA,IB)=REL(IA,IB)
  17 :  100  CONTINUE
  18 :       RETURN
  19 :       END
  20 :  
  21 :