diff --git a/create_surfaces.f90 b/create_surfaces.f90 index f2b2da41e41ee028a0bbfc4a1b138fbfb05ba029..47c05c2214cc4869121aeb0913f8858276bb2cb6 100644 --- a/create_surfaces.f90 +++ b/create_surfaces.f90 @@ -102,7 +102,8 @@ if (surface%surface_type.lt.0) then read (71,*) surface%x(i),surface%y(i),surface%z(i),surface%xn(i),surface%yn(i),surface%zn(i) surface%r(i)=surface%x(i) surface%s(i)=surface%y(i) - if (surface%x(i)<0 .or. surface%x(i)>1 .or. surface%y(i)<0 .or. surface%y(i)>1 .or. surface%z(i)<0 .or. surface%z(i)>1 .and. iproc.eq.0) & + if (surface%x(i)<0 .or. surface%x(i)>1 .or. surface%y(i)<0 .or. surface%y(i)>1 .or. surface%z(i)<0 .or. surface%z(i)>1 & + .and. iproc.eq.0) & print *,surface%x(i),surface%y(i),surface%z(i) enddo do i=1,surface%nt