8.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

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/IS_005fCONTIGUOUS.html