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