Changeset 237 for trunk/SRC/Matrix/zero_one.pro

Timestamp:

03/26/07 17:37:03 (17 years ago)

Author:

pinsard

Message:

replace some print by some report in some .pro (continuation) + improvements/corrections of some *.pro headers

File:

• trunk/SRC/Matrix/zero_one.pro (modified) (3 diffs)

trunk/SRC/Matrix/zero_one.pro

@@ -1 +1 @@
 ;+
-; @file_comments 
+; @file_comments
 ; Send back a vector or a matrix constituted of 0 and 1 in alternation
 ;
-; @categories 
+; @categories
 ; Function, Matrix
 ;
-; @param n1 {in}{required} number of elements in the first dimension
-; @param n2 {in}{required} number of elements in the second dimension
+; @param n1 {in}{required}
+; number of elements in the first dimension
 ;
-; @returns result
-; 
-; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
+; @param n2 {in}{required}
+; number of elements in the second dimension
+;
+; @returns
+; result
+;
+; @history
+; Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                       1/12/98
 ;
-; @version $Id$
+; @version
+; $Id$
 ;
 ;-
 ;
-function zero_one, n1,n2
+FUNCTION zero_one, n1,n2
 ;
   compile_opt idl2, strictarrsubs
@@ -24 +30 @@
    CASE N_PARAMS() OF
       1:return, findgen(n1) mod 2
-      2:BEGIN 
+      2:BEGIN
          if fix(n1/2) EQ n1/2. then BEGIN ;even number of columns
             res = findgen(n1+1,n2) mod 2
@@ -31 +37 @@
       END
       else: return,  report('bad number of arguments')
-   endcase            
+   endcase
 end