byte_size_chr Function

  1. penf_b_size.F90
  2. penf_b_size
  3. byte_size_chr

private elemental function byte_size_chr(i) result(bytes)

Compute the number of bytes of a character variable.

 use penf
 print FI1P, byte_size('ab')

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: i

Character variable whose number of bytes must be computed.

Return Value integer(kind=I4P)

Number of bytes of c.


Called by

proc~~byte_size_chr~~CalledByGraph proc~byte_size_chr byte_size_chr interface~byte_size byte_size interface~byte_size->proc~byte_size_chr program~volatile_doctest~89 volatile_doctest program~volatile_doctest~89->interface~byte_size program~volatile_doctest~691 volatile_doctest program~volatile_doctest~691->interface~byte_size program~volatile_doctest~455 volatile_doctest program~volatile_doctest~455->interface~byte_size program~volatile_doctest~109 volatile_doctest program~volatile_doctest~109->interface~byte_size program~volatile_doctest~354 volatile_doctest program~volatile_doctest~354->interface~byte_size program~volatile_doctest~322 volatile_doctest program~volatile_doctest~322->interface~byte_size program~volatile_doctest~474 volatile_doctest program~volatile_doctest~474->interface~byte_size program~volatile_doctest~712 volatile_doctest program~volatile_doctest~712->interface~byte_size

Contents

Source Code

byte_size_chr

Source Code

   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