typo, Abaqus/Marc did not compile

This commit is contained in:
Martin Diehl 2018-09-27 20:18:37 +02:00
parent 822bc4dbbf
commit e8f687a99c
1 changed files with 1 additions and 1 deletions

View File

@ -1866,7 +1866,7 @@ subroutine mesh_marc_map_nodes(fileUnit)
integer(pInt), dimension (mesh_Nnodes) :: node_count integer(pInt), dimension (mesh_Nnodes) :: node_count
integer(pInt) :: i integer(pInt) :: i
allocate (mesh_mapFEtoCPnode(2_pInt,mesh_Nnodes) source=0_pInt) allocate (mesh_mapFEtoCPnode(2_pInt,mesh_Nnodes),source=0_pInt)
610 FORMAT(A300) 610 FORMAT(A300)