close_superlu Subroutine

  1. superlu.f90
  2. sulu_wrapper
  3. close_superlu

public subroutine close_superlu(sulu)

Arguments

Type IntentOptional AttributesName
type(SULU_ENV), intent(inout) :: sulu

Calls

proc~~close_superlu~~CallsGraph proc~close_superlu close_superlu interface~destroy_dense_matrix Destroy_Dense_Matrix proc~close_superlu->interface~destroy_dense_matrix interface~destroy_compcol_matrix Destroy_CompCol_Matrix proc~close_superlu->interface~destroy_compcol_matrix

Called by

proc~~close_superlu~~CalledByGraph proc~close_superlu close_superlu proc~close_solver close_solver proc~close_solver->proc~close_superlu proc~solve_syst solve_syst proc~solve_syst->proc~close_solver program~test_solvers test_solvers program~test_solvers->proc~solve_syst

Contents

Source Code

close_superlu

Source Code

   subroutine close_superlu(sulu)
   implicit none
   type(SULU_ENV), intent(inout) :: sulu

      call Destroy_CompCol_Matrix(sulu%SMA)
      call Destroy_Dense_Matrix(  sulu%smb)
      call Destroy_Dense_Matrix(  sulu%smx)

      deallocate( sulu%perm_c )
      deallocate( sulu%perm_r )
      deallocate( sulu%etree  )

      deallocate( sulu%RR )
      deallocate( sulu%CC )

      deallocate( sulu%ferr )
      deallocate( sulu%berr )

      deallocate( sulu%rpg   )
      deallocate( sulu%rcond )

   return
   endsubroutine close_superlu