Manual Reference Pages - iscntrl (3m_strings)

NAME

iscntrl(3f) - [M_strings:COMPARE] returns .true. if character is a delete character or ordinary control character (LICENSE:PD)

Synopsis
Description
Options
Returns
Examples
Author
License

SYNOPSIS

elemental function iscntrl(onechar)

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

DESCRIPTION

iscntrl(3f) returns .true. if character is a delete character or ordinary control character

OPTIONS

onechar
character to test

RETURNS

iscntrl
logical value returns true if character is a control character

EXAMPLES

Sample program

    program demo_iscntrl
    use M_strings, only : iscntrl
    implicit none
    integer                    :: i
    character(len=1),parameter :: string(*)=[(char(i),i=0,127)]
       write(*,’(20(g0,1x))’)’ISCNTRL: ’, &
       & iachar(pack( string, iscntrl(string) ))
    end program demo_iscntrl

Results:

ISCNTRL: 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 127

AUTHOR

John S. Urban

LICENSE

Public Domain

Nemo Release 3.1

iscntrl (3m_strings)

July 20, 2024

Generated by manServer 1.08 from a7cb4876-47b6-4bea-aa9c-e3aec944f3e3 using man macros.

iscntrl
	logical value returns true if character is a control character