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

added use statements

This commit is contained in:
Martin Diehl 2013-02-05 15:03:36 +00:00
parent 865842b0ed
commit 4997328de1
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
code/DAMASK_spectral_solverAL.f90
View File

@ -95,7 +95,8 @@ subroutine AL_init(temperature)
geomdim, & geomdim, &
wgt, & wgt, &
mesh_NcpElems, & mesh_NcpElems, &
mesh_ipCoordinates mesh_ipCoordinates, &
mesh_deformedCoordsFFT
use math, only: & use math, only: &
math_invSym3333 math_invSym3333
@ -218,10 +219,12 @@ type(tSolutionState) function &
use math, only: & use math, only: &
math_mul33x33 ,& math_mul33x33 ,&
math_rotate_backward33 math_rotate_backward33
use mesh, only: & use mesh, only: &
res,& res, &
geomdim,& geomdim, &
mesh_ipCoordinates mesh_NcpElems, &
mesh_ipCoordinates, &
mesh_deformedCoordsFFT
use IO, only: & use IO, only: &
IO_write_JobBinaryFile IO_write_JobBinaryFile
use DAMASK_spectral_Utilities, only: & use DAMASK_spectral_Utilities, only: &