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

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