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

white space adjustments

This commit is contained in:
Martin Diehl 2021-04-03 16:44:38 +02:00
parent 2aa824c124
commit 09beb8f38c
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/YAML_types.f90
View File

@ -123,15 +123,15 @@ module YAML_types
procedure :: asFormattedString => tList_asFormattedString procedure :: asFormattedString => tList_asFormattedString
procedure :: append => tList_append procedure :: append => tList_append
procedure :: & procedure :: &
as1dFloat => tList_as1dFloat as1dFloat => tList_as1dFloat
procedure :: & procedure :: &
as2dFloat => tList_as2dFloat as2dFloat => tList_as2dFloat
procedure :: & procedure :: &
as1dInt => tList_as1dInt as1dInt => tList_as1dInt
procedure :: & procedure :: &
as1dBool => tList_as1dBool as1dBool => tList_as1dBool
procedure :: & procedure :: &
as1dString => tList_as1dString as1dString => tList_as1dString
final :: tList_finalize final :: tList_finalize
end type tList end type tList
@ -329,8 +329,8 @@ end subroutine tScalar_assign__
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
function tNode_asScalar(self) result(scalar) function tNode_asScalar(self) result(scalar)
class(tNode), intent(in), target :: self class(tNode), intent(in), target :: self
class(tScalar), pointer :: scalar class(tScalar), pointer :: scalar
select type(self) select type(self)
class is(tScalar) class is(tScalar)
@ -345,8 +345,8 @@ end function tNode_asScalar
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
function tNode_asList(self) result(list) function tNode_asList(self) result(list)
class(tNode), intent(in), target :: self class(tNode), intent(in), target :: self
class(tList), pointer :: list class(tList), pointer :: list
select type(self) select type(self)
class is(tList) class is(tList)
@ -361,8 +361,8 @@ end function tNode_asList
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
function tNode_asDict(self) result(dict) function tNode_asDict(self) result(dict)
class(tNode), intent(in), target :: self class(tNode), intent(in), target :: self
class(tDict), pointer :: dict class(tDict), pointer :: dict
select type(self) select type(self)
class is(tDict) class is(tDict)
@ -720,7 +720,6 @@ function tNode_get_byKey_asFloat(self,k,defaultVal) result(nodeAsFloat)
class(tNode), pointer :: node class(tNode), pointer :: node
type(tScalar), pointer :: scalar type(tScalar), pointer :: scalar
character(len=:), allocatable :: str
if (self%contains(k)) then if (self%contains(k)) then
node => self%get(k) node => self%get(k)