---

Manual Reference Pages  - isascii (3m_strings)

---

NAME

isascii(3f) - [M_strings:COMPARE] returns .true. if the character is in the range char(0) to char(256) (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Returns
Examples
Author
License

SYNOPSIS

elemental function isascii(onechar)

    character(len=*),intent(in) :: onechar
    logical              :: isascii

DESCRIPTION

isascii(3f) returns .true. if the character is in the range char(0) to char(127)

OPTIONS

onechar
	character to test

RETURNS

isascii
	Returns true logical value if character is an ASCII character. If a multi-byte string was input .false. is returned if any character is not ASCII. A null string returns .false.

EXAMPLES

Sample program

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

Results:

   ISASCII:  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 32 33 34 35 36 37 38
   39 40 41 42 43 44 45 46 47 48
   49 50 51 52 53 54 55 56 57 58
   59 60 61 62 63 64 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 91 92 93 94 95 96 97 98
   99 100 101 102 103 104 105 106 107 108
   109 110 111 112 113 114 115 116 117 118
   119 120 121 122 123 124 125 126 127

AUTHOR

John S. Urban

LICENSE

Public Domain

---