tsvd Derived Type

type, public :: tsvd


Components

Type Visibility Attributes Name Initial
real(kind=rk), public, dimension(:,:), allocatable :: matrix
real(kind=rk), public, dimension(:,:), allocatable :: matrix_app
integer, public :: nrow
integer, public :: ncol
integer, public :: rank

Type-Bound Procedures

procedure, public :: lowrank

  • private pure subroutine lowrank(this, matrix, rank, method)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(tsvd), intent(inout) :: this
    real(kind=rk), intent(in), dimension(:, :) :: matrix
    integer, intent(in) :: rank
    character(len=*), intent(in), optional :: method

procedure, public :: dlloc => deallocate_tsvd

  • private pure elemental subroutine deallocate_tsvd(this)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(tsvd), intent(inout) :: this

Source Code

   type :: tsvd
      real(rk), dimension(:,:), allocatable :: matrix
      real(rk), dimension(:,:), allocatable :: matrix_app
      integer                               :: nrow, ncol
      integer                               :: rank
   contains
      procedure :: lowrank
      procedure :: dlloc => deallocate_tsvd
   end type tsvd