Subroutine cross(a,b,c)
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 Cross Product
C

        double precision a(3), b(3), c(3)

        c(1)=a(2)*b(3)-b(2)*a(3)
        c(2)=a(3)*b(1)-b(3)*a(1)
        c(3)=a(1)*b(2)-b(1)*a(2)

        return
        end