Télécharger trj302.eso

Retour à la liste

Numérotation des lignes :

trj302
  1. C TRJ302 SOURCE CHAT 05/01/13 03:48:04 5004
  2. SUBROUTINE TRJ302(XYZL,ZXY,XYREF)
  3. C
  4. C
  5. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  6. C
  7. C CALCUL DES COORDONNEES DE REFERENCES DANS UN TRI3
  8. C XYZL COORDONNEES DES SOMMETS
  9. C ZXY REELLES
  10. C XYREF REFERENCES
  11. C
  12. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  13. C
  14. C
  15. C
  16. IMPLICIT INTEGER(I-N)
  17. IMPLICIT REAL*8 (A-H,O-Z)
  18. C
  19. DIMENSION XYZL(2,3),ZXY(2),XYREF(2)
  20. C
  21. C
  22. A1=XYZL(1,2)*XYZL(2,3)-XYZL(1,3)*XYZL(2,2)
  23. A2=XYZL(1,3)*XYZL(2,1)-XYZL(1,1)*XYZL(2,3)
  24. A3=XYZL(1,1)*XYZL(2,2)-XYZL(1,2)*XYZL(2,1)
  25. C
  26. C
  27. DEL=A1+A2+A3
  28. C
  29. XYREF(1)=(A2+(XYZL(2,3)-XYZL(2,1))*ZXY(1)
  30. * +(XYZL(1,1)-XYZL(1,3))*ZXY(2))/DEL
  31. XYREF(2)=(A3+(XYZL(2,1)-XYZL(2,2))*ZXY(1)
  32. * +(XYZL(1,2)-XYZL(1,1))*ZXY(2))/DEL
  33. C
  34. C
  35. RETURN
  36. C
  37. END
  38.  
  39.  

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