From 047e56cb87f7db61217cbbd29ca23a5f37a806a6 Mon Sep 17 00:00:00 2001 From: schnetter Date: Thu, 13 May 2010 15:02:44 +0000 Subject: Correct the connectivity in the polygonal data of the VTK output, which right now is wrong across phi=0. git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/QuasiLocalMeasures/trunk@14 ef6f4158-a8ee-47d1-ba14-cb73256398e0 --- src/qlm_output_vtk.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/qlm_output_vtk.F90 b/src/qlm_output_vtk.F90 index 8a1f81f..f1fe9a9 100644 --- a/src/qlm_output_vtk.F90 +++ b/src/qlm_output_vtk.F90 @@ -48,7 +48,7 @@ subroutine qlm_outputvtk(CCTK_ARGUMENTS,nhor,file_name,unit_nr) do i=0, nph-2 write(unit_nr,'(I1,4(I6))') 4, j*nph+i, (j+1)*nph+i, (j+1)*nph+i+1, j*nph+i+1 end do - write(unit_nr,'(I1,4(I6))') 4, j*nph+nph-1, (j+1)*nph+nph-1, (j+1)*nph+1, j*nph+1 + write(unit_nr,'(I1,4(I6))') 4, j*nph+nph-1, (j+1)*nph+nph-1, (j+1)*nph, j*nph end do write(unit_nr,'(A)') '' -- cgit v1.2.3