From ebef12e44600679f85a52a05d9f56c2dc8f4163a Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 23 Sep 2018 19:04:17 +0200 Subject: [PATCH] syntax errors in declaration --- src/mesh.f90 | 6 +++--- src/meshFEM.f90 | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/mesh.f90 b/src/mesh.f90 index c32ddbce6..8736f10ac 100644 --- a/src/mesh.f90 +++ b/src/mesh.f90 @@ -482,12 +482,12 @@ subroutine mesh_init(ip,el) numerics_unitlength, & worldrank use FEsolving, only: & - FEsolving_execElem, & #ifndef Spectral modelName, & - calcMode + calcMode, & #endif - FEsolving_execIP, & + FEsolving_execElem, & + FEsolving_execIP implicit none #ifdef Spectral diff --git a/src/meshFEM.f90 b/src/meshFEM.f90 index afead2b07..68113eaf2 100644 --- a/src/meshFEM.f90 +++ b/src/meshFEM.f90 @@ -25,11 +25,11 @@ use PETScis mesh_NcpElems, & !< total number of CP elements in mesh mesh_NcpElemsGlobal, & mesh_Nnodes, & !< total number of nodes in mesh - mesh_maxNipNeighbors, & !< max number of IP neighbors in any CP element + mesh_NipsPerElem, & !< number of IPs in per element mesh_maxNipNeighbors !!!! BEGIN DEPRECATED !!!!! integer(pInt), public, protected :: & - mesh_maxNips, & !< max number of IPs in any CP element + mesh_maxNips !< max number of IPs in any CP element !!!! BEGIN DEPRECATED !!!!! integer(pInt), dimension(:), allocatable, public, protected :: &