From 98e606d6f0c4e061548c49c894fdc09b02db71b7 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 19 Dec 2019 00:00:00 +0100 Subject: [PATCH] correct type --- src/mesh_grid.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mesh_grid.f90 b/src/mesh_grid.f90 index d10ffef8a..3d839e1c9 100644 --- a/src/mesh_grid.f90 +++ b/src/mesh_grid.f90 @@ -367,7 +367,7 @@ pure function cellEdgeNormal(nElems) integer, intent(in) :: nElems - real, dimension(3,6,1,nElems) :: cellEdgeNormal + real(pReal), dimension(3,6,1,nElems) :: cellEdgeNormal cellEdgeNormal(1:3,1,1,:) = spread([+1.0_pReal, 0.0_pReal, 0.0_pReal],2,nElems) cellEdgeNormal(1:3,2,1,:) = spread([-1.0_pReal, 0.0_pReal, 0.0_pReal],2,nElems)