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

consistent with usage in other modules

This commit is contained in:
Martin Diehl 2023-06-04 07:21:41 +02:00
parent ca1c22874b
commit 319489fad8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/misc.f90
View File

@ -11,7 +11,7 @@ module misc
interface misc_optional interface misc_optional
module procedure misc_optional_bool module procedure misc_optional_bool
module procedure misc_optional_integer module procedure misc_optional_int
module procedure misc_optional_real module procedure misc_optional_real
module procedure misc_optional_str module procedure misc_optional_str
end interface misc_optional end interface misc_optional
@ -57,7 +57,7 @@ end function misc_optional_bool
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief Return integer value if given, otherwise default. !> @brief Return integer value if given, otherwise default.
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
pure function misc_optional_integer(given,default) result(var) pure function misc_optional_int(given,default) result(var)
integer, intent(in), optional :: given integer, intent(in), optional :: given
integer, intent(in) :: default integer, intent(in) :: default
@ -70,7 +70,7 @@ pure function misc_optional_integer(given,default) result(var)
var = default var = default
end if end if
end function misc_optional_integer end function misc_optional_int
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
@ -136,7 +136,7 @@ contains
function test_str(str_in) result(str_out) function test_str(str_in) result(str_out)
character(len=:), allocatable :: str_out character(len=:), allocatable :: str_out
character(len=*), intent(in), optional :: str_in character(len=*), intent(in), optional :: str_in
@ -151,7 +151,7 @@ contains
integer, intent(in), optional :: int_in integer, intent(in), optional :: int_in
int_out = misc_optional_integer(int_in,42) int_out = misc_optional_int(int_in,42)
end function test_int end function test_int