Changeset 495 for trunk/SRC/ToBeReviewed/STRUCTURE/where_tag.pro

Timestamp:

04/17/14 10:49:43 (10 years ago)

Author:

pinsard

Message:

fix thanks to coding rules; typo; dupe empty lines; trailing blanks

File:

• trunk/SRC/ToBeReviewed/STRUCTURE/where_tag.pro (modified) (6 diffs)

trunk/SRC/ToBeReviewed/STRUCTURE/where_tag.pro

@@ -8 +8 @@
 ;
 ; Like the <proidl>WHERE</proidl> function but for use with structures
-; 
+;
 ; @categories
 ; Structure
@@ -17 +17 @@
 ; @keyword TAG_NAME
 ; Scalar string specifying Tag Name
-; 
+;
 ; @keyword TAG_NUMBER
 ; Otherwise give the Tag Number
-; 
+;
 ; @keyword RANGE
 ; [min,max] range to search for in STRUCT
-; 
+;
 ; @keyword VALUES
 ; One or array of numbers to match for in STRUCT
-; 
+;
 ; @keyword ISELECT
 ; Specifies indices to select only part of structure array,
 ; (use it to recycle subscripts from previous searches).
-; 
+;
 ; @keyword NOPRINT
 ; Suppress informational messages about nothing found.
@@ -37 +37 @@
 ; Nfound {out}
 ; # of occurrences found.
-; 
+;
 ; @restrictions
 ; User *must* specify (1) TAG_NAME or TAG_NUMBER to search, and (2)
@@ -44 +44 @@
 ; @examples
 ;
-; Suppose STR is a structure with tags CAT_NO:indgen(10), and 
+; Suppose STR is a structure with tags CAT_NO:indgen(10), and
 ; NAME:strarr(10). Find the indices where STR.CAT_NO is between 3 and 5.
 ;
-;   IDL> print, WHERE_TAG( str, TAG_NAME = 'CAT_NO', VALUE = [3,4,5] ) 
+;   IDL> print, WHERE_TAG( str, TAG_NAME = 'CAT_NO', VALUE = [3,4,5] )
 ; or
-;   IDL> print, WHERE_TAG( str, TAG_NUM = 0, RANGE = [3,5]) 
+;   IDL> print, WHERE_TAG( str, TAG_NUM = 0, RANGE = [3,5])
 ;
 ; @history
@@ -57 +57 @@
 ; @version
 ; $Id$
-; 
+;
 ;-
 FUNCTION where_tag, Struct, Nfound,     TAG_NAME=tag_name,      $
@@ -99 +99 @@
            endif
 
-        if N_elements( ipart ) GT 0 then begin          ;check if any searching 
+        if N_elements( ipart ) GT 0 then begin          ;check if any searching
                                                         ;on a subset of input.
                 w = where( ipart GE 0, nf )