[comp.lang.fortran] putc

quan@sol.surv.utas.edu.au (Stephen Quan) (02/18/91)

The following routines are the C equivalent of putchar(c) in Fortran written
in OS dependant code for various platforms :

1.      PC Lahey Fortran (F77L) :
        SUBROUTINE PUTC(C)
        CHARACTER C
        WRITE (*,'(A)') '&' // C
        END

2.      Sun F77 and (I think) PC Microsoft Fortran :
        SUBROUTINE PUTC(C)
        CHARACTER C
        WRITE (*,'(A,$)') C
        END

3.      PrimOS Fortran-77 Compiler (F77) :
        SUBROUTINE PUTC(C)
        CHARACTER C
        INTEGER*2 COUNT
        COUNT = 1
        CALL TNOUA(C,COUNT)
        END

Willing-Fortran-Standard-Violators ... Use!

--
quan@131.217.30.1,
Stephen Quan,
School of Surveying,
University of Tasmania,
Australia.