getc, fgetc (3f)

returns a character from a logical unit

Syntax

  integer*4 getc, ierrno
  character*1 char
  external getc
  ierrno = getc ( char )

  integer*4 fgetc, ierrno, lunit
  character*1 char
  external fgetc
  ierrno = fgetc ( lunit, char )

Description

  These functions return the next character from a file associated with a
  Fortran logical unit, bypassing normal Fortran I/O.  The getc function
  reads from logical unit 5, which is normally connected to the control
  terminal input.

Return Values

  The value of each function is a system status code. Zero indicates no error
  occurred on the read; -1 indicates an end-of-file was detected.  A positive
  value is either a system error code or a decfort I/O error code.

See Also

  intro(2), perror(3f), getc(3s)