Imain program 2 3 4 program gauss elimination implicit real*8 (a-h, o-z) real*8:: g parameter (ne-8) dimension a (ne, ne), c (ne, ne), b (ne) , d (ne) , x (ne) double precision a, c,b, d, x 6 9!load number of equations, n, and value of epsilon, epsln 10 parameter (n-8) print*, 'Please input number k' read* print 'epsilon is equal to', 10**g 12 13 14 15 16!load matrix elements into array a(i,j) 17 18 data a (1,1),a (1,2), a (1,3) , a (1,4) data a (1,5), a (1,6), a (1,7), a (1,8) /0,-5,6, 4/ /-2,-3,8,1/ Imain program 2 3 4 program gauss elimination implicit real*8 (a-h, o-z) real*8:: g parameter (ne-8) dimension a (ne, ne), c (ne, ne), b (ne) , d (ne) , x (ne) double precision a, c,b, d, x 6 9!load number of equations, n, and value of epsilon, epsln 10 parameter (n-8) print*, 'Please input number k' read* print 'epsilon is equal to', 10**g 12 13 14 15 16!load matrix elements into array a(i,j) 17 18 data a (1,1),a (1,2), a (1,3) , a (1,4) data a (1,5), a (1,6), a (1,7), a (1,8) /0,-5,6, 4/ /-2,-3,8,1/