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

better error message/simpler code

This commit is contained in:
Martin Diehl 2022-08-16 18:26:50 +02:00
parent fbc6a1ebbf
commit 0b9597e74e
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/grid/VTI.f90
View File

@ -38,8 +38,6 @@ function VTI_readDataset_int(fileContent,label) result(dataset)
fileContent,label) fileContent,label)
dataset = as_Int(base64Str,headerType,compressed,dataType) dataset = as_Int(base64Str,headerType,compressed,dataType)
if (.not. allocated(dataset)) call IO_error(error_ID = 844, ext_msg='dataset "'//label//'" not found')
end function VTI_readDataset_int end function VTI_readDataset_int
@ -63,8 +61,6 @@ function VTI_readDataset_real(fileContent,label) result(dataset)
fileContent,label) fileContent,label)
dataset = as_real(base64Str,headerType,compressed,dataType) dataset = as_real(base64Str,headerType,compressed,dataType)
if (.not. allocated(dataset)) call IO_error(error_ID = 844, ext_msg='dataset "'//label//'" not found')
end function VTI_readDataset_real end function VTI_readDataset_real
@ -133,6 +129,8 @@ subroutine VTI_readDataset_raw(base64Str,dataType,headerType,compressed, &
end do outer end do outer
if (.not. allocated(base64Str)) call IO_error(error_ID = 844, ext_msg='dataset "'//label//'" not found')
end subroutine VTI_readDataset_raw end subroutine VTI_readDataset_raw