ark_destroy Subroutine

public subroutine ark_destroy(this, lev)

Arguments

Type IntentOptional AttributesName
class(pf_ark_t), intent(inout) :: this
class(pf_level_t), intent(inout) :: lev

Contents

Source Code


Source Code

  subroutine ark_destroy(this, lev)
    class(pf_ark_t),   intent(inout) :: this
    class(pf_level_t), intent(inout) :: lev
    
    deallocate(this%AmatE)
    deallocate(this%AmatI)
    deallocate(this%bvecE)
    deallocate(this%bvecI)
    deallocate(this%cvec)
  end subroutine ark_destroy