vmag.f

Go to the documentation of this file.

        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