niceftn.c

spice中支持多层次元件模型仿真的可单独运行的插件源码

#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
}