# (Solved) : Someone Help Please Following Single Precision Gaussian Elimination Solve Would Write Doub Q42714011 . . .

Can someone help me please? The following is a Single PrecisionGaussian Elimination Solve, how would I write a Double PrecisionGaussian Elimination Solve and solve the following system. Willgive thumbs up! Please help me ASAP!!!

linsolve_sgesv.f90 1 program linsolve_sgesv 2 implicit none 3 integer, parameter :: lda=50, 1db=lda, nrhs=1 4 real :: a(lda, lda), b(1db,nrhs) 5 integer :: i,n, ipiv(lda), info 6 character (30) :: myformat 7 n = 3 8 myformat = ‘(g22.16) 9 a(1:n,1:n) = reshape ((/1,2,3,4,5,6,7,8,10/),(/3,3/)) 10 b(1:n, 1) = matmul(a(1:n, 1:n), (/1,2,1/)) 11 call sgesv(n,nrhs,a,lda, ipiv, b,ldb, info) 12 if (info==0) then print *, — LU is — do i=1,n print ‘(50’//myformat//’)’,a(i,1:n) end do print *, — x is —————- print myformat, b(1:n, 1) print *, — ipiv is 20 print ‘(a7,50(i3))’, ‘ipiv = ‘, ipiv(1:n-1) 21 else 22 print *, ‘info = ‘, info 23 end if 24 end program linsolve_sgesv [147] [14 71| 12 5 8| x = 25 8 [36 10] [36 10] [1] Show transcribed image text linsolve_sgesv.f90 1 program linsolve_sgesv 2 implicit none 3 integer, parameter :: lda=50, 1db=lda, nrhs=1 4 real :: a(lda, lda), b(1db,nrhs) 5 integer :: i,n, ipiv(lda), info 6 character (30) :: myformat 7 n = 3 8 myformat = ‘(g22.16) 9 a(1:n,1:n) = reshape ((/1,2,3,4,5,6,7,8,10/),(/3,3/)) 10 b(1:n, 1) = matmul(a(1:n, 1:n), (/1,2,1/)) 11 call sgesv(n,nrhs,a,lda, ipiv, b,ldb, info) 12 if (info==0) then print *, — LU is — do i=1,n print ‘(50’//myformat//’)’,a(i,1:n) end do print *, — x is —————- print myformat, b(1:n, 1) print *, — ipiv is 20 print ‘(a7,50(i3))’, ‘ipiv = ‘, ipiv(1:n-1) 21 else 22 print *, ‘info = ‘, info 23 end if 24 end program linsolve_sgesv
[147] [14 71| 12 5 8| x = 25 8 [36 10] [36 10] [1]

Answer to Can someone help me please? The following is a Single Precision Gaussian Elimination Solve, how would I write a Double P…

We are the best freelance writing portal. Looking for online writing, editing or proofreading jobs? We have plenty of writing assignments to handle.