isgraph(3f) - [M_strings:COMPARE] returns .true. if character is a printable character except a space is considered non-printable (LICENSE:PD)
Synopsis
Description
Options
Returns
Examples
Author
License
elemental function isgraph(onechar)
character,intent(in) :: onechar logical :: isgraph
isgraph(3f) returns .true. if character is a printable character except a space is considered non-printable
onechar character to test
isgraph logical value returns true if character is a printable non-space character
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_isgraphResults:
ISGRAPH: !"#$%&()*+,-./0123456789:;<=>?@ABCDEFG HIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmno pqrstuvwxyz{|}~
John S. Urban
Public Domain
Nemo Release 3.1 | isgraph (3m_strings) | January 10, 2025 |