IS_CONTIGUOUS — Test whether an array is contiguous#
-
IS_CONTIGUOUS(ARRAY)#
IS_CONTIGUOUS
tests whether an array is contiguous.- Parameters
ARRAY – Shall be an array of any type.
- Returns
Returns a
LOGICAL
of the default kind, which.TRUE.
ifARRAY
is contiguous and false otherwise.
- Standard:
Fortran 2008 and later
- Class:
Inquiry function
- Syntax:
RESULT = IS_CONTIGUOUS(ARRAY)
- Example:
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