---

C Library Functions  - str (3)

---

NAME

str(3f) - [M_framework__msg] converts up to twenty standard scalar type values to a string (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Returns
Examples
Author
License

SYNOPSIS

Syntax:

     pure function str(g0,g1,g2,g3,g4,g5,g6,g7,g8,g9,&
                     & ga,gb,gc,gd,ge,gf,gg,gh,gi,gj,sep,if)
     class(*),intent(in),optional  :: g0,g1,g2,g3,g4,g5,g6,g7,g8,g9
     class(*),intent(in),optional  :: ga,gb,gc,gd,ge,gf,gg,gh,gi,gj
     logical,intent(in),optional          :: if
     character(len=*),intent(in),optional :: sep
     character,len=(:),allocatable        :: str

DESCRIPTION

str(3f) builds a space-separated string from up to twenty scalar values.

OPTIONS

g[0-9a-j]
	Optional value to print the value of after the message. May be of type INTEGER, LOGICAL, REAL, DOUBLEPRECISION, COMPLEX, or CHARACTER. Optionally, all the generic values can be single-dimensioned arrays. Currently, mixing scalar arguments and array arguments is not supported.
sep	separator string used between values. Defaults to a space. Must be specified with a keyword.
if	If false return a null string. Must be specified with a keyword.

RETURNS

str	description to print

EXAMPLES

Sample program:

   program demo_str
   use M_framework__msg, only : str
   implicit none
   character(len=:),allocatable :: pr
   character(len=:),allocatable :: frmt
   integer                      :: biggest

   pr=str(’HUGE(3f) integers’,huge(0),&
   &’and real’,huge(0.0),’and double’,huge(0.0d0))
   write(*,’(a)’)pr
   pr=str(’real            :’,huge(0.0),0.0,12345.6789,tiny(0.0) )
   write(*,’(a)’)pr
   pr=str(’doubleprecision :’,huge(0.0d0),0.0d0,12345.6789d0,tiny(0.0d0) )
   write(*,’(a)’)pr
   pr=str(’complex         :’,cmplx(huge(0.0),tiny(0.0)) )
   write(*,’(a)’)pr

   ! create a format on the fly
   biggest=huge(0)
   ! +0 for gfortran-11 bug
   frmt=str(’(*(i’,int(log10(real(biggest)))+0,’:,1x))’,sep=’’)
   write(*,*)’format=’,frmt

   ! although it will often work, using str(3f)
   ! in an I/O statement is not recommended
   ! because if an error occurs str(3f) will try
   ! to write while part of an I/O statement
   ! which not all compilers can handle and is currently non-standard
   write(*,*)str(’program will now stop’)

   end program demo_str

Output

   HUGE(3f) integers 2147483647 and real 3.40282347E+38 ...
   and double 1.7976931348623157E+308
   real            : 3.40282347E+38 0.00000000 12345.6787 1.17549435E-38
   doubleprecision : 1.7976931348623157E+308 0.0000000000000000 ...
   12345.678900000001 2.2250738585072014E-308
   complex         : (3.40282347E+38,1.17549435E-38)
    format=(*(i9:,1x))
    program will now stop

AUTHOR

John S. Urban

LICENSE

Public Domain

---

Nemo Release 3.1

str (3)

July 22, 2023

Generated by manServer 1.08 from 6040b5e4-aac8-44ac-9d56-bc9c15371aa7 using man macros.