---

Manual Reference Pages  - selected_char_kind (3fortran)

---

NAME

SELECTED_CHAR_KIND(3) - [KIND] Select character kind such as "Unicode"

SYNOPSIS

result = selected_char_kind(name)

         integer function selected_char_kind(name)

          character(len=*),intent(in) :: name

CHARACTERISTICS

o	NAME is a default character scalar
o	the result is a default integer scalar

DESCRIPTION

SELECTED_CHAR_KIND(3) returns a kind parameter value for the character set named NAME.

If a name is not supported, -1 is returned. Otherwise the result is a value equal to that kind type parameter value.

The list of supported names is processor-dependent except for "DEFAULT".

o	If NAME has the value "DEFAULT", then the result has a value equal to that of the kind type parameter of default character. This name is always supported.
o	If NAME has the value "ASCII", then the result has a value equal to that of the kind type parameter of ASCII character.
o	If NAME has the value "ISO_10646", then the result has a value equal to that of the kind type parameter of the ISO 10646 character kind (corresponding to UCS-4 as specified in ISO/IEC 10646).
o	If NAME is a processor-defined name of some other character kind supported by the processor, then the result has a value equal to that kind type parameter value. Pre-defined names include "ASCII" and "ISO_10646".

The NAME is interpreted without respect to case or trailing blanks.

OPTIONS

o	NAME : A name to query the processor-dependent kind value of, and/or to determine if supported. NAME, interpreted without respect to case or trailing blanks. Currently, supported character sets include "ASCII" and "DEFAULT" and "ISO_10646" (Universal Character Set, UCS-4) which is commonly known as "Unicode". Supported names other than "DEFAULT" are processor dependent.

RESULT

EXAMPLES

Sample program:

    Linux
    program demo_selected_char_kind
    use iso_fortran_env
    implicit none

    intrinsic date_and_time,selected_char_kind

    ! set some aliases for common character kinds
    ! as the numbers can vary from platform to platform

    integer, parameter :: default = selected_char_kind ("default")
    integer, parameter :: ascii =   selected_char_kind ("ascii")
    integer, parameter :: ucs4  =   selected_char_kind (’ISO_10646’)
    integer, parameter :: utf8  =   selected_char_kind (’utf-8’)

    ! assuming ASCII and UCS4 are supported (ie. not equal to -1)
    ! define some string variables
    character(len=26, kind=ascii ) :: alphabet
    character(len=30, kind=ucs4  ) :: hello_world
    character(len=30, kind=ucs4  ) :: string

       write(*,*)’ASCII     ’,&
        & merge(’Supported    ’,’Not Supported’,ascii /= -1)
       write(*,*)’ISO_10646 ’,&
        & merge(’Supported    ’,’Not Supported’,ucs4 /= -1)
       write(*,*)’UTF-8     ’,&
        & merge(’Supported    ’,’Not Supported’,utf8 /= -1)

       if(default.eq.ascii)then
           write(*,*)’ASCII is the default on this processor’
       endif

      ! for constants the kind precedes the value, somewhat like a
      ! BOZ constant
       alphabet = ascii_"abcdefghijklmnopqrstuvwxyz"
       write (*,*) alphabet

       hello_world = ucs4_’Hello World and Ni Hao -- ’ &
                     // char (int (z’4F60’), ucs4)     &
                     // char (int (z’597D’), ucs4)

      ! an encoding option is required on OPEN for non-default I/O
       if(ucs4 /= -1 )then
          open (output_unit, encoding=’UTF-8’)
          write (*,*) trim (hello_world)
       else
          write (*,*) ’cannot use utf-8’
       endif

       call create_date_string(string)
       write (*,*) trim (string)

    contains

    ! The following produces a Japanese date stamp.
    subroutine create_date_string(string)
    intrinsic date_and_time,selected_char_kind
    integer,parameter :: ucs4 = selected_char_kind("ISO_10646")
    character(len=1,kind=ucs4),parameter :: &
           nen =   char(int( z’5e74’ ),ucs4), & ! year
           gatsu = char(int( z’6708’ ),ucs4), & ! month
           nichi = char(int( z’65e5’ ),ucs4)    ! day
    character(len= *, kind= ucs4) string
    integer values(8)
       call date_and_time(values=values)
       write(string,101) values(1),nen,values(2),gatsu,values(3),nichi
     101 format(*(i0,a))
    end subroutine create_date_string

    end program demo_selected_char_kind

Results:

The results are very processor-dependent

     >  ASCII     Supported
     >  ISO_10646 Supported
     >  UTF-8     Not Supported
     >  ASCII is the default on this processor
     >  abcdefghijklmnopqrstuvwxyz
     >  Hello World and Ni Hao -- 你好
     >  2022年10月15日

STANDARD

Fortran 2003

SEE ALSO

SELECTED_INT_KIND(3), SELECTED_REAL_KIND(3)

ACHAR(3), CHAR(3), ICHAR(3), IACHAR(3)

Fortran intrinsic descriptions (license: MIT) @urbanjost

---

Nemo Release 3.1

selected_char_kind (3fortran)

November 02, 2024

Generated by manServer 1.08 from 9a3b6f3b-7148-473f-a882-5973cff4b9a9 using man macros.