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