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

consistent reporting

This commit is contained in:
Martin Diehl 2021-05-27 08:25:48 +02:00
parent bdb4029fb5
commit 0240bec5b3
5 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/homogenization_mechanical_RGC.f90
View File

@ -89,7 +89,7 @@ module subroutine RGC_init(num_homogMech)
print'(/,a)', ' <<<+- homogenization:mechanical:RGC init -+>>>'
print'(a,i2)', ' # instances: ',count(homogenization_type == HOMOGENIZATION_RGC_ID)
print'(a,i0)', ' # homogenizations: ',count(homogenization_type == HOMOGENIZATION_RGC_ID)
flush(IO_STDOUT)
print*, 'D.D. Tjahjanto et al., International Journal of Material Forming 2(1):939–942, 2009'

2
src/homogenization_mechanical_isostrain.f90
View File

@ -19,7 +19,7 @@ module subroutine isostrain_init
print'(/,a)', ' <<<+- homogenization:mechanical:isostrain init -+>>>'
print'(a,i2)', ' # instances: ',count(homogenization_type == HOMOGENIZATION_ISOSTRAIN_ID)
print'(a,i0)', ' # homogenizations: ',count(homogenization_type == HOMOGENIZATION_ISOSTRAIN_ID)
flush(IO_STDOUT)
do ho = 1, size(homogenization_type)

2
src/homogenization_mechanical_pass.f90
View File

@ -19,7 +19,7 @@ module subroutine pass_init
print'(/,a)', ' <<<+- homogenization:mechanical:pass init -+>>>'
print'(a,i2)', ' # instances: ',count(homogenization_type == HOMOGENIZATION_NONE_ID)
print'(a,i0)', ' # homogenizations: ',count(homogenization_type == HOMOGENIZATION_NONE_ID)
flush(IO_STDOUT)
do ho = 1, size(homogenization_type)

1
src/phase_mechanical_eigen_thermalexpansion.f90
View File

@ -70,7 +70,6 @@ module function thermalexpansion_init(kinematics_length) result(myKinematics)
prm%A(1:3,1:3,i) = lattice_applyLatticeSymmetry33(prm%A(1:3,1:3,i),&
phase%get_asString('lattice'))
enddo
print*, prm%A
end associate
endif
enddo

3
src/phase_mechanical_elastic.f90
View File

@ -25,6 +25,9 @@ module subroutine elastic_init(phases)
print'(/,a)', ' <<<+- phase:mechanical:elastic init -+>>>'
print'(/,a)', ' <<<+- phase:mechanical:elastic:Hooke init -+>>>'
print'(a,i0)', ' # phases: ',phases%length; flush(IO_STDOUT)
allocate(param(phases%length))