From 9553a7838bcdd0dd02c107511ec915eba3839706 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 6 May 2020 22:15:09 +0200 Subject: [PATCH] needs to be logical --- src/mesh/discretization_mesh.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mesh/discretization_mesh.f90 b/src/mesh/discretization_mesh.f90 index b98cbbfad..0880de115 100644 --- a/src/mesh/discretization_mesh.f90 +++ b/src/mesh/discretization_mesh.f90 @@ -65,7 +65,7 @@ contains !-------------------------------------------------------------------------------------------------- subroutine discretization_mesh_init(restart) - integer, intent(in) :: restart + logical, intent(in) :: restart integer, dimension(1), parameter:: FE_geomtype = [1] !< geometry type of particular element type integer, dimension(1) :: FE_Nips !< number of IPs in a specific type of element