From 78eee9fe962d80b8a9dbc94ed41fd84469e305e3 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Wed, 15 Jul 2020 00:54:16 +0200 Subject: [PATCH] unnecessary debug output --- src/CPFEM.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/CPFEM.f90 b/src/CPFEM.f90 index e257f8e55..f2b906b89 100644 --- a/src/CPFEM.f90 +++ b/src/CPFEM.f90 @@ -248,7 +248,7 @@ subroutine CPFEM_general(mode, ffn, ffn1, temperature_inp, dt, elFE, ip, cauchyS endif validCalculation if (debugCPFEM%extensive & - .and. (debugCPFEM%element == elCP .and. debugCPFEM%ip == ip) .or. .not. debugCPFEM%selective) then + .and. ((debugCPFEM%element == elCP .and. debugCPFEM%ip == ip) .or. .not. debugCPFEM%selective)) then write(6,'(a,i8,1x,i2,/,12x,6(f10.3,1x)/)') & '<< CPFEM >> stress/MPa at elFE ip ', elFE, ip, CPFEM_cs(1:6,ip,elCP)*1.0e-6_pReal write(6,'(a,i8,1x,i2,/,6(12x,6(f10.3,1x)/))') &