Changeset 114 for trunk/SRC/Textoidl/strcnt.pro

Timestamp:

06/19/06 16:14:56 (18 years ago)

Author:

smasson

Message:

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

File:

• trunk/SRC/Textoidl/strcnt.pro (modified) (2 diffs)

trunk/SRC/Textoidl/strcnt.pro

@@ -50 +50 @@
 FUNCTION Strcnt, strn, substrn, startpos, $
                  HELP=Help
+;
+  compile_opt idl2, strictarrsubs
+;
 
 ; Return to caller if error.
@@ -88 +91 @@
     IF strlen(substrn) EQ 1 THEN BEGIN
         tmpstrn = byte(TmpStrn)
-        count = n_elements(where(TmpStrn EQ (byte(substrn))(0))) 
+        count = n_elements(where(TmpStrn EQ (byte(substrn))[0])) 
     ENDIF ELSE BEGIN 
         count = 0L