Sources Esope | Cast3M

rempmt
C REMPMT    SOURCE    CB215821  26/08/24    21:18:13     12622          
      SUBROUTINE REMPMT(REL,LRE,RE)
C====================================================================
C
C     TRANSVASE REL (LRE,LRE) MATRICE DE RIGIDITE TRIANGULAIRE
C     INFERIEURE DANS RE(lre,lre) STOCKE LIGNE PAR LIGNE
C
C====================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION REL(LRE,*),RE(LRE,*)
*      JA=1
      DO 101 IA=1,LRE
      DO 100 IB=1,IA
      RE(IA,IB)=REL(IA,IB)
      RE(IB,IA)=REL(IA,IB)
 100  CONTINUE
  101 CONTINUE
      RETURN
      END