From 41f09dd0f825753a57c5928d6b5a48736a99a69d Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 12 Sep 2015 18:26:25 +0000 Subject: [PATCH] should make no difference, but test with ifort was failing. compierler buig? --- code/DAMASK_spectral_solverAL.f90 | 3 +-- code/DAMASK_spectral_solverBasicPETSc.f90 | 3 +-- code/DAMASK_spectral_solverPolarisation.f90 | 3 +-- 3 files changed, 3 insertions(+), 6 deletions(-) diff --git a/code/DAMASK_spectral_solverAL.f90 b/code/DAMASK_spectral_solverAL.f90 index 17e4a5748..ea25fc3aa 100644 --- a/code/DAMASK_spectral_solverAL.f90 +++ b/code/DAMASK_spectral_solverAL.f90 @@ -127,7 +127,7 @@ subroutine AL_init math_invSym3333 implicit none - real(pReal), dimension(:,:,:,:,:), allocatable :: P + real(pReal), dimension(3,3,grid(1),grid(2),grid3) :: P real(pReal), dimension(3,3) :: & temp33_Real = 0.0_pReal @@ -145,7 +145,6 @@ subroutine AL_init #include "compilation_info.f90" endif - allocate (P (3,3,grid(1),grid(2),grid3),source = 0.0_pReal) !-------------------------------------------------------------------------------------------------- ! allocate global fields allocate (F_lastInc (3,3,grid(1),grid(2),grid3),source = 0.0_pReal) diff --git a/code/DAMASK_spectral_solverBasicPETSc.f90 b/code/DAMASK_spectral_solverBasicPETSc.f90 index 5b7e0b14c..8ecc508ce 100644 --- a/code/DAMASK_spectral_solverBasicPETSc.f90 +++ b/code/DAMASK_spectral_solverBasicPETSc.f90 @@ -116,7 +116,7 @@ subroutine basicPETSc_init math_invSym3333 implicit none - real(pReal), dimension(:,:,:,:,:), allocatable :: P + real(pReal), dimension(3,3,grid(1),grid(2),grid3) :: P PetscScalar, dimension(:,:,:,:), pointer :: F PetscErrorCode :: ierr PetscObject :: dummy @@ -133,7 +133,6 @@ subroutine basicPETSc_init #include "compilation_info.f90" endif mainProcess - allocate (P (3,3,grid(1),grid(2),grid3),source = 0.0_pReal) !-------------------------------------------------------------------------------------------------- ! allocate global fields allocate (F_lastInc (3,3,grid(1),grid(2),grid3),source = 0.0_pReal) diff --git a/code/DAMASK_spectral_solverPolarisation.f90 b/code/DAMASK_spectral_solverPolarisation.f90 index ca4e1a556..e8137d0fb 100644 --- a/code/DAMASK_spectral_solverPolarisation.f90 +++ b/code/DAMASK_spectral_solverPolarisation.f90 @@ -127,7 +127,7 @@ subroutine Polarisation_init math_invSym3333 implicit none - real(pReal), dimension(:,:,:,:,:), allocatable :: P + real(pReal), dimension(3,3,grid(1),grid(2),grid3) :: P real(pReal), dimension(3,3) :: & temp33_Real = 0.0_pReal @@ -145,7 +145,6 @@ subroutine Polarisation_init #include "compilation_info.f90" endif - allocate (P (3,3,grid(1),grid(2),grid3),source = 0.0_pReal) !-------------------------------------------------------------------------------------------------- ! allocate global fields allocate (F_lastInc (3,3,grid(1),grid(2),grid3),source = 0.0_pReal)