isalpha(3f) - [M_strings:COMPARE] returns .true. if character is a letter and .false. otherwise (LICENSE:PD)
Synopsis
Description
Options
Returns
Examples
Author
License
elemental function isalpha(onechar)
character,intent(in) :: onechar logical :: isalpha
isalpha(3f) returns .true. if character is a letter and [char46]false. otherwise
onechar character to test
isalpha logical value returns .true. if character is a ASCII letter or false otherwise.
Sample program
program demo_isalpha use M_strings, only : isalpha implicit none integer :: i character(len=1),parameter :: string(*)=[(char(i),i=0,127)] write(*,(40(a)))ISGRAPH: ,pack( string, isalpha(string) ) end program demo_isalphaResults:
ISGRAPH: ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklm nopqrstuvwxyz
John S. Urban
Public Domain
Nemo Release 3.1 | isalpha (3m_strings) | January 10, 2025 |