Compute the number of bytes of a character variable.
use penf
print FI1P, byte_size('ab')
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character, | intent(in) | :: | i | Character variable whose number of bytes must be computed. |
Number of bytes of c.
elemental function byte_size_chr(i) result(bytes)
!< Compute the number of bytes of a character variable.
!<
!<```fortran
!< use penf
!< print FI1P, byte_size('ab')
!<```
!=> 2 <<<
character(*), intent(in) :: i !< Character variable whose number of bytes must be computed.
integer(I4P) :: bytes !< Number of bytes of c.
bytes = bit_size(i) / 8_I4P
endfunction byte_size_chr