PURE SUBROUTINE array_nullify_i1d(array) TYPE(array_i1d_obj), INTENT(INOUT) :: array NULLIFY (array%low) END SUBROUTINE array_nullify_i1d