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

Fix bug in upload data

jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4


                r11:4a6fe1f2abe6

Download file

             mtran3.f
        
                    33 lines
            
             | 683 B
            
                | text/x-fortran
            
             |
                FortranFixedLexer
            
             / source / madf / geolib / mtran3.f
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

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

      C

            SUBROUTINE MTRAN3(A)

      C

      C     jmh - 1/29/80  ans fortran 66

      C

      C     MTRAN3 calculates the transpose of a 3 x 3 matrix a

      C

      C       Input, Output:

      C           A - input matrix, replaced with transpose.

      C

      C     .. Array Arguments ..

            DOUBLE PRECISION A(3,3)

      C     ..

      C     .. Local Scalars ..

            INTEGER I,J

      C     ..

      C     .. Local Arrays ..

            DOUBLE PRECISION B(3,3)

      C     ..

            DO 20 I = 1,3

               DO 10 J = 1,3

                  B(I,J) = A(J,I)

         10    CONTINUE

         20 CONTINUE

            DO 40 I = 1,3

               DO 30 J = 1,3

                  A(I,J) = B(I,J)

         30    CONTINUE

         40 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

				C $Id: mtran3.f 3304 2011-01-17 15:25:59Z brideout $
				C
				SUBROUTINE MTRAN3(A)
				C
				C jmh - 1/29/80 ans fortran 66
				C
				C MTRAN3 calculates the transpose of a 3 x 3 matrix a
				C
				C Input, Output:
				C A - input matrix, replaced with transpose.
				C
				C .. Array Arguments ..
				DOUBLE PRECISION A(3,3)
				C ..
				C .. Local Scalars ..
				INTEGER I,J
				C ..
				C .. Local Arrays ..
				DOUBLE PRECISION B(3,3)
				C ..
				DO 20 I = 1,3
				DO 10 J = 1,3
				B(I,J) = A(J,I)
				10 CONTINUE
				20 CONTINUE
				DO 40 I = 1,3
				DO 30 J = 1,3
				A(I,J) = B(I,J)
				30 CONTINUE
				40 CONTINUE
				RETURN
				C
				END