C++ (Cpp) G77_fnum_0の例

コード例 #1

ファイル: isatty_.c プロジェクト: VargMon/dd-wrt

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_);
}

コード例 #2

ファイル: f2cext.c プロジェクト: akbertram/egcs-jvm

integer fnum_ (integer *lunit) {
    extern integer G77_fnum_0 (integer *lunit);
    return G77_fnum_0 (lunit);
}