deallocate_tsvd Subroutine

private pure elemental subroutine deallocate_tsvd(this)

Type Bound

tsvd

Arguments

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

Called by

proc~~deallocate_tsvd~~CalledByGraph proc~deallocate_tsvd forsvd::tsvd%deallocate_tsvd program~test4 test4 program~test4->proc~deallocate_tsvd

Source Code

   elemental pure subroutine deallocate_tsvd(this)
      class(tsvd), intent(inout) :: this
      if (allocated(this%matrix)) deallocate(this%matrix)
      if (allocated(this%matrix_app)) deallocate(this%matrix_app)
   end subroutine deallocate_tsvd