deallocate_tpca Subroutine

private pure elemental subroutine deallocate_tpca(this)

Type Bound

tpca

Arguments

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

Called by

proc~~deallocate_tpca~~CalledByGraph proc~deallocate_tpca forpca::tpca%deallocate_tpca program~benchmark benchmark program~benchmark->proc~deallocate_tpca program~test1 test1 program~test1->proc~deallocate_tpca

Source Code

   elemental pure subroutine deallocate_tpca(this)
      class(tpca), intent(inout) :: this

      if (allocated(this%matrix))     deallocate(this%matrix)
      if (allocated(this%coeff))      deallocate(this%coeff)
      if (allocated(this%mean_data))  deallocate(this%mean_data)
      if (allocated(this%score))      deallocate(this%score)
      if (allocated(this%matrix_app)) deallocate(this%matrix_app)

   end subroutine deallocate_tpca