Télécharger la plaquette Cast3M


fr en

Télécharger matg.eso

Retour à la liste

Numérotation des lignes : 

matg

  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