isblank(3f) - [M_strings:COMPARE] returns .true. if character is a blank character (space or horizontal tab). (LICENSE:PD)
Synopsis
Description
Options
Returns
Examples
Author
License
elemental function isblank(onechar)
character,intent(in) :: onechar logical :: isblank
isblank(3f) returns .true. if character is a blank character (space or horizontal tab).
onechar character to test
isblank logical value returns true if character is a "blank"
( an ASCII space or horizontal tab character).
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: ,& & iachar(pack( string, isblank(string) )) end program demo_isblankResults:
ISXBLANK: 9 32
John S. Urban
Public Domain
Nemo Release 3.1 | isblank (3m_strings) | January 10, 2025 |