[UP]


Manual Reference Pages  - isblank (3)

NAME

isblank(3f) - [M_strings:COMPARE] returns .true. if character is a blank character (space or horizontal tab). (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Returns
Example
Author
License

SYNOPSIS

elemental function isblank(onechar)

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

DESCRIPTION

isblank(3f) returns .true. if character is a blank character (space or horizontal tab).

OPTIONS

onechar
  character to test

RETURNS

isblank
  logical value returns true if character is a "blank"
( an ASCII
  space or horizontal tab character).

EXAMPLE

Sample program:

    program demo_isblank
    use M_strings, only : isblank
    implicit none
    integer                    :: i
    character(len=1),parameter :: string(*)=[(char(i),i=0,127)]
       write(*,’(*(g0,1x))’)’ISXBLANK: ’,&
       & ichar(pack( string, isblank(string) ))
    end program demo_isblank

Results:

   ISXBLANK:  9 32

AUTHOR

John S. Urban

LICENSE

Public Domain


isblank (3) March 11, 2021
Generated by manServer 1.08 from a14b087b-d569-44f6-ad8a-b87e8ce9bbdf using man macros.