Changeset 152 for trunk/SRC/Obsolete

Timestamp:

08/10/06 09:01:35 (18 years ago)

Author:

smasson

Message:

introduce pltv.pro

File:

• trunk/SRC/Obsolete/congridseb.pro (moved) (moved from trunk/SRC/Matrix/congridseb.pro) (3 diffs)

trunk/SRC/Obsolete/congridseb.pro

@@ -4 +4 @@
 ;+
 ; @file_comments
-; Like congrid but here, it works...
-;        example:
+;
+; Used to avoid a bug in congrid in a old version of IDL
+; Useless now...
+;
+; old example: based on a old version of IDL (5.??)
 ; IDL> print, congrid([[1,2,3,4],[5,6,7,8]],12,4)
 ;       1 1 1 2 2 2 3 3 3 3 4 4
@@ -22 +25 @@
 ;       5 5 5 6 6 6 7 7 7 8 8 8
 ;
-; @categories utilities
+; @obsolete
 ;
-; @param tableau {in}{required}
-; A table 1 ou 2d
+; @param arr {in}{required}
+; 1 or 2d array
 ;
 ; @param x {in}{required}
-; dimension in x of the result which must be
-; a multiple of the dimension in x of the table.
+; first dimension of the result which must be
+; a multiple of the first dimension of the input array.
 ;
 ; @param y {in}{required}
-; dimension in y of the result which must be
-; a multiple of the dimension in y of the table.
+; second dimension of the result which must be
+; a multiple of the second dimension of the input array
 ;
 ; @returns
-; a table dim x * y
+; an array which dimensions are x,y
 ;
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
@@ -52 +55 @@
   compile_opt idl2, strictarrsubs
 ;
-   res=tableau
-   taille = size(tableau)
    CASE N_PARAMS() OF
-      2: begin
-         res=replicate(1,1.*x/taille[1])#res[*]
-         return, res[*]
-      end
-      3: begin
-         res = transpose(res)
-         res = replicate(1, 1.*y/taille[2])#res[*]
-         res = reform(res, y, taille[1], /over)
-         res = transpose(res)
-         res = replicate(1, 1.*x/taille[1])#res[*]
-        return, reform(res, x,y, /overwrite)
-      end
-      else: return, report('Mauvais nombre de parametre dans l''appel de CONGRIDSEB')
+      2: return, congrid(tableau, x)
+      3:return, congrid(tableau, x, y)
+      else: return, report('Bad number or arguments in the call of congridseb')
    endcase
 end