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.