test

Sun Studio 12：Fortran 库参考

1.4.38 putc 和 fputc：向逻辑单元写入字符

putc 向逻辑单元 6 写入（通常是控制终端输出）。

fputc 向逻辑单元写入。

这些函数绕过正常的 Fortran I/O，将字符写入与 Fortran 逻辑单元关联的文件中。

请勿将正常的 Fortran 输出与相同单元中这些函数的输出混在一起。

请注意，要写入任何特殊的 \ 转义符（如换行符 '\n'），需要在编译时使用 FORTRAN 77 兼容选项 -f77=backslash。

1.4.38.1 putc：向逻辑单元 6 写入

该函数的调用方式如下所示：

INTEGER*4 putc

status = putc( char )

char

字符

输入 

要写入单元的字符 

返回值 

INTEGER*4

输出 

status=0：OK

status>0：系统错误代码

示例：putc()：


demo% cat tputc.f
       character char, s*10 / ’OK by putc’ /
       INTEGER*4 putc, status
       do i = 1, 10
        char = s(i:i)
        status = putc( char )
       end do
       status = putc( ’\n’ )
       end
demo% f95 -f77=backslash tputc.f
demo% a.out
OK by putc
demo%

1.4.38.2 fputc：向指定的逻辑单元写入

该函数的调用方式如下所示：

INTEGER*4 fputc

status = fputc( lunit,char )

lunit

INTEGER*4

输入 

要写入的单元 

char

字符

输入 

要写入单元的字符 

返回值 

INTEGER*4

输出 

status=0：OK

status>0：系统错误代码

示例：fputc()：


demo% cat tfputc.f
       character char, s*11 / ’OK by fputc’ /
       INTEGER*4 fputc, status
       open( 1, file=’tfputc.data’)
       do i = 1, 11
        char = s(i:i)
        status = fputc( 1, char )
       end do
       status = fputc( 1, ’\n’ )
       end
demo% f95 -f77=backslash tfputc.f
demo% a.out
demo% cat tfputc.data
OK by fputc
demo%

另请参见 putc(3S)、intro(2) 和 perror(3F)。