223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

syntax errors in declaration

This commit is contained in:
Martin Diehl 2018-09-23 19:04:17 +02:00
parent 67483487ea
commit ebef12e446
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mesh.f90
View File

@ -482,12 +482,12 @@ subroutine mesh_init(ip,el)
numerics_unitlength, & numerics_unitlength, &
worldrank worldrank
use FEsolving, only: & use FEsolving, only: &
FEsolving_execElem, &
#ifndef Spectral #ifndef Spectral
modelName, & modelName, &
calcMode calcMode, &
#endif #endif
FEsolving_execIP, & FEsolving_execElem, &
FEsolving_execIP
implicit none implicit none
#ifdef Spectral #ifdef Spectral

4
src/meshFEM.f90
View File

@ -25,11 +25,11 @@ use PETScis
mesh_NcpElems, & !< total number of CP elements in mesh mesh_NcpElems, & !< total number of CP elements in mesh
mesh_NcpElemsGlobal, & mesh_NcpElemsGlobal, &
mesh_Nnodes, & !< total number of nodes in mesh 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 mesh_maxNipNeighbors
!!!! BEGIN DEPRECATED !!!!! !!!! BEGIN DEPRECATED !!!!!
integer(pInt), public, protected :: & 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 !!!!! !!!! BEGIN DEPRECATED !!!!!
integer(pInt), dimension(:), allocatable, public, protected :: & integer(pInt), dimension(:), allocatable, public, protected :: &