From 0073f794ace0fe5c8aed605bb8c2fffebc1cee1f Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 18:15:00 +0000
Subject: [PATCH] Removed unused declared/passed variables
---
src/DOUAR.f90 | 6 ++++--
src/improve_osolve.f90 | 18 ++++++++++--------
2 files changed, 14 insertions(+), 10 deletions(-)
diff --git a/src/DOUAR.f90 b/src/DOUAR.f90
index 8db8e784..99dc93d2 100644
--- a/src/DOUAR.f90
+++ b/src/DOUAR.f90
@@ -430,8 +430,10 @@ do while (istep.le.params%nstep)
! refinement/improvement of osolve
!------------------------------------------------------------------------|
!------------------------------------------------------------------------|
- call improve_osolve (osolve,ov,params,threadinfo,istep,iter,total,step,inc, &
- current_level,boxes,cube_faces,increase_current_level )
+ call improve_osolve (osolve,ov,params,threadinfo,istep,iter,total,step, &
+ inc,current_level,boxes,cube_faces)
+ !call improve_osolve (osolve,ov,params,threadinfo,istep,iter,total,step,inc, &
+ ! current_level,boxes,cube_faces,increase_current_level )
nleaves_new_mem1=osolve%octree(2)
diff --git a/src/improve_osolve.f90 b/src/improve_osolve.f90
index fb8e1173..72f0ae18 100644
--- a/src/improve_osolve.f90
+++ b/src/improve_osolve.f90
@@ -17,8 +17,11 @@
!------------------------------------------------------------------------------|
subroutine improve_osolve (osolve,ov,params,threadinfo,istep,iter,total,step, &
- inc,refine_level,boxes,cube_faces, &
- increase_current_level)
+ inc,refine_level,boxes,cube_faces)
+
+!subroutine improve_osolve (osolve,ov,params,threadinfo,istep,iter,total,step, &
+! inc,refine_level,boxes,cube_faces, &
+! increase_current_level)
!------------------------------------------------------------------------------|
!(((((((((((((((( Purpose of the routine ))))))))))))))))))))))))))))))))))))))
@@ -70,22 +73,21 @@ double precision total,step,inc
integer refine_level
type (box) boxes(params%nboxes)
type (face), dimension(6) :: cube_faces
-logical increase_current_level
+!logical increase_current_level
!------------------------------------------------------------------------------|
!(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
!------------------------------------------------------------------------------|
-double precision jcb(3,3),jcbi(3,3)
double precision,dimension(:),allocatable :: x,y,z,vx,vy,vz
double precision,dimension(:),allocatable :: dhdx,dhdy,dhdz
-double precision,dimension(:),allocatable :: crit,crittemp,xc,yc,zc
-double precision :: eps,r,s,t,volume,w
+double precision,dimension(:),allocatable :: crit,crittemp
+double precision :: eps,r,s,t,volume
double precision :: exx,eyy,ezz,exy,eyz,ezx
double precision critmax,xxx,yyy,zzz,b,l
double precision :: x0,y0,z0,x1,y1,z1,E2d
-integer err,ierr,nproc,iproc,k,i,iint,nint,mpe
-integer :: j,nn,nb_of_boxes,level_box,nx,ny,nz,level,nv,nh
+integer ierr,nproc,iproc,k,i,nint,mpe
+integer :: j,nn,level_box,nx,ny,nz,level,nv,nh
character*72 shift
!------------------------------------------------------------------------------|
--
GitLab