*
* $Id: vdist.F,v 1.1.1.1 1996/02/15 17:49:56 mclareni Exp $
*
* $Log: vdist.F,v $
* Revision 1.1.1.1  1996/02/15 17:49:56  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      FUNCTION VDIST (X,Y,N)
C
C CERN PROGLIB# F121    VDIST           .VERSION KERNFOR  4.06  830526
C ORIG. 26/09/76
C
      DIMENSION X(*), Y(*)
C
      XX = 0.
      IF (N.LE.0)            GO TO 24
C
      DO 9 J=1,N
    9 XX = XX + (X(J)-Y(J)) **2
      XX = SQRT (XX)
   24 VDIST = XX
      RETURN
      END