223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

removed several unused variables

This commit is contained in:
Franz Roters 2007-04-24 06:49:13 +00:00
parent c0ebb4d846
commit 3a4ec4c2d1
5 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
trunk/CPFEM.f90
View File

@ -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

2
trunk/IO.f90
View File

@ -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)

10
trunk/constitutive.f90
View File

@ -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

5
trunk/math.f90
View File

@ -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

6
trunk/mesh.f90
View File

@ -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