Intel® Fortran Compiler 16.0 User and Reference Guide
Portability Function: Writes a character to Fortran external unit number 6.
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.
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