Changeset 238 for trunk/SRC/ToBeReviewed/MATRICE

Timestamp:

03/27/07 15:43:18 (17 years ago)

Author:

pinsard

Message:

improvements/corrections of some *.pro headers

File:

• trunk/SRC/ToBeReviewed/MATRICE/colle.pro (modified) (8 diffs)

trunk/SRC/ToBeReviewed/MATRICE/colle.pro

@@ -1 +1 @@
 ;+
-; @file_comments 
-; This concatenation function exist in IDL so long 
-; as we do not try to stick with a dimension superior or equal at 4.  
+; @file_comments
+; This concatenation function exist in IDL so long
+; as we do not try to stick with a dimension superior or equal at 4.
 ;
-; @categories 
+; @categories
 ; Utilities
 ;
@@ -52 +52 @@
 ; force to save the pointer array and arrays to be stuck
 ;
-; @returns res=matrice resultat
+; @returns
+; matrice resultat
 ;
-; @examples IDL> print, colle(replicate(1,2,2,2),indgen(2,2,2),2)   
+; @examples
+; IDL> print, colle(replicate(1,2,2,2),indgen(2,2,2),2)
 ;                1       1
 ;                1       1
@@ -65 +67 @@
 ;                6       7
 ;
-; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
+; @history
+; Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                       13/1/98
 ;
-; @version $Id$
+; @version
+; $Id$
 ;
 ;-
+;
 FUNCTION colle, a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, SAUVE = sauve
 ;
@@ -111 +116 @@
             res = [temporary(res), *ptrtab[n]]
             if NOT keyword_set(sauve) then ptr_free, ptrtab[n]
-         ENDFOR 
-      END 
+         ENDFOR
+      END
       2:BEGIN                   ; we paste following the dimension 2
          res = *ptrtab[0]
@@ -119 +124 @@
             res = [[temporary(res)], [*ptrtab[n]]]
             if NOT keyword_set(sauve) then ptr_free, ptrtab[n]
-         ENDFOR 
-      END 
+         ENDFOR
+      END
       3:BEGIN                   ; we paste following the dimension 3
          res = *ptrtab[0]
@@ -127 +132 @@
             res = [[[temporary(res)]], [[*ptrtab[n]]]]
             if NOT keyword_set(sauve) then ptr_free, ptrtab[n]
-         ENDFOR 
+         ENDFOR
       END
-      ELSE:BEGIN 
+      ELSE:BEGIN
 ; We transpose res in order to put the dimension to be pasted number 1
-; To this, we contain the permuter vector which give the place that dimension 
+; To this, we contain the permuter vector which give the place that dimension
 ; in the transposed matrix must take.
         siz = (size(*ptrtab[0]))[0]
@@ -143 +148 @@
          FOR n = 1,nbretab-1 DO BEGIN ; we paste following the dimension 1on colle suivant la dimension 1
             if (size(*ptrtab[n]))[0] LT direc then $
-             *ptrtab[n] = reform(*ptrtab[n], [(size(*ptrtab[n]))[1:siz], replicate(1, direc-siz)])            
+             *ptrtab[n] = reform(*ptrtab[n], [(size(*ptrtab[n]))[1:siz], replicate(1, direc-siz)])
             res = [temporary(res), transpose(*ptrtab[n], permute)]
             if NOT keyword_set(sauve) then ptr_free, ptrtab[n]
@@ -149 +154 @@
          res = transpose(temporary(res), permute)
       END
-   ENDCASE 
+   ENDCASE
 ;------------------------------------------------------------
    if NOT keyword_set(sauve) then undefine, ptrtab
 sortie:
    return,  res
-
-   
-END 
- 
-;------------------------------------------------------------
+END