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

Last change on this file since 493 was 493, checked in by pinsard, 10 years ago

fix some typos in comments
  • 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;-
25FUNCTION changeread, newread
26;
27  compile_opt idl2, strictarrsubs
28;
29@common
30;
31; newread must be two structures
32;
33   if size(newread, /type) NE 8 then return, 0
34;
35; we compare the two structure which characterise the read
36;
37   case 1 of
38      ccreadparameters.funclec_name NE newread.funclec_name:
39      ccreadparameters.jpidta NE newread.jpidta:
40      ccreadparameters.jpjdta NE newread.jpjdta:
41      ccreadparameters.jpkdta NE newread.jpkdta:
42      ccreadparameters.ixmindta NE newread.ixmindta:
43      ccreadparameters.ixmaxdta NE newread.ixmaxdta:
44      ccreadparameters.iymindta NE newread.iymindta:
45      ccreadparameters.iymaxdta NE newread.iymaxdta:
46      ccreadparameters.izmindta NE newread.izmindta:
47      ccreadparameters.izmaxdta NE newread.izmaxdta:
48      ELSE:return, 0
49   endcase
50;
51; update the common parameters
52;
53   ccreadparameters = newread
54   jpidta = newread.jpidta
55   jpjdta = newread.jpjdta
56   jpkdta = newread.jpkdta
57   ixmindta = newread.ixmindta
58   ixmaxdta = newread.ixmaxdta
59   iymindta = newread.iymindta
60   iymaxdta = newread.iymaxdta
61   izmindta = newread.izmindta
62   izmaxdta = newread.izmaxdta
63;
64   return, 1
65end
Note: See TracBrowser for help on using the repository browser.