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 530 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 498 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 546 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 514 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: