array_nullify_i1d Subroutine

private pure subroutine array_nullify_i1d(array)

Arguments

TypeIntentOptionalAttributesName
type(array_i1d_obj), intent(inout) :: array

Contents

Source Code


Source Code

   PURE SUBROUTINE array_nullify_i1d(array)
      TYPE(array_i1d_obj), INTENT(INOUT)                 :: array

      NULLIFY (array%low)
   END SUBROUTINE array_nullify_i1d