From 6d601ad71dbb6c6806d5bc4c22f06a6044c4a66a Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Tue, 12 Jan 2010 18:51:24 +0000
Subject: [PATCH] wrong type fixed for is_plas

---
 src/define_ov.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/define_ov.f90 b/src/define_ov.f90
index e8f70c35..f3125199 100644
--- a/src/define_ov.f90
+++ b/src/define_ov.f90
@@ -49,10 +49,11 @@ type (thread) threadinfo
 
 integer iproc, nproc, err, ierr, levelv
 integer nface, nlsf, i, j, k, np, kfix
-double precision s,e2d,xlsf,crit,wpreiso,evisc,is_plas
+double precision s,e2d,xlsf,crit,wpreiso,evisc
 integer ioctree_number_of_elements
 external ioctree_number_of_elements
 double precision current_time,activation_time
+logical is_plas
 
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
-- 
GitLab