Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=I4P), | intent(in) | :: | n(:) | Integer array to be converted. |
||
logical, | intent(in), | optional | :: | no_sign | Flag for leaving out the sign. |
|
character(len=*), | intent(in), | optional | :: | delimiters(1:2) | Eventual delimiters of array values. |
Returned string containing input number.
Convert integer array to string.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=DI4P), | public | :: | strn | String containing of element of input array number. |
|||
integer, | public | :: | i | Counter. |
pure function str_a_I4P(n, no_sign, delimiters) result(str)
!---------------------------------------------------------------------------------------------------------------------------------
!< Convert integer array to string.
!---------------------------------------------------------------------------------------------------------------------------------
integer(I4P), intent(in) :: n(:) !< Integer array to be converted.
logical, intent(in), optional :: no_sign !< Flag for leaving out the sign.
character(*), intent(in), optional :: delimiters(1:2) !< Eventual delimiters of array values.
character(len=:), allocatable :: str !< Returned string containing input number.
character(DI4P) :: strn !< String containing of element of input array number.
integer :: i !< Counter.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
if (present(no_sign)) then
str = ''
do i=1,size(n)
strn = str_I4P(no_sign=no_sign, n=n(i))
str = str//','//trim(strn)
enddo
else
str = ''
do i=1,size(n)
strn = str_I4P(n=n(i))
str = str//','//trim(strn)
enddo
endif
str = trim(str(2:))
if (present(delimiters)) str = delimiters(1)//str//delimiters(2)
return
!---------------------------------------------------------------------------------------------------------------------------------
endfunction str_a_I4P