5 * Revision 1.1.1.1 1996/02/15 17:49:52 mclareni
9 #include "kerngen/pilot.h"
10 FUNCTION LVSMI (A,NDO,INC)
12 C CERN PROGLIB# F121 LVSMI .VERSION KERNFOR 4.21 890323
15 C- Find Minimum in scattered vector, single precision
21 DO 10 J = INC+1, (NDO-1)*INC+1, INC