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

using function makes it more readable

This commit is contained in:
Sharan Roongta 2020-05-02 23:03:11 +02:00
parent 815608ac42
commit 47f85402c4
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/YAML_types.f90
View File

@ -155,11 +155,12 @@ module YAML_types
abstract interface abstract interface
recursive subroutine asFormattedString(self,indent) recursive function asFormattedString(self,indent)
import tNode import tNode
character(len=:), allocatable :: asFormattedString
class(tNode), intent(in), target :: self class(tNode), intent(in), target :: self
integer, intent(in), optional :: indent integer, intent(in), optional :: indent
end subroutine asFormattedString end function asFormattedString
end interface end interface
@ -731,8 +732,9 @@ end function tNode_get_byKey_asIndex
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Prints scalar as string !> @brief Prints scalar as string
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
recursive subroutine tScalar_asFormattedString(self,indent) recursive function tScalar_asFormattedString(self,indent)
character(len=:), allocatable :: tScalar_asFormattedString
class (tScalar), intent(in), target :: self class (tScalar), intent(in), target :: self
integer, intent(in), optional :: indent integer, intent(in), optional :: indent
@ -744,20 +746,21 @@ recursive subroutine tScalar_asFormattedString(self,indent)
indent_ = 0 indent_ = 0
endif endif
write (6,'(a)') trim(self%value) tScalar_asFormattedString = trim(self%value)//IO_EOL
end subroutine tScalar_asFormattedString end function tScalar_asFormattedString
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Prints list as string (YAML block style) !> @brief Prints list as string (YAML block style)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
recursive subroutine tList_asFormattedString(self,indent) recursive function tList_asFormattedString(self,indent) result(str)
class (tList),intent(in),target :: self class (tList),intent(in),target :: self
integer, intent(in),optional :: indent integer, intent(in),optional :: indent
type (tItem), pointer :: item type (tItem), pointer :: item
character(len=:), allocatable :: str
integer :: i, indent_ integer :: i, indent_
if(present(indent)) then if(present(indent)) then
@ -768,24 +771,24 @@ recursive subroutine tList_asFormattedString(self,indent)
item => self%first item => self%first
do i = 1, self%length do i = 1, self%length
if( i /= 1) write (6,'(a)',advance='NO') repeat(' ',indent_) if(i /= 1) str = str//repeat(' ',indent_)
write (6,'(a)',advance='NO') '- ' str = str//'- '//item%node%asFormattedString(indent_+2)
call item%node%asFormattedString(indent_+2)
item => item%next item => item%next
end do end do
end subroutine tList_asFormattedString end function tList_asFormattedString
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Prints dictionary as string (YAML block style) !> @brief Prints dictionary as string (YAML block style)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
recursive subroutine tDict_asFormattedString(self,indent) recursive function tDict_asFormattedString(self,indent) result(str)
class (tDict),intent(in),target :: self class (tDict),intent(in),target :: self
integer, intent(in),optional :: indent integer, intent(in),optional :: indent
type (tItem),pointer :: item type (tItem),pointer :: item
character(len=:), allocatable :: str
integer :: i, indent_ integer :: i, indent_
if(present(indent)) then if(present(indent)) then
@ -796,20 +799,17 @@ recursive subroutine tDict_asFormattedString(self,indent)
item => self%first item => self%first
do i = 1, self%length do i = 1, self%length
if( i /= 1) write (6,'(a)',advance='NO') repeat(' ',indent_) if(i /= 1) str = str//repeat(' ',indent_)
select type (node_ => item%node) select type(node_1 =>item%node)
class is (tScalar) class is(tScalar)
write (6,'(a)',advance='NO') trim(item%key)//': ' str = str//trim(item%key)//': '//item%node%asFormattedString(indent_+len_trim(item%key)+2)
call node_%asFormattedString(indent_+len_trim(item%key)+2)
class default class default
write (6,'(a)') trim(item%key)//':' str = str//trim(item%key)//':'//IO_EOL//repeat(' ',indent_+2)//item%node%asFormattedString(indent_+2)
write (6,'(a)',advance='NO') repeat(' ',indent_+2) endselect
call node_%asFormattedString(indent_+2)
end select
item => item%next item => item%next
end do end do
end subroutine tDict_asFormattedString end function tDict_asFormattedString
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------