Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!unix.cis.pitt.edu!dsinc!netnews.upenn.edu!eniac.seas.upenn.edu!jeffe
From: jeffe@eniac.seas.upenn.edu (George Jefferson )
Newsgroups: comp.lang.fortran
Subject: Re: INKEY routine for UNIX fortran (was: Read one keystroke with...)
Message-ID: <37298@netnews.upenn.edu>
Date: 11 Feb 91 06:07:15 GMT
References: <1991Feb4.195630.6570@math.ufl.edu> <5166@awdprime.UUCP>
Sender: news@netnews.upenn.edu
Reply-To: jeffe@eniac.seas.upenn.edu (George Jefferson )
Organization: University of Pennsylvania
Lines: 18

this is the code I use 
(works on several unix machines)

character*1 c
integer system,getc


i=system('stty -icanon time 0 min 1 -echo)
i=getc(c)
i=system('stty icanon echo')


not very pretty, but it works.
getc returns when the number of characters determined by min
have been entered (1 in this case)

--
-george            george@mech.seas.upenn.edu