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

Add restart to nginx container

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r22:1c8c96a4f254

master

Download file

             gmet.f
        
                    32 lines
            
             | 700 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / gmet.f
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        jespinoza
    
Initial

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

      C

            SUBROUTINE GMET(DXDQ,G)

      C

      C     jmh - 10/79  ans fortran 66

      C

      C     GMET calculates the metric tensor G of a coordinate system q

      C     for which dx(i)/dq(j)=dxdq(i,j).

      C

      C       Input:

      C         DXDQ - coordinate system array.

      C

      C      Output:

      C            G - metric tensor.

      C

      C     .. Array Arguments ..

            DOUBLE PRECISION DXDQ(3,3),G(3,3)

      C     ..

      C     .. Local Scalars ..

            INTEGER I,J,K

      C     ..

            DO 30 I = 1,3

               DO 20 J = 1,3

                  G(I,J) = 0.D0

                  DO 10 K = 1,3

                     G(I,J) = G(I,J) + DXDQ(K,I)*DXDQ(K,J)

         10       CONTINUE

         20    CONTINUE

         30 CONTINUE

            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: gmet.f 3304 2011-01-17 15:25:59Z brideout $
		C
		SUBROUTINE GMET(DXDQ,G)
		C
		C jmh - 10/79 ans fortran 66
		C
		C GMET calculates the metric tensor G of a coordinate system q
		C for which dx(i)/dq(j)=dxdq(i,j).
		C
		C Input:
		C DXDQ - coordinate system array.
		C
		C Output:
		C G - metric tensor.
		C
		C .. Array Arguments ..
		DOUBLE PRECISION DXDQ(3,3),G(3,3)
		C ..
		C .. Local Scalars ..
		INTEGER I,J,K
		C ..
		DO 30 I = 1,3
		DO 20 J = 1,3
		G(I,J) = 0.D0
		DO 10 K = 1,3
		G(I,J) = G(I,J) + DXDQ(K,I)*DXDQ(K,J)
		10 CONTINUE
		20 CONTINUE
		30 CONTINUE
		RETURN
		C
		END