Télécharger muflri.eso

Retour à la liste

Numérotation des lignes :

  1. C MUFLRI SOURCE CHAT 09/10/09 21:21:23 6519
  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. -INC SMRIGID
  18. IF(IEPS.EQ.-1)THEN
  19. XFLOT = 1.D0/XFLOT
  20. ENDIF
  21. RI1=IPO1
  22. SEGACT RI1
  23. NRIGE=RI1.IRIGEL(/1)
  24. NRIGEL=RI1.IRIGEL(/2)
  25. SEGINI MRIGID
  26. IRET=MRIGID
  27. MTYMAT=RI1.MTYMAT
  28. ICHOLE=0
  29. IMGEO1=RI1.IMGEO1
  30. IVECRI=RI1.IVECRI
  31. DO 1 IA=1,NRIGEL
  32. DO 2 J =1,NRIGE
  33. 2 IRIGEL(J,IA)=RI1.IRIGEL(J,IA)
  34. COERIG(IA)=RI1.COERIG(IA)*XFLOT
  35. 1 CONTINUE
  36. SEGDES MRIGID,RI1
  37. RETURN
  38. END
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  

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