diff -N -r -c HLib-1.3orig/Library/surfacebem.c HLib-1.3/Library/surfacebem.c
*** HLib-1.3orig/Library/surfacebem.c	2004-12-12 17:42:33.000000000 +0100
--- HLib-1.3/Library/surfacebem.c	2005-06-15 15:57:12.492456832 +0200
***************
*** 314,321 ****
  					      row->son[i], col,
  					      bfactory, eps, k);
  	else
! 	  for(i=0; i<col->sons; i++)
! 	    for(j=0; j<row->sons; j++)
  	      recacafill_surfacebem_supermatrix(M->s[i+j*row->sons],
  						row->son[i], col->son[j],
  						bfactory, eps, k);
--- 314,321 ----
  					      row->son[i], col,
  					      bfactory, eps, k);
  	else
! 	  for(j=0; j<col->sons; j++)
! 	    for(i=0; i<row->sons; i++)
  	      recacafill_surfacebem_supermatrix(M->s[i+j*row->sons],
  						row->son[i], col->son[j],
  						bfactory, eps, k);