Public Member Functions
subroutine	value_dr (str, rnum, ios)

subroutine	value_sr (str, rnum, ios)

subroutine	value_di (str, inum, ios)

subroutine	value_si (str, inum, ios)

Detailed Description

Definition at line 30 of file suews_util_stringmod.f95.

Member Function/Subroutine Documentation

◆ value_di()

subroutine strings::value::value_di	(	character(len=*)	str,
		integer(ki8)	inum,
			ios
	)

Definition at line 219 of file suews_util_stringmod.f95.

 
 ! Converts number string to a double precision integer value
 
       character(len=*)::str
       integer(ki8) :: inum
       real(kr8) :: rnum
 
       call value_dr(str, rnum, ios)
       if (abs(rnum) > huge(real(inum, kr8))) then
          ios = 15
          return
       end if
       inum = nint(rnum, ki8)
 

◆ value_dr()

subroutine strings::value::value_dr	(	character(len=*)	str,
		real(kr8)	rnum,
		integer	ios
	)

Definition at line 179 of file suews_util_stringmod.f95.

 
 ! Converts number string to a double precision real number
 
       character(len=*)::str
       real(kr8)::rnum
       integer :: ios
 
       ilen = len_trim(str)
       ipos = scan(str, 'Ee')
       if (.not. is_digit(str(ilen:ilen)) .and. ipos /= 0) then
          ios = 3
          return
       end if
       read (str, *, iostat=ios) rnum
 

◆ value_si()

subroutine strings::value::value_si	(	character(len=*)	str,
		integer(ki4)	inum,
			ios
	)

Definition at line 238 of file suews_util_stringmod.f95.

 
 ! Converts number string to a single precision integer value
 
       character(len=*)::str
       integer(ki4) :: inum
       real(kr8) :: rnum
 
       call value_dr(str, rnum, ios)
       if (abs(rnum) > huge(inum)) then
          ios = 15
          return
       end if
       inum = nint(rnum, ki4)
 

◆ value_sr()

subroutine strings::value::value_sr	(	character(len=*)	str,
		real(kr4)	rnum,
			ios
	)

Definition at line 199 of file suews_util_stringmod.f95.

 
 ! Converts number string to a single precision real number
 
       character(len=*)::str
       real(kr4) :: rnum
       real(kr8) :: rnumd
 
       call value_dr(str, rnumd, ios)
       if (abs(rnumd) > huge(rnum)) then
          ios = 15
          return
       end if
       if (abs(rnumd) < tiny(rnum)) rnum = 0.0_kr4
       rnum = real(rnumd, kr4)
 

The documentation for this interface was generated from the following file:

/home/docs/checkouts/readthedocs.org/user_builds/suews/checkouts/2020a/SUEWS-SourceCode/suews_util_stringmod.f95