From 817a3ee6e052886f1208a50d8a56a29987b7c3f4 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Tue, 19 Jul 2011 17:28:03 +0000
Subject: [PATCH] Trivial formatting edit
---
src/define_surface.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/define_surface.f90 b/src/define_surface.f90
index 5a0228a4..4212712b 100644
--- a/src/define_surface.f90
+++ b/src/define_surface.f90
@@ -168,7 +168,7 @@ else
i=1,nnode)
read (9) (nf,i=1,nface)
! read surface information
- do is=1,nlsf
+ do is=1,nlsf
read (9) surface(is)%nsurface, &
activation_time, &
surface(is)%nt
--
GitLab