forked from melinapk/HPOP
-
Notifications
You must be signed in to change notification settings - Fork 0
/
iauIr.m
31 lines (29 loc) · 647 Bytes
/
iauIr.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
% - - - - - -
% i a u I r
% - - - - - -
%
% Initialize an r-matrix to the identity matrix.
%
% This function is part of the International Astronomical Union's
% SOFA (Standards Of Fundamental Astronomy) software collection.
%
% Status: vector/matrix support function.
%
% Returned:
% r r-matrix
%
% This revision: 2012 April 3
%
% SOFA release 2012-03-01
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function r = iauIr(r)
r(1,1) = 1.0;
r(1,2) = 0.0;
r(1,3) = 0.0;
r(2,1) = 0.0;
r(2,2) = 1.0;
r(2,3) = 0.0;
r(3,1) = 0.0;
r(3,2) = 0.0;
r(3,3) = 1.0;