From 15984b9c1d30e59d2c3e05994668a3deb9c5b63e Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Thu, 10 Dec 2009 21:57:52 +0000
Subject: [PATCH] Typo fixed
---
src/VTK/post.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/VTK/post.f90 b/src/VTK/post.f90
index 900f11a5..cf1bd1fd 100644
--- a/src/VTK/post.f90
+++ b/src/VTK/post.f90
@@ -894,7 +894,7 @@ if(output_smooth_press_fielde==1) then
write(iunit,'(a)')'LOOKUP_TABLE default'
do ie=1,ov%nleaves
if (elvoid(ie).eq.0) then
- write(iunit,'(e11.4)') ov%smooth_pressure(ie)
+ write(iunit,'(e11.4)') ov%spressure(ie)
endif
enddo
end if
--
GitLab