INTEGER*4 fputc

status = fputc( lunit,char )

lunit

INTEGER*4

入力 

出力先装置 

char

character

入力 

装置に出力する文字 

戻り値 

INTEGER*4

出力 

status=0: 正常

status>0: システムエラーコード

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%