source: trunk/SRC/ToBeReviewed/LECTURE/changeread.pro @ 297

Last change on this file since 297 was 297, checked in by pinsard, 17 years ago

typo
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.3 KB
Line 
1;+
2;
3; @file_comments
4;
5; @categories
6;
7; @param NEWREAD
8;
9; @returns
10;
11; @uses
12;
13; @restrictions
14;
15; @examples
16;
17; @history
18;
19; @version
20; $Id$
21;
22; @todo seb
23;
24;-
25;
26FUNCTION changeread, newread
27;
28  compile_opt idl2, strictarrsubs
29;
30@common
31;
32; newread must be two structures
33;
34   if size(newread, /type) NE 8 then return, 0
35;
36; we compare the two structure which characterise the read
37;
38   case 1 of
39      ccreadparameters.funclec_name NE newread.funclec_name:
40      ccreadparameters.jpidta NE newread.jpidta:
41      ccreadparameters.jpjdta NE newread.jpjdta:
42      ccreadparameters.jpkdta NE newread.jpkdta:
43      ccreadparameters.ixmindta NE newread.ixmindta:
44      ccreadparameters.ixmaxdta NE newread.ixmaxdta:
45      ccreadparameters.iymindta NE newread.iymindta:
46      ccreadparameters.iymaxdta NE newread.iymaxdta:
47      ccreadparameters.izmindta NE newread.izmindta:
48      ccreadparameters.izmaxdta NE newread.izmaxdta:
49      ELSE:return, 0
50   endcase
51;
52; update the common paramaters
53;
54   ccreadparameters = newread
55   jpidta = newread.jpidta
56   jpjdta = newread.jpjdta
57   jpkdta = newread.jpkdta
58   ixmindta = newread.ixmindta
59   ixmaxdta = newread.ixmaxdta
60   iymindta = newread.iymindta
61   iymaxdta = newread.iymaxdta
62   izmindta = newread.izmindta
63   izmaxdta = newread.izmaxdta
64;
65   return, 1
66end
Note: See TracBrowser for help on using the repository browser.