Changeset 187

Timestamp:

01/14/10 11:45:04 (14 years ago)

Author:

pinsard

Message:

array syntax correction

File:

• trunk/procs/search_time_file.pro (modified) (14 diffs)

trunk/procs/search_time_file.pro

@@ -50 +50 @@
 ;
 ; - fplod 20091210T150954Z aedon.locean-ipsl.upmc.fr (Darwin)
+;
 ;   * check parameters
 ;
@@ -63 +64 @@
 @com_eg
 ;
-;
 ; Return to caller if errors
  ON_ERROR, 2
@@ -71 +71 @@
  nparam = N_PARAMS()
  IF (nparam LT 7) THEN BEGIN
-    ras = report(['Incorrect number of arguments.' $
-          + '!C' $
-          + 'Usage : ' + usage])
-    stop
+   ras = report(['Incorrect number of arguments.' $
+          + '!C' $
+          + 'Usage : ' + usage])
+   stop
  ENDIF
 
@@ -82 +82 @@
           + '!C' $
           + 'Usage : ' + usage])
-    stop
+   stop
  ENDIF
  arg_struct_tags=TAG_NAMES(cmd)
@@ -90 +90 @@
           + '!C' $
           + 'Usage : ' + usage])
-    stop
+   stop
  ENDIF
  arg_type = size(cmd.timave,/type)
@@ -97 +97 @@
           + '!C' $
           + 'Usage : ' + usage])
-    stop
+   stop
  ENDIF
  tag=WHERE(STRMATCH(arg_struct_tags, 'DATE1'))
@@ -104 +104 @@
           + '!C' $
           + 'Usage : ' + usage])
-    stop
+   stop
  ENDIF
  arg_type = size(cmd.date1,/type)
@@ -111 +111 @@
           + '!C' $
           + 'Usage : ' + usage])
-    stop
+   stop
  ENDIF
  tag=WHERE(STRMATCH(arg_struct_tags, 'SPEC'))
@@ -118 +118 @@
           + '!C' $
           + 'Usage : ' + usage])
-    stop
+   stop
  ENDIF
  arg_type = size(cmd.spec,/type)
@@ -125 +125 @@
           + '!C' $
           + 'Usage : ' + usage])
-    stop
+   stop
  ENDIF
  tag=WHERE(STRMATCH(arg_struct_tags, 'EXP'))
@@ -132 +132 @@
           + '!C' $
           + 'Usage : ' + usage])
-    stop
+   stop
  ENDIF
 
@@ -164 +164 @@
           + '!C' $
           + 'Usage : ' + usage])
-    stop
+   stop
  ENDIF
 
@@ -172 +172 @@
           + '!C' $
           + 'Usage : ' + usage])
-    stop
+   stop
  ENDIF
 
@@ -243 +243 @@
             ENDELSE  
             argvar = strsplit(file, '_', /EXTRACT)
-            dat1 = argvar(2)
-            dat2 = argvar(3)
+            dat1 = argvar[2]
+            dat2 = argvar[3]
 
             IF debug_w THEN  print, '    dat1, date1, dat2, date2 ', dat1,' ', date1,' ', dat2,' ', date2