rfa 0.5.9

///  Transpose an r-matrix.
///
///  Given:
///   * r r-matrix
///
///  Returned:
///   * rt transpose
///
///  This revision:  2021 May 11
pub fn tr(r: &[[f64; 3]; 3], rt: &mut [[f64; 3]; 3])
{
    for i in 0..3 {
       for j in 0..3 {
          rt[i][j] = r[j][i];
       }
    }
 
 /* Finished. */
 
 }