test

Sun Studio 12：Fortran 库参考

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%