From 878bfb2d151ea4f236de01ef5f1fb6d0caf5d943 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 17:27:14 +0000
Subject: [PATCH] Removed unused declared variables

---
 src/compute_pressure.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/compute_pressure.f90 b/src/compute_pressure.f90
index 2aa772e3..3f86b18f 100644
--- a/src/compute_pressure.f90
+++ b/src/compute_pressure.f90
@@ -70,9 +70,9 @@ type (material) mat(0:params%nmat)
 
 integer err,iproc,nproc,ierr,ileaves,level,i,k,levelmax,icut
 double precision,dimension(:,:),allocatable::lsf_el
-double precision r0,s0,t0,rst,volc
+double precision r0,s0,t0,rst
 double precision,dimension(:),allocatable::press
-integer,dimension(:),allocatable::levs
+!integer,dimension(:),allocatable::levs
 character*72  :: shift
 
 !------------------------------------------------------------------------------|
-- 
GitLab