From 71857a079d03c9784aa8fb6f7584f8d9a33732ac Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 29 Jun 2009 17:05:11 +0000
Subject: [PATCH] split long lines

---
 create_surfaces.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/create_surfaces.f90 b/create_surfaces.f90
index f2b2da41..47c05c22 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
-- 
GitLab