From 02744406e8b589c2686b86e3799bf42f8f015e23 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 16 Jun 2019 02:11:09 +0200 Subject: [PATCH] was not used --- src/element.f90 | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/src/element.f90 b/src/element.f90 index 8da633082..d62b4fd93 100644 --- a/src/element.f90 +++ b/src/element.f90 @@ -137,21 +137,6 @@ module element 4 & ! 3D 8node ] !< number of cell nodes in a specific cell type - !integer, dimension(maxval(geomType)), parameter, private :: maxNodeAtIP = & ! Intel 16.0 complains - integer, dimension(10), parameter, private :: maxNnodeAtIP = & - [ & - 3, & - 1, & - 1, & - 2, & - 4, & - 1, & - 1, & - 8, & - 1, & - 4 & - ] !< maximum number of parent nodes that belong to an IP for a specific type of element - !integer, dimension(maxval(CELLTYPE)), parameter, private :: NCELLNODEPERCELL = & ! Intel 16.0 complains integer, dimension(4), parameter, private :: NCELLNODEPERCELL = & [ &