NASA Ocean Color

ocssw V2022

         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

arguments

Definition: argpar.c:41

matrix

float ** matrix(long nrl, long nrh, long ncl, long nch)

Definition: nrutil.c:60

real

#define real

Definition: DbAlgOcean.cpp:26

xpose

subroutine xpose(in, out)

Definition: xpose.f:2

transpose

void transpose(float *in[], float *out[])

Definition: get_zenaz.c:97