Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!zaphod.mps.ohio-state.edu!swrinde!elroy.jpl.nasa.gov!ames!uhccux!munnari.oz.au!diemen!sol!quan
From: quan@sol.surv.utas.edu.au (Stephen Quan)
Newsgroups: comp.lang.fortran
Subject: putc (putting exactly one character).
Message-ID: <quan.666859840@sol>
Date: 18 Feb 91 06:50:40 GMT
Sender: news@diemen.utas.edu.au
Distribution: comp
Lines: 31

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.