Convert string to integer.
use penf
print FI8P, cton(str='-1', knd=1_I8P)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | str |
String containing input number. |
||
integer(kind=I8P), | 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. |
Number returned.
function ctoi_I8P(str, knd, pref, error) result(n) !< Convert string to integer. !< !<```fortran !< use penf !< print FI8P, cton(str='-1', knd=1_I8P) !<``` !=> -1 <<< character(*), intent(in) :: str !< String containing input number. integer(I8P), 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(I8P) :: 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 endfunction ctoi_I8P