Returns the rank of a data object, such as an assumed-rank object.
Inquiry function
Default integer scalar.
The result is the rank of A.
REAL :: a(10, 20) PRINT *, RANK(a) END
2