[55] | 1 | ;+ |
---|
[102] | 2 | ; @file_comments |
---|
| 3 | ; check that key_forgetold and keep_compatibility are well defined... |
---|
[122] | 4 | ; |
---|
[102] | 5 | ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) |
---|
[55] | 6 | ; 14/8/98 |
---|
[122] | 7 | ; @version $Id$ |
---|
| 8 | ; |
---|
[55] | 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 | ; |
---|
[122] | 17 | key_forgetold = keyword_set(key_forgetold) |
---|
[55] | 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 | |
---|