DATABASES/madrigal Files · source/madf/geolib/vmag.f

Fixing plots

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r7:4e0b343b0c61

Download file

             vmag.f
        
                    21 lines
            
             | 454 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / vmag.f
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        jespinoza
    
Initial

              r0
            
      C     $Id: vmag.f 3304 2011-01-17 15:25:59Z brideout $

      C

            DOUBLE PRECISION FUNCTION VMAG(A)

      C

      C     jmh - 1/80  ans fortran 66

      C

      C     VMAG calculates the magnitude of a vector A

      C

      C     Input:

      C        A - floating point vector of dimension 3

      C

      C     .. Array Arguments ..

            DOUBLE PRECISION A(3)

      C     ..

      C     .. Intrinsic Functions ..

            INTRINSIC DSQRT

      C     ..

            VMAG = DSQRT(A(1)*A(1)+A(2)*A(2)+A(3)*A(3))

            RETURN

      C

            END

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

jespinoza Initial	r0	C $Id: vmag.f 3304 2011-01-17 15:25:59Z brideout $
		C
		DOUBLE PRECISION FUNCTION VMAG(A)
		C
		C jmh - 1/80 ans fortran 66
		C
		C VMAG calculates the magnitude of a vector A
		C
		C Input:
		C A - floating point vector of dimension 3
		C
		C .. Array Arguments ..
		DOUBLE PRECISION A(3)
		C ..
		C .. Intrinsic Functions ..
		INTRINSIC DSQRT
		C ..
		VMAG = DSQRT(A(1)A(1)+A(2)A(2)+A(3)*A(3))
		RETURN
		C
		END