ctoi_I1P Function

  1. penf.F90
  2. penf_stringify
  3. ctoi_I1P

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

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: str

String containing input number.
integer(kind=I1P), intent(in) :: knd

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

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

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

Return Value integer(kind=I1P)

Number returned.

Description

Convert string to integer.

Called By

proc~~ctoi_i1p~~CalledByGraph proc~ctoi_i1p ctoi_I1P interface~cton cton interface~cton->proc~ctoi_i1p
Help

Variables

TypeVisibility AttributesNameInitial
integer(kind=I4P), public :: err

Error trapping flag: 0 no errors, >0 error occurs.
character(len=:), public, allocatable:: prefd

Prefixing string.

Source Code

  function ctoi_I1P(str, knd, pref, error) result(n)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Convert string to integer.
  !---------------------------------------------------------------------------------------------------------------------------------
  character(*),           intent(in)  :: str   !< String containing input number.
  integer(I1P),           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.
  integer(I1P)                        :: 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 integer failed! integer(', kind(knd), ')'
  endif
  if (present(error)) error = err
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction ctoi_I1P