INTEGER*4 putc

status = putc( char )

char

character

Input 

The character to write to the unit 

Return value 

INTEGER*4

Output 

status=0: OK

status>0: System error code

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%