From cc925cadee02e78984f46cb2dae14b7bbb26deb8 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Tue, 14 Jun 2011 14:08:13 +0000 Subject: [PATCH] changed output/debug-level relation for two statements --- code/CPFEM.f90 | 2 ++ code/math.f90 | 11 +++++------ 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/code/CPFEM.f90 b/code/CPFEM.f90 index 0e7f78f4b..b6a4058e7 100644 --- a/code/CPFEM.f90 +++ b/code/CPFEM.f90 @@ -536,9 +536,11 @@ subroutine CPFEM_general(mode, coords, ffn, ffn1, Temperature, dt, element, IP, call mesh_build_subNodeCoords() ! update subnodal coordinates call mesh_build_ipVolumes() ! update ip center of gravity endif + if (debug_verbosity > 0) then !$OMP CRITICAL (write2out) write(6,'(a,i5,a,i5)') '<< CPFEM >> Start stress and tangent ',FEsolving_execElem(1),' to ',FEsolving_execElem(2) !$OMP END CRITICAL (write2out) + endif call materialpoint_stressAndItsTangent(updateJaco, dt) ! calculate stress and its tangent (parallel execution inside) call materialpoint_postResults(dt) ! post results !$OMP PARALLEL DO diff --git a/code/math.f90 b/code/math.f90 index 1d358d068..805a3c2ab 100644 --- a/code/math.f90 +++ b/code/math.f90 @@ -164,12 +164,11 @@ real(pReal), dimension(4,36), parameter :: math_symOperations = & endif call random_seed(get=randInit) - if (debug_verbosity > 0) then - !$OMP CRITICAL (write2out) - ! this critical block did cause trouble at IWM - write(6,*) 'random seed: ',randInit(1) - write(6,*) - !$OMP END CRITICAL (write2out) + !$OMP CRITICAL (write2out) + ! this critical block did cause trouble at IWM + write(6,*) 'random seed: ',randInit(1) + write(6,*) + !$OMP END CRITICAL (write2out) endif call halton_seed_set(randInit(1))