source:
trunk/SRC/ToBeReviewed/GRILLE/changegrid.pro
@
163
Last change on this file since 163 was 163, checked in by navarro, 18 years ago | |
---|---|
|
|
File size: 714 bytes |
Rev | Line | |
---|---|---|
[142] | 1 | ;+ |
[163] | 2 | ; @file_comments |
[142] | 3 | ; |
[163] | 4 | ; |
5 | ; @categories | |
6 | ; | |
7 | ; | |
8 | ; @param NEWGRID | |
9 | ; | |
10 | ; | |
11 | ; @returns | |
12 | ; | |
13 | ; | |
14 | ; @uses | |
15 | ; | |
16 | ; | |
17 | ; @restrictions | |
18 | ; | |
19 | ; | |
20 | ; @examples | |
21 | ; | |
22 | ; | |
23 | ; @history | |
24 | ; | |
25 | ; | |
26 | ; @version | |
27 | ; $Id$ | |
28 | ; | |
29 | ; | |
[142] | 30 | ; @todo seb |
31 | ; | |
32 | ;- | |
[2] | 33 | function changegrid, newgrid |
34 | ; | |
[114] | 35 | ; |
36 | compile_opt idl2, strictarrsubs | |
37 | ; | |
[69] | 38 | @cm_4mesh |
[2] | 39 | ; |
40 | ; | |
41 | if cmpgrid(newgrid) EQ 0 then return, 0 | |
42 | ; | |
43 | ; update the common paramaters | |
44 | ; | |
45 | ccmeshparameters = newgrid | |
[69] | 46 | |
[2] | 47 | ixminmesh = newgrid.ixminmesh |
48 | ixmaxmesh = newgrid.ixmaxmesh | |
49 | iyminmesh = newgrid.iyminmesh | |
50 | iymaxmesh = newgrid.iymaxmesh | |
51 | izminmesh = newgrid.izminmesh | |
52 | izmaxmesh = newgrid.izmaxmesh | |
53 | ; | |
54 | ; read the new file | |
55 | ; | |
[69] | 56 | loadgrid, newgrid.filename |
[2] | 57 | ; |
[13] | 58 | IF NOT keyword_set(key_forgetold) THEN BEGIN |
59 | @updateold | |
60 | ENDIF | |
61 | ; | |
[2] | 62 | return, 1 |
63 | end |
Note: See TracBrowser
for help on using the repository browser.