test

Sun Studio 12：Fortran 库参考

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)。