crossp.f

Go to the documentation of this file.

        subroutine crossp(v1,v2,v3)
c
c  crossp(v1,v2,v3)
c
c  purpose: computes vector cross product v3 = v1 x v2
c
c  calling arguments:
c
c  name         Type    i/o     description
c  --------     ----    ---     -----------
c  v1(3)        r*4      i      input vector
c  v2(3)        r*4      i      input vector
c  v3(3)        r*4      o      output vector
c
c  by: fred patt, gsc
c
c  notes:  
c
c  modification history:
c
      implicit none
c
        real v1(3),v2(3),v3(3)
c
c
        v3(1)=v1(2)*v2(3)-v1(3)*v2(2)
        v3(2)=v1(3)*v2(1)-v1(1)*v2(3)
        v3(3)=v1(1)*v2(2)-v1(2)*v2(1)
c
        return
        end