(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,

[147] [14 71| 12 5 8| x = 25 8 [36 10] [36 10] [1]

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]

Expert Answer


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

Leave a Comment

About

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

Quick Links

Browse Solutions

Place Order

About Us