initial conditions are of type real
This commit is contained in:
parent
f7b18981c9
commit
d8de8f8b39
40
src/VTI.f90
40
src/VTI.f90
|
@ -13,6 +13,7 @@ module VTI
|
||||||
|
|
||||||
public :: &
|
public :: &
|
||||||
VTI_readDataset_int, &
|
VTI_readDataset_int, &
|
||||||
|
VTI_readDataset_real, &
|
||||||
VTI_readCellsSizeOrigin
|
VTI_readCellsSizeOrigin
|
||||||
|
|
||||||
contains
|
contains
|
||||||
|
@ -42,6 +43,31 @@ function VTI_readDataset_int(fileContent,label) result(dataset)
|
||||||
end function VTI_readDataset_int
|
end function VTI_readDataset_int
|
||||||
|
|
||||||
|
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
!> @brief Read real dataset from a VTK image data (*.vti) file.
|
||||||
|
!> @details https://vtk.org/Wiki/VTK_XML_Formats
|
||||||
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
function VTI_readDataset_real(fileContent,label) result(dataset)
|
||||||
|
|
||||||
|
character(len=*), intent(in) :: &
|
||||||
|
label, &
|
||||||
|
fileContent
|
||||||
|
real(pReal), dimension(:), allocatable :: &
|
||||||
|
dataset
|
||||||
|
|
||||||
|
character(len=:), allocatable :: dataType, headerType, base64_str
|
||||||
|
logical :: compressed
|
||||||
|
|
||||||
|
|
||||||
|
call VTI_readDataset_raw(base64_str,dataType,headerType,compressed, &
|
||||||
|
fileContent,label)
|
||||||
|
dataset = as_real(base64_str,headerType,compressed,dataType)
|
||||||
|
|
||||||
|
if (.not. allocated(dataset)) call IO_error(error_ID = 844, ext_msg='dataset "'//label//'" not found')
|
||||||
|
|
||||||
|
end function VTI_readDataset_real
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief Read dataset as raw data (base64 string) from a VTK image data (*.vti) file.
|
!> @brief Read dataset as raw data (base64 string) from a VTK image data (*.vti) file.
|
||||||
!> @details https://vtk.org/Wiki/VTK_XML_Formats
|
!> @details https://vtk.org/Wiki/VTK_XML_Formats
|
||||||
|
@ -234,30 +260,30 @@ end function as_Int
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
!> @brief Interpret Base64 string in vtk XML file as real of kind pReal.
|
!> @brief Interpret Base64 string in vtk XML file as real of kind pReal.
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
function as_pReal(base64_str,headerType,compressed,dataType)
|
function as_real(base64_str,headerType,compressed,dataType)
|
||||||
|
|
||||||
character(len=*), intent(in) :: base64_str, & ! base64 encoded string
|
character(len=*), intent(in) :: base64_str, & ! base64 encoded string
|
||||||
headerType, & ! header type (UInt32 or Uint64)
|
headerType, & ! header type (UInt32 or Uint64)
|
||||||
dataType ! data type (Int32, Int64, Float32, Float64)
|
dataType ! data type (Int32, Int64, Float32, Float64)
|
||||||
logical, intent(in) :: compressed ! indicate whether data is zlib compressed
|
logical, intent(in) :: compressed ! indicate whether data is zlib compressed
|
||||||
|
|
||||||
real(pReal), dimension(:), allocatable :: as_pReal
|
real(pReal), dimension(:), allocatable :: as_real
|
||||||
|
|
||||||
|
|
||||||
select case(dataType)
|
select case(dataType)
|
||||||
case('Int32')
|
case('Int32')
|
||||||
as_pReal = real(prec_bytesToC_INT32_T(asBytes(base64_str,headerType,compressed)),pReal)
|
as_real = real(prec_bytesToC_INT32_T(asBytes(base64_str,headerType,compressed)),pReal)
|
||||||
case('Int64')
|
case('Int64')
|
||||||
as_pReal = real(prec_bytesToC_INT64_T(asBytes(base64_str,headerType,compressed)),pReal)
|
as_real = real(prec_bytesToC_INT64_T(asBytes(base64_str,headerType,compressed)),pReal)
|
||||||
case('Float32')
|
case('Float32')
|
||||||
as_pReal = real(prec_bytesToC_FLOAT (asBytes(base64_str,headerType,compressed)),pReal)
|
as_real = real(prec_bytesToC_FLOAT (asBytes(base64_str,headerType,compressed)),pReal)
|
||||||
case('Float64')
|
case('Float64')
|
||||||
as_pReal = real(prec_bytesToC_DOUBLE (asBytes(base64_str,headerType,compressed)),pReal)
|
as_real = real(prec_bytesToC_DOUBLE (asBytes(base64_str,headerType,compressed)),pReal)
|
||||||
case default
|
case default
|
||||||
call IO_error(844,ext_msg='unknown data type: '//trim(dataType))
|
call IO_error(844,ext_msg='unknown data type: '//trim(dataType))
|
||||||
end select
|
end select
|
||||||
|
|
||||||
end function as_pReal
|
end function as_real
|
||||||
|
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
|
Loading…
Reference in New Issue