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 :
© Cast3M 2003 - All rights reserved.
Disclaimer