xpose.f

Go to the documentation of this file.

        subroutine xpose( in, out )
c
c  xpose( in, out )
c
c  purpose: form the transpose of matrix in to matrix out
c
c  calling arguments:
c
c  name         Type    i/o     description
c  --------     ----    ---     -----------
c  in           r*4      i      size 3 by 3 input matrix
c  out          r*4      o      size 3 by 3 output matrix
c
c  by: w. robinson, gsc, 15 apr 93
c
c  notes:  
c
c  modification history:
c
      implicit none
      real*4 in(3,3), out(3,3)
c
      integer*4 i, j
c
c
      do i = 1, 3
        do j = 1, 3
          out(j,i) = in(i,j)
        end do
      end do
c
      return
      end