isprint Function

public elemental function isprint(onechar)

NAME

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

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.

EXAMPLE

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

Arguments

Type IntentOptional Attributes Name
character, intent(in) :: onechar

Return Value logical


Contents

Source Code


Source Code

elemental function isprint(onechar)

! ident_65="@(#) M_strings isprint(3f) indicates if input character is a printable ASCII character"

character,intent(in) :: onechar
logical              :: isprint
   select case (onechar)
      case (' ':'~')   ; isprint=.TRUE.
      case default     ; isprint=.FALSE.
   end select
end function isprint