test

Fortran Library Reference

putc: Write to Logical Unit 6

The function is called by:

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

Example: putc(): 

    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% f77 -silent tputc.f 
demo% a.out 
OK by putc 
demo%