From f09c73270c12323acf6d9b85562e925c1ef8587e Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 29 Jun 2009 17:58:08 +0000
Subject: [PATCH] split long lines
---
refine_surface.f90 | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/refine_surface.f90 b/refine_surface.f90
index 727144f8..084512ff 100644
--- a/refine_surface.f90
+++ b/refine_surface.f90
@@ -110,9 +110,12 @@ nnmax=12 ! nnmax is maximum number of neighbours in triangulation (should be aro
allocate (ed(nedge),stat=threadinfo%err) ; call heap (threadinfo,'ed','refine_surface',size(ed),'int',+1)
-allocate (nedgepernode(nsurfacen),stat=threadinfo%err) ; call heap (threadinfo,'nedgepernode','refine_surface',size(nedgepernode),'int',+1)
-allocate (nodenodenumber(nnmax,nsurfacen),stat=threadinfo%err) ; call heap (threadinfo,'nodenodenumber','refine_surface',size(nodenodenumber),'int',+1)
-allocate (nodeedgenumber(nnmax,nsurfacen),stat=threadinfo%err) ; call heap (threadinfo,'nodeedgenumber','refine_surface',size(nodeedgenumber),'int',+1)
+allocate (nedgepernode(nsurfacen),stat=threadinfo%err)
+call heap (threadinfo,'nedgepernode','refine_surface',size(nedgepernode),'int',+1)
+allocate (nodenodenumber(nnmax,nsurfacen),stat=threadinfo%err)
+call heap (threadinfo,'nodenodenumber','refine_surface',size(nodenodenumber),'int',+1)
+allocate (nodeedgenumber(nnmax,nsurfacen),stat=threadinfo%err)
+call heap (threadinfo,'nodeedgenumber','refine_surface',size(nodeedgenumber),'int',+1)
ed%t1=0
ed%t2=0
--
GitLab