SUEWS API Site
Documentation of SUEWS source code
Public Member Functions | List of all members
strings::writenum Interface Reference

Public Member Functions

subroutine write_dr (rnum, str, fmt)
 
subroutine write_sr (rnum, str, fmt)
 
subroutine write_di (inum, str, fmt)
 
subroutine write_si (inum, str, fmt)
 

Detailed Description

Definition at line 40 of file suews_util_stringmod.f95.

Member Function/Subroutine Documentation

◆ write_di()

subroutine strings::writenum::write_di ( integer(ki8)  inum,
character(len=*)  str,
character(len=*)  fmt 
)

Definition at line 531 of file suews_util_stringmod.f95.

531 
532 ! Writes double precision integer inum to string str using format fmt
533 
534  integer(ki8) :: inum
535  character(len=*) :: str, fmt
536  character(len=80) :: formt
537 
538  formt = '('//trim(fmt)//')'
539  write (str, formt) inum
540  str = adjustl(str)
541 

◆ write_dr()

subroutine strings::writenum::write_dr ( real(kr8)  rnum,
character(len=*)  str,
character(len=*)  fmt 
)

Definition at line 499 of file suews_util_stringmod.f95.

499 
500 ! Writes double precision real number rnum to string str using format fmt
501 
502  real(kr8) :: rnum
503  character(len=*) :: str, fmt
504  character(len=80) :: formt
505 
506  formt = '('//trim(fmt)//')'
507  write (str, formt) rnum
508  str = adjustl(str)
509 

◆ write_si()

subroutine strings::writenum::write_si ( integer(ki4)  inum,
character(len=*)  str,
character(len=*)  fmt 
)

Definition at line 547 of file suews_util_stringmod.f95.

547 
548 ! Writes single precision integer inum to string str using format fmt
549 
550  integer(ki4) :: inum
551  character(len=*) :: str, fmt
552  character(len=80) :: formt
553 
554  formt = '('//trim(fmt)//')'
555  write (str, formt) inum
556  str = adjustl(str)
557 

◆ write_sr()

subroutine strings::writenum::write_sr ( real(kr4)  rnum,
character(len=*)  str,
character(len=*)  fmt 
)

Definition at line 515 of file suews_util_stringmod.f95.

515 
516 ! Writes single precision real number rnum to string str using format fmt
517 
518  real(kr4) :: rnum
519  character(len=*) :: str, fmt
520  character(len=80) :: formt
521 
522  formt = '('//trim(fmt)//')'
523  write (str, formt) rnum
524  str = adjustl(str)
525 

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