From 08d2cdcb2509ddf57152ded13606d7ef0e5292b2 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 19 Sep 2019 14:24:13 -0700 Subject: [PATCH] forall is deprecated in Fortran 2018 --- src/lattice.f90 | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/lattice.f90 b/src/lattice.f90 index 62bee459a..b711aea9d 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -736,13 +736,17 @@ pure function lattice_symmetrizeC66(struct,C66) select case(struct) case (LATTICE_iso_ID) do k=1,3 - forall(j=1:3) lattice_symmetrizeC66(k,j) = C66(1,2) + do j=1,3 + lattice_symmetrizeC66(k,j) = C66(1,2) + enddo lattice_symmetrizeC66(k,k) = C66(1,1) lattice_symmetrizeC66(k+3,k+3) = 0.5_pReal*(C66(1,1)-C66(1,2)) enddo case (LATTICE_fcc_ID,LATTICE_bcc_ID) do k=1,3 - forall(j=1:3) lattice_symmetrizeC66(k,j) = C66(1,2) + do j=1,3 + lattice_symmetrizeC66(k,j) = C66(1,2) + enddo lattice_symmetrizeC66(k,k) = C66(1,1) lattice_symmetrizeC66(k+3,k+3) = C66(4,4) enddo