Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(array_i1d_obj), | intent(inout) | :: | array |
SUBROUTINE array_release_i1d(array)
TYPE(array_i1d_obj), INTENT(INOUT) :: array
IF (ASSOCIATED(array%low)) THEN
array%low%refcount = array%low%refcount - 1
IF (array%low%refcount .EQ. 0) THEN
DEALLOCATE (array%low%data)
DEALLOCATE (array%low)
END IF
END IF
END SUBROUTINE array_release_i1d