Changeset 7 for trunk/MATRICE/colle.pro

Timestamp:

04/24/06 10:40:41 (18 years ago)

Author:

pinsard

Message:

1st commit according to cerbere.lodyc.jussieu.fr:/usr/home/smasson/IDL_RD/

File:

• trunk/MATRICE/colle.pro (modified) (4 diffs)

trunk/MATRICE/colle.pro

@@ -105 +105 @@
 ;------------------------------------------------------------
    case direc of
-      1:BEGIN ; on colle suivant la dimension 1
+      1:BEGIN                   ; on colle suivant la dimension 1
          res = *ptrtab[0]
          if NOT keyword_set(sauve) then ptr_free, ptrtab[0]
@@ -113 +113 @@
          ENDFOR 
       END 
-      2:BEGIN ; on colle suivant la dimension 2
+      2:BEGIN                   ; on colle suivant la dimension 2
          res = *ptrtab[0]
          if NOT keyword_set(sauve) then ptr_free, ptrtab[0]
@@ -121 +121 @@
          ENDFOR 
       END 
-      3:BEGIN ; on colle suivant la dimension 3
+      3:BEGIN                   ; on colle suivant la dimension 3
          res = *ptrtab[0]
          if NOT keyword_set(sauve) then ptr_free, ptrtab[0]
@@ -136 +136 @@
          permute[0] = direc-1
          permute[direc-1] = 0
+         if (size(*ptrtab[0]))[0] NE direc then $
+          *ptrtab[0] = reform(*ptrtab[0], [(size(*ptrtab[0]))[1:direc-1],  1], /over)
          res = transpose(*ptrtab[0], permute)
          if NOT keyword_set(sauve) then ptr_free, ptrtab[0]
          FOR n = 1,nbretab-1 DO BEGIN ; on colle suivant la dimension 1
+            if (size(*ptrtab[n]))[0] NE direc then $
+             *ptrtab[n] = reform(*ptrtab[n], [(size(*ptrtab[n]))[1:direc-1],  1])            
             res = [temporary(res), transpose(*ptrtab[n], permute)]
             if NOT keyword_set(sauve) then ptr_free, ptrtab[n]