Determines the shape of an array.
result = shape(source[, kind])
source- Shall be an array or scalar of any type. If
sourceis a pointer it must be associated and allocatable arrays must be allocated.
kind- (Optional) An
integerinitialization expression indicating the kind parameter of the result.
integer array of rank one with as many elements as
source has dimensions. The elements of the resulting array correspond to the extend of
source along the respective dimensions. If
source is a scalar, the result is the rank one array of size zero. If
kind is absent, the return value has the default integer kind otherwise the specified kind.
program test_shape integer, dimension(-1:1, -1:2) :: a write(*,*) shape(a) ! (/ 3, 4 /) write(*,*) size(shape(42)) ! (/ /) end program