Télécharger matg.eso

Retour à la liste

Numérotation des lignes :

  1. C MATG SOURCE CHAT 05/01/13 01:33:52 5004
  2. SUBROUTINE MATG(G)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (G)
  5. DIMENSION G(11,10)
  6. G(1,1)=0
  7. G(2,1)=2
  8. G(1,2)=0.5773502691
  9. G(2,2)=1
  10. G(3,2)=0
  11. G(1,3)=0
  12. G(2,3)=0.8888888888
  13. G(3,3)=0.7745966692
  14. G(4,3)=0.5555555555
  15. G(1,4)=0.3399810435
  16. G(2,4)=0.6521451548
  17. G(3,4)=0.8611363115
  18. G(4,4)=0.3478548451
  19. G(5,4)=0
  20. G(1,5)=0
  21. G(2,5)=0.5688888888
  22. G(3,5)=0.5384693101
  23. G(4,5)=0.4786286704
  24. G(5,5)=0.9061798459
  25. G(6,5)=0.2369268850
  26. G(1,6)=0.2386191860
  27. G(2,6)=0.4679139345
  28. G(3,6)=0.6612093864
  29. G(4,6)=0.3607615730
  30. G(5,6)=0.9324695142
  31. G(6,6)=0.1713244923
  32. G(7,6)=0
  33. G(1,7)=0
  34. G(2,7)=0.4179591836
  35. G(3,7)=0.4058451513
  36. G(4,7)=0.3818300505
  37. G(5,7)=0.7415311855
  38. G(6,7)=0.2797053914
  39. G(7,7)=0.9491079123
  40. G(8,7)=0.1294849661
  41. G(1,8)=0.1834346424
  42. G(2,8)=0.3626837833
  43. G(3,8)=0.5255324099
  44. G(4,8)=0.3137066458
  45. G(5,8)=0.7966664774
  46. G(6,8)=0.2223810344
  47. G(7,8)=0.9602898564
  48. G(8,8)=0.1012285362
  49. G(9,8)=0
  50. G(1,9)=0
  51. G(2,9)=0.3302393550
  52. G(3,9)=0.3242534234
  53. G(4,9)=0.3123470770
  54. G(5,9)=0.6133714327
  55. G(6,9)=0.2606106964
  56. G(7,9)=0.8360311073
  57. G(8,9)=0.1806481606
  58. G(9,9)=0.9681602395
  59. G(10,9)=0.0812743883
  60. G(1,10)=0.1488743389
  61. G(2,10)=0.2955242247
  62. G(3,10)=0.4333953941
  63. G(4,10)=0.2692667193
  64. G(5,10)=0.6794095682
  65. G(6,10)=0.2190863625
  66. G(7,10)=0.8650633666
  67. G(8,10)=0.1494513491
  68. G(9,10)=0.9739065285
  69. G(10,10)=0.0666713443
  70. G(11,10)=0
  71. RETURN
  72. END
  73.  
  74.  

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