test

Sun Studio 12: Fortran ライブラリ・リファレンス

1.4.38.1 putc: 論理装置 6 への出力

関数は、次のように呼び出します。

INTEGER*4 putc

status = putc( char )

char

character

入力 

装置に出力する文字 

戻り値 

INTEGER*4

出力 

status=0: 正常

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%