byte_size_R8P Function

  1. penf_b_size.F90
  2. penf_b_size
  3. byte_size_R8P

private elemental function byte_size_R8P(i) result(bytes)

Compute the number of bytes of a real variable.

 use penf
 print FI1P, byte_size(1._R8P)

Arguments

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

Real variable whose number of bytes must be computed.

Return Value integer(kind=I1P)

Number of bytes of r.


Called by

proc~~byte_size_r8p~~CalledByGraph proc~byte_size_r8p byte_size_R8P interface~byte_size byte_size interface~byte_size->proc~byte_size_r8p program~volatile_doctest~99 volatile_doctest program~volatile_doctest~99->interface~byte_size program~volatile_doctest~105 volatile_doctest program~volatile_doctest~105->interface~byte_size program~volatile_doctest~101 volatile_doctest program~volatile_doctest~101->interface~byte_size program~volatile_doctest~104 volatile_doctest program~volatile_doctest~104->interface~byte_size program~volatile_doctest~100 volatile_doctest program~volatile_doctest~100->interface~byte_size program~volatile_doctest~106 volatile_doctest program~volatile_doctest~106->interface~byte_size program~volatile_doctest~108 volatile_doctest program~volatile_doctest~108->interface~byte_size program~volatile_doctest~110 volatile_doctest program~volatile_doctest~110->interface~byte_size

Contents

Source Code

byte_size_R8P

Source Code

   elemental function byte_size_R8P(i) result(bytes)
   !< Compute the number of bytes of a real variable.
   !<
   !<```fortran
   !< use penf
   !< print FI1P, byte_size(1._R8P)
   !<```
   !=> 8 <<<
   real(R8P), intent(in) :: i     !< Real variable whose number of bytes must be computed.
   integer(I1P)          :: bytes !< Number of bytes of r.

   bytes = bit_size(i) / 8_I1P
   endfunction byte_size_R8P