polishing
This commit is contained in:
parent
ff41061759
commit
57db134c6d
|
@ -935,7 +935,7 @@ subroutine unitTest
|
||||||
|
|
||||||
str=' 1.0 xxx'
|
str=' 1.0 xxx'
|
||||||
chunkPos = IO_stringPos(str)
|
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'
|
str='M 3112019 F'
|
||||||
chunkPos = IO_stringPos(str)
|
chunkPos = IO_stringPos(str)
|
||||||
|
|
|
@ -38,7 +38,7 @@ module mesh
|
||||||
|
|
||||||
integer, dimension(:), allocatable :: &
|
integer, dimension(:), allocatable :: &
|
||||||
mapMarc2DAMASK_elem, & !< DAMASK element ID for Marc element ID
|
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 :: &
|
public :: &
|
||||||
mesh_init, &
|
mesh_init, &
|
||||||
|
@ -434,7 +434,7 @@ subroutine inputRead_mapElems(map, &
|
||||||
integer, intent(in) :: nNodes !< number of nodes per element
|
integer, intent(in) :: nNodes !< number of nodes per element
|
||||||
character(len=*), dimension(:), intent(in) :: fileContent !< file content, separated per lines
|
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
|
integer :: i,j,l,nNodesAlreadyRead
|
||||||
|
|
||||||
do l = 1, size(fileContent)
|
do l = 1, size(fileContent)
|
||||||
|
|
Loading…
Reference in New Issue