Télécharger la plaquette Cast3M


fr en

Télécharger muflri.eso

Retour à la liste

Numérotation des lignes : 

muflri

  1. C MUFLRI    SOURCE    CB215821  25/04/23    21:15:31     12247          
  2.       SUBROUTINE MUFLRI(IPO1,XFLOT,IRET,IEPS)
  3. C=====================================================================
  4. C
  5. C     MULTIPLIE UN OBJET RIGIDITE PAR XFLO
  6. C     L'OBJET RIGIDITE RESULTANT VOIT SON POINTEUR STOCKE DANS IRET
  7. C     ENTREES
  8. C       IPO1=POINTEUR SUR L'OBJET RIGIDITE
  9. C       XFLOT=SCALAIRE
  10. C       IEPS = 1  MULTIPLICATION   = -1 DIVISION
  11. C     SORTIES
  12. C       IRET=POINTEUR SUR L'OBJET   RIGI*XFLOT ou /XFLOT
  13. C
  14. C=====================================================================
  15.       IMPLICIT INTEGER(I-N)
  16.  
  17. -INC PPARAM
  18. -INC CCREEL
  19. -INC SMRIGID
  20. -INC SMCOORD
  21.       REAL*8 XFLOT,XFLOL
  22.  
  23. C On "recopie" XFLOT dans XFLOL pour ne pas le modifier
  24.       IF (IEPS.EQ.-1) THEN
  25.         XFLOL = 1.D0/XFLOT
  26.       ELSE
  27.         XFLOL = XFLOT
  28.       ENDIF
  29.  
  30.       RI1=IPO1
  31.       SEGACT,RI1
  32. C Cas du XFLOL=0.D0 : RIGIDITE VIDE
  33.       IF(ABS(XFLOL) .LT. XPETIT)THEN
  34.         NRIGEL=0
  35.         SEGINI,MRIGID
  36.         MTYMAT=RI1.MTYMAT
  37.         IFORIG=RI1.IFORIG
  38.       ELSE
  39.         NRIGE =RI1.IRIGEL(/1)
  40.         NRIGEL=RI1.IRIGEL(/2)
  41.         SEGINI,MRIGID
  42.         MTYMAT=RI1.MTYMAT
  43.         IFORIG=RI1.IFORIG
  44.         ICHOLE=0
  45.         IMGEO1=RI1.IMGEO1
  46.         IVECRI=RI1.IVECRI
  47.         DO IA=1,NRIGEL
  48.           DO J =1,NRIGE
  49.             IRIGEL(J,IA)=RI1.IRIGEL(J,IA)
  50.           ENDDO
  51.           COERIG(IA)=RI1.COERIG(IA)*XFLOL
  52.         ENDDO
  53.       ENDIF
  54. c-dbg      write(6,*) 'muflri',ri1,'"'//MTYMAT//'"',mrigid
  55.  
  56.       SEGACT,MRIGID*NOMOD
  57.       IRET  =MRIGID
  58.  
  59.       END
  60.  
  61.  
  62.  
  63.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales