destroy_plusgs Subroutine

  1. plusgs.f90
  2. plusgs
  3. destroy_plusgs

public subroutine destroy_plusgs()

Unallocate the memory required by LU-SGS module

Arguments

None

Calls

proc~~destroy_plusgs~~CallsGraph proc~destroy_plusgs destroy_plusgs interface~dealloc dealloc proc~destroy_plusgs->interface~dealloc proc~dealloc_rank2_real dealloc_rank2_real interface~dealloc->proc~dealloc_rank2_real proc~dealloc_rank4_real dealloc_rank4_real interface~dealloc->proc~dealloc_rank4_real proc~dealloc_rank1_integer dealloc_rank1_integer interface~dealloc->proc~dealloc_rank1_integer proc~dealloc_rank2_integer dealloc_rank2_integer interface~dealloc->proc~dealloc_rank2_integer proc~dealloc_rank1_real dealloc_rank1_real interface~dealloc->proc~dealloc_rank1_real proc~dealloc_rank3_integer dealloc_rank3_integer interface~dealloc->proc~dealloc_rank3_integer proc~dealloc_rank3_real dealloc_rank3_real interface~dealloc->proc~dealloc_rank3_real proc~dealloc_rank5_real dealloc_rank5_real interface~dealloc->proc~dealloc_rank5_real proc~dealloc_rank6_real dealloc_rank6_real interface~dealloc->proc~dealloc_rank6_real

Called by

proc~~destroy_plusgs~~CalledByGraph proc~destroy_plusgs destroy_plusgs proc~destroy_update destroy_update proc~destroy_update->proc~destroy_plusgs proc~destroy_solver destroy_solver proc~destroy_solver->proc~destroy_update proc~finish_run finish_run proc~finish_run->proc~destroy_solver proc~abort_run abort_run proc~abort_run->proc~destroy_solver program~main main program~main->proc~finish_run

Contents

Source Code

destroy_plusgs

Source Code

    subroutine destroy_plusgs()
      !< Unallocate the memory required by LU-SGS module
      implicit none
      call dealloc(imin_send_buf)
      call dealloc(jmin_send_buf)
      call dealloc(kmin_send_buf)
      call dealloc(imin_recv_buf)
      call dealloc(jmin_recv_buf)
      call dealloc(kmin_recv_buf)
      call dealloc(imax_send_buf)
      call dealloc(jmax_send_buf)
      call dealloc(kmax_send_buf)
      call dealloc(imax_recv_buf)
      call dealloc(jmax_recv_buf)
      call dealloc(kmax_recv_buf)
      call dealloc(delQ)
      call dealloc(delQstar)
      call dealloc(dummy)
    end subroutine destroy_plusgs