Changeset 226 for trunk/SRC/ToBeReviewed/STATISTICS/c_timecorrelate.pro

Timestamp:

03/16/07 10:22:26 (17 years ago)

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

• trunk/SRC/ToBeReviewed/STATISTICS/c_timecorrelate.pro (modified) (12 diffs)

trunk/SRC/ToBeReviewed/STATISTICS/c_timecorrelate.pro

@@ -1 +1 @@
 ;+
 ; @file_comments
-; 
+;
 ;
 ; @categories
@@ -65 +65 @@
 ; This function computes the "time cross correlation" Pxy(L) or
 ; the "time cross covariance" between 2 arrays (this is some
-; kind of c_correlate but for multidimenstionals arrays) as a
+; kind of c_correlate but for multidimensional arrays) as a
 ; function of the lag (L).
 ;
@@ -85 +85 @@
 ;
 ; @keyword COVARIANCE
-; If set to a non-zero value, the sample cross 
+; If set to a non-zero value, the sample cross
 ; covariance is computed.
 ;
@@ -93 +93 @@
 ;
 ; @examples
-; 
+;
 ;       Define two n-element sample populations.
 ;         x = [3.73, 3.67, 3.77, 3.83, 4.67, 5.87, 6.70, 6.97, 6.40, 5.57]
@@ -108 +108 @@
 ;       - 01/03/2000 Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;       Based on the C_CORRELATE procedure of IDL
-;       - August 2003 Sebastien Masson 
+;       - August 2003 Sebastien Masson
 ;       update according to the update made in C_CORRELATE by
 ;       W. Biagiotti and available in IDL 5.5
@@ -122 +122 @@
 FUNCTION c_timecorrelate, X, Y, Lag, Covariance = Covariance, Double = Double
 
-;Compute the sample cross correlation or cross covariance of 
+;Compute the sample cross correlation or cross covariance of
 ;(Xt, Xt+l) and (Yt, Yt+l) as a function of the lag (l).
 
@@ -138 +138 @@
    if nt lt 2 then $
     MESSAGE, "Time dimension of X and Y arrays must contain 2 or more elements."
-   
+
 ;If the DOUBLE keyword is not set then the internal precision and
 ;result are identical to the type of input.
@@ -168 +168 @@
    if KEYWORD_SET(Covariance) eq 0 then begin ;Compute Cross  Crossation.
       for k = 0, nLag-1 do begin
-         if Lag[k] ge 0 then BEGIN 
+         if Lag[k] ge 0 then BEGIN
             case NDim of
                1: Cross[k] = TimeCross_Cov(Xd, Yd, Lag[k], nT, Ndim, Double = Double)
                2: Cross[*, k] = TimeCross_Cov(Xd, Yd, Lag[k], nT, Ndim, Double = Double)
                3: Cross[*, *, k] = TimeCross_Cov(Xd, Yd, Lag[k], nT, Ndim, Double = Double)
-               4: Cross[*, *, *, k] = TimeCross_Cov(Xd, Yd, Lag[k], nT, Ndim, Double = Double) 
+               4: Cross[*, *, *, k] = TimeCross_Cov(Xd, Yd, Lag[k], nT, Ndim, Double = Double)
              endcase
-         ENDIF else BEGIN 
+         ENDIF else BEGIN
             case NDim of
                1: Cross[k] = TimeCross_Cov(Yd, Xd, ABS(Lag[k]), nT, Ndim, Double = Double)
@@ -182 +182 @@
                4: Cross[*, *, *, k] = TimeCross_Cov(Yd, Xd, ABS(Lag[k]), nT, Ndim, Double = Double)
              endcase
-         ENDELSE 
+         ENDELSE
        ENDFOR
        div = sqrt(TimeCross_Cov(Xd, Xd, 0L, nT, Ndim, Double = Double, /zero2nan) * $
@@ -196 +196 @@
                4: Cross[*, *, *, k] = TimeCross_Cov(Xd, Yd, Lag[k], nT, Ndim, Double = Double) / nT
             ENDCASE
-         ENDIF else BEGIN 
+         ENDIF else BEGIN
             case NDim of
                1: Cross[k] = TimeCross_Cov(yd, xd, ABS(Lag[k]), nT, Ndim, Double = Double) / nT
@@ -203 +203 @@
                4: Cross[*, *, *, k] = TimeCross_Cov(yd, xd, ABS(Lag[k]), nT, Ndim, Double = Double) / nT
             ENDCASE
-         ENDELSE 
+         ENDELSE
       endfor
    endelse
@@ -210 +210 @@
 
 END
-  
+