Previous: utdran Up: ../plot79_u.html Next: utica

UTDXP

       SUBROUTINE  UTDXP (ACBX,ACBY,ACBZ,AX,AY,AZ,BX,BY,BZ)
 C$    (Vector Cross Product)
 C$    Return the vector cross product
 C$
 C$     ->   ->  ->
 C$    ACB = A X B
 C$
 C$    where the arguments are all DOUBLE PRECISION.
 C$    (26-APR-83)