ctor_R8P Function

  1. penf_stringify.F90
  2. penf_stringify
  3. ctor_R8P

private function ctor_R8P(str, knd, pref, error) result(n)

Convert string to real.

 use penf
 print FR8P, cton(str='-1.0', knd=1._R8P)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: str

String containing input number.
real(kind=R8P), intent(in) :: knd

Number kind.
character, intent(in), optional :: pref

Prefixing string.
integer(kind=I4P), intent(out), optional :: error

Error trapping flag: 0 no errors, >0 error occurs.

Return Value real(kind=R8P)

Number returned.


Called by

proc~~ctor_r8p~~CalledByGraph proc~ctor_r8p ctor_R8P interface~cton cton interface~cton->proc~ctor_r8p program~volatile_doctest~21 volatile_doctest program~volatile_doctest~21->interface~cton program~volatile_doctest~51 volatile_doctest program~volatile_doctest~51->interface~cton program~volatile_doctest~83 volatile_doctest program~volatile_doctest~83->interface~cton program~volatile_doctest~67 volatile_doctest program~volatile_doctest~67->interface~cton program~volatile_doctest~4 volatile_doctest program~volatile_doctest~4->interface~cton program~volatile_doctest~58 volatile_doctest program~volatile_doctest~58->interface~cton program~volatile_doctest~66 volatile_doctest program~volatile_doctest~66->interface~cton

Contents

Source Code

ctor_R8P

Source Code

   function ctor_R8P(str, knd, pref, error) result(n)
   !< Convert string to real.
   !<
   !<```fortran
   !< use penf
   !< print FR8P, cton(str='-1.0', knd=1._R8P)
   !<```
   !=> -0.100000000000000E+001 <<<
   character(*),           intent(in)  :: str   !< String containing input number.
   real(R8P),              intent(in)  :: knd   !< Number kind.
   character(*), optional, intent(in)  :: pref  !< Prefixing string.
   integer(I4P), optional, intent(out) :: error !< Error trapping flag: 0 no errors, >0 error occurs.
   real(R8P)                           :: n     !< Number returned.
   integer(I4P)                        :: err   !< Error trapping flag: 0 no errors, >0 error occurs.
   character(len=:), allocatable       :: prefd !< Prefixing string.

   read(str, *, iostat=err) n ! Casting of str to n.
   if (err/=0) then
     prefd = '' ; if (present(pref)) prefd = pref
     write(stderr, '(A,I1,A)') prefd//' Error: conversion of string "'//str//'" to real failed! real(', kind(knd), ')'
   endif
   if (present(error)) error = err
   endfunction ctor_R8P