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