size_of_rd Function

private elemental function size_of_rd(arg)

Arguments

Type IntentOptional Attributes Name
real(kind=kind_rd), intent(in) :: arg

Return Value integer


Contents

Source Code

size_of_rd

Source Code

  elemental integer function size_of_rd (arg)
    real (kind_rd), intent(in) :: arg
    size_of_rd = c_sizeof(arg)
  end function size_of_rd