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

editorial changes

This commit is contained in:
Martin Diehl 2020-05-07 23:10:27 +02:00
parent 0c70f1a54f
commit 1610a6e12a
1 changed files with 38 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
src/YAML_types.f90
View File

@ -1,11 +1,10 @@
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief yaml_types !> @author Sharan Roongta, Max-Planck-Institut für Eisenforschung GmbH
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @brief Data types to create a scalar, a list, and a dictionary/hash
!> @details module describes the various functions to store and get the yaml data. !> @details module describes the various functions to store and get the yaml data.
!! tNode is the fundamental derived data type. It can be of tScalar, & !! A node is the base class for scalar, list and dictionary, list items and dictionary entries point
!! tList or tDict. !! to a node.
!! Every 'value' in a key: value pair is of tNode and is a pointer.
!! If 'value' is of tScalar, it can either be a string, real, integer or logical, &
!! functions exist to convert this scalar type to its respective primitive data type.
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
module YAML_types module YAML_types
@ -222,24 +221,24 @@ subroutine unitTest
call l1%append(s1) call l1%append(s1)
call l1%append(s2) call l1%append(s2)
n => l1 n => l1
if(any(l1%asInts() /= [2,3])) call IO_error(0,ext_msg='tList_asInts') if(any(l1%asInts() /= [2,3])) call IO_error(0,ext_msg='tList_asInts')
if(any(dNeq(l1%asFloats(),[2.0_pReal,3.0_pReal]))) call IO_error(0,ext_msg='tList_asFloats') if(any(dNeq(l1%asFloats(),[2.0_pReal,3.0_pReal]))) call IO_error(0,ext_msg='tList_asFloats')
if(n%get_asInt(1) /= 2) call IO_error(0,ext_msg='byIndex_asInt') if(n%get_asInt(1) /= 2) call IO_error(0,ext_msg='byIndex_asInt')
if(dNeq(n%get_asFloat(2),3.0_pReal)) call IO_error(0,ext_msg='byIndex_asFloat') if(dNeq(n%get_asFloat(2),3.0_pReal)) call IO_error(0,ext_msg='byIndex_asFloat')
endselect endselect
allocate(tList::l2) allocate(tList::l2)
select type(l2) select type(l2)
class is(tList) class is(tList)
call l2%append(l1) call l2%append(l1)
if(any(l2%get_asInts(1) /= [2,3])) call IO_error(0,ext_msg='byIndex_asInts') if(any(l2%get_asInts(1) /= [2,3])) call IO_error(0,ext_msg='byIndex_asInts')
if(any(dNeq(l2%get_asFloats(1),[2.0_pReal,3.0_pReal]))) call IO_error(0,ext_msg='byIndex_asFloats') if(any(dNeq(l2%get_asFloats(1),[2.0_pReal,3.0_pReal]))) call IO_error(0,ext_msg='byIndex_asFloats')
n => l2 n => l2
end select end select
deallocate(n) deallocate(n)
end block end block
block block
type(tList), target :: l1 type(tList), target :: l1
type(tScalar),pointer :: s3,s4 type(tScalar),pointer :: s3,s4
class(tNode), pointer :: n class(tNode), pointer :: n
@ -255,11 +254,11 @@ subroutine unitTest
call l1%append(s2) call l1%append(s2)
n => l1 n => l1
if(any(l1%asBools() .neqv. [.true., .false.])) call IO_error(0,ext_msg='tList_asBools') if(any(l1%asBools() .neqv. [.true., .false.])) call IO_error(0,ext_msg='tList_asBools')
if(any(l1%asStrings() /= ['True ','False'])) call IO_error(0,ext_msg='tList_asStrings') if(any(l1%asStrings() /= ['True ','False'])) call IO_error(0,ext_msg='tList_asStrings')
if(n%get_asBool(2)) call IO_error(0,ext_msg='byIndex_asBool') if(n%get_asBool(2)) call IO_error(0,ext_msg='byIndex_asBool')
if(n%get_asString(1) /= 'True') call IO_error(0,ext_msg='byIndex_asString') if(n%get_asString(1) /= 'True') call IO_error(0,ext_msg='byIndex_asString')
end block end block
end subroutine unitTest end subroutine unitTest
@ -531,7 +530,7 @@ function tNode_get_byKey(self,k) result(node)
character(len=*), intent(in) :: k character(len=*), intent(in) :: k
class(tNode), pointer :: node class(tNode), pointer :: node
type(tDict), pointer :: self_ type(tDict), pointer :: self_
type(tItem), pointer :: item type(tItem), pointer :: item
integer :: j integer :: j
@ -702,9 +701,9 @@ function tNode_get_byKey_asStrings(self,k) result(nodeAsStrings)
end function tNode_get_byKey_asStrings end function tNode_get_byKey_asStrings
!------------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Returns the index of a key in a dictionary !> @brief Returns the index of a key in a dictionary
!------------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
function tNode_get_byKey_asIndex(self,key) result(keyIndex) function tNode_get_byKey_asIndex(self,key) result(keyIndex)
class(tNode), intent(in), target :: self class(tNode), intent(in), target :: self
@ -717,6 +716,7 @@ function tNode_get_byKey_asIndex(self,key) result(keyIndex)
dict => self%asDict() dict => self%asDict()
item => dict%first item => dict%first
keyIndex = -1
do i = 1, dict%length do i = 1, dict%length
if(key == item%key) then if(key == item%key) then
keyIndex = i keyIndex = i
@ -730,7 +730,7 @@ end function tNode_get_byKey_asIndex
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Prints scalar as string !> @brief Scalar as string (YAML block style)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
recursive function tScalar_asFormattedString(self,indent) recursive function tScalar_asFormattedString(self,indent)
@ -752,7 +752,7 @@ end function tScalar_asFormattedString
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Prints list as string (YAML block style) !> @brief List as string (YAML block style)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
recursive function tList_asFormattedString(self,indent) result(str) recursive function tList_asFormattedString(self,indent) result(str)
@ -781,7 +781,7 @@ end function tList_asFormattedString
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Prints dictionary as string (YAML block style) !> @brief Dictionary as string (YAML block style)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
recursive function tDict_asFormattedString(self,indent) result(str) recursive function tDict_asFormattedString(self,indent) result(str)