Fortran Wiki
selected_char_kind

Skip the Navigation Links | Home Page | All Pages | Recently Revised | Authors | Feeds | Export |

Description

selected_char_kind(name) returns the kind value for the character set named name, if a character set with such a name is supported, or $-1$ otherwise. Currently, supported character sets include "ASCII" and "DEFAULT", which are equivalent, and "ISO_10646" (Universal Character Set, UCS-4) which is commonly known as Unicode.

Standard

Fortran 2003 and later

Class

Transformational function

Syntax

result = selected_char_kind(name)

Arguments

• name - Shall be a scalar and of the default character type.

Example

program character_kind
 use iso_fortran_env
 implicit none
 integer, parameter :: ascii = selected_char_kind ("ascii")
 integer, parameter :: ucs4 = selected_char_kind ('ISO_10646')
 character(kind=ascii, len=26) :: alphabet
 character(kind=ucs4, len=30) :: hello_world
 alphabet = ascii_"abcdefghijklmnopqrstuvwxyz"
 hello_world = ucs4_'Hello World and Ni Hao -- ' &
 // char (int (z'4F60'), ucs4) &
 // char (int (z'597D'), ucs4)
 write (*,*) alphabet
 open (output_unit, encoding='UTF-8')
 write (*,*) trim (hello_world)
end program character_kind

Revised on April 4, 2016 15:21:16 by Jason Blevins (128.146.137.52) (1390 characters / 0.0 pages)

Edit | Back in time (2 revisions) | See changes | History | Views: Print | TeX | Source | Linked from: Intrinsic procedures, Fortran 2003 status