[UP]


Manual Reference Pages  - str (3)

NAME

str(3f) - [M_msg] converts any standard scalar type to a string (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Returns
Examples
Author
License

SYNOPSIS

function str(g0,g1,g2,g3,g4,g5,g6,g7,g8,g9,ga,gb,gc,gd,ge,gf,gg,gh,gi,gj,nospace)

    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   :: nospace
    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.

nospace
  if nospace=.true., then no spaces are added between values

RETURNS

str description to print

EXAMPLES

Sample program:

   program demo_msg
   use M_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) frmt=str(’(*(i’,int(log10(real(biggest))),’:,1x))’,nospace=.true.) 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_msg

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


str (3) October 17, 2020
Generated by manServer 1.08 from dd29c351-1662-41e5-805f-e398a89422a6 using man macros.