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