source:
trunk/SRC/ToBeReviewed/HOPE/completetype.pro
@
231
Last change on this file since 231 was 163, checked in by navarro, 18 years ago | |
---|---|
|
|
File size: 662 bytes |
Rev | Line | |
---|---|---|
[142] | 1 | ;+ |
[163] | 2 | ; @file_comments |
[142] | 3 | ; |
[163] | 4 | ; |
5 | ; @categories | |
6 | ; | |
7 | ; | |
8 | ; @param TYPEIN | |
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 | ; | |
[142] | 29 | ; @todo seb |
30 | ; | |
31 | ;- | |
[53] | 32 | function completetype, typein |
[114] | 33 | ; |
34 | compile_opt idl2, strictarrsubs | |
35 | ; | |
[53] | 36 | type=typein |
37 | case type of | |
38 | 'x':type=type+'yzt' | |
39 | 'y':type=type+'xzt' | |
40 | 'z':type=type+'zyt' | |
41 | 't':type=type+'xyz' | |
42 | 'xy':type=type+'zt' | |
43 | 'xz':type=type+'yt' | |
44 | 'yz':type=type+'xt' | |
45 | 'xt':type=type+'yz' | |
46 | 'yt':type=type+'xz' | |
47 | 'zt':type=type+'xy' | |
48 | 'xyz':type=type+'t' | |
49 | 'xyt':type=type+'z' | |
50 | 'yzt':type=type+'x' | |
51 | 'xyzt': | |
52 | endcase | |
53 | return, type | |
54 | ||
55 | end | |
56 | ; |
Note: See TracBrowser
for help on using the repository browser.