Portability Function: Writes a character to Fortran external unit number 6.
Module: USE IFPORT
Syntax
result = PUTC (char)
char
(Input) Character. Character to be written to external unit 6.
Results
The result type is INTEGER(4). The result is zero if successful; otherwise, an error code.
Compatibility
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
See Also
GETC, WRITE, PRINT, FPUTC, Building Applications: Portability Library Overview
Example
use IFPORT
integer(4) i4
character*1 char1
do i = 1,26
char1 = char(123-i)
i4 = putc(char1)
if (i4.ne.0) iflag = 1
enddo