double precision function dot(x, y)
C
C*******************************************************************************
C
C       Copyright (C) 1993, California Institute of Technology.  U.S.
C       Government Sponsorhip under NASA Contract NAS7-918 is
C       acknowledged.
C
C*******************************************************************************
C
C	computes vector dot product


        double precision x(3), y(3)

        dot = x(1)*y(1) + x(2)*y(2) + x(3)*y(3)

        return
        END