* * $Id: lvsdmi.F,v 1.1.1.1 1996/02/15 17:49:51 mclareni Exp $ * * $Log: lvsdmi.F,v $ * Revision 1.1.1.1 1996/02/15 17:49:51 mclareni * Kernlib * * #include "kerngen/pilot.h" FUNCTION LVSDMI (A,NDO,INC) C C CERN PROGLIB# F121 LVSDMI .VERSION KERNFOR 4.21 890323 C ORIG. 01/03/89 FCA C C- Find Minimum in scattered vector, double precision DOUBLE PRECISION A(*), HMIN C HMIN = A(1) LMIN = 1 DO 10 J = INC+1, (NDO-1)*INC+1, INC IF(HMIN.GT.A(J)) THEN HMIN = A(J) LMIN = J ENDIF 10 CONTINUE LVSDMI = LMIN END