niceftn.c

来自「spice中支持多层次元件模型仿真的可单独运行的插件源码」· C语言 代码 · 共 25 行

#if defined(CRAY) || defined(ARDENT)
#define NICEFTN_   NICEFTN
#else
#if (defined(AIX) && !defined(EXTNAME))
#define NICEFTN_   niceftn
#else
#define NICEFTN_   niceftn_
#endif
#endif


int NICEFTN_(ival)
     int *ival;
/*
  Wrapper around nice for FORTRAN users courtesy of Rick Kendall
  ... C has the system interface
*/
{
#ifndef IPSC
  return nice(*ival);
#else
  return 0;
#endif
}