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

polishing

This commit is contained in:
Martin Diehl 2020-01-28 23:42:25 +01:00
parent ff41061759
commit 57db134c6d
2 changed files with 33 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/IO.f90
View File

@ -935,7 +935,7 @@ subroutine unitTest
str=' 1.0 xxx'
chunkPos = IO_stringPos(str)
if(dNeq(1.0,IO_floatValue(str,chunkPos,1))) call IO_error(0,ext_msg='IO_floatValue')
if(dNeq(1.0_pReal,IO_floatValue(str,chunkPos,1))) call IO_error(0,ext_msg='IO_floatValue')
str='M 3112019 F'
chunkPos = IO_stringPos(str)

4
src/mesh_marc.f90
View File

@ -38,7 +38,7 @@ module mesh
integer, dimension(:), allocatable :: &
mapMarc2DAMASK_elem, & !< DAMASK element ID for Marc element ID
mapMarc2DAMASK_node, & !< DAMASK node ID for Marc node ID
mapMarc2DAMASK_node !< DAMASK node ID for Marc node ID
public :: &
mesh_init, &
@ -434,7 +434,7 @@ subroutine inputRead_mapElems(map, &
integer, intent(in) :: nNodes !< number of nodes per element
character(len=*), dimension(:), intent(in) :: fileContent !< file content, separated per lines
integer, allocatable, dimension(:) :: chunkPos, map
integer, allocatable, dimension(:) :: chunkPos
integer :: i,j,l,nNodesAlreadyRead
do l = 1, size(fileContent)