1 | ;+ |
---|
2 | ; @file_comments |
---|
3 | ; check that key_forgetold and keep_compatibility are well defined... |
---|
4 | ; |
---|
5 | ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) |
---|
6 | ; 14/8/98 |
---|
7 | ; @version $Id$ |
---|
8 | ; |
---|
9 | ;- |
---|
10 | ; |
---|
11 | IF n_elements(key_forgetold) EQ 0 THEN keep_compatibility |
---|
12 | IF n_elements(myuniquetmpdir) EQ 0 THEN keep_compatibility |
---|
13 | IF NOT file_test(myuniquetmpdir) THEN keep_compatibility, 1b - key_forgetold |
---|
14 | ; |
---|
15 | @oldcm_used |
---|
16 | ; |
---|
17 | key_forgetold = keyword_set(key_forgetold) |
---|
18 | |
---|
19 | IF NOT key_forgetold AND n_elements(jpt) NE 0 THEN jptmax = jpt |
---|
20 | ; |
---|
21 | IF NOT key_forgetold AND n_elements(time) NE 0 THEN caldat, time, month, day, year |
---|
22 | IF NOT key_forgetold AND n_elements(varexp) NE 0 THEN prefix = varexp |
---|
23 | ; |
---|
24 | IF NOT key_forgetold AND n_elements(archive_ps) NE 0 THEN sauveps = archive_ps |
---|
25 | ; |
---|
26 | IF NOT key_forgetold AND n_elements(page_size) EQ 2 THEN grandfeuille = max(page_size) |
---|
27 | IF NOT key_forgetold AND n_elements(page_size) EQ 2 THEN petitfeuille = min(page_size) |
---|
28 | IF NOT key_forgetold AND n_elements(page_margins) NE 0 THEN margescadre = page_margins |
---|
29 | IF NOT key_forgetold AND n_elements(windowsize_scale) NE 0 THEN ccwindowsize = windowsize_scale |
---|
30 | ; |
---|
31 | IF NOT key_forgetold AND n_elements(vert1) NE 0 THEN prof1 = vert1 |
---|
32 | IF NOT key_forgetold AND n_elements(vert2) NE 0 THEN prof2 = vert2 |
---|
33 | IF NOT key_forgetold AND n_elements(firstxt) NE 0 THEN premierxt = firstxt |
---|
34 | IF NOT key_forgetold AND n_elements(firstxu) NE 0 THEN premierxu = firstxu |
---|
35 | IF NOT key_forgetold AND n_elements(firstxv) NE 0 THEN premierxv = firstxv |
---|
36 | IF NOT key_forgetold AND n_elements(firstxf) NE 0 THEN premierxf = firstxf |
---|
37 | IF NOT key_forgetold AND n_elements(firstyt) NE 0 THEN premieryt = firstyt |
---|
38 | IF NOT key_forgetold AND n_elements(firstyu) NE 0 THEN premieryu = firstyu |
---|
39 | IF NOT key_forgetold AND n_elements(firstyv) NE 0 THEN premieryv = firstyv |
---|
40 | IF NOT key_forgetold AND n_elements(firstyf) NE 0 THEN premieryf = firstyf |
---|
41 | IF NOT key_forgetold AND n_elements(firstzt) NE 0 THEN premierzt = firstzt |
---|
42 | IF NOT key_forgetold AND n_elements(firstzw) NE 0 THEN premierzw = firstzw |
---|
43 | IF NOT key_forgetold AND n_elements(lastxt) NE 0 THEN dernierxt = lastxt |
---|
44 | IF NOT key_forgetold AND n_elements(lastxu) NE 0 THEN dernierxu = lastxu |
---|
45 | IF NOT key_forgetold AND n_elements(lastxv) NE 0 THEN dernierxv = lastxv |
---|
46 | IF NOT key_forgetold AND n_elements(lastxf) NE 0 THEN dernierxf = lastxf |
---|
47 | IF NOT key_forgetold AND n_elements(lastyt) NE 0 THEN dernieryt = lastyt |
---|
48 | IF NOT key_forgetold AND n_elements(lastyu) NE 0 THEN dernieryu = lastyu |
---|
49 | IF NOT key_forgetold AND n_elements(lastyv) NE 0 THEN dernieryv = lastyv |
---|
50 | IF NOT key_forgetold AND n_elements(lastyf) NE 0 THEN dernieryf = lastyf |
---|
51 | IF NOT key_forgetold AND n_elements(lastzt) NE 0 THEN dernierzt = lastzt |
---|
52 | IF NOT key_forgetold AND n_elements(lastzw) NE 0 THEN dernierzw = lastzw |
---|
53 | ; |
---|
54 | IF NOT key_forgetold AND n_elements(triangles_list) NE 0 THEN triangles = triangles_list |
---|
55 | IF NOT key_forgetold AND n_elements(twin_corners_up) NE 0 THEN cointerremont = twin_corners_up |
---|
56 | IF NOT key_forgetold AND n_elements(twin_corners_dn) NE 0 THEN cointerredesc = twin_corners_dn |
---|
57 | ; |
---|
58 | IF NOT key_forgetold AND n_elements(key_periodic) NE 0 THEN key_periodique = key_periodic |
---|
59 | ; |
---|
60 | |
---|