rank Example10 OPTION BASE 1
20 DIM A(16,6)
30 DIM B(5,7,3)
40 CLEAR SCREEN
50 Pass_a(A(*))
60 Pass_a(B(*))
70 END
80 SUB Pass_a(REAL A(*))
90 L=RANK(A)
100 PRINT "The array passed in has the following rank."
110 PRINT "Rank: ";L
120 SUBEND
|