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

last version contains buggy mesh.f90; corrected typo in initialization

This commit is contained in:
Christoph Kords 2012-11-09 07:52:44 +00:00
parent 366ac28694
commit 3c53f3ec9a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/mesh.f90
View File

@ -537,7 +537,7 @@ subroutine mesh_build_subNodeCoords
implicit none implicit none
integer(pInt) e,t,n,p,Nparents integer(pInt) e,t,n,p,Nparents
real(pReal), dimension(3,mesh_maxNnodes+mesh_maxNsubNodes) mySubNodeCoord real(pReal), dimension(3,mesh_maxNnodes+mesh_maxNsubNodes) :: mySubNodeCoord
if (.not. allocated(mesh_subNodeCoord)) then if (.not. allocated(mesh_subNodeCoord)) then
allocate(mesh_subNodeCoord(3,mesh_maxNnodes+mesh_maxNsubNodes,mesh_NcpElems)) allocate(mesh_subNodeCoord(3,mesh_maxNnodes+mesh_maxNsubNodes,mesh_NcpElems))