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