array_data_i1d Function

private function array_data_i1d(array) result(DATA)

Arguments

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

Return Value integer,DIMENSION(:),POINTER,CONTIGUOUS


Contents

Source Code


Source Code

   FUNCTION array_data_i1d(array) RESULT(DATA)
      TYPE(array_i1d_obj), INTENT(IN)                    :: array
      INTEGER, DIMENSION(:), POINTER, CONTIGUOUS         :: DATA

      IF (ASSOCIATED(array%low)) THEN
         DATA => array%low%data
      ELSE
         NULLIFY (DATA)
      END IF
   END FUNCTION array_data_i1d