penf_stringify Module

  1. penf_stringify.F90
  2. penf_stringify

Uses

  • module~~penf_stringify~7~~UsesGraph module~penf_stringify~7 penf_stringify iso_fortran_env iso_fortran_env module~penf_stringify~7->iso_fortran_env module~penf_b_size penf_b_size module~penf_stringify~7->module~penf_b_size module~penf_global_parameters_variables~2 penf_global_parameters_variables module~penf_stringify~7->module~penf_global_parameters_variables~2 module~penf_b_size->module~penf_global_parameters_variables~2

Contents

Interfaces

Functions

Subroutines


Interfaces

public interface str_ascii

  • private pure function str_ascii_default(input) result(output)

    Arguments

    TypeIntentOptionalAttributesName
    character(len=*), intent(in) :: input

    Return Value character(kind=ASCII,len=:),allocatable

public interface str_ucs4

  • private pure function str_ucs4_default(input) result(output)

    Arguments

    TypeIntentOptionalAttributesName
    character(len=*), intent(in) :: input

    Return Value character(kind=UCS4,len=:),allocatable

public interface str

  • private elemental function strf_R8P(fm, n) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: fm
    real(kind=R8P), intent(in) :: n

    Return Value character

  • private elemental function str_R8P(n, no_sign, compact) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R8P), intent(in) :: n
    logical, intent(in), optional :: no_sign
    logical, intent(in), optional :: compact

    Return Value character

  • private elemental function strf_R4P(fm, n) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: fm
    real(kind=R4P), intent(in) :: n

    Return Value character

  • private elemental function str_R4P(n, no_sign, compact) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R4P), intent(in) :: n
    logical, intent(in), optional :: no_sign
    logical, intent(in), optional :: compact

    Return Value character

  • private elemental function strf_I8P(fm, n) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: fm
    integer(kind=I8P), intent(in) :: n

    Return Value character

  • private elemental function str_I8P(n, no_sign) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I8P), intent(in) :: n
    logical, intent(in), optional :: no_sign

    Return Value character

  • private elemental function strf_I4P(fm, n) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: fm
    integer(kind=I4P), intent(in) :: n

    Return Value character

  • private elemental function str_I4P(n, no_sign) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I4P), intent(in) :: n
    logical, intent(in), optional :: no_sign

    Return Value character

  • private elemental function strf_I2P(fm, n) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: fm
    integer(kind=I2P), intent(in) :: n

    Return Value character

  • private elemental function str_I2P(n, no_sign) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I2P), intent(in) :: n
    logical, intent(in), optional :: no_sign

    Return Value character

  • private elemental function strf_I1P(fm, n) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: fm
    integer(kind=I1P), intent(in) :: n

    Return Value character

  • private elemental function str_I1P(n, no_sign) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I1P), intent(in) :: n
    logical, intent(in), optional :: no_sign

    Return Value character

  • private elemental function str_bol(n) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    logical, intent(in) :: n

    Return Value character(len=1)

  • private pure function str_a_R8P(n, no_sign, separator, delimiters, compact) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R8P), intent(in) :: n(:)
    logical, intent(in), optional :: no_sign
    character(len=1), intent(in), optional :: separator
    character, intent(in), optional :: delimiters(1:2)
    logical, intent(in), optional :: compact

    Return Value character(len=:),allocatable

  • private pure function str_a_R4P(n, no_sign, separator, delimiters, compact) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R4P), intent(in) :: n(:)
    logical, intent(in), optional :: no_sign
    character(len=1), intent(in), optional :: separator
    character, intent(in), optional :: delimiters(1:2)
    logical, intent(in), optional :: compact

    Return Value character(len=:),allocatable

  • private pure function str_a_I8P(n, no_sign, separator, delimiters) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I8P), intent(in) :: n(:)
    logical, intent(in), optional :: no_sign
    character(len=1), intent(in), optional :: separator
    character, intent(in), optional :: delimiters(1:2)

    Return Value character(len=:),allocatable

  • private pure function str_a_I4P(n, no_sign, separator, delimiters) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I4P), intent(in) :: n(:)
    logical, intent(in), optional :: no_sign
    character(len=1), intent(in), optional :: separator
    character, intent(in), optional :: delimiters(1:2)

    Return Value character(len=:),allocatable

  • private pure function str_a_I2P(n, no_sign, separator, delimiters) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I2P), intent(in) :: n(:)
    logical, intent(in), optional :: no_sign
    character(len=1), intent(in), optional :: separator
    character, intent(in), optional :: delimiters(1:2)

    Return Value character(len=:),allocatable

  • private pure function str_a_I1P(n, no_sign, separator, delimiters) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I1P), intent(in) :: n(:)
    logical, intent(in), optional :: no_sign
    character(len=1), intent(in), optional :: separator
    character, intent(in), optional :: delimiters(1:2)

    Return Value character(len=:),allocatable

public interface strz

  • private elemental function strz_I8P(n, nz_pad) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I8P), intent(in) :: n
    integer(kind=I4P), intent(in), optional :: nz_pad

    Return Value character

  • private elemental function strz_I4P(n, nz_pad) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I4P), intent(in) :: n
    integer(kind=I4P), intent(in), optional :: nz_pad

    Return Value character

  • private elemental function strz_I2P(n, nz_pad) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I2P), intent(in) :: n
    integer(kind=I4P), intent(in), optional :: nz_pad

    Return Value character

  • private elemental function strz_I1P(n, nz_pad) result(str)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I1P), intent(in) :: n
    integer(kind=I4P), intent(in), optional :: nz_pad

    Return Value character

public interface cton

  • private function ctor_R8P(str, knd, pref, error) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: str
    real(kind=R8P), intent(in) :: knd
    character, intent(in), optional :: pref
    integer(kind=I4P), intent(out), optional :: error

    Return Value real(kind=R8P)

  • private function ctor_R4P(str, knd, pref, error) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: str
    real(kind=R4P), intent(in) :: knd
    character, intent(in), optional :: pref
    integer(kind=I4P), intent(out), optional :: error

    Return Value real(kind=R4P)

  • private function ctoi_I8P(str, knd, pref, error) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: str
    integer(kind=I8P), intent(in) :: knd
    character, intent(in), optional :: pref
    integer(kind=I4P), intent(out), optional :: error

    Return Value integer(kind=I8P)

  • private function ctoi_I4P(str, knd, pref, error) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: str
    integer(kind=I4P), intent(in) :: knd
    character, intent(in), optional :: pref
    integer(kind=I4P), intent(out), optional :: error

    Return Value integer(kind=I4P)

  • private function ctoi_I2P(str, knd, pref, error) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: str
    integer(kind=I2P), intent(in) :: knd
    character, intent(in), optional :: pref
    integer(kind=I4P), intent(out), optional :: error

    Return Value integer(kind=I2P)

  • private function ctoi_I1P(str, knd, pref, error) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: str
    integer(kind=I1P), intent(in) :: knd
    character, intent(in), optional :: pref
    integer(kind=I4P), intent(out), optional :: error

    Return Value integer(kind=I1P)

public interface bstr

  • private elemental function bstr_R8P(n) result(bstr)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R8P), intent(in) :: n

    Return Value character(len=64)

  • private elemental function bstr_R4P(n) result(bstr)

    Arguments

    TypeIntentOptionalAttributesName
    real(kind=R4P), intent(in) :: n

    Return Value character(len=32)

  • private elemental function bstr_I8P(n) result(bstr)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I8P), intent(in) :: n

    Return Value character(len=64)

  • private elemental function bstr_I4P(n) result(bstr)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I4P), intent(in) :: n

    Return Value character(len=32)

  • private elemental function bstr_I2P(n) result(bstr)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I2P), intent(in) :: n

    Return Value character(len=16)

  • private elemental function bstr_I1P(n) result(bstr)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=I1P), intent(in) :: n

    Return Value character(len=8)

public interface bcton

  • private elemental function bctor_R8P(bstr, knd) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: bstr
    real(kind=R8P), intent(in) :: knd

    Return Value real(kind=R8P)

  • private elemental function bctor_R4P(bstr, knd) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: bstr
    real(kind=R4P), intent(in) :: knd

    Return Value real(kind=R4P)

  • private elemental function bctoi_I8P(bstr, knd) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: bstr
    integer(kind=I8P), intent(in) :: knd

    Return Value integer(kind=I8P)

  • private elemental function bctoi_I4P(bstr, knd) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: bstr
    integer(kind=I4P), intent(in) :: knd

    Return Value integer(kind=I4P)

  • private elemental function bctoi_I2P(bstr, knd) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: bstr
    integer(kind=I2P), intent(in) :: knd

    Return Value integer(kind=I2P)

  • private elemental function bctoi_I1P(bstr, knd) result(n)

    Arguments

    TypeIntentOptionalAttributesName
    character, intent(in) :: bstr
    integer(kind=I1P), intent(in) :: knd

    Return Value integer(kind=I1P)


Functions

private pure function str_ascii_default(input) result(output)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: input

Return Value character(kind=ASCII,len=:),allocatable

private pure function str_ascii_ascii(input) result(output)

Arguments

TypeIntentOptionalAttributesName
character(kind=ASCII,len=*), intent(in) :: input

Return Value character(kind=ASCII,len=:),allocatable

private pure function str_ascii_ucs4(input) result(output)

Arguments

TypeIntentOptionalAttributesName
character(kind=UCS4,len=*), intent(in) :: input

Return Value character(kind=ASCII,len=:),allocatable

private pure function str_ucs4_default(input) result(output)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: input

Return Value character(kind=UCS4,len=:),allocatable

private pure function str_ucs4_ascii(input) result(output)

Arguments

TypeIntentOptionalAttributesName
character(kind=ASCII,len=*), intent(in) :: input

Return Value character(kind=UCS4,len=:),allocatable

private pure function str_ucs4_ucs4(input) result(output)

Arguments

TypeIntentOptionalAttributesName
character(kind=UCS4,len=*), intent(in) :: input

Return Value character(kind=UCS4,len=:),allocatable

private elemental function strf_R16P(fm, n) result(str)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: fm
real(kind=R16P), intent(in) :: n

Return Value character

private elemental function strf_R8P(fm, n) result(str)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: fm
real(kind=R8P), intent(in) :: n

Return Value character

private elemental function strf_R4P(fm, n) result(str)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: fm
real(kind=R4P), intent(in) :: n

Return Value character

private elemental function strf_I8P(fm, n) result(str)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: fm
integer(kind=I8P), intent(in) :: n

Return Value character

private elemental function strf_I4P(fm, n) result(str)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: fm
integer(kind=I4P), intent(in) :: n

Return Value character

private elemental function strf_I2P(fm, n) result(str)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: fm
integer(kind=I2P), intent(in) :: n

Return Value character

private elemental function strf_I1P(fm, n) result(str)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: fm
integer(kind=I1P), intent(in) :: n

Return Value character

private elemental function str_R16P(n, no_sign, compact) result(str)

Arguments

TypeIntentOptionalAttributesName
real(kind=R16P), intent(in) :: n
logical, intent(in), optional :: no_sign
logical, intent(in), optional :: compact

Return Value character

private elemental function str_R8P(n, no_sign, compact) result(str)

Arguments

TypeIntentOptionalAttributesName
real(kind=R8P), intent(in) :: n
logical, intent(in), optional :: no_sign
logical, intent(in), optional :: compact

Return Value character

private elemental function str_R4P(n, no_sign, compact) result(str)

Arguments

TypeIntentOptionalAttributesName
real(kind=R4P), intent(in) :: n
logical, intent(in), optional :: no_sign
logical, intent(in), optional :: compact

Return Value character

private elemental function str_I8P(n, no_sign) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I8P), intent(in) :: n
logical, intent(in), optional :: no_sign

Return Value character

private elemental function str_I4P(n, no_sign) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I4P), intent(in) :: n
logical, intent(in), optional :: no_sign

Return Value character

private elemental function str_I2P(n, no_sign) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I2P), intent(in) :: n
logical, intent(in), optional :: no_sign

Return Value character

private elemental function str_I1P(n, no_sign) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I1P), intent(in) :: n
logical, intent(in), optional :: no_sign

Return Value character

private elemental function str_bol(n) result(str)

Arguments

TypeIntentOptionalAttributesName
logical, intent(in) :: n

Return Value character(len=1)

private pure function str_a_R16P(n, no_sign, separator, delimiters, compact) result(str)

Arguments

TypeIntentOptionalAttributesName
real(kind=R16P), intent(in) :: n(:)
logical, intent(in), optional :: no_sign
character(len=1), intent(in), optional :: separator
character, intent(in), optional :: delimiters(1:2)
logical, intent(in), optional :: compact

Return Value character(len=:),allocatable

private pure function str_a_R8P(n, no_sign, separator, delimiters, compact) result(str)

Arguments

TypeIntentOptionalAttributesName
real(kind=R8P), intent(in) :: n(:)
logical, intent(in), optional :: no_sign
character(len=1), intent(in), optional :: separator
character, intent(in), optional :: delimiters(1:2)
logical, intent(in), optional :: compact

Return Value character(len=:),allocatable

private pure function str_a_R4P(n, no_sign, separator, delimiters, compact) result(str)

Arguments

TypeIntentOptionalAttributesName
real(kind=R4P), intent(in) :: n(:)
logical, intent(in), optional :: no_sign
character(len=1), intent(in), optional :: separator
character, intent(in), optional :: delimiters(1:2)
logical, intent(in), optional :: compact

Return Value character(len=:),allocatable

private pure function str_a_I8P(n, no_sign, separator, delimiters) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I8P), intent(in) :: n(:)
logical, intent(in), optional :: no_sign
character(len=1), intent(in), optional :: separator
character, intent(in), optional :: delimiters(1:2)

Return Value character(len=:),allocatable

private pure function str_a_I4P(n, no_sign, separator, delimiters) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I4P), intent(in) :: n(:)
logical, intent(in), optional :: no_sign
character(len=1), intent(in), optional :: separator
character, intent(in), optional :: delimiters(1:2)

Return Value character(len=:),allocatable

private pure function str_a_I2P(n, no_sign, separator, delimiters) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I2P), intent(in) :: n(:)
logical, intent(in), optional :: no_sign
character(len=1), intent(in), optional :: separator
character, intent(in), optional :: delimiters(1:2)

Return Value character(len=:),allocatable

private pure function str_a_I1P(n, no_sign, separator, delimiters) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I1P), intent(in) :: n(:)
logical, intent(in), optional :: no_sign
character(len=1), intent(in), optional :: separator
character, intent(in), optional :: delimiters(1:2)

Return Value character(len=:),allocatable

private elemental function strz_I8P(n, nz_pad) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I8P), intent(in) :: n
integer(kind=I4P), intent(in), optional :: nz_pad

Return Value character

private elemental function strz_I4P(n, nz_pad) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I4P), intent(in) :: n
integer(kind=I4P), intent(in), optional :: nz_pad

Return Value character

private elemental function strz_I2P(n, nz_pad) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I2P), intent(in) :: n
integer(kind=I4P), intent(in), optional :: nz_pad

Return Value character

private elemental function strz_I1P(n, nz_pad) result(str)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I1P), intent(in) :: n
integer(kind=I4P), intent(in), optional :: nz_pad

Return Value character

private function ctor_R16P(str, knd, pref, error) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: str
real(kind=R16P), intent(in) :: knd
character, intent(in), optional :: pref
integer(kind=I4P), intent(out), optional :: error

Return Value real(kind=R16P)

private function ctor_R8P(str, knd, pref, error) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: str
real(kind=R8P), intent(in) :: knd
character, intent(in), optional :: pref
integer(kind=I4P), intent(out), optional :: error

Return Value real(kind=R8P)

private function ctor_R4P(str, knd, pref, error) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: str
real(kind=R4P), intent(in) :: knd
character, intent(in), optional :: pref
integer(kind=I4P), intent(out), optional :: error

Return Value real(kind=R4P)

private function ctoi_I8P(str, knd, pref, error) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: str
integer(kind=I8P), intent(in) :: knd
character, intent(in), optional :: pref
integer(kind=I4P), intent(out), optional :: error

Return Value integer(kind=I8P)

private function ctoi_I4P(str, knd, pref, error) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: str
integer(kind=I4P), intent(in) :: knd
character, intent(in), optional :: pref
integer(kind=I4P), intent(out), optional :: error

Return Value integer(kind=I4P)

private function ctoi_I2P(str, knd, pref, error) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: str
integer(kind=I2P), intent(in) :: knd
character, intent(in), optional :: pref
integer(kind=I4P), intent(out), optional :: error

Return Value integer(kind=I2P)

private function ctoi_I1P(str, knd, pref, error) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: str
integer(kind=I1P), intent(in) :: knd
character, intent(in), optional :: pref
integer(kind=I4P), intent(out), optional :: error

Return Value integer(kind=I1P)

private elemental function bstr_R16P(n) result(bstr)

Arguments

TypeIntentOptionalAttributesName
real(kind=R16P), intent(in) :: n

Return Value character(len=128)

private elemental function bstr_R8P(n) result(bstr)

Arguments

TypeIntentOptionalAttributesName
real(kind=R8P), intent(in) :: n

Return Value character(len=64)

private elemental function bstr_R4P(n) result(bstr)

Arguments

TypeIntentOptionalAttributesName
real(kind=R4P), intent(in) :: n

Return Value character(len=32)

private elemental function bstr_I8P(n) result(bstr)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I8P), intent(in) :: n

Return Value character(len=64)

private elemental function bstr_I4P(n) result(bstr)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I4P), intent(in) :: n

Return Value character(len=32)

private elemental function bstr_I2P(n) result(bstr)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I2P), intent(in) :: n

Return Value character(len=16)

private elemental function bstr_I1P(n) result(bstr)

Arguments

TypeIntentOptionalAttributesName
integer(kind=I1P), intent(in) :: n

Return Value character(len=8)

private elemental function bctor_R16P(bstr, knd) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: bstr
real(kind=R16P), intent(in) :: knd

Return Value real(kind=R16P)

private elemental function bctor_R8P(bstr, knd) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: bstr
real(kind=R8P), intent(in) :: knd

Return Value real(kind=R8P)

private elemental function bctor_R4P(bstr, knd) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: bstr
real(kind=R4P), intent(in) :: knd

Return Value real(kind=R4P)

private elemental function bctoi_I8P(bstr, knd) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: bstr
integer(kind=I8P), intent(in) :: knd

Return Value integer(kind=I8P)

private elemental function bctoi_I4P(bstr, knd) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: bstr
integer(kind=I4P), intent(in) :: knd

Return Value integer(kind=I4P)

private elemental function bctoi_I2P(bstr, knd) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: bstr
integer(kind=I2P), intent(in) :: knd

Return Value integer(kind=I2P)

private elemental function bctoi_I1P(bstr, knd) result(n)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: bstr
integer(kind=I1P), intent(in) :: knd

Return Value integer(kind=I1P)


Subroutines

private pure subroutine compact_real_string(string)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(inout) :: string