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

This change makes the test work for GNU too 

Probably something was uninitialized and GNU was accessing unallocated memory
This commit is contained in:
Sharan Roongta 2021-06-14 14:58:14 +02:00
parent c64f9eb805
commit 5f01b076d2
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/mesh/FEM_quadrature.f90
View File

@ -224,6 +224,7 @@ pure function permutationStar111(point) result(qPt)
real(pReal), dimension(3,6) :: temp real(pReal), dimension(3,6) :: temp
temp = 0.0_pReal
temp(:,1) = [point(1), point(2), 1.0_pReal - point(1) - point(2)] temp(:,1) = [point(1), point(2), 1.0_pReal - point(1) - point(2)]
temp(:,2) = [point(1), 1.0_pReal - point(1) - point(2), point(2)] temp(:,2) = [point(1), 1.0_pReal - point(1) - point(2), point(2)]
temp(:,4) = [point(2), 1.0_pReal - point(1) - point(2), point(1)] temp(:,4) = [point(2), 1.0_pReal - point(1) - point(2), point(1)]