RANK — Rank of a data objectRANK(A) returns the rank of a scalar or array data object.
RESULT = RANK(A)
| A | can be of any 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