From 714c9b1ecb87d4745cc932e164220f65a861b534 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 10 Mar 2019 09:08:06 +0100 Subject: [PATCH] PGI does not no "do concurrent" (yet) --- src/constitutive.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/constitutive.f90 b/src/constitutive.f90 index b05b3e3d5..9a39aa6d2 100644 --- a/src/constitutive.f90 +++ b/src/constitutive.f90 @@ -478,7 +478,7 @@ subroutine constitutive_LpAndItsTangents(Lp, dLp_dS, dLp_dFi, & end select plasticityType -#ifdef __INTEL_COMPILER +#if defined(__INTEL_COMPILER) || defined(__PGI) forall(i = 1_pInt:3_pInt, j = 1_pInt:3_pInt) #else do concurrent(i = 1_pInt:3_pInt, j = 1_pInt:3_pInt) @@ -486,7 +486,7 @@ subroutine constitutive_LpAndItsTangents(Lp, dLp_dS, dLp_dFi, & dLp_dFi(i,j,1:3,1:3) = math_mul33x33(math_mul33x33(Fi,S),transpose(dLp_dMp(i,j,1:3,1:3))) + & math_mul33x33(math_mul33x33(Fi,dLp_dMp(i,j,1:3,1:3)),S) dLp_dS(i,j,1:3,1:3) = math_mul33x33(math_mul33x33(transpose(Fi),Fi),dLp_dMp(i,j,1:3,1:3)) ! ToDo: @PS: why not: dLp_dMp:(FiT Fi) -#ifdef __INTEL_COMPILER +#if defined(__INTEL_COMPILER) || defined(__PGI) end forall #else enddo @@ -1167,4 +1167,5 @@ subroutine constitutive_results() end subroutine constitutive_results + end module constitutive