test4 Program

Uses

  • program~~test4~~UsesGraph program~test4 test4 kinds kinds program~test4->kinds module~forsvd forsvd program~test4->module~forsvd module~forsvd->kinds

Calls

program~~test4~~CallsGraph program~test4 test4 proc~deallocate_tsvd forsvd::tsvd%deallocate_tsvd program~test4->proc~deallocate_tsvd proc~lowrank forsvd::tsvd%lowrank program~test4->proc~lowrank interface~svd forsvd::svd proc~lowrank->interface~svd proc~svd_rel forsvd::svd_rel interface~svd->proc~svd_rel proc~gesdd_rel forsvd::gesdd_rel proc~svd_rel->proc~gesdd_rel proc~gesvd_rel forsvd::gesvd_rel proc~svd_rel->proc~gesvd_rel

Variables

Type Attributes Name Initial
real(kind=rk), dimension(:,:), allocatable :: A
type(tsvd) :: ts

Source Code

program test4

   use kinds
   use forsvd, only: tsvd

   implicit none

   real(rk), dimension(:,:), allocatable :: A
   type(tsvd)                            :: ts

   allocate(A(50,20))
   call random_number(A)
   A = A*100.0_rk

   call ts%lowrank(matrix=A, rank=10)

   print*, norm2(A - ts%matrix_app)/norm2(A)
   
   call ts%dlloc()

end program test4