February  5 2008   2:50:33.592 PM
 
MAXMIN_TEST
  FORTRAN90 version.
 
  Demonstrate the use of:
 
    MAXVAL ( V ) returns maximum value of a vector V;
    MAXVAL ( A ) returns a vector of maximum values;
    MAXLOC ( V ) returns the index of the maximum value;
    MAXLOC ( A ) returns a vector of maximum value indices.
 
  and the corresponding minimum operators:
 
    MINVAL ( V );
    MINVAL ( A );
    MINLOC ( V );
    MINLOC ( A ).
 
  Warning: the MAXLOC and MINLOC routines have a very
  fussy and nonintuitive interface, designed to make
  it equally impossible to work with vectors as with
  multi-index arrays.
 
TEST01
  For a real vector V, use
  v_maxval = maxval ( v )
  v_maxloc = maxloc ( v )
  v_minval = minval ( v )
  v_minloc = minloc ( v )
 
     I   V(I)
 
     1   5.00000    
     2   9.00000    
     3   2.00000    
     4   0.00000    
     5   4.00000    
     6   5.00000    
     7   9.00000    
     8   0.00000    
     9   8.00000    
    10   5.00000    
 
  v_maxval =    9.00000    
  v_maxloc =      2
  v_minval =    0.00000    
  v_minloc =      4
 
TEST02
  For a real 2D array A, use
  a_maxval = maxval ( a )
  a_maxloc = maxloc ( a )
  a_minval = minval ( a )
  a_minloc = minloc ( a )
 
     I   A(I,1:N)
 
     1   11.0000       12.0000       13.0000    
     2   21.0000       22.0000       23.0000    
     3   31.0000       32.0000       33.0000    
     4   41.0000       42.0000       43.0000    
     5   51.0000       52.0000       53.0000    
 
  a_maxval =    53.0000    
  a_maxloc =      5     3
  a_minval =    11.0000    
  a_minloc =      1     1
 
MAXMIN_TEST:
  Normal end of execution.
 
February  5 2008   2:50:33.594 PM