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

get rid of overly long file names 1/2

This commit is contained in:
Martin Diehl 2015-12-15 20:45:54 +00:00
parent 4fb5c4a32e
commit 9baec1a0ff
9 changed files with 49 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/DAMASK_spectral_driver.f90 → code/DAMASK_spectral.f90
View File

@ -65,7 +65,7 @@ program DAMASK_spectral_Driver
damage_type, & damage_type, &
THERMAL_conduction_ID, & THERMAL_conduction_ID, &
DAMAGE_nonlocal_ID DAMAGE_nonlocal_ID
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
utilities_init, & utilities_init, &
utilities_destroy, & utilities_destroy, &
tSolutionState, & tSolutionState, &

12
code/DAMASK_spectral_solverAL.f90
View File

@ -12,7 +12,7 @@ module DAMASK_spectral_solverAL
pReal pReal
use math, only: & use math, only: &
math_I3 math_I3
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
tSolutionState, & tSolutionState, &
tSolutionParams tSolutionParams
@ -116,7 +116,7 @@ subroutine AL_init
worldsize worldsize
use DAMASK_interface, only: & use DAMASK_interface, only: &
getSolverJobName getSolverJobName
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
Utilities_constitutiveResponse, & Utilities_constitutiveResponse, &
Utilities_updateGamma, & Utilities_updateGamma, &
Utilities_updateIPcoords Utilities_updateIPcoords
@ -259,7 +259,7 @@ type(tSolutionState) function &
update_gamma update_gamma
use math, only: & use math, only: &
math_invSym3333 math_invSym3333
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
tBoundaryCondition, & tBoundaryCondition, &
Utilities_maskedCompliance, & Utilities_maskedCompliance, &
Utilities_updateGamma Utilities_updateGamma
@ -347,7 +347,7 @@ subroutine AL_formResidual(in,x_scal,f_scal,dummy,ierr)
math_mul3333xx33, & math_mul3333xx33, &
math_invSym3333, & math_invSym3333, &
math_mul33x33 math_mul33x33
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
wgt, & wgt, &
tensorField_real, & tensorField_real, &
utilities_FFTtensorForward, & utilities_FFTtensorForward, &
@ -570,7 +570,7 @@ subroutine AL_forward(guess,timeinc,timeinc_old,loadCaseTime,F_BC,P_BC,rotation_
use mesh, only: & use mesh, only: &
grid3, & grid3, &
grid grid
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
Utilities_calculateRate, & Utilities_calculateRate, &
Utilities_forwardField, & Utilities_forwardField, &
Utilities_updateIPcoords, & Utilities_updateIPcoords, &
@ -701,7 +701,7 @@ end subroutine AL_forward
!> @brief destroy routine !> @brief destroy routine
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine AL_destroy() subroutine AL_destroy()
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
Utilities_destroy Utilities_destroy
implicit none implicit none

12
code/DAMASK_spectral_solverBasicPETSc.f90
View File

@ -12,7 +12,7 @@ module DAMASK_spectral_SolverBasicPETSc
pReal pReal
use math, only: & use math, only: &
math_I3 math_I3
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
tSolutionState, & tSolutionState, &
tSolutionParams tSolutionParams
@ -104,7 +104,7 @@ subroutine basicPETSc_init
worldsize worldsize
use DAMASK_interface, only: & use DAMASK_interface, only: &
getSolverJobName getSolverJobName
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
Utilities_constitutiveResponse, & Utilities_constitutiveResponse, &
Utilities_updateGamma, & Utilities_updateGamma, &
utilities_updateIPcoords, & utilities_updateIPcoords, &
@ -230,7 +230,7 @@ type(tSolutionState) function &
IO_error IO_error
use numerics, only: & use numerics, only: &
update_gamma update_gamma
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
tBoundaryCondition, & tBoundaryCondition, &
Utilities_maskedCompliance, & Utilities_maskedCompliance, &
Utilities_updateGamma Utilities_updateGamma
@ -314,7 +314,7 @@ subroutine BasicPETSC_formResidual(in,x_scal,f_scal,dummy,ierr)
debug_level, & debug_level, &
debug_spectral, & debug_spectral, &
debug_spectralRotation debug_spectralRotation
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
tensorField_real, & tensorField_real, &
utilities_FFTtensorForward, & utilities_FFTtensorForward, &
utilities_FFTtensorBackward, & utilities_FFTtensorBackward, &
@ -457,7 +457,7 @@ subroutine BasicPETSc_forward(guess,timeinc,timeinc_old,loadCaseTime,F_BC,P_BC,r
use mesh, only: & use mesh, only: &
grid, & grid, &
grid3 grid3
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
Utilities_calculateRate, & Utilities_calculateRate, &
Utilities_forwardField, & Utilities_forwardField, &
utilities_updateIPcoords, & utilities_updateIPcoords, &
@ -555,7 +555,7 @@ end subroutine BasicPETSc_forward
!> @brief destroy routine !> @brief destroy routine
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine BasicPETSc_destroy() subroutine BasicPETSc_destroy()
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
Utilities_destroy Utilities_destroy
implicit none implicit none

12
code/DAMASK_spectral_solverPolarisation.f90
View File

@ -12,7 +12,7 @@ module DAMASK_spectral_solverPolarisation
pReal pReal
use math, only: & use math, only: &
math_I3 math_I3
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
tSolutionState, & tSolutionState, &
tSolutionParams tSolutionParams
@ -116,7 +116,7 @@ subroutine Polarisation_init
worldsize worldsize
use DAMASK_interface, only: & use DAMASK_interface, only: &
getSolverJobName getSolverJobName
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
Utilities_constitutiveResponse, & Utilities_constitutiveResponse, &
Utilities_updateGamma, & Utilities_updateGamma, &
Utilities_updateIPcoords Utilities_updateIPcoords
@ -258,7 +258,7 @@ type(tSolutionState) function &
update_gamma update_gamma
use math, only: & use math, only: &
math_invSym3333 math_invSym3333
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
tBoundaryCondition, & tBoundaryCondition, &
Utilities_maskedCompliance, & Utilities_maskedCompliance, &
Utilities_updateGamma Utilities_updateGamma
@ -346,7 +346,7 @@ subroutine Polarisation_formResidual(in,x_scal,f_scal,dummy,ierr)
math_mul3333xx33, & math_mul3333xx33, &
math_invSym3333, & math_invSym3333, &
math_mul33x33 math_mul33x33
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
wgt, & wgt, &
tensorField_real, & tensorField_real, &
utilities_FFTtensorForward, & utilities_FFTtensorForward, &
@ -568,7 +568,7 @@ subroutine Polarisation_forward(guess,timeinc,timeinc_old,loadCaseTime,F_BC,P_BC
use mesh, only: & use mesh, only: &
grid3, & grid3, &
grid grid
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
Utilities_calculateRate, & Utilities_calculateRate, &
Utilities_forwardField, & Utilities_forwardField, &
Utilities_updateIPcoords, & Utilities_updateIPcoords, &
@ -698,7 +698,7 @@ end subroutine Polarisation_forward
!> @brief destroy routine !> @brief destroy routine
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine Polarisation_destroy() subroutine Polarisation_destroy()
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
Utilities_destroy Utilities_destroy
implicit none implicit none

32
code/Makefile
View File

@ -332,11 +332,11 @@ DAMASK_spectral.exe: COMPILE_MAXOPTI += -DSpectral
DAMASK_spectral.exe: MESHNAME := mesh.f90 DAMASK_spectral.exe: MESHNAME := mesh.f90
DAMASK_spectral.exe: INTERFACENAME := DAMASK_spectral_interface.f90 DAMASK_spectral.exe: INTERFACENAME := DAMASK_spectral_interface.f90
DAMASK_spectral_driver.o: IGNORE := \# DAMASK_spectral.o: IGNORE := \#
DAMASK_spectral_driver.o: COMPILE += -DSpectral DAMASK_spectral.o: COMPILE += -DSpectral
DAMASK_spectral_driver.o: COMPILE_MAXOPTI += -DSpectral DAMASK_spectral.o: COMPILE_MAXOPTI += -DSpectral
DAMASK_spectral_driver.o: MESHNAME := mesh.f90 DAMASK_spectral.o: MESHNAME := mesh.f90
DAMASK_spectral_driver.o: INTERFACENAME := DAMASK_spectral_interface.f90 DAMASK_spectral.o: INTERFACENAME := DAMASK_spectral_interface.f90
SPECTRAL_SOLVER_FILES = DAMASK_spectral_solverAL.o DAMASK_spectral_solverBasicPETSc.o DAMASK_spectral_solverPolarisation.o \ SPECTRAL_SOLVER_FILES = DAMASK_spectral_solverAL.o DAMASK_spectral_solverBasicPETSc.o DAMASK_spectral_solverPolarisation.o \
@ -349,35 +349,35 @@ SPECTRAL_FILES = prec.o DAMASK_interface.o IO.o libs.o numerics.o debug.o math.o
$(THERMAL_FILES) $(DAMAGE_FILES) $(VACANCYFLUX_FILES) $(HYDROGENFLUX_FILES) $(POROSITY_FILES) \ $(THERMAL_FILES) $(DAMAGE_FILES) $(VACANCYFLUX_FILES) $(HYDROGENFLUX_FILES) $(POROSITY_FILES) \
$(HOMOGENIZATION_FILES) homogenization.o \ $(HOMOGENIZATION_FILES) homogenization.o \
CPFEM.o \ CPFEM.o \
DAMASK_spectral_utilities.o \ spectral_utilities.o \
$(SPECTRAL_SOLVER_FILES) $(SPECTRAL_SOLVER_FILES)
DAMASK_spectral.exe: DAMASK_spectral_driver.o DAMASK_spectral.exe: DAMASK_spectral.o
$(PREFIX) $(LINKERNAME) $(OPENMP_FLAG_$(F90)) $(LINK_OPTIONS_$(F90)) $(STANDARD_CHECK_$(F90)) $(OPTIMIZATION_$(MAXOPTI)_$(F90)) \ $(PREFIX) $(LINKERNAME) $(OPENMP_FLAG_$(F90)) $(LINK_OPTIONS_$(F90)) $(STANDARD_CHECK_$(F90)) $(OPTIMIZATION_$(MAXOPTI)_$(F90)) \
-o DAMASK_spectral.exe DAMASK_spectral_driver.o \ -o DAMASK_spectral.exe DAMASK_spectral.o \
$(SPECTRAL_FILES) $(LIBRARIES) $(SUFFIX) $(SPECTRAL_FILES) $(LIBRARIES) $(SUFFIX)
DAMASK_spectral_driver.o: DAMASK_spectral_driver.f90 \ DAMASK_spectral.o: DAMASK_spectral.f90 \
$(SPECTRAL_SOLVER_FILES) $(SPECTRAL_SOLVER_FILES)
$(PREFIX) $(COMPILERNAME) $(COMPILE_MAXOPTI) -c DAMASK_spectral_driver.f90 $(SUFFIX) $(PREFIX) $(COMPILERNAME) $(COMPILE_MAXOPTI) -c DAMASK_spectral.f90 $(SUFFIX)
DAMASK_spectral_solverAL.o: DAMASK_spectral_solverAL.f90 \ DAMASK_spectral_solverAL.o: DAMASK_spectral_solverAL.f90 \
DAMASK_spectral_utilities.o spectral_utilities.o
DAMASK_spectral_solverPolarisation.o: DAMASK_spectral_solverPolarisation.f90 \ DAMASK_spectral_solverPolarisation.o: DAMASK_spectral_solverPolarisation.f90 \
DAMASK_spectral_utilities.o spectral_utilities.o
DAMASK_spectral_solverBasicPETSc.o: DAMASK_spectral_solverBasicPETSc.f90 \ DAMASK_spectral_solverBasicPETSc.o: DAMASK_spectral_solverBasicPETSc.f90 \
DAMASK_spectral_utilities.o spectral_utilities.o
spectral_thermal.o: spectral_thermal.f90 \ spectral_thermal.o: spectral_thermal.f90 \
DAMASK_spectral_utilities.o spectral_utilities.o
spectral_damage.o: spectral_damage.f90 \ spectral_damage.o: spectral_damage.f90 \
DAMASK_spectral_utilities.o spectral_utilities.o
DAMASK_spectral_utilities.o: DAMASK_spectral_utilities.f90 \ spectral_utilities.o: spectral_utilities.f90 \
CPFEM.o CPFEM.o
##################### #####################

2
code/mesh.f90
View File

@ -736,7 +736,7 @@ integer(pInt) function mesh_FEasCP(what,myID)
mesh_FEasCP = lookupMap(2_pInt,upper) mesh_FEasCP = lookupMap(2_pInt,upper)
return return
endif endif
! this might be the reason for the heap problems
binarySearch: do while (upper-lower > 1_pInt) binarySearch: do while (upper-lower > 1_pInt)
center = (lower+upper)/2_pInt center = (lower+upper)/2_pInt
if (lookupMap(1_pInt,center) < myID) then if (lookupMap(1_pInt,center) < myID) then

10
code/spectral_damage.f90
View File

@ -11,7 +11,7 @@ module spectral_damage
pReal pReal
use math, only: & use math, only: &
math_I3 math_I3
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
tSolutionState, & tSolutionState, &
tSolutionParams tSolutionParams
use numerics, only: & use numerics, only: &
@ -82,7 +82,7 @@ subroutine spectral_damage_init()
IO_intOut, & IO_intOut, &
IO_read_realFile, & IO_read_realFile, &
IO_timeStamp IO_timeStamp
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
wgt wgt
use mesh, only: & use mesh, only: &
grid, & grid, &
@ -179,7 +179,7 @@ type(tSolutionState) function spectral_damage_solution(guess,timeinc,timeinc_old
itmax, & itmax, &
err_damage_tolAbs, & err_damage_tolAbs, &
err_damage_tolRel err_damage_tolRel
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
tBoundaryCondition, & tBoundaryCondition, &
Utilities_maskedCompliance, & Utilities_maskedCompliance, &
Utilities_updateGamma Utilities_updateGamma
@ -265,7 +265,7 @@ subroutine spectral_damage_formResidual(in,x_scal,f_scal,dummy,ierr)
grid3 grid3
use math, only: & use math, only: &
math_mul33x3 math_mul33x3
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
scalarField_real, & scalarField_real, &
vectorField_real, & vectorField_real, &
utilities_FFTvectorForward, & utilities_FFTvectorForward, &
@ -346,7 +346,7 @@ subroutine spectral_damage_forward(guess,timeinc,timeinc_old,loadCaseTime)
use mesh, only: & use mesh, only: &
grid, & grid, &
grid3 grid3
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
cutBack, & cutBack, &
wgt wgt
use damage_nonlocal, only: & use damage_nonlocal, only: &

10
code/spectral_thermal.f90
View File

@ -11,7 +11,7 @@ module spectral_thermal
pReal pReal
use math, only: & use math, only: &
math_I3 math_I3
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
tSolutionState, & tSolutionState, &
tSolutionParams tSolutionParams
use numerics, only: & use numerics, only: &
@ -82,7 +82,7 @@ subroutine spectral_thermal_init
IO_intOut, & IO_intOut, &
IO_read_realFile, & IO_read_realFile, &
IO_timeStamp IO_timeStamp
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
wgt wgt
use mesh, only: & use mesh, only: &
grid, & grid, &
@ -181,7 +181,7 @@ type(tSolutionState) function spectral_thermal_solution(guess,timeinc,timeinc_ol
itmax, & itmax, &
err_thermal_tolAbs, & err_thermal_tolAbs, &
err_thermal_tolRel err_thermal_tolRel
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
tBoundaryCondition, & tBoundaryCondition, &
Utilities_maskedCompliance, & Utilities_maskedCompliance, &
Utilities_updateGamma Utilities_updateGamma
@ -267,7 +267,7 @@ subroutine spectral_thermal_formResidual(in,x_scal,f_scal,dummy,ierr)
grid3 grid3
use math, only: & use math, only: &
math_mul33x3 math_mul33x3
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
scalarField_real, & scalarField_real, &
vectorField_real, & vectorField_real, &
utilities_FFTvectorForward, & utilities_FFTvectorForward, &
@ -345,7 +345,7 @@ subroutine spectral_thermal_forward(guess,timeinc,timeinc_old,loadCaseTime)
use mesh, only: & use mesh, only: &
grid, & grid, &
grid3 grid3
use DAMASK_spectral_Utilities, only: & use spectral_utilities, only: &
cutBack, & cutBack, &
wgt wgt
use thermal_conduction, only: & use thermal_conduction, only: &

6
code/DAMASK_spectral_utilities.f90 → code/spectral_utilities.f90
View File

@ -6,7 +6,7 @@
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @brief Utilities used by the different spectral solver variants !> @brief Utilities used by the different spectral solver variants
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
module DAMASK_spectral_utilities module spectral_utilities
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
use prec, only: & use prec, only: &
pReal, & pReal, &
@ -223,7 +223,7 @@ subroutine utilities_init()
tensorSize = 9_C_INTPTR_T tensorSize = 9_C_INTPTR_T
mainProcess: if (worldrank == 0) then mainProcess: if (worldrank == 0) then
write(6,'(/,a)') ' <<<+- DAMASK_spectral_utilities init -+>>>' write(6,'(/,a)') ' <<<+- spectral_utilities init -+>>>'
write(6,'(a)') ' $Id$' write(6,'(a)') ' $Id$'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp() write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
@ -1290,4 +1290,4 @@ subroutine utilities_destroy()
end subroutine utilities_destroy end subroutine utilities_destroy
end module DAMASK_spectral_utilities end module spectral_utilities