From b9b87a785c3e5af3d477e3b546b0c9bba49b8737 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Mon, 3 Feb 2014 13:19:49 +0000 Subject: [PATCH] added crystallite_F to debugging output --- code/crystallite.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/code/crystallite.f90 b/code/crystallite.f90 index ffe192d8f..000c4426c 100644 --- a/code/crystallite.f90 +++ b/code/crystallite.f90 @@ -663,6 +663,8 @@ subroutine crystallite_stressAndItsTangent(updateJaco,rate_sensitivity) math_transpose33(crystallite_partionedFp0(1:3,1:3,debug_g,debug_i,debug_e)) write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> Lp0', & math_transpose33(crystallite_partionedLp0(1:3,1:3,debug_g,debug_i,debug_e)) + write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> F ', & + math_transpose33(crystallite_partionedF(1:3,1:3,debug_g,debug_i,debug_e)) !$OMP END CRITICAL (write2out) endif