close_superlu Subroutine

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 proc~solve_fe_film solve_FE_film proc~solve_fe_film->proc~solve_syst proc~multi_scale_solve_fe_film multi_scale_solve_fe_film proc~multi_scale_solve_fe_film->proc~solve_syst proc~multi_scale_solve_fe_film->proc~solve_fe_film proc~solve_ms_prob solve_ms_prob proc~solve_ms_prob->proc~multi_scale_solve_fe_film proc~elementary_full_domain_fe_film_reynolds elementary_full_domain_FE_film_reynolds proc~elementary_full_domain_fe_film_reynolds->proc~solve_fe_film proc~solve_fe_prob solve_fe_prob proc~solve_fe_prob->proc~solve_fe_film proc~test_rough_fe test_rough_fe proc~test_rough_fe->proc~solve_fe_prob proc~test_bearing_x_fe test_bearing_x_fe proc~test_bearing_x_fe->proc~solve_fe_prob proc~test_pocket_fe test_pocket_fe proc~test_pocket_fe->proc~solve_fe_prob proc~test_bearing_y_fe test_bearing_y_fe proc~test_bearing_y_fe->proc~solve_fe_prob proc~test_rough_ms test_rough_ms proc~test_rough_ms->proc~solve_ms_prob proc~test_slider_fe test_slider_fe proc~test_slider_fe->proc~solve_fe_prob proc~test_slider_ms test_slider_ms proc~test_slider_ms->proc~solve_ms_prob proc~run_test run_test proc~run_test->proc~test_rough_fe proc~run_test->proc~test_bearing_x_fe proc~run_test->proc~test_pocket_fe proc~run_test->proc~test_bearing_y_fe proc~run_test->proc~test_rough_ms proc~run_test->proc~test_slider_fe proc~run_test->proc~test_slider_ms program~main main program~main->proc~run_test

Contents

Source Code


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