Manual Reference Pages - isprint (3m_strings)

NAME

isprint(3f) - [M_strings:COMPARE] returns .true. if character is an ASCII printable character (LICENSE:PD)

Synopsis
Description
Options
Returns
Examples
Author
License

SYNOPSIS

elemental function isprint(onechar)

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

DESCRIPTION

isprint(3f) returns .true. if character is an ASCII printable character

OPTIONS

onechar
character to test

RETURNS

isprint
logical value returns true if character is a printable ASCII character else false.

EXAMPLES

Sample Program:

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

Results:

   ISPRINT:  !"#$%&’()*+,-./0123456789:;<=>?@ABCDEF
   GHIJKLMNOPQRSTUVWXYZ[\]^_‘abcdefghijklmn
   opqrstuvwxyz{|}~

AUTHOR

John S. Urban

LICENSE

Public Domain

Nemo Release 3.1

isprint (3m_strings)

January 10, 2025

Generated by manServer 1.08 from 87393f4e-ed8e-4303-aea6-c26f742a6096 using man macros.

isprint
	logical value returns true if character is a printable ASCII character else false.