Changeset 133 for trunk/SRC/Obsolete/zeroun.pro

Timestamp:

07/07/06 11:57:27 (18 years ago)

Author:

navarro

Message:

english and nicer header (1)

File:

• trunk/SRC/Obsolete/zeroun.pro (moved) (moved from trunk/SRC/ToBeReviewed/MATRICE/zeroun.pro) (2 diffs)

trunk/SRC/Obsolete/zeroun.pro

@@ -3 +3 @@
 ;------------------------------------------------------------
 ;+
-; NAME:zeroun
+; @file_comments 
+; Send back a vector or a matrix constituate of 0 and 1 in alternation
 ;
-; PURPOSE:renvoie un vecteur ou une matrice constitue de o et de 1 en
-; alternance
+; you better use zero_one
 ;
-; CATEGORY:function, matrices
+; @obsolete
 ;
-; CALLING SEQUENCE:resultat=zeroun(n1 [,n2])
+; @categories function, matrixes
 ;
-; INPUTS:
-;       n1=nombre d'elements dans la premiere dimension
-;       n2=nombre d'elements dans la deuxieme dimension
+; @param n1 {in}{required} number of elements in the first dimension
+; @param n2 {in}{required} numbre of elements in the second dimension
 ;
-; KEYWORD PARAMETERS:
+; @returns resultat
+; 
+; @history Sebastien Masson (smasson@lodyc.jussieu.fr)
+;                       1/12/98
 ;
-; OUTPUTS:resultat
+; @version $Id$
 ;
-; COMMON BLOCKS:
-;
-; SIDE EFFECTS:
-;
-; RESTRICTIONS:
-;
-; EXAMPLE:
-;
-; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
-;                       1/12/98
 ;-
 ;------------------------------------------------------------
@@ -38 +30 @@
   compile_opt idl2, strictarrsubs
 ;
-   CASE N_PARAMS() OF
-      1:return, findgen(n1) mod 2
-      2:BEGIN 
-         if fix(n1/2) EQ n1/2. then BEGIN ;nombre pair de colonnes
-            res = findgen(n1+1,n2) mod 2
-            return, res[0:n1-1, *]
-         ENDIF ELSE return, findgen(n1,n2) mod 2 ;nombre impair de colonnes
-      END
-      else: return,  report('Mauvais nombre de parametre dans l''appel de ZEROUN')
-   endcase            
+  case n_params() of
+      0:return, zero_one()
+      1:return, zero_one(n1)
+      2:return, zero_one(n1, n2)
+  endcase
+
 end