[UP]


Manual Reference Pages  - isgraph (3)

NAME

isgraph(3f) - [M_strings:COMPARE] returns .true. if character is a printable character except a space is considered non-printable (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Returns
Example
Author
License

SYNOPSIS

elemental function isgraph(onechar)

    character,intent(in) :: onechar
    logical              :: isgraph

DESCRIPTION

isgraph(3f) returns .true. if character is a printable character except a space is considered non-printable

OPTIONS

onechar
  character to test

RETURNS

isgraph
  logical value returns true if character is a printable non-space character

EXAMPLE

Sample Program:

   program demo_isgraph
   use M_strings, only : isgraph
   implicit none
   integer                    :: i
   character(len=1),parameter :: string(*)=[(char(i),i=0,127)]
      write(*,’(40(a))’)’ISGRAPH: ’,pack( string, isgraph(string) )
   end program demo_isgraph

Results:

   ISGRAPH: !"#$%&’()*+,-./0123456789:;<=>?@ABCDEFG
   HIJKLMNOPQRSTUVWXYZ[\]^_‘abcdefghijklmno
   pqrstuvwxyz{|}~

AUTHOR

John S. Urban

LICENSE

Public Domain


isgraph (3) March 11, 2021
Generated by manServer 1.08 from fdec1f1f-726b-44ee-b2c8-cb2b5775a587 using man macros.