col_destructor Subroutine

private subroutine col_destructor(this)

Type Bound

column

Arguments

Type IntentOptional Attributes Name
class(column), intent(inout) :: this

Source Code

    subroutine col_destructor(this)
        class(column), intent(inout) :: this

        if (allocated(this % rcol)) deallocate (this % rcol)
        if (allocated(this % icol)) deallocate (this % icol)
        if (allocated(this % lcol)) deallocate (this % lcol)
        if (allocated(this % ccol)) deallocate (this % ccol)
        if (allocated(this % charcol)) deallocate (this % charcol)

    end subroutine col_destructor