47 lines
923 B
FortranFixed
47 lines
923 B
FortranFixed
|
c****************************************************************
|
||
|
|
|
||
|
|
subroutine tranmat(r_a,r_b)
|
||
|
|
|
||
|
|
c****************************************************************
|
||
|
|
c**
|
||
|
|
c** FILE NAME: tranmat.f
|
||
|
|
c**
|
||
|
|
c** DATE WRITTEN: 8/3/90
|
||
|
|
c**
|
||
|
|
c** PROGRAMMER:Scott Hensley
|
||
|
|
c**
|
||
|
|
c** FUNCTIONAL DESCRIPTION: The subroutine takes a 3x3 matrix
|
||
|
|
c** and computes its transpose.
|
||
|
|
c**
|
||
|
|
c** ROUTINES CALLED:none
|
||
|
|
c**
|
||
|
|
c** NOTES: none
|
||
|
|
c**
|
||
|
|
c** UPDATE LOG:
|
||
|
|
c**
|
||
|
|
c*****************************************************************
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
c INPUT VARIABLES:
|
||
|
|
real*8 r_a(3,3) !3x3 matrix
|
||
|
|
|
||
|
|
c OUTPUT VARIABLES:
|
||
|
|
real*8 r_b(3,3) !3x3 matrix
|
||
|
|
|
||
|
|
c LOCAL VARIABLES:
|
||
|
|
integer i,j
|
||
|
|
|
||
|
|
c PROCESSING STEPS:
|
||
|
|
|
||
|
|
c compute matrix product
|
||
|
|
|
||
|
|
do i=1,3
|
||
|
|
do j=1,3
|
||
|
|
r_b(i,j) = r_a(j,i)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
end
|
||
|
|
|