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

use tokenize (F2023)

This commit is contained in:
Martin Diehl 2023-12-19 21:19:57 +01:00
parent c4d061ba0a
commit ace7d8f003
No known key found for this signature in database
GPG Key ID: 1FD50837275A0A9B
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/grid/VTI.f90
View File

@ -201,26 +201,26 @@ subroutine cellsSizeOrigin(c,s,o,header)
real(pREAL), dimension(3), intent(out) :: s,o real(pREAL), dimension(3), intent(out) :: s,o
character(len=*), intent(in) :: header character(len=*), intent(in) :: header
character(len=:), allocatable :: temp character(len=:), allocatable, dimension(:) :: temp
real(pREAL), dimension(3) :: delta real(pREAL), dimension(3) :: delta
integer :: i integer :: i
temp = getXMLValue(header,'Direction') temp = [getXMLValue(header,'Direction')]
if (temp /= '1 0 0 0 1 0 0 0 1' .and. temp /= '') & ! https://discourse.vtk.org/t/vti-specification/6526 if (temp(1) /= '1 0 0 0 1 0 0 0 1' .and. temp(1) /= '') & ! https://discourse.vtk.org/t/vti-specification/6526
call IO_error(error_ID = 844, ext_msg = 'coordinate order') call IO_error(error_ID = 844, ext_msg = 'coordinate order')
temp = getXMLValue(header,'WholeExtent') call tokenize(getXMLValue(header,'WholeExtent'),' ',temp)
if (any([(IO_intValue(temp,IO_strPos(temp),i),i=1,5,2)] /= 0)) & if (any([(IO_strAsInt(temp(i)),i=1,5,2)] /= 0)) &
call IO_error(error_ID = 844, ext_msg = 'coordinate start') call IO_error(error_ID = 844, ext_msg = 'coordinate start')
c = [(IO_intValue(temp,IO_strPos(temp),i),i=2,6,2)] c = [(IO_strAsInt(temp(i)),i=2,6,2)]
temp = getXMLValue(header,'Spacing') call tokenize(getXMLValue(header,'Spacing'),' ',temp)
delta = [(IO_realValue(temp,IO_strPos(temp),i),i=1,3)] delta = [(IO_strAsReal(temp(i)),i=1,3)]
s = delta * real(c,pREAL) s = delta * real(c,pREAL)
temp = getXMLValue(header,'Origin') call tokenize(getXMLValue(header,'Origin'),' ',temp)
o = [(IO_realValue(temp,IO_strPos(temp),i),i=1,3)] o = [(IO_strAsReal(temp(i)),i=1,3)]
end subroutine cellsSizeOrigin end subroutine cellsSizeOrigin