From 3a4ec4c2d157dc58cc78caff1232f00888e70ee1 Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Tue, 24 Apr 2007 06:49:13 +0000
Subject: [PATCH] removed several unused variables

---
 trunk/CPFEM.f90        |  5 ++---
 trunk/IO.f90           |  2 +-
 trunk/constitutive.f90 | 10 +++++-----
 trunk/math.f90         |  5 ++---
 trunk/mesh.f90         |  6 +++---
 5 files changed, 13 insertions(+), 15 deletions(-)

diff --git a/trunk/CPFEM.f90 b/trunk/CPFEM.f90
index ababdc51d..1870d8a54 100644
--- a/trunk/CPFEM.f90
+++ b/trunk/CPFEM.f90
@@ -160,7 +160,6 @@
  real(pReal), dimension(6) :: cs,Tstar_v
  real(pReal), dimension(6,6) :: cd
  real(pReal), dimension(3,3) :: Fe,U,R,deltaFg
- real(pReal), dimension(3) :: Euler
  real(pReal), dimension(3,3,2) :: Fg,Fp
  real(pReal), dimension(constitutive_maxNstatevars,2) :: state
 
@@ -280,7 +279,7 @@
  implicit none
 
  character(len=*) msg
- logical updateJaco,error
+ logical updateJaco
  integer(pInt) cp_en,CPFEM_in,grain,i
  real(pReal) dt
  real(pReal), dimension(3,3) :: Fg_old,Fg_new,Fg_pert,Fp_old,Fp_new,Fp_pert,Fe_new,Fe_pert,E_pert
@@ -348,7 +347,7 @@
  integer(pInt) iState,iStress,dummy, i,j,k,l,m
  real(pReal) dt,det
  real(pReal), dimension(6) :: Tstar_v,dTstar_v,Rstress
- real(pReal), dimension(6,6) :: C_66,Jacobi,invJacobi,help2
+ real(pReal), dimension(6,6) :: C_66,Jacobi,invJacobi
  real(pReal), dimension(3,3) :: Fg_new,Fp_old,Fp_new,Fe_new,invFp_old,invFp_new,Lp,A,B,AB
  real(pReal), dimension(3,3,3,3) :: dLp, LTL
  real(pReal), dimension(constitutive_Nstatevars(grain, CPFEM_in, cp_en)) :: state_old,state_new,dstate,Rstate,RstateS
diff --git a/trunk/IO.f90 b/trunk/IO.f90
index 2c2e9b516..37c6b8996 100644
--- a/trunk/IO.f90
+++ b/trunk/IO.f90
@@ -541,7 +541,7 @@
    msg='Unknown error number'
  end select
  
- write(6,*) 'MPIE Material Routine Ver. 0.7 by Dr. F. Roters'
+ write(6,*) 'MPIE Material Routine Ver. 0.0 by the coding team'
  write(6,*)
  write(6,*) msg
  call flush(6)
diff --git a/trunk/constitutive.f90 b/trunk/constitutive.f90
index 57ffbecbf..67691048f 100644
--- a/trunk/constitutive.f90
+++ b/trunk/constitutive.f90
@@ -346,7 +346,7 @@ implicit none
 
 !* Definition of variables
 character(len=80) part,line,tag
-integer(pInt) file,count,pos
+integer(pInt) file,count
 integer(pInt), dimension(3) :: positions
 
 count=0
@@ -377,7 +377,7 @@ implicit none
 
 !* Definition of variables
 character(len=80) line,tag
-integer(pInt) file,section,pos
+integer(pInt) file,section
 integer(pInt), dimension(3) :: positions
 
 constitutive_assignNGaussAndFiber=''
@@ -522,7 +522,7 @@ implicit none
 !* Definition of variables
 character(len=80) line,tag
 integer(pInt), parameter :: maxNchunks = 13 ! may be more than 10 chunks ..?
-integer(pInt) file,pos,section,gaussCount,fiberCount,i
+integer(pInt) file,section,gaussCount,fiberCount,i
 integer(pInt), dimension(1+2*maxNchunks) :: positions
 
 section = 0
@@ -736,7 +736,7 @@ use IO,   only: IO_hybridIA
 implicit none
 
 !* Definition of variables
-integer(pInt) e,i,j,k,l,m,o,g,s,Ngrains
+integer(pInt) e,i,k,l,m,o,g,s
 integer(pInt) matID,texID
 integer(pInt), dimension(:,:,:), allocatable :: hybridIA_population
 integer(pInt), dimension(texture_maxN) :: Ncomponents,Nsym,multiplicity,sumVolfrac,ODFmap,sampleCount
@@ -1005,7 +1005,7 @@ implicit none
 
 !* Definition of variables
 integer(pInt) ipc,ip,el
-integer(pInt) matID,i,k,l,m,n
+integer(pInt) matID,i
 real(pReal) dt,tau_slip
 real(pReal), dimension(6) :: Tstar_v
 real(pReal), dimension(constitutive_Nstatevars(ipc,ip,el)) :: state
diff --git a/trunk/math.f90 b/trunk/math.f90
index 6348a609e..42ca674e2 100644
--- a/trunk/math.f90
+++ b/trunk/math.f90
@@ -56,7 +56,6 @@
  implicit none
 
  integer (pInt) seed
- real(pReal) poop(3)
  
  call random_seed()
  call get_seed(seed)
@@ -482,7 +481,7 @@
 
  real(pReal), dimension(6) :: v6
  real(pReal), dimension(3,3) :: math_Mandel6to33
- integer(pInt) i,j
+ integer(pInt) i
  
  forall (i=1:6)
   math_Mandel6to33(mapMandel(1,i),mapMandel(2,i)) = invnrmMandel(i)*v6(i)
@@ -891,7 +890,7 @@
 
  real(pReal) M(3,3),EB1(3,3),EB2(3,3),EB3(3,3),EW1,EW2,EW3
  real(pReal) HI1M,HI2M,HI3M,TOL,R,S,T,P,Q,RHO,PHI,Y1,Y2,Y3,D1,D2,D3
- real(pReal) C1,C2,C3,M1(3,3),M2(3,3),M3(3,3),I3(3,3),arg
+ real(pReal) C1,C2,C3,M1(3,3),M2(3,3),M3(3,3),arg
  TOL=1.e-14_pReal
  CALL math_hi(M,HI1M,HI2M,HI3M)
  R=-HI1M
diff --git a/trunk/mesh.f90 b/trunk/mesh.f90
index b9c034f4f..94f93daa2 100644
--- a/trunk/mesh.f90
+++ b/trunk/mesh.f90
@@ -231,7 +231,7 @@
  integer(pInt) face,elem
  integer(pInt) mesh_faceMatch
  integer(pInt), dimension(FE_NfaceNodes(face,FE_mapElemtype(mesh_element(2,elem)))) :: nodeMap
- integer(pInt) minN,NsharedElems,lonelyNode,faceNode,i,j,n,t
+ integer(pInt) minN,NsharedElems,lonelyNode,faceNode,i,n,t
  
  minN = mesh_maxNsharedElems+1 ! init to worst case
  mesh_faceMatch = 0_pInt       ! intialize to "no match found"
@@ -387,7 +387,7 @@ candidate: do i=1,minN  ! iterate over lonelyNode's shared elements
  implicit none
 
  integer(pInt), dimension (mesh_Nnodes) :: node_count
- integer(pInt) unit,i,j,Nnodes,cur_node
+ integer(pInt) unit,i
  integer(pInt), dimension (133) :: pos
  character*300 line
 
@@ -521,7 +521,7 @@ candidate: do i=1,minN  ! iterate over lonelyNode's shared elements
  use IO
  implicit none
 
- integer unit,i,j,t,sv,val,CP_elem
+ integer unit,i,j,sv,val,CP_elem
  integer(pInt), dimension(133) :: pos
  integer(pInt), dimension(1+mesh_NcpElems) :: contInts
  character*300 line