Ignore:
Timestamp:
06/19/06 16:14:56 (18 years ago)
Author:
smasson
Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

Location:
trunk/SRC/Interpolation
Files:
1 deleted
21 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Interpolation/.idlwave_catalog

    r76 r114  
    99   ("angle" pro nil (lib "angle.pro" nil "saxo") "%s, fileocemesh, gcosu, gsinu, gcosv, gsinv, gcost, gsint" (nil ("DOUBLE") ("IODIRECTORY"))) 
    1010   ("clickincell" fun nil (lib "clickincell.pro" nil "saxo") "Result = %s" (nil ("_EXTRA") ("CELLTYPE") ("COLOR") ("DRAWCELL") ("IJ") ("ORIGINAL"))) 
     11   ("compute_fromirr_bilinear_weigaddr" pro nil (lib "compute_fromirr_bilinear_weigaddr.pro" nil "saxo") "%s, olonin, olat, omsk, alonin, alat, amsk, weig, addr" (nil)) 
    1112   ("compute_fromreg_bilinear_weigaddr" pro nil (lib "compute_fromreg_bilinear_weigaddr.pro" nil "saxo") "%s, alonin, alatin, olonin, olat, weig, addr" (nil ("NONORTHERNLINE") ("NOSOUTHERNLINE"))) 
    1213   ("compute_fromreg_imoms3_weigaddr" pro nil (lib "compute_fromreg_imoms3_weigaddr.pro" nil "saxo") "%s, alonin, alatin, olonin, olat, weig, addr" (nil ("NONORTHERNLINE") ("NOSOUTHERNLINE"))) 
    … …  
    1415   ("cutsegment" fun nil (lib "cutsegment.pro" nil "saxo") "Result = %s(x0, y0, x1, y1, n)" (nil ("endpoints") ("onsphere"))) 
    1516   ("extrapolate" fun nil (lib "extrapolate.pro" nil "saxo") "Result = %s(zinput, maskinput, nb_iteration)" (nil ("MAXVAL") ("MINVAL") ("x_periodic"))) 
     17   ("fromirr" fun nil (lib "fromirr.pro" nil "saxo") "Result = %s(method, datain, lonin, latin, mskin, lonout, latout, mskout)" (nil ("ADDR") ("WEIG"))) 
    1618   ("fromreg" fun nil (lib "fromreg.pro" nil "saxo") "Result = %s(method, datain, lonin, latin, lonout, latout)" (nil ("ADDR") ("NONORTHERNLINE") ("NOSOUTHERNLINE") ("WEIG"))) 
    1719   ("get_gridparams" pro nil (lib "get_gridparams.pro" nil "saxo") "%s, in1, in2, in3, in4, in5, in6, in7, in8" (nil ("DOUBLE"))) 
    … …  
    2830   ("spl_incr" fun nil (lib "spl_incr.pro" nil "saxo") "Result = %s(x, y, x2)" (nil ("YP0") ("YPN_1"))) 
    2931   ("spl_keep_mean" fun nil (lib "spl_keep_mean.pro" nil "saxo") "Result = %s(x, yin, x2)" (nil ("GE0") ("YP0") ("YPN_1"))) 
    30    ("square2quadrilateral" fun nil (lib "square2quadrilateral.pro" nil "saxo") "Result = %s(x0in, y0in, x1in, y1in, x2in, y2in, x3in, y3in, xxin, yyin)" (nil)) 
    31    ("testinterp" pro nil (lib "testinterp.pro" nil "saxo") "%s" (nil)))) 
     32   ("square2quadrilateral" fun nil (lib "square2quadrilateral.pro" nil "saxo") "Result = %s(x0in, y0in, x1in, y1in, x2in, y2in, x3in, y3in, xxin, yyin)" (nil)))) 

  • trunk/SRC/Interpolation/angle.pro

    r101 r114  
    3030; 
    3131FUNCTION fsnspp, plam, pphi, DOUBLE = double 
     32; 
     33  compile_opt idl2, strictarrsubs 
     34; 
    3235  IF keyword_set(double) THEN BEGIN 
    3336    a = 2.d * tan( !dpi/4.d - !dpi/180.d*pphi/2.d ) 
    … …  
    6164; 0. read oceanic grid parameters 
    6265; ================================ 
     66; 
     67; 
     68  compile_opt idl2, strictarrsubs 
    6369; 
    6470  IF keyword_set(IODIRECTORY) THEN BEGIN 

  • trunk/SRC/Interpolation/clickincell.pro

    r101 r114  
    4747;- 
    4848FUNCTION clickincell, CELLTYPE = celltype, DRAWCELL = drawcell, COLOR = color, ORIGINAL = original, IJ = ij, _EXTRA = extra 
     49; 
     50  compile_opt idl2, strictarrsubs 
     51; 
    4952@common 
    5053; 

  • trunk/SRC/Interpolation/compute_fromreg_bilinear_weigaddr.pro

    r110 r114  
    4242  , NONORTHERNLINE = nonorthernline, NOSOUTHERNLINE = nosouthernline 
    4343; 
    44   compile_opt strictarr, strictarrsubs  
     44  compile_opt idl2, strictarrsubs 
    4545; 
    4646  alon = alonin 

  • trunk/SRC/Interpolation/compute_fromreg_imoms3_weigaddr.pro

    r105 r114  
    4444                                     , NONORTHERNLINE = nonorthernline, NOSOUTHERNLINE = nosouthernline 
    4545; 
    46   compile_opt strictarr, strictarrsubs  
     46  compile_opt idl2, strictarrsubs  
    4747; 
    4848  alon = alonin 

  • trunk/SRC/Interpolation/cutpar.pro

    r101 r114  
    4848;- 
    4949FUNCTION cutpar, x0, y0, x1, y1, x2, y2, x3, y3, n, endpoints = endpoints, onsphere = onsphere 
     50; 
     51  compile_opt idl2, strictarrsubs 
     52; 
    5053; is it a parallelogram? 
    5154; eps = 1e-4 

  • trunk/SRC/Interpolation/cutsegment.pro

    r101 r114  
    4343;- 
    4444FUNCTION cutsegment, x0, y0, x1, y1, n, endpoints = endpoints, onsphere = onsphere 
     45; 
     46  compile_opt idl2, strictarrsubs 
     47; 
    4548; number of segment 
    4649  nseg = n_elements(x0)  

  • trunk/SRC/Interpolation/extrapolate.pro

    r101 r114  
    66FUNCTION extrapolate, zinput, maskinput, nb_iteration, x_periodic = x_periodic, MINVAL = minval, MAXVAL = maxval 
    77; 
    8   compile_opt strictarr, strictarrsubs  
     8  compile_opt idl2, strictarrsubs  
    99; 
    1010; check the number of iteration used in the extrapolation. 

  • trunk/SRC/Interpolation/fromreg.pro

    r113 r114  
    6060                  , NOSOUTHERNLINE = nosouthernline 
    6161; 
    62   compile_opt strictarr, strictarrsubs  
     62  compile_opt idl2, strictarrsubs  
    6363; 
    6464;--------------- 

  • trunk/SRC/Interpolation/get_gridparams.pro

    r102 r114  
    6363;                  file, lonname, latname, lon, lat, jpi, jpj, n_dimensions 
    6464;                   lon,   lat,   jpi,     jpj, n_dimensions 
     65; 
     66; 
     67  compile_opt idl2, strictarrsubs 
    6568; 
    6669  CASE n_params() OF 

  • trunk/SRC/Interpolation/imoms3.pro

    r101 r114  
    33;- 
    44FUNCTION imoms3, xin 
     5; 
     6  compile_opt idl2, strictarrsubs 
     7; 
    58 
    69  x = abs(xin) 

  • trunk/SRC/Interpolation/inquad.pro

    r110 r114  
    6767FUNCTION inquad, x, y, x1, y1, x2, y2, x3, y3, x4, y4, ONSPHERE = onsphere,  DOUBLE = double, ZOOMRADIUS = zoomradius, NOPRINT = noprint, NEWCOORD = newcoord 
    6868; 
     69  compile_opt idl2, strictarrsubs 
    6970; 
    7071  ntofind = n_elements(x) 

  • trunk/SRC/Interpolation/inrecgrid.pro

    r101 r114  
    5050FUNCTION inrecgrid, x1d, y1d, left, bottom, output2d = output2d, checkout = checkout 
    5151; 
     52  compile_opt idl2, strictarrsubs 
     53; 
    5254  ncellx = n_elements(left) 
    5355  ncelly = n_elements(bottom) 

  • trunk/SRC/Interpolation/ll_narcs_distances.pro

    r101 r114  
    7272FUNCTION LL_NARCS_DISTANCES, lon0, lat0, arc_dist, az, DEGREES = degs 
    7373; 
     74  compile_opt idl2, strictarrsubs 
     75; 
     76; 
    7477  IF n_elements(lon0) NE n_elements(lat0) $ 
    7578    OR n_elements(lon0) NE n_elements(arc_dist) $ 

  • trunk/SRC/Interpolation/map_npoints.pro

    r101 r114  
    9292  ,  RADIANS = radians, RADIUS = radius, MIDDLE = middle, TWO_BY_TWO = two_by_two 
    9393 
    94   COMPILE_OPT idl2 
    95   ON_ERROR, 2                   ; return to caller 
     94  COMPILE_OPT idl2, strictarrsubs 
    9695 
    9796  IF (N_PARAMS() LT 4) THEN $ 
    … …  
    107106    MESSAGE, 'When using two_by_two keyword, P0 and P1 must have the same number of elements' 
    108107 
    109   mx = MAX(ABS([lat0, lat1])) 
     108  mx = MAX(ABS([lat0[*], lat1[*]])) 
    110109  pi2 = !dpi/2 
    111110  IF (mx GT (KEYWORD_SET(radians) ? pi2 : 90)) THEN $ 

  • trunk/SRC/Interpolation/neighbor.pro

    r101 r114  
    3636FUNCTION neighbor, p0lon, p0lat, neighlon, neighlat, sphere = sphere, distance = distance, radians = radians 
    3737; 
     38  compile_opt idl2, strictarrsubs 
     39; 
    3840; somme checks 
    3941  IF  n_elements(p0lon) NE 1 THEN MESSAGE, 'Sorry p0lon must be a scalar' 

  • trunk/SRC/Interpolation/quadrilateral2square.pro

    r101 r114  
    7070;------------------------------------------------------------ 
    7171FUNCTION quadrilateral2square, x0in, y0in, x1in, y1in, x2in, y2in, x3in, y3in, xxin, yyin, PERF = perf 
     72; 
     73; 
     74  compile_opt idl2, strictarrsubs 
    7275; 
    7376tempsone = systime(1) 

  • trunk/SRC/Interpolation/spl_fstdrv.pro

    r101 r114  
    4040FUNCTION spl_fstdrv, x, y, yscd, x2 
    4141; 
    42 ; compute the first derivative of the spline function; 
     42; compute the first derivative of the spline function 
     43; 
     44  compile_opt idl2, strictarrsubs 
    4345; 
    4446  nx = n_elements(x) 

  • trunk/SRC/Interpolation/spl_incr.pro

    r101 r114  
    6565FUNCTION pure_concave, x1, x2, y1, y2, der2, x 
    6666; X^n type 
     67; 
     68  compile_opt idl2, strictarrsubs 
     69; 
    6770  xx = (double(x)-double(x1))/(double(x2)-double(x1)) 
    6871  f = (double(x2)-double(x1))/(double(y2)-double(y1)) 
    … …  
    8184FUNCTION pure_convex, x1, x2, y1, y2, der2, x 
    8285; 1-(1-X)^n type 
     86; 
     87  compile_opt idl2, strictarrsubs 
     88; 
    8389  xx = 1.0d - (double(x)-double(x1))/(double(x2)-double(x1)) 
    8490  f = (double(x2)-double(x1))/(double(y2)-double(y1)) 
    … …  
    106112FUNCTION spl_incr, x, y, x2, YP0 = yp0, YPN_1 = ypn_1 
    107113; 
     114  compile_opt idl2, strictarrsubs 
     115; 
    108116;--------------------------------- 
    109117; check and initialisation ... 
    110118;--------------------------------- 
     119; 
    111120  nx = n_elements(x) 
    112121  ny = n_elements(y) 

  • trunk/SRC/Interpolation/spl_keep_mean.pro

    r101 r114  
    7878FUNCTION spl_keep_mean, x, yin, x2, YP0 = yp0, YPN_1 = ypn_1, GE0 = ge0 
    7979; 
     80  compile_opt idl2, strictarrsubs 
     81; 
    8082;--------------------------------- 
    8183; check and initialisation ... 

  • trunk/SRC/Interpolation/square2quadrilateral.pro

    r105 r114  
    9494; definition. 
    9595; 
     96; 
     97  compile_opt idl2, strictarrsubs 
     98; 
    9699  IF keyword_set(double) THEN BEGIN 
    97100    x0 = double(x0in) 
    … …  
    122125  ENDELSE 
    123126; 
    124   IF keyword_set(double) THEN a = dlbarr(8, n_elements(x0)) $ 
     127  IF keyword_set(double) THEN a = dblarr(8, n_elements(x0)) $ 
    125128  ELSE a = fltarr(8, n_elements(x0))  
    126129; 
Note: See TracChangeset for help on using the changeset viewer.