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

minor changes on buggy latest commit (wrong use statement)

This commit is contained in:
Martin Diehl 2013-01-08 21:54:25 +00:00
parent fd0e096256
commit 4eaa97b33c
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/DAMASK_spectral_driver.f90
View File

@ -70,7 +70,7 @@ program DAMASK_spectral_Driver
integer(pInt) :: incs = 0_pInt, & !< number of increments integer(pInt) :: incs = 0_pInt, & !< number of increments
outputfrequency = 1_pInt, & !< frequency of result writes outputfrequency = 1_pInt, & !< frequency of result writes
restartfrequency = 0_pInt, & !< frequency of restart writes restartfrequency = 0_pInt, & !< frequency of restart writes
logscale = 0_pInt !< linear/logaritmic time inc flag logscale = 0_pInt !< linear/logarithmic time inc flag
logical :: followFormerTrajectory = .true. !< follow trajectory of former loadcase logical :: followFormerTrajectory = .true. !< follow trajectory of former loadcase
end type tLoadCase end type tLoadCase

9
code/constitutive.f90
View File

@ -729,11 +729,14 @@ end subroutine constitutive_TandItsTangent
!* - el : current element * !* - el : current element *
!************************************************************************ !************************************************************************
pure subroutine constitutive_hooke_TandItsTangent(T, dT_dFe, Fe, g, i, e) pure subroutine constitutive_hooke_TandItsTangent(T, dT_dFe, Fe, g, i, e)
use prec, only: &
pReal
use math, only : & use math, only : &
math_mul33x33, & math_mul33x33, &
math_mul3333xx33, &
math_Mandel66to3333, & math_Mandel66to3333, &
math_transpose33 math_transpose33, &
math_I3
implicit none implicit none
!* Definition of variables !* Definition of variables
@ -741,7 +744,7 @@ implicit none
integer(pInt), intent(in) :: g, i, e integer(pInt), intent(in) :: g, i, e
real(pReal), dimension(3,3), intent(in) :: Fe real(pReal), dimension(3,3), intent(in) :: Fe
integer(pInt) p, o integer(pInt) :: p, o
real(pReal), dimension(3,3), intent(out) :: T real(pReal), dimension(3,3), intent(out) :: T
real(pReal), dimension(3,3,3,3), intent(out) :: dT_dFe real(pReal), dimension(3,3,3,3), intent(out) :: dT_dFe