source:
trunk/src/paper01/fig2/x_site_location.pro
@
44
Last change on this file since 44 was 44, checked in by pinsard, 13 years ago | |
---|---|
File size: 760 bytes |
Rev | Line | |
---|---|---|
[43] | 1 | ;+ |
2 | ; | |
[44] | 3 | ; =================== |
4 | ; x_site_location.pro | |
5 | ; =================== | |
[43] | 6 | ; |
[44] | 7 | ; .. function:: x_site_location(site) |
8 | ; | |
9 | ; DESCRITPION | |
[43] | 10 | ; =========== |
11 | ; | |
[44] | 12 | ; :param site: ++ |
13 | ; EXAMPLES | |
[43] | 14 | ; ======== |
15 | ; | |
[44] | 16 | ; :: |
17 | ; | |
18 | ; IDL> site=++ | |
19 | ; IDL> result=x_site_location(site) | |
[43] | 20 | ; |
[44] | 21 | ; SEE ALSO |
[43] | 22 | ; ======== |
23 | ; | |
[44] | 24 | ; :ref:`fig2_timeline_diagram.pro` |
[43] | 25 | ; |
[44] | 26 | ; TODO |
27 | ; ==== | |
[43] | 28 | ; |
[44] | 29 | ; coding rules |
30 | ; | |
[43] | 31 | ; EVOLUTIONS |
32 | ; ========== | |
33 | ; | |
34 | ; $Id$ | |
35 | ; | |
[44] | 36 | ; - fplod 20110412T083358Z aedon.locean-ipsl.upmc.fr (Darwin) |
37 | ; | |
38 | ; * creation from fig2_timeline_diagram.pro | |
[43] | 39 | ; |
40 | ;- | |
[44] | 41 | function x_site_location, site |
[41] | 42 | |
[44] | 43 | n1=strpos(site, 's') |
[41] | 44 | if (n1 gt -1) then begin |
45 | ns=-1. | |
46 | x=strmid(site, 0, n1) | |
47 | x=float(x)*ns | |
48 | endif else begin | |
49 | n1=strpos(site, 'n') | |
50 | x=strmid(site, 0, n1) | |
51 | ny=1. | |
52 | x=float(x)*ny | |
53 | endelse | |
54 | return, float(x) | |
55 | end |
Note: See TracBrowser
for help on using the repository browser.