PUTC

Portability Function: Writes a character to Fortran external unit number 6.

Module

USE IFPORT

result = PUTC (char)

char	(Input) Character. Character to be written to external unit 6.

The result type is INTEGER(4). The result is zero if successful; otherwise, an error code.

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

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