---

Manual Reference Pages  - isxdigit (3m_strings)

---

NAME

isxdigit(3f) - [M_strings:COMPARE] returns .true. if character is a hexadecimal digit (0-9, a-f, or A-F). (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Returns
Examples
Author
License

SYNOPSIS

elemental function isxdigit(onechar)

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

DESCRIPTION

isxdigit(3f) returns .true. if character is a hexadecimal digit (0-9, a-f, or A-F).

OPTIONS

onechar
	character to test

RETURNS

isxdigit
	Returns true logical value if character is a hexadecimal digit. If a multi-byte string was input .false. is returned if any character is not a hexadecimal digit. A null string returns .false.

EXAMPLES

Sample program

   program demo_isxdigit
   use M_strings, only : isxdigit
   implicit none
   integer                    :: i
   character(len=*),parameter :: g=’(*(g0,1x))’
   character(len=*),parameter :: c=’(40(g0))’
   character(len=1),parameter :: string(*)=[(char(i),i=0,127)]

      print g, ’basics’
      print g, isxdigit(’a’),isxdigit(g)
      print *
      print g, ’elemental’
      print g, isxdigit([’a’,’b’,char(8),’c’,’d’,char(10)])
      print *
      print g, ’print all the hexadecimal digit characters’
      print c, pack( string, isxdigit(string) )
      print *
      print g, ’strings return false if any character is not in set’
      print g, isxdigit(’abcd’)
      print g, isxdigit(’ab’//char(0)//’cd’)

   end program demo_isxdigit

Results:

   > basics
   > T F
   >
   > elemental
   > T T F T T F
   >
   > print all the hexadecimal digit characters
   > 0123456789ABCDEFabcdef
   >
   > strings return false if any character is not in set
   > T
   > F

AUTHOR

John S. Urban

LICENSE

Public Domain

---