Télécharger muflri.eso

Retour à la liste

Numérotation des lignes :

  1. C MUFLRI SOURCE CB215821 19/06/17 21:15:20 10229
  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
  13. C
  14. C=====================================================================
  15. IMPLICIT INTEGER(I-N)
  16. REAL*8 XFLOT
  17.  
  18. -INC SMRIGID
  19. -INC CCREEL
  20.  
  21. IF(IEPS.EQ.-1)THEN
  22. XFLOT = 1.D0/XFLOT
  23. ENDIF
  24.  
  25. RI1=IPO1
  26. SEGACT,RI1
  27.  
  28. IF(ABS(XFLOT) .LT. XPETIT)THEN
  29. C Cas du XFLOT=0.D0 : RIGIDITE VIDE
  30. NRIGEL=0
  31. SEGINI,MRIGID
  32. MTYMAT=RI1.MTYMAT
  33.  
  34. ELSE
  35. NRIGE =RI1.IRIGEL(/1)
  36. NRIGEL=RI1.IRIGEL(/2)
  37. SEGINI MRIGID
  38.  
  39. MTYMAT=RI1.MTYMAT
  40. ICHOLE=0
  41. IMGEO1=RI1.IMGEO1
  42. IVECRI=RI1.IVECRI
  43. DO 1 IA=1,NRIGEL
  44. DO 2 J =1,NRIGE
  45. IRIGEL(J,IA)=RI1.IRIGEL(J,IA)
  46. 2 CONTINUE
  47. COERIG(IA)=RI1.COERIG(IA)*XFLOT
  48. 1 CONTINUE
  49. ENDIF
  50.  
  51. SEGACT,MRIGID*NOMOD
  52. IRET =MRIGID
  53. END
  54.  
  55.  

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