/[escript]/trunk/finley/src/Mesh_hex8.c
ViewVC logotype

Diff of /trunk/finley/src/Mesh_hex8.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 758 by bcumming, Mon Jun 26 01:46:34 2006 UTC revision 759 by bcumming, Thu Jun 29 01:53:23 2006 UTC
# Line 706  Finley_Mesh* Finley_RectangularMesh_Hex8 Line 706  Finley_Mesh* Finley_RectangularMesh_Hex8
706        
707    /*  set nodes: */    /*  set nodes: */
708    /* INTERNAL/BOUNDARY NODES */    /* INTERNAL/BOUNDARY NODES */
709        k=0;
710    #pragma omp parallel for private(i0,i1,i2,k)    #pragma omp parallel for private(i0,i1,i2,k)
711    for (k=0,i2=0;i2<N2;i2++) {    for (i2=0;i2<N2;i2++) {
712      for (i1=0;i1<N1;i1++) {      for (i1=0;i1<N1;i1++) {
713        for (i0=0;i0<numNodesLocal-domLeft*periodic[0];i0++,k++) {                for (i0=0;i0<numNodesLocal-domLeft*periodic[0];i0++,k++) {        
714          out->Nodes->Coordinates[INDEX2(0,k,3)]=DBLE(i0+firstNode)/DBLE(N0-1)*Length[0];          out->Nodes->Coordinates[INDEX2(0,k,3)]=DBLE(i0+firstNode)/DBLE(N0-1)*Length[0];

Legend:
Removed from v.758  
changed lines
  Added in v.759

  ViewVC Help
Powered by ViewVC 1.1.26