NASA Ocean Color

ocssw V2022

web
ocssw
ocssw_src
src
libswfnav

         real*4 function vmag(vec)
 c
 c  real*4 function vmag(vec)
 c
 c  purpose: create the magnitude of a vector of size 3
 c
 c  calling arguments:
 c
 c  name         Type    i/o     description
 c  --------     ----    ---     -----------
 c  vec          r*4      i      size 3 vector
 c  vmag         r*4      o      magnitude of the vector
 c
 c  by: w. robinson, gsc, 13 apr 93
 c
 c  notes:  
 c
 c  modification history:
 c
       implicit none
       real*4 vec(3)
 c
 c
       vmag = sqrt( vec(1) * vec(1) + vec(2) * vec(2) + vec(3) * vec(3) )
 c
       return
       end

vector

float * vector(long nl, long nh)

Definition: nrutil.c:15

arguments

Definition: argpar.c:41

real

#define real

Definition: DbAlgOcean.cpp:26

vmag

real *4 function vmag(vec)

Definition: vmag.f:2