C++ (Cpp) G77_fnum_0 Exemples

Exemple #1

Fichier : isatty_.c Projet : 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_);
}

Exemple #2

Fichier : f2cext.c Projet : akbertram/egcs-jvm

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