c_deallocate Subroutine

private subroutine c_deallocate(self)

Deallocate storage space

Type Bound

cell_type

Arguments

Type IntentOptional Attributes Name
class(cell_type), intent(inout) :: self

Contents

Source Code

c_deallocate

Source Code

  subroutine c_deallocate(self)
    implicit none
    class(cell_type), intent(inout) :: self
    if(allocated(self%tmp_sum)) deallocate(self%tmp_sum)
    if(allocated(self%rb)) deallocate(self%rb)
  end subroutine c_deallocate