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

## Results

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

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

Parent topic: O to P

## See Also

GETC
WRITE
PRINT
FPUTC