Developer Guide and Reference

ID 767251
Date 10/31/2024
Public
Document Table of Contents

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

See Also