NASA Ocean Color

ocssw V2022

web
ocssw
ocssw_src
oel_hdf4
libnav

         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

vector

float * vector(long nl, long nh)

Definition: nrutil.c:15

arguments

Definition: argpar.c:41

crossp

subroutine crossp(v1, v2, v3)

Definition: crossp.f:2