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

Add restart to nginx container

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r22:1c8c96a4f254

master

Download file

             vprod.f
        
                    19 lines
            
             | 478 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / vprod.f
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        jespinoza
    
Initial

              r0
            
      C     $Id: vprod.f 5093 2015-06-10 13:48:23Z brideout $

      C

            SUBROUTINE VPROD(A,B,C)

      C

      C     JMH - 11/79  ANS FORTRAN 66

      C

      C     VPROD CALCULATES THE VECTOR PRODUCT OF TWO VECTORS A AND B,

      C     C = A .CROSS. B.

      C     $Id: vprod.f 5093 2015-06-10 13:48:23Z brideout $

      C

      C     .. Array Arguments ..

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

      C     ..

            C(1) = A(2)*B(3) - A(3)*B(2)

            C(2) = A(3)*B(1) - A(1)*B(3)

            C(3) = A(1)*B(2) - A(2)*B(1)

            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: vprod.f 5093 2015-06-10 13:48:23Z brideout $
		C
		SUBROUTINE VPROD(A,B,C)
		C
		C JMH - 11/79 ANS FORTRAN 66
		C
		C VPROD CALCULATES THE VECTOR PRODUCT OF TWO VECTORS A AND B,
		C C = A .CROSS. B.
		C $Id: vprod.f 5093 2015-06-10 13:48:23Z brideout $
		C
		C .. Array Arguments ..
		DOUBLE PRECISION A(3),B(3),C(3)
		C ..
		C(1) = A(2)B(3) - A(3)B(2)
		C(2) = A(3)B(1) - A(1)B(3)
		C(3) = A(1)B(2) - A(2)B(1)
		RETURN
		C
		END