- Timestamp:
- 08/08/08 14:31:53 (16 years ago)
- Location:
- trunk/SRC
- Files:
-
- 38 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ForOldVersion/keep_compatibility.pro
r371 r372 20 20 ; 21 21 ; @examples 22 ; keep_compatibility, 0 22 ; 23 ; IDL> keep_compatibility, 0 23 24 ; 24 25 ; @history -
trunk/SRC/Interpolation/clickincell.pro
r371 r372 10 10 ; = 'T', 'W', 'U', 'V' or 'F' 11 11 ; the type of point 12 ; 13 ; 14 ; 12 ; that is located in the center of the cell which the click is 13 ; located. default is T type of cell (with corner defined by F 14 ; points). 15 15 ; 16 16 ; @keyword DRAWCELL -
trunk/SRC/Interpolation/compute_fromirr_bilinear_weigaddr.pro
r325 r372 52 52 ; 53 53 ; @history 54 ; 54 ; June 2006: Sebastien Masson (smasson\@lodyc.jussieu.fr) 55 55 ; 56 56 ; @version -
trunk/SRC/Interpolation/compute_fromreg_bilinear_weigaddr.pro
r327 r372 47 47 ; 48 48 ; @history 49 ; 49 ; November 2005: Sebastien Masson (smasson\@lodyc.jussieu.fr) 50 50 ; 51 51 ; @version -
trunk/SRC/Interpolation/compute_fromreg_imoms3_weigaddr.pro
r327 r372 50 50 ; 51 51 ; @history 52 ; 53 ; 52 ; November 2005: Sebastien Masson (smasson\@lodyc.jussieu.fr) 53 ; March 2006: works for rectangular grids 54 54 ; 55 55 ; @version -
trunk/SRC/Interpolation/cutpar.pro
r371 r372 57 57 ; 58 58 ; @history 59 ; 60 ; 59 ; S. Masson (smasson\@lodyc.jussieu.fr) 60 ; - July 5th, 2002 61 61 ; 62 62 ; @version -
trunk/SRC/Interpolation/fromirr.pro
r371 r372 3 3 ; @file_comments 4 4 ; interpolate data from an irregular 2D grid to any 2D grid. 5 ; Only 1 method available = bilinear 5 ; 6 ; Only 1 method available = bilinear 6 7 ; 7 8 ; @categories … … 46 47 ; dataout = total(weig*datain[addr], 1) 47 48 ; dataout = reform(dataout, jpio, jpjo, /over) 49 ; 48 50 ; In that case, method, lonin, latin, are not used (but are necessary). 49 51 ; lonout, latout are used only to know the output domain size … … 82 84 ; 83 85 ; @history 84 ; 86 ; June 2006: Sebastien Masson (smasson\@lodyc.jussieu.fr) 85 87 ; 86 88 ; @version -
trunk/SRC/Interpolation/fromreg.pro
r371 r372 3 3 ; @file_comments 4 4 ; interpolate data from a "regular/rectangular grid" to any grid. 5 ; 2 methods available: bilinear and imoms3 6 ; A "regular/rectangular grid" is defined as a grid for which 7 ; each longitude lines have the same latitude and each latitude columns 5 ; 6 ; 2 methods available: bilinear and imoms3 7 ; 8 ; A "regular/rectangular grid" is defined as a grid for which 9 ; 10 ; Each longitude lines have the same latitude and each latitude columns 8 11 ; have the same longitude. 9 12 ; … … 42 45 ; dataout = total(weig*datain[addr], 1) 43 46 ; dataout = reform(dataout, jpio, jpjo, /over) 47 ; 44 48 ; In that case, method, lonin, latin, are not used (but are necessary). 45 49 ; lonout, latout are used only to know the output domain size -
trunk/SRC/Interpolation/get_gridparams.pro
r371 r372 59 59 ; @examples 60 60 ; 61 ; 1) IDL> ncdf_get_gridparams, 'coordinates_ORCA_R05.nc', 'glamt', 'gphit' $ 61 ; 1) 62 ; 63 ; IDL> ncdf_get_gridparams, 'coordinates_ORCA_R05.nc', 'glamt', 'gphit' $ 62 64 ; , olon, olat, jpio, jpjo, 2 63 65 ; 64 ; 2) IDL> ncdf_get_gridparams, olon, olat, jpio, jpjo, 2 66 ; 2) 67 ; 68 : IDL> ncdf_get_gridparams, olon, olat, jpio, jpjo, 2 65 69 ; 66 70 ; @history 67 ; 71 ; November 2005: Sebastien Masson (smasson\@lodyc.jussieu.fr) 68 72 ; 69 73 ; @version -
trunk/SRC/Interpolation/inrecgrid.pro
r371 r372 2 2 ; 3 3 ; @file_comments 4 ; given - a list of points, (x,y) position 5 ; - the x and y limits of a rectangular grid 4 ; given 5 ; - a list of points, (x,y) position 6 ; - the x and y limits of a rectangular grid 7 ; 6 8 ; find in which cell is located each given point. 7 9 ; … … 48 50 ; @history 49 51 ; S. Masson (smasson\@lodyc.jussieu.fr) 50 ; July 3rd, 200251 ; October 3rd, 2003: use value_locate52 ; - July 3rd, 2002 53 ; - October 3rd, 2003: use value_locate 52 54 ; 53 55 ; @version -
trunk/SRC/Interpolation/quadrilateral2square.pro
r371 r372 4 4 ; warm (or map) an arbitrary quadrilateral onto a unit square 5 5 ; according to the 4-point correspondences: 6 ; (x0,y0) -> (0,0) 7 ; (x1,y1) -> (1,0) 8 ; (x2,y2) -> (1,1) 9 ; (x3,y3) -> (0,1) 6 ; - (x0,y0) -> (0,0) 7 ; - (x1,y1) -> (1,0) 8 ; - (x2,y2) -> (1,1) 9 ; - (x3,y3) -> (0,1) 10 ; 10 11 ; This is the inverse function of <pro>square2quadrilateral</pro>. 11 12 ; -
trunk/SRC/Interpolation/spl_fstdrv.pro
r371 r372 31 31 ; 32 32 ; @returns 33 ; 33 ; y2: f'(x2) = y2. 34 34 ; 35 35 ; @history 36 ; 36 ; Sebastien Masson (smasson\@lodyc.jussieu.fr): May 2005 37 37 ; 38 38 ; @version -
trunk/SRC/Interpolation/spl_keep_mean.pro
r371 r372 47 47 ; @examples 48 48 ; 49 ; 49 ; 12 monthly values of precipitations into daily values: 50 50 ; 51 51 ; IDL> yr1 = 1990 … … 68 68 ; 69 69 ; @history 70 ; 70 ; Sebastien Masson (smasson\@lodyc.jussieu.fr): May 2005 71 71 ; 72 72 ; @version -
trunk/SRC/Interpolation/square2quadrilateral.pro
r371 r372 4 4 ; warm (or map) a unit square onto an arbitrary quadrilateral 5 5 ; according to the 4-point correspondences: 6 ; (0,0) -> (x0,y0) 7 ; (1,0) -> (x1,y1) 8 ; (1,1) -> (x2,y2) 9 ; (0,1) -> (x3,y3) 6 ; - (0,0) -> (x0,y0) 7 ; - (1,0) -> (x1,y1) 8 ; - (1,1) -> (x2,y2) 9 ; - (0,1) -> (x3,y3) 10 ; 10 11 ; The mapping is done using perspective transformation which preserve 11 12 ; lines in all orientations and permit quadrilateral to quadrilateral … … 59 60 ; 60 61 ; @history 61 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 62 ; August 2003 63 ; Based on "Digital Image Warping" by G. Wolberg 64 ; IEEE Computer Society Press, Los Alamitos, California 65 ; Chapter 3, see p 52-56 66 ; 62 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 63 ; - August 2003 64 ; Based on "Digital Image Warping" by G. Wolberg 65 ; IEEE Computer Society Press, Los Alamitos, California 66 ; Chapter 3, see p 52-56 67 67 ; 68 68 ; @version -
trunk/SRC/Matrix/cmset_op.pro
r325 r372 7 7 ; "first" value, whatever that may mean. 8 8 ; 9 ; @todo seb 9 ; @todo 10 ; seb 10 11 ; 11 12 ;- -
trunk/SRC/Matrix/different.pro
r371 r372 9 9 ; @param a {in}{required} 10 10 ; arrays of positive integers, which need 11 ; 12 ; 11 ; not be sorted. Duplicate elements are ignored, as they have no 12 ; effect on the result 13 13 ; 14 14 ; @param b {in}{required} -
trunk/SRC/Matrix/extrac2.pro
r371 r372 37 37 ; @param index1 {in}{required} 38 38 ; can have 2 forms: 39 ; 1)a vector containing indexes of lines we want to keep 40 ; 2)the string '*' if we want to keep all lines. 39 ; 40 ; 1) a vector containing indexes of lines we want to keep 41 ; 2) the string '*' if we want to keep all lines. 41 42 ; 42 43 ; @param index2 {in}{required} … … 50 51 ; 51 52 ; @returns 52 ; a matrix 1 ,2,3or 4d extract from input array53 ; a matrix 1d, 2d, 3d or 4d extract from input array 53 54 ; -1 in case of mistake 54 55 ; … … 62 63 ; 63 64 ; other ex: 65 ; IDL> a=[['a','b','c'],['d','e','f'],['g','h','i']] 64 66 ; IDL> print, a 65 67 ; a b c … … 72 74 ; @history 73 75 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 74 ; 75 ; 76 ; - 12/1/1999 77 ; - 29/4/1999: correction of a bug and complement of the heading 76 78 ; 77 79 ; @version -
trunk/SRC/Matrix/make_selection.pro
r325 r372 47 47 ; 48 48 ; @examples 49 ; names = [ 'Alfred','Anton','Peter','John','Mary']50 ; index = MAKE_SELECTION(names,['Peter','Mary'])51 ; print,index52 ; ; prints 2 453 49 ; 54 ; vals = indgen(20)55 ; index = MAKE_SELECTION(vals,[9,-5,8,7,7,8,9])56 ; 57 ; ; prints 9 -1 8 7 7 8 950 ; IDL> names = [ 'Alfred','Anton','Peter','John','Mary'] 51 ; IDL> index = MAKE_SELECTION(names,['Peter','Mary']) 52 ; IDL> print,index 53 ; 2 4 58 54 ; 59 ; index = MAKE_SELECTION(vals,[9,-5,8,7,7,8,9],/ONLY_VALID) 60 ; print,index 61 ; ; prints 9 8 7 7 8 9 55 ; IDL> vals = indgen(20) 56 ; IDL> index = MAKE_SELECTION(vals,[9,-5,8,7,7,8,9]) 57 ; IDL> print,index 58 ; 9 -1 8 7 7 8 9 62 59 ; 63 ; index = MAKE_SELECTION(vals,[9,-5,8,7,7,8,9],/REQUIRED) 64 ; print,index 65 ; ; prints -1 60 ; IDL> index = MAKE_SELECTION(vals,[9,-5,8,7,7,8,9],/ONLY_VALID) 61 ; IDL> print,index 62 ; 9 8 7 7 8 9 63 ; 64 ; IDL> index = MAKE_SELECTION(vals,[9,-5,8,7,7,8,9],/REQUIRED) 65 ; IDL> print,index 66 ; -1 67 ; 68 ; IDL> index = MAKE_SELECTION(vals,[9,-5,8,7,7,8,9],/REQUIRED,/QUIET) 69 ; % MAKE_SELECTION: Selected name not found in names array (-5)! 70 ; IDL> print,index 71 ; -1 66 72 ; 67 73 ; @history -
trunk/SRC/Matrix/union.pro
r371 r372 9 9 ; @param a {in}{required} 10 10 ; arrays of positive integers, which need 11 ; 12 ; 11 ; not be sorted. Duplicate elements are ignored, as they have no 12 ; effect on the result 13 13 ; 14 14 ; @param b {in}{required} -
trunk/SRC/ReadWrite/ncdf_getatt.pro
r371 r372 59 59 ; 60 60 ; @keyword _EXTRA 61 ; defined only to be able to call ncdf_getatt with the _extra keyword 61 ; defined only to be able to call <pro>ncdf_getatt</pro> with the 62 ; _EXTRA keyword 62 63 ; 63 64 ; @examples -
trunk/SRC/ReadWrite/ncdf_getmask.pro
r371 r372 11 11 ; the full path) to be opened (in that case, the file will be opened 12 12 ; and closed within ncdf_getmask). 13 ; 13 14 ; if fileid is a scalar then it is the id of the file return by a call 14 15 ; to ncdf_open outside of ncdf_getmask (in that case, the file will … … 16 17 ; 17 18 ; @keyword ADDSCL_BEFORE {default=0}{type=scalar: 0 or 1} 18 ; put 1 to apply add_offset a d scale factor on data before looking for19 ; put 1 to apply add_offset and scale factor on data before looking for 19 20 ; missing values when using USEASMASK keyword 20 21 ; … … 46 47 ; mask. The test is performed on the variable specified by USEASMASK 47 48 ; keyword. 49 ; 48 50 ; TESTOP can contain 1 or 2 words. The first word is the operator 49 51 ; definition: "EQ" "NE" "GE" "GT" "LE" "LT" (default is NE). The -
trunk/SRC/ReadWrite/readbat.pro
r327 r372 10 10 ; It contains the filename, 11 11 ; 12 ; @keyword ZERO to put 0 on land instead of negatives values for the islands. 12 ; @keyword ZERO 13 ; to put 0 on land instead of negatives values for the islands. 13 14 ; 14 15 ; @returns … … 18 19 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 19 20 ; May 31, 2002 20 ; 21 ; based on batlec2.pro, written by Maurice Imbard, March 17, 1998 21 22 ; 22 23 ; @version -
trunk/SRC/ReadWrite/readoldopadistcoast.pro
r327 r372 4 4 ; read the old binary direct access file that contains the 5 5 ; distance to the coast in OPA. 6 ; 6 7 ; based on the OPA subroutines dtacof and parctl 7 8 ; -
trunk/SRC/Textoidl/textoidl.pro
r325 r372 31 31 ; 32 32 ; @examples 33 ; out = TeXtoIDL('\Gamma^2 + 5N_{ed}') 34 ; The string out may be used in XYOUTS or other IDL text 35 ; display routines. It will be an uppercase Gamma, with an 36 ; exponent of 2, then a plus sign, then an N with the subscript 37 ; ed. 33 ; 34 ; IDL> out = TeXtoIDL('\Gamma^2 + 5N_{ed}') 35 ; 36 ; The string out may be used in XYOUTS or other IDL text 37 ; display routines. It will be an uppercase Gamma, with an 38 ; exponent of 2, then a plus sign, then an N with the subscript 39 ; "ed". 38 40 ; 39 41 ; @history -
trunk/SRC/ToBeReviewed/STRING/chkeywd.pro
r370 r372 4 4 ; In a string containing an order to execute with EXECUTE by example. 5 5 ; We change the value of one of keywords. 6 ; More generally, in a string, we look for the character chain: ', keywdname= ..., 7 ; and we change the value of... 6 ; 7 ; More generally, in a string, we look for the character 8 ; chain: ', keywdname= ..., and we change the value of... 8 9 ; 9 10 ; @categories … … 45 46 ; 46 47 ; @restrictions 47 ; Beware, this function has loops, ifs a d cases everywhere. So it can48 ; Beware, this function has loops, ifs and cases everywhere. So it can 48 49 ; not be used by big keywords (with a lot of elements which are big 49 50 ; arrays). The input keyword must not contain Complex floatings, structure, … … 69 70 ; @history 70 71 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 71 ; 72 ; 72 ; - 18/10/1999 73 ; - 24/11/1999: adaptation for keywords starting by / 73 74 ; 74 75 ; @version -
trunk/SRC/ToBeReviewed/STRING/getfile.pro
r358 r372 28 28 ; 29 29 ; @history 30 ; R. Sterner, 20 Mar, 1990 31 ; R. Sterner, 1999 Apr 14 --- Added LINES=n keyword. 32 ; R. Sterner, 2003 Aug 29 --- Automatic lines if IDL 5.6+. 33 ; R. Sterner, 2003 Sep 02 --- Check if file exists first. 34 ; R. Sterner, 2003 Sep 04 --- Fixed error in number of lines in file. 35 ; R. Sterner, 2003 Oct 10 --- Fixed error when no lines. 36 ; R. Sterner, 2004 Jan 27 --- Fixed to work in IDL as old as vers 4. 30 ; - R. Sterner, 20 Mar, 1990 31 ; - R. Sterner, 1999 Apr 14 --- Added LINES=n keyword. 32 ; - R. Sterner, 2003 Aug 29 --- Automatic lines if IDL 5.6+. 33 ; - R. Sterner, 2003 Sep 02 --- Check if file exists first. 34 ; - R. Sterner, 2003 Sep 04 --- Fixed error in number of lines in file. 35 ; - R. Sterner, 2003 Oct 10 --- Fixed error when no lines. 36 ; - R. Sterner, 2004 Jan 27 --- Fixed to work in IDL as old as vers 4. 37 ; - S. Masson (smasson\@lodyc.jussieu.fr) 4 Feb 2002 37 38 ; 38 ; S. Masson (smasson\@lodyc.jussieu.fr) 4 Feb 200239 39 ; search the file in the all !path directories (use <pro>find</pro>) 40 40 ; when using /find keyword. Use <proidl>SPAWN</proidl>, 'cat...' for -
trunk/SRC/ToBeReviewed/STRING/getwrd.pro
r325 r372 18 18 ; 19 19 ; @keyword LOCATION 20 ; = l. 20 ; = l. Return word n string location. 21 21 ; 22 22 ; @keyword DELIMITER … … 50 50 ; 51 51 ; @history 52 ; Ray Sterner, 6 Jan, 1985. 53 ; R. Sterner, Fall 1989 --- converted to SUN. 54 ; R. Sterner, Jan 1990 --- added delimiter. 55 ; R. Sterner, 18 Mar, 1990 --- added /LAST. 56 ; R. Sterner, 31 Jan, 1991 --- added /NOTRIM. 57 ; R. Sterner, 20 May, 1991 --- Added common and NULL string. 58 ; R. Sterner, 13 Dec, 1992 --- Made tabs equivalent to spaces. 59 ; R. Sterner, 4 Jan, 1993 --- Added NWORDS keyword. 60 ; R. Sterner, 2001 Jan 15 --- Fixed to use first element if not a scalar. 61 ; Johns Hopkins University Applied Physics Laboratory. 52 ; - Ray Sterner, 6 Jan, 1985. 53 ; - R. Sterner, Fall 1989 --- converted to SUN. 54 ; - R. Sterner, Jan 1990 --- added delimiter. 55 ; - R. Sterner, 18 Mar, 1990 --- added /LAST. 56 ; - R. Sterner, 31 Jan, 1991 --- added /NOTRIM. 57 ; - R. Sterner, 20 May, 1991 --- Added common and NULL string. 58 ; - R. Sterner, 13 Dec, 1992 --- Made tabs equivalent to spaces. 59 ; - R. Sterner, 4 Jan, 1993 --- Added NWORDS keyword. 60 ; - R. Sterner, 2001 Jan 15 --- Fixed to use first element if not a scalar. 62 61 ; 63 62 ; Copyright (C) 1985, Johns Hopkins University/Applied Physics Laboratory -
trunk/SRC/ToBeReviewed/STRING/isnumber.pro
r325 r372 23 23 ; 24 24 ; @history 25 ; R. Sterner. 15 Oct, 1986. 26 ; Johns Hopkins Applied Physics Lab. 27 ; R. Sterner, 12 Mar, 1990 --- upgraded. 28 ; Richard Garrett, 14 June, 1992 --- fixed bug in returned float value. 29 ; R. Sterner, 1999 Nov 30 --- Fixed a bug found by Kristian Kjaer, Denmark 25 ; - R. Sterner. 15 Oct, 1986. Johns Hopkins Applied Physics Lab. 26 ; - R. Sterner, 12 Mar, 1990 --- upgraded. 27 ; - Richard Garrett, 14 June, 1992 --- fixed bug in returned float value. 28 ; - R. Sterner, 1999 Nov 30 --- Fixed a bug found by Kristian Kjaer, Denmark 30 29 ; 31 30 ; Copyright (C) 1986, Johns Hopkins University/Applied Physics Laboratory -
trunk/SRC/ToBeReviewed/STRING/nwrds.pro
r325 r372 10 10 ; 11 11 ; @keyword DELIMITER 12 ; = d. 12 ; = d. Set delimiter character (def = space). 13 13 ; 14 14 ; @keyword HELP … … 18 18 ; 19 19 ; @restrictions 20 ; See also getwrd.20 ; See also <pro>getwrd</pro> 21 21 ; 22 22 ; @history 23 ; R. Sterner, 7 Feb, 1985. 24 ; Johns Hopkins University Applied Physics Laboratory. 25 ; RES 4 Sep, 1989 --- converted to SUN. 23 ; - R. Sterner, 7 Feb, 1985. Johns Hopkins University Applied Physics Laboratory. 24 ; - RES 4 Sep, 1989 --- converted to SUN. 26 25 ; 27 26 ; Copyright (C) 1985, Johns Hopkins University/Applied Physics Laboratory -
trunk/SRC/ToBeReviewed/STRING/putfile.pro
r325 r372 16 16 ; 17 17 ; @history 18 ; 19 ; 18 ; - R. Sterner, 20 Mar, 1990 19 ; - R. Sterner, 4 Nov, 1992 --- allowed scalar strings. 20 20 ; 21 21 ; Copyright (C) 1990, Johns Hopkins University/Applied Physics Laboratory -
trunk/SRC/ToBeReviewed/STRING/str_size.pro
r325 r372 39 39 ; the current graphics window, type this: 40 40 ; 41 ; XYOUTS, 0.5, 0.5, ALIGN=0.5, "Happy Holidays", $42 ; CHARSIZE=STR_SIZE("Happy Holidays", 0.3)41 ; IDL> XYOUTS, 0.5, 0.5, ALIGN=0.5, "Happy Holidays", $ 42 ; CHARSIZE=STR_SIZE("Happy Holidays", 0.3) 43 43 ; 44 44 ; @history -
trunk/SRC/ToBeReviewed/STRING/string2struct.pro
r325 r372 5 5 ; 6 6 ; @categories 7 ;8 7 ; 9 8 ; @keyword _EXTRA -
trunk/SRC/ToBeReviewed/STRING/strkeywd.pro
r371 r372 16 16 ; 17 17 ; @restrictions 18 ; If an element of the structure contain an array, it will be convert in a vector. 18 ; If an element of the structure contain an array, it will be convert in a 19 ; vector. 19 20 ; 20 21 ; @restrictions 21 ; Beware, this function has loops, ifs a d cases everywhere. So it can22 ; Beware, this function has loops, ifs and cases everywhere. So it can 22 23 ; not be used by big keywords (with a lot of elements which are big 23 24 ; arrays). The input keyword must not contain Complex floatings, structure, … … 27 28 ; @examples 28 29 ; 29 ; We create a structure 30 ; We create a structure: 30 31 ; IDL> b=get_extra(ok=111, year=[1997,1998,1999], age_capitaine=35) 31 32 ; IDL> help, b,/struct … … 35 36 ; YEAR INT Array[3] 36 37 ; 37 ; We put this structure as a string 38 ; We put this structure as a string: 38 39 ; IDL> a=strkeywd(b) 39 40 ; IDL> print, a -
trunk/SRC/ToBeReviewed/STRING/strsci.pro
r325 r372 2 2 ; 3 3 ; @file_comments 4 ; Given a number, returns a string of that 4 ; Given a number, returns a string of that B 5 5 ; number in scientific notation format ( e.g. A x 10 ) 6 6 ; … … 39 39 ; 40 40 ; @examples 41 ; Result = STRSCI( 2000000, format='(i1)' ) 42 ; print, result 43 ; ; 6 44 ; ; prints 2 x 10!u6!n, which gets plotted as 2 x 10 41 ; 42 ; IDL> Result = STRSCI( 2000000, format='(i1)' ) 43 ; IDL> print, result 44 ; 2 x 10!u6!n 45 ; 46 ; which gets plotted as 2 x 10 45 47 ; 46 ; Result = STRSCI( -0.0001 ) 47 ; print, result 48 ; ; 4 49 ; ; prints -1.00 x 10!u-4!n, which gets plotted as 1.00 x 10 48 ; IDL> Result = STRSCI( -0.0001 ) 49 ; IDL> print, result 50 ; -1.00 x 10!u-4!n 50 51 ; 51 ; Result = STRSCI( 0d0, format='(f13.8)' ) 52 ; print, result 53 ; ; 54 ; ; prints, 0.00000000 52 ; which gets plotted as 1.00 x 10 53 ; 54 ; IDL> Result = STRSCI( 0d0, format='(f13.8)' ) 55 ; IDL> print, result 56 ; 0.00000000 55 57 ; 56 58 ; -
trunk/SRC/ToBeReviewed/STRING/strsed.pro
r371 r372 18 18 ; 19 19 ; @keyword FOLD_CASE 20 ; Indicates that the regular expression matching should be done in a case-insensitive fashion. 20 ; Indicates that the regular expression matching should be done in 21 ; a case-insensitive fashion. 21 22 ; 22 23 ; @returns -
trunk/SRC/ToBeReviewed/STRING/strtok.pro
r325 r372 29 29 ; 30 30 ; @examples 31 ; 32 ; 33 ; 31 ; If old is 'foo44 bar', then strtok( old, '44' ) would return 32 ; 'foo', and upon return, old will be left with ' bar'. If /TRIM 33 ; were set, old would be 'bar' on return. 34 34 ; 35 ; 36 ; 35 ; If old='xyz', then new=strtok(old,'a') would return with 36 ; new='xyz' and old=''. 37 37 ; 38 38 ; @history -
trunk/SRC/ToBeReviewed/STRING/tostr.pro
r371 r372 10 10 ; input can not contain or be of the type of: 11 11 ; 12 ; 13 ; 14 ; 12 ; Complex floating, structure, Double-precision complex, Pointer, Object 13 ; reference, Unsigned Integer, Unsigned Longword Integer, 64-bit 14 ; Integer, Unsigned 64-bit Integer 15 15 ; 16 16 ; @returns … … 21 21 ; 22 22 ; @restrictions 23 ; Beware, this function has loops, ifs a d cases everywhere. So it can23 ; Beware, this function has loops, ifs and cases everywhere. So it can 24 24 ; not be used by big keywords (with a lot of elements which are big 25 25 ; arrays). -
trunk/SRC/Utilities/report.pro
r371 r372 68 68 ; we separate the text in different lines (separated by !C) if it is not already done... 69 69 if n_elements(textin) EQ 1 then text = '% ' + str_sep(textin, '!C', /trim) ELSE text = '% ' + textin 70 ; we get the line, routine name a d revision version70 ; we get the line, routine name and revision version 71 71 IF NOT keyword_set(simple) THEN BEGIN 72 72 ; Look for the revsion in the code of the procedure/function calling this
Note: See TracChangeset
for help on using the changeset viewer.