From 464d294fea58fbe3547410b3c65717ed5f8e7c8f Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Thu, 10 Dec 2009 21:56:12 +0000
Subject: [PATCH] Typos fixed
---
src/define_ov.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/define_ov.f90 b/src/define_ov.f90
index 6c0d7f6a..9c4f0206 100644
--- a/src/define_ov.f90
+++ b/src/define_ov.f90
@@ -97,9 +97,9 @@ if (params%irestart.eq.0) then
allocate (ov%wpreiso(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%wpreiso','define_ov',size(ov%wpreiso),'dp',+1)
allocate (ov%temp(ov%nnode),stat=threadinfo%err) ; call heap (threadinfo,'ov%temp','define_ov',size(ov%temp),'dp',+1)
! Line below added by dwhipp - 12/09
- allocate (ov%pressure(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%pressure',define_ov',size(ov%pressure),'dp',+1)
+ allocate (ov%pressure(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%pressure','define_ov',size(ov%pressure),'dp',+1)
! Line below added by dwhipp - 12/09
- allocate (ov%spressure(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%spressure',define_ov',size(ov%spressure),'dp',+1)
+ allocate (ov%spressure(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%spressure','define_ov',size(ov%spressure),'dp',+1)
allocate (ov%temporary_nodal_pressure(ov%nnode),stat=threadinfo%err)
call heap (threadinfo,'ov%temporary_nodal_pressure','define_ov',size(ov%temporary_nodal_pressure),'dp',+1)
--
GitLab