Manual Reference Pages - isupper (3m_strings)

NAME

isupper(3f) - [M_strings:COMPARE] returns .true. if character is an uppercase letter (A-Z) (LICENSE:PD)

Synopsis
Description
Options
Returns
Examples
Author
License

SYNOPSIS

elemental function isupper(onechar)

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

DESCRIPTION

isupper(3f) returns .true. if character is an uppercase letter (A-Z)

OPTIONS

onechar
character to test

RETURNS

isupper
logical value returns true if character is an uppercase ASCII character else false.

EXAMPLES

Sample program:

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

Results:

    > ISUPPER:  65 66 67 68 69 70 71 72 73
    > 74 75 76 77 78 79 80 81 82 83
    > 84 85 86 87 88 89 90
    > ISUPPER:  A B C D E F G H I
    > J K L M N O P Q R S
    > T U V W X Y Z

AUTHOR

John S. Urban

LICENSE

Public Domain

Nemo Release 3.1

isupper (3m_strings)

January 10, 2025

Generated by manServer 1.08 from d375ce64-894e-4fa6-a273-95bbb4f7023a using man macros.

isupper
	logical value returns true if character is an uppercase ASCII character else false.