9.155 IS_CONTIGUOUS — Проверка, является ли массив непрерывным

Описание:

IS_CONTIGUOUS проверяет, является ли массив непрерывным.

Стандарт:

Fortran 2008 и более поздние версии

Класс:

Функция запроса

Синтаксис:

RESULT = IS_CONTIGUOUS(ARRAY)

Аргументы:

ARRAY

Должен быть массивом любого типа.

Возвращаемое значение:

Возвращает LOGICAL типа по умолчанию, которое .TRUE. , если ARRAY непрерывный, и ложь в противном случае.

Пример:

program test
  integer :: a(10)
  a = [1,2,3,4,5,6,7,8,9,10]
  call sub (a)      ! every element, is contiguous
  call sub (a(::2)) ! every other element, is noncontiguous
contains
  subroutine sub (x)
    integer :: x(:)
    if (is_contiguous (x)) then
      write (*,*) 'X is contiguous'
    else
      write (*,*) 'X is not contiguous'
    end if
  end subroutine sub
end program test