GitHub / scivision/fortran2018-examples issues and pull requests

#9 - fortran program svd_example ! Declare variables integer, parameter :: m = 4, n = 3, lda = 4, ldu = 4, ldvt = 3 integer :: i, j, info real(kind=8) :: a(lda,n), s(n), u(ldu,m), vt(ldvt,n), superb(min(m,n)-1) ! Initialize matrix A with some random values do j=1,n do i=1,m a(i,j) = dble((i-1) + (j-1)m) end do end do ! Compute the SVD of matrix A using LAPACK routine DGESVD call dgesvd('A', 'A', m, n, a, lda, s, u, ldu, vt, ldvt, superb, info) ! Print the results: matrices U and Vt and vector S. write(,'(a)') 'Matrix U:' do i=1,m write(,'(4f8.2)') (u(i,j),j=1,min(m,n)) end do write(,*) write(,'(a)') 'Vector S:' write(,'(3f8.2)') (s(j),j=1,min(m,n)) write(,) write(,'(a)') 'Matrix Vt:' do i=1,min(m,n) write(,'(3f8.2,a,f8.2)') (vt(i,j),' ',char(10),superb(i)) end do end program svd_example

Issue - State: closed - Opened by aarav7834 over 1 year ago

#6 - add fortran-tutorial tag

Issue - State: closed - Opened by Beliavsky over 3 years ago - 1 comment

#5 - cmake errors

Issue - State: closed - Opened by iajzenszmi over 3 years ago

#4 - use mpi_f08 module, etc

Pull Request - State: closed - Opened by jeffhammond about 4 years ago - 2 comments

#3 - MAINT: keeping test counts same cmake/meson/ compilers / os

Issue - State: closed - Opened by scivision over 5 years ago
Labels: enhancement

#2 - Fix wrong path for the CMake folder

Pull Request - State: closed - Opened by Alexsaphir over 5 years ago - 1 comment

#1 - libISO

Issue - State: closed - Opened by bsbhro over 6 years ago - 21 comments