【Rank_a】

1. Inputs: RankArray[size](NumericArrayRef), VArraySize(Numeric), Value2Rank(Numeric), SortOrder(Numeric);
   
2. Variables: var0(0);
   
3.                                                                                                      
   
4. 
   
5. If SortOrder < 0 Then
   
6.         var0 = SortDown_a(RankArray, VArraySize)
   
7. Else
   
8.         var0 = SortUp_a(RankArray, VArraySize);
   
9.        
   
10. For value1 = 1 To VArraySize Begin
    
11.         If Value2Rank = RankArray[value1] Then Begin
    
12.                 Rank_a = value1;
    
13.                 value1 = VArraySize + 1;
    
14.         End
    
15.         Else
    
16.                 Rank_a = -1;
    
17. End;

复制代码