rank(a)
returns the rank of a scalar or array data object.
TS 29113?
Inquiry function
result = rank(a)
a
- can be of any typeThe return value is of type integer
and of the default integer kind. For arrays, their rank is returned; for scalars zero is returned.
program test_rank
integer :: a
real, allocatable :: b(:,:)
print *, rank(a), rank(b) ! Prints: 0 2
end program test_rank