Esempio n. 1
0
logical
G77_isatty_0 (integer * lunit)
{
  if (*lunit >= MXUNIT || *lunit < 0)
    err (1, 101, "isatty");
  /* f__units is a table of descriptions for the unit numbers (defined
     in io.h) with file descriptors rather than streams */
  return (isatty (G77_fnum_0 (lunit)) ? TRUE_ : FALSE_);
}
Esempio n. 2
0
integer fnum_ (integer *lunit) {
    extern integer G77_fnum_0 (integer *lunit);
    return G77_fnum_0 (lunit);
}