diff --git a/EcoSLIM.f90 b/EcoSLIM.f90 index 9226c3b..1362296 100644 --- a/EcoSLIM.f90 +++ b/EcoSLIM.f90 @@ -619,7 +619,7 @@ end subroutine vtk_write_points if (nind>0) then if (Indname /= '') then fname = trim(adjustl(Indname)) - call pfb_read(Ind,fname,nx,ny,nztemp) + call pfb_read(Ind,fname,nx,ny,nz) write(11,*) 'Read Indicator File:', fname !write(11,*) 'IndREAD:', nx, ny, nztemp else