Next: IDATE, Previous: IBSET, Up: Intrinsic Procedures
ICHAR
— Character-to-integer conversion functionICHAR(C)
returns the code for the character in the first character
position of C
in the system's native character set.
The correspondence between characters and their codes is not necessarily
the same across different GNU Fortran implementations.
RESULT = ICHAR(C [, KIND])
C | Shall be a scalar CHARACTER , with INTENT(IN)
|
KIND | (Optional) An INTEGER initialization
expression indicating the kind parameter of the result.
|
INTEGER
and of kind KIND. If
KIND is absent, the return value is of default integer kind.
program test_ichar integer i i = ichar(' ') end program test_ichar
Name | Argument | Return type | Standard
|
ICHAR(C) | CHARACTER C | INTEGER(4) | Fortran 77 and later
|
CHARACTER
value '154'
, obtaining an INTEGER
or
REAL
value with the value 154, or vice versa. Instead, this
functionality is provided by internal-file I/O, as in the following
example:
program read_val integer value character(len=10) string, string2 string = '154' ! Convert a string to a numeric value read (string,'(I10)') value print *, value ! Convert a value to a formatted string write (string2,'(I10)') value print *, string2 end program read_val