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
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