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

Fix bug in plotting

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r21:781d2d915c68

Download file

             vadd.f
        
                    24 lines
            
             | 559 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / vadd.f
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

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

      C

            SUBROUTINE VADD(A,B,C)

      C

      C     jmh - 11/79  ans fortran 66

      C

      C     VADD calculates the sum of two vectors A and B, C = A + B.

      C

      C       Input:

      C          A - floating point vector of dimension 3.

      C          B - floating point vector of dimension 3.

      C

      C      Output:

      C          C - floating point vector of dimension 3.

      C

      C     .. Array Arguments ..

            DOUBLE PRECISION A(3),B(3),C(3)

      C     ..

            C(1) = A(1) + B(1)

            C(2) = A(2) + B(2)

            C(3) = A(3) + B(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

				C $Id: vadd.f 3304 2011-01-17 15:25:59Z brideout $
				C
				SUBROUTINE VADD(A,B,C)
				C
				C jmh - 11/79 ans fortran 66
				C
				C VADD calculates the sum of two vectors A and B, C = A + B.
				C
				C Input:
				C A - floating point vector of dimension 3.
				C B - floating point vector of dimension 3.
				C
				C Output:
				C C - floating point vector of dimension 3.
				C
				C .. Array Arguments ..
				DOUBLE PRECISION A(3),B(3),C(3)
				C ..
				C(1) = A(1) + B(1)
				C(2) = A(2) + B(2)
				C(3) = A(3) + B(3)
				RETURN
				C
				END