223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

should make no difference, but test with ifort was failing. compierler buig?

This commit is contained in:
Martin Diehl 2015-09-12 18:26:25 +00:00
parent f8bfbb4544
commit 41f09dd0f8
3 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
code/DAMASK_spectral_solverAL.f90
View File

@ -127,7 +127,7 @@ subroutine AL_init
math_invSym3333 math_invSym3333
implicit none implicit none
real(pReal), dimension(:,:,:,:,:), allocatable :: P real(pReal), dimension(3,3,grid(1),grid(2),grid3) :: P
real(pReal), dimension(3,3) :: & real(pReal), dimension(3,3) :: &
temp33_Real = 0.0_pReal temp33_Real = 0.0_pReal
@ -145,7 +145,6 @@ subroutine AL_init
#include "compilation_info.f90" #include "compilation_info.f90"
endif endif
allocate (P (3,3,grid(1),grid(2),grid3),source = 0.0_pReal)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! allocate global fields ! allocate global fields
allocate (F_lastInc (3,3,grid(1),grid(2),grid3),source = 0.0_pReal) allocate (F_lastInc (3,3,grid(1),grid(2),grid3),source = 0.0_pReal)

3
code/DAMASK_spectral_solverBasicPETSc.f90
View File

@ -116,7 +116,7 @@ subroutine basicPETSc_init
math_invSym3333 math_invSym3333
implicit none implicit none
real(pReal), dimension(:,:,:,:,:), allocatable :: P real(pReal), dimension(3,3,grid(1),grid(2),grid3) :: P
PetscScalar, dimension(:,:,:,:), pointer :: F PetscScalar, dimension(:,:,:,:), pointer :: F
PetscErrorCode :: ierr PetscErrorCode :: ierr
PetscObject :: dummy PetscObject :: dummy
@ -133,7 +133,6 @@ subroutine basicPETSc_init
#include "compilation_info.f90" #include "compilation_info.f90"
endif mainProcess endif mainProcess
allocate (P (3,3,grid(1),grid(2),grid3),source = 0.0_pReal)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! allocate global fields ! allocate global fields
allocate (F_lastInc (3,3,grid(1),grid(2),grid3),source = 0.0_pReal) allocate (F_lastInc (3,3,grid(1),grid(2),grid3),source = 0.0_pReal)

3
code/DAMASK_spectral_solverPolarisation.f90
View File

@ -127,7 +127,7 @@ subroutine Polarisation_init
math_invSym3333 math_invSym3333
implicit none implicit none
real(pReal), dimension(:,:,:,:,:), allocatable :: P real(pReal), dimension(3,3,grid(1),grid(2),grid3) :: P
real(pReal), dimension(3,3) :: & real(pReal), dimension(3,3) :: &
temp33_Real = 0.0_pReal temp33_Real = 0.0_pReal
@ -145,7 +145,6 @@ subroutine Polarisation_init
#include "compilation_info.f90" #include "compilation_info.f90"
endif endif
allocate (P (3,3,grid(1),grid(2),grid3),source = 0.0_pReal)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! allocate global fields ! allocate global fields
allocate (F_lastInc (3,3,grid(1),grid(2),grid3),source = 0.0_pReal) allocate (F_lastInc (3,3,grid(1),grid(2),grid3),source = 0.0_pReal)