Fortran Wiki
selected_char_kind (changes)

Showing changes from revision #2 to #3: (追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)

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. (削除ここまで)(追記) 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 (削除) ascii_kind (削除ここまで)(追記) 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) :: (削除) s (削除ここまで)(追記) alphabet (追記ここまで) 
(削除) 
 (削除ここまで)(削除) s (削除ここまで)(追記) character (追記ここまで)(削除)  (削除ここまで)(追記) ( (追記ここまで)(追記) kind (追記ここまで)=(削除)  (削除ここまで)(追記) ucs4 (追記ここまで)(追記) , (追記ここまで)(追記)  (追記ここまで)(追記) len (追記ここまで)(追記) = (追記ここまで)(追記) 30 (追記ここまで)(追記) ) (追記ここまで)(追記)  (追記ここまで)(追記) :: (追記ここまで)(追記)  (追記ここまで)(追記) hello_world (追記ここまで)(追記) 
 (追記ここまで)(追記) alphabet (追記ここまで)(追記)  (追記ここまで)(追記) = (追記ここまで)(追記)  (追記ここまで)ascii_"abcdefghijklmnopqrstuvwxyz"
 (削除) print (削除ここまで)(追記) hello_world (追記ここまで) (削除) *, (削除ここまで)(追記) = (追記ここまで) (削除) s (削除ここまで)(追記) 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 (削除) ascii_kind (削除ここまで)(追記) character_kind (追記ここまで)