source: trunk/procs/def_macro_base_fld.pro @ 101

Last change on this file since 101 was 101, checked in by ericg, 16 years ago

Added macro linfitdom.pro

File size: 1.6 KB
Line 
1                  var_name = cmd.var
2                  @get_macro_def
3                  IF debug_w THEN print, '   macro_def in def_file_suff_var =', macro_def
4                  CASE macro_def[1] OF
5                     '=:': BEGIN
6                        CASE macro_def[2] OF
7                           'make_stddev': macro_base_fld =  extract_str(line, '\', '/')
8                           'make_grad' : macro_base_fld =  extract_str(line, '\', '/')
9                           'make_ratio' : macro_base_fld =  extract_str(line, '\', '/')
10                           'make_interp' : macro_base_fld =  extract_str(line, '\', '/')     
11                           'make_skewness': macro_base_fld =  extract_str(line, '\', '/')
12                           'make_correlation': macro_base_fld =  extract_str(line, '\', '/')
13                           'make_linfit': macro_base_fld =  extract_str(line, '\', '/')
14                           'make_correldomain': macro_base_fld =  extract_str(line, '\', '/')
15                           'make_thdepth': macro_base_fld = 'votemper'
16                           'make_linfitdom': macro_base_fld =  extract_str(line, '\', '/')
17                           ELSE: BEGIN
18                              print, ' Define macro in fld_macro.def'
19                              print, ' macro_def[2] is ', macro_def[2]
20                              stop
21                           END
22                        ENDCASE
23                     END
24                     ELSE: macro_base_fld = macro_def[1]
25                  ENDCASE
26                  macro_base_fld_1 = (strsplit(macro_base_fld, ',', /EXTRACT))[0]
Note: See TracBrowser for help on using the repository browser.