close_superlu Subroutine

public subroutine close_superlu(sulu)

Subroutine to close the SuperLU process, with memory release

Arguments

Type IntentOptional Attributes Name
type(SULU_ENV), intent(inout) :: sulu

Calls

proc~~close_superlu~~CallsGraph proc~close_superlu close_superlu interface~destroy_compcol_matrix Destroy_CompCol_Matrix proc~close_superlu->interface~destroy_compcol_matrix interface~destroy_dense_matrix Destroy_Dense_Matrix proc~close_superlu->interface~destroy_dense_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 proc~solution_solver solution_solver proc~solve_syst->proc~solution_solver proc~solution_solver->proc~solve_syst program~test_solvers test_solvers program~test_solvers->proc~solve_syst

Source Code

   subroutine close_superlu(sulu)
   !! Subroutine to close the SuperLU process, with memory release
   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