From 0240bec5b3f3a093b22dc628eb34797c96546a01 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 27 May 2021 08:25:48 +0200 Subject: [PATCH] consistent reporting --- src/homogenization_mechanical_RGC.f90 | 2 +- src/homogenization_mechanical_isostrain.f90 | 2 +- src/homogenization_mechanical_pass.f90 | 2 +- src/phase_mechanical_eigen_thermalexpansion.f90 | 1 - src/phase_mechanical_elastic.f90 | 3 +++ 5 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/homogenization_mechanical_RGC.f90 b/src/homogenization_mechanical_RGC.f90 index 745c266d4..8712bb800 100644 --- a/src/homogenization_mechanical_RGC.f90 +++ b/src/homogenization_mechanical_RGC.f90 @@ -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' diff --git a/src/homogenization_mechanical_isostrain.f90 b/src/homogenization_mechanical_isostrain.f90 index 7b114d04f..4a11ecd2a 100644 --- a/src/homogenization_mechanical_isostrain.f90 +++ b/src/homogenization_mechanical_isostrain.f90 @@ -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) diff --git a/src/homogenization_mechanical_pass.f90 b/src/homogenization_mechanical_pass.f90 index e2e44658a..6d2d64eb4 100644 --- a/src/homogenization_mechanical_pass.f90 +++ b/src/homogenization_mechanical_pass.f90 @@ -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) diff --git a/src/phase_mechanical_eigen_thermalexpansion.f90 b/src/phase_mechanical_eigen_thermalexpansion.f90 index dd2ff5c16..3cfeb2f06 100644 --- a/src/phase_mechanical_eigen_thermalexpansion.f90 +++ b/src/phase_mechanical_eigen_thermalexpansion.f90 @@ -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 diff --git a/src/phase_mechanical_elastic.f90 b/src/phase_mechanical_elastic.f90 index 0e3f58609..94622d359 100644 --- a/src/phase_mechanical_elastic.f90 +++ b/src/phase_mechanical_elastic.f90 @@ -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))