strings::value Interface Reference

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 218 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)
 

References precision::ki8, and strings::value_dr().

Here is the call graph for this function:

value_dr()

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

Definition at line 178 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
 

References strings::is_digit().

Here is the call graph for this function:

value_si()

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

Definition at line 237 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)
 

References precision::ki4, and strings::value_dr().

Here is the call graph for this function:

value_sr()

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

Definition at line 198 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)
 

References strings::value_dr().

Here is the call graph for this function:

---

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

• /home/docs/checkouts/readthedocs.org/user_builds/suews/checkouts/latest/src/suews/src/suews_util_stringmod.f95