changeset 9370:cad4412abece octave-forge

fixed bug
author cdf
date Mon, 23 Jan 2012 09:30:26 +0000
parents 2e605f902c22
children 62f2cdfe5798
files extra/msh/inst/msh3m_join_structured_mesh.m
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/extra/msh/inst/msh3m_join_structured_mesh.m	Sun Jan 22 07:41:48 2012 +0000
+++ b/extra/msh/inst/msh3m_join_structured_mesh.m	Mon Jan 23 09:30:26 2012 +0000
@@ -134,7 +134,7 @@
   ## Set adjacent region numbers in edge structure 1
   for is = 1:length(s1)
     ii            = find( mesh1.e(10,:)==s1(is) );
-    mesh1.e(8,ii) = newregions(regions(adreg(is,:)));
+    mesh1.e(8,ii) = newregions(adreg(is,:));
   endfor
 
   ## Build new mesh structure