Sources Esope | Cast3M

muflri
C MUFLRI    SOURCE    FANDEUR   22/01/19    21:15:11     11256          
      SUBROUTINE MUFLRI(IPO1,XFLOT,IRET,IEPS)
C=====================================================================
C
C     MULTIPLIE UN OBJET RIGIDITE PAR XFLO
C     L'OBJET RIGIDITE RESULTANT VOIT SON POINTEUR STOCKE DANS IRET
C     ENTREES
C       IPO1=POINTEUR SUR L'OBJET RIGIDITE
C       XFLOT=SCALAIRE
C       IEPS = 1  MULTIPLICATION   = -1 DIVISION
C     SORTIES
C       IRET=POINTEUR SUR L'OBJET   RIGI*XFLOT ou /XFLOT
C
C=====================================================================
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCREEL
-INC SMRIGID
      REAL*8 XFLOT,XFLOL
 
C On "recopie" XFLOT dans XFLOL pour ne pas le modifier
      IF (IEPS.EQ.-1) THEN
        XFLOL = 1.D0/XFLOT
      ELSE
        XFLOL = XFLOT
      ENDIF
 
      RI1=IPO1
      SEGACT,RI1
C Cas du XFLOL=0.D0 : RIGIDITE VIDE
      IF(ABS(XFLOL) .LT. XPETIT)THEN
        NRIGEL=0
        SEGINI,MRIGID
        MTYMAT=RI1.MTYMAT
        IFORIG=RI1.IFORIG
      ELSE
        NRIGE =RI1.IRIGEL(/1)
        NRIGEL=RI1.IRIGEL(/2)
        SEGINI,MRIGID
        MTYMAT=RI1.MTYMAT
        IFORIG=RI1.IFORIG
        ICHOLE=0
        IMGEO1=RI1.IMGEO1
        IVECRI=RI1.IVECRI
        DO IA=1,NRIGEL
          DO J =1,NRIGE
            IRIGEL(J,IA)=RI1.IRIGEL(J,IA)
          ENDDO
          COERIG(IA)=RI1.COERIG(IA)*XFLOL
        ENDDO
      ENDIF
c-dbg      write(6,*) 'muflri',ri1,'"'//MTYMAT//'"',mrigid
 
      SEGACT,MRIGID*NOMOD
      IRET  =MRIGID
 
      END