testgetifo

 $Id: testgetifo.m,v 1.2 2004/05/11 15:08:06 stuver Exp $

0001 function [errorH1, errorH2, errorL1] = testgetifo
0002 
0003 % $Id: testgetifo.m,v 1.2 2004/05/11 15:08:06 stuver Exp $
0004 
0005 load ./refData/getifoData5May2004.mat
0006 
0007 CordntH1 = getifo('H1');
0008 CordntH2 = getifo('H2');
0009 CordntL1 = getifo('L1');
0010 
0011 VH1 = isequal(CordntLho.V,CordntH1.V);
0012 WH1 = isequal(CordntLho.V,CordntH1.V);
0013 LATH1 = isequal(CordntLho.LAT,CordntH1.LAT);
0014 CODECH1 = isequal(CordntLho.CODEC,CordntH1.CODEC);
0015 LONGH1 = isequal(CordntLho.LONG,CordntH1.LONG);
0016 WGS84H1 = isequal(CordntLho.WGS84,CordntH1.WGS84);
0017 RH1 = isequal(CordntLho.R,CordntH1.R);
0018 
0019 errorH1 = [~VH1, ~WH1, ~LATH1, ~CODECH1, ~LONGH1, ~WGS84H1, ~RH1];
0020 
0021 VH2 = isequal(CordntLho.V,CordntH2.V);
0022 WH2 = isequal(CordntLho.V,CordntH2.V);
0023 LATH2 = isequal(CordntLho.LAT,CordntH2.LAT);
0024 CODECH2 = isequal(CordntLho.CODEC,CordntH2.CODEC);
0025 LONGH2 = isequal(CordntLho.LONG,CordntH2.LONG);
0026 WGS84H2 = isequal(CordntLho.WGS84,CordntH2.WGS84);
0027 RH2 = isequal(CordntLho.R,CordntH2.R);
0028 
0029 errorH2 = [~VH2, ~WH2, ~LATH2, ~CODECH2, ~LONGH2, ~WGS84H2, ~RH2];
0030 
0031 VL1 = isequal(CordntLlo.V,CordntL1.V);
0032 WL1 = isequal(CordntLlo.V,CordntL1.V);
0033 LATL1 = isequal(CordntLlo.LAT,CordntL1.LAT);
0034 CODECL1 = isequal(CordntLlo.CODEC,CordntL1.CODEC);
0035 LONGL1 = isequal(CordntLlo.LONG,CordntL1.LONG);
0036 WGS84L1 = isequal(CordntLlo.WGS84,CordntL1.WGS84);
0037 RL1 = isequal(CordntLlo.R,CordntL1.R);
0038 
0039 errorL1 = [~VL1, ~WL1, ~LATL1, ~CODECL1, ~LONGL1, ~WGS84L1, ~RL1];
0040 
0041 return