diff --git a/Solver/src/libs/mesh/HexMesh.f90 b/Solver/src/libs/mesh/HexMesh.f90 index 933faef98..79028ef58 100644 --- a/Solver/src/libs/mesh/HexMesh.f90 +++ b/Solver/src/libs/mesh/HexMesh.f90 @@ -2861,9 +2861,9 @@ subroutine HexMesh_ExportOrders(self,fileName) OrderFileName = "./MESH/" // trim(removePath(getFileName(fileName))) // ".omesh" open( newunit = fd , FILE = TRIM(OrderFileName), ACTION = 'write') - write(fd,*) self % no_of_allElements + write(fd,*) self % no_of_elements - do k=1, self % no_of_allElements + do k=1, self % no_of_elements write(fd,*) self % elements(k) % Nxyz end do