needs to be logical

This commit is contained in:
Martin Diehl 2020-05-06 22:15:09 +02:00
parent 0f2447d413
commit 9553a7838b
1 changed files with 1 additions and 1 deletions

View File

@ -65,7 +65,7 @@ contains
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine discretization_mesh_init(restart) 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), parameter:: FE_geomtype = [1] !< geometry type of particular element type
integer, dimension(1) :: FE_Nips !< number of IPs in a specific type of element integer, dimension(1) :: FE_Nips !< number of IPs in a specific type of element