contrib/gcc-3.4/gcc/f/intrin.def

   1 /* intrin.def -- Public #include File (module.h template V1.0)
   2    The Free Software Foundation has released this file into the
   3    public domain.
   4
   5    Owning Modules:
   6       intrin.c
   7
   8    Modifications:
   9 */
  10
  11 /* Intrinsic names listed in alphabetical order, sorted by uppercase name.
  12    This list is keyed to the names of intrinsics as seen in source code.  */
  13
  14 DEFNAME ("ABORT",       "abort",        "Abort",        genNONE,        specABORT)      /* UNIX */
  15 DEFNAME ("ABS",         "abs",          "Abs",          genNONE,        specABS)
  16 DEFNAME ("ACCESS",      "access",       "Access",       genNONE,        specACCESS)     /* UNIX */
  17 DEFNAME ("ACHAR",       "achar",        "AChar",        genNONE,        specACHAR)      /* F90, F2C */
  18 DEFNAME ("ACOS",        "acos",         "ACos",         genNONE,        specACOS)
  19 DEFNAME ("ACOSD",       "acosd",        "ACosD",        genNONE,        specACOSD)      /* VXT */
  20 DEFNAME ("ADJUSTL",     "adjustl",      "AdjustL",      genNONE,        specADJUSTL)    /* F90 */
  21 DEFNAME ("ADJUSTR",     "adjustr",      "AdjustR",      genNONE,        specADJUSTR)    /* F90 */
  22 DEFNAME ("AIMAG",       "aimag",        "AImag",        genNONE,        specAIMAG)
  23 DEFNAME ("AIMAX0",      "aimax0",       "AIMax0",       genNONE,        specAIMAX0)     /* VXT */
  24 DEFNAME ("AIMIN0",      "aimin0",       "AIMin0",       genNONE,        specAIMIN0)     /* VXT */
  25 DEFNAME ("AINT",        "aint",         "AInt",         genNONE,        specAINT)
  26 DEFNAME ("AJMAX0",      "ajmax0",       "AJMax0",       genNONE,        specAJMAX0)     /* VXT */
  27 DEFNAME ("AJMIN0",      "ajmin0",       "AJMin0",       genNONE,        specAJMIN0)     /* VXT */
  28 DEFNAME ("ALARM",       "alarm",        "Alarm",        genNONE,        specALARM)      /* UNIX */
  29 DEFNAME ("ALL",         "all",          "All",          genNONE,        specALL)        /* F90 */
  30 DEFNAME ("ALLOCATED",   "allocated",    "Allocated",    genNONE,        specALLOCATED)  /* F90 */
  31 DEFNAME ("ALOG",        "alog",         "ALog",         genNONE,        specALOG)
  32 DEFNAME ("ALOG10",      "alog10",       "ALog10",       genNONE,        specALOG10)
  33 DEFNAME ("AMAX0",       "amax0",        "AMax0",        genNONE,        specAMAX0)
  34 DEFNAME ("AMAX1",       "amax1",        "AMax1",        genNONE,        specAMAX1)
  35 DEFNAME ("AMIN0",       "amin0",        "AMin0",        genNONE,        specAMIN0)
  36 DEFNAME ("AMIN1",       "amin1",        "AMin1",        genNONE,        specAMIN1)
  37 DEFNAME ("AMOD",        "amod",         "AMod",         genNONE,        specAMOD)
  38 DEFNAME ("AND",         "and",          "And",          genNONE,        specAND)        /* F2C */
  39 DEFNAME ("ANINT",       "anint",        "ANInt",        genNONE,        specANINT)
  40 DEFNAME ("ANY",         "any",          "Any",          genNONE,        specANY)        /* F90 */
  41 DEFNAME ("ASIN",        "asin",         "ASin",         genNONE,        specASIN)
  42 DEFNAME ("ASIND",       "asind",        "ASinD",        genNONE,        specASIND)      /* VXT */
  43 DEFNAME ("ASSOCIATED",  "associated",   "Associated",   genNONE,        specASSOCIATED) /* F90 */
  44 DEFNAME ("ATAN",        "atan",         "ATan",         genNONE,        specATAN)
  45 DEFNAME ("ATAN2",       "atan2",        "ATan2",        genNONE,        specATAN2)
  46 DEFNAME ("ATAN2D",      "atan2d",       "ATan2D",       genNONE,        specATAN2D)     /* VXT */
  47 DEFNAME ("ATAND",       "atand",        "ATanD",        genNONE,        specATAND)      /* VXT */
  48 DEFNAME ("BESJ0",       "besj0",        "BesJ0",        genNONE,        specBESJ0)      /* UNIX */
  49 DEFNAME ("BESJ1",       "besj1",        "BesJ1",        genNONE,        specBESJ1)      /* UNIX */
  50 DEFNAME ("BESJN",       "besjn",        "BesJN",        genNONE,        specBESJN)      /* UNIX */
  51 DEFNAME ("BESY0",       "besy0",        "BesY0",        genNONE,        specBESY0)      /* UNIX */
  52 DEFNAME ("BESY1",       "besy1",        "BesY1",        genNONE,        specBESY1)      /* UNIX */
  53 DEFNAME ("BESYN",       "besyn",        "BesYN",        genNONE,        specBESYN)      /* UNIX */
  54 DEFNAME ("BITEST",      "bitest",       "BITest",       genNONE,        specBITEST)     /* VXT */
  55 DEFNAME ("BIT_SIZE",    "bit_size",     "Bit_Size",     genNONE,        specBIT_SIZE)   /* F90 */
  56 DEFNAME ("BJTEST",      "bjtest",       "BJTest",       genNONE,        specBJTEST)     /* VXT */
  57 DEFNAME ("BTEST",       "btest",        "BTest",        genNONE,        specBTEST)      /* F90, VXT */
  58 DEFNAME ("CABS",        "cabs",         "CAbs",         genNONE,        specCABS)
  59 DEFNAME ("CCOS",        "ccos",         "CCos",         genNONE,        specCCOS)
  60 DEFNAME ("CDABS",       "cdabs",        "CDAbs",        genNONE,        specCDABS)      /* VXT */
  61 DEFNAME ("CDCOS",       "cdcos",        "CDCos",        genNONE,        specCDCOS)      /* VXT */
  62 DEFNAME ("CDEXP",       "cdexp",        "CDExp",        genNONE,        specCDEXP)      /* VXT */
  63 DEFNAME ("CDLOG",       "cdlog",        "CDLog",        genNONE,        specCDLOG)      /* VXT */
  64 DEFNAME ("CDSIN",       "cdsin",        "CDSin",        genNONE,        specCDSIN)      /* VXT */
  65 DEFNAME ("CDSQRT",      "cdsqrt",       "CDSqRt",       genNONE,        specCDSQRT)     /* VXT */
  66 DEFNAME ("CEILING",     "ceiling",      "Ceiling",      genNONE,        specCEILING)    /* F90 */
  67 DEFNAME ("CEXP",        "cexp",         "CExp",         genNONE,        specCEXP)
  68 DEFNAME ("CHAR",        "char",         "Char",         genNONE,        specCHAR)
  69 DEFNAME ("CHDIR",       "chdir",        "ChDir",        genCHDIR,       specNONE)       /* UNIX */
  70 DEFNAME ("CHMOD",       "chmod",        "ChMod",        genCHMOD,       specNONE)       /* UNIX */
  71 DEFNAME ("CLOG",        "clog",         "CLog",         genNONE,        specCLOG)
  72 DEFNAME ("CMPLX",       "cmplx",        "Cmplx",        genNONE,        specCMPLX)
  73 DEFNAME ("COMPLEX",     "complex",      "Complex",      genNONE,        specCOMPLEX)
  74 DEFNAME ("CONJG",       "conjg",        "Conjg",        genNONE,        specCONJG)
  75 DEFNAME ("COS",         "cos",          "Cos",          genNONE,        specCOS)
  76 DEFNAME ("COSD",        "cosd",         "CosD",         genNONE,        specCOSD)       /* VXT */
  77 DEFNAME ("COSH",        "cosh",         "CosH",         genNONE,        specCOSH)
  78 DEFNAME ("COUNT",       "count",        "Count",        genNONE,        specCOUNT)      /* F90 */
  79 DEFNAME ("CPU_TIME",    "cpu_time",     "CPU_Time",     genNONE,        specCPU_TIME)   /* F95 */
  80 DEFNAME ("CSHIFT",      "cshift",       "CShift",       genNONE,        specCSHIFT)     /* F90 */
  81 DEFNAME ("CSIN",        "csin",         "CSin",         genNONE,        specCSIN)
  82 DEFNAME ("CSQRT",       "csqrt",        "CSqRt",        genNONE,        specCSQRT)
  83 DEFNAME ("CTIME",       "ctime",        "CTime",        genCTIME,       specNONE)       /* UNIX */
  84 DEFNAME ("DABS",        "dabs",         "DAbs",         genNONE,        specDABS)
  85 DEFNAME ("DACOS",       "dacos",        "DACos",        genNONE,        specDACOS)
  86 DEFNAME ("DACOSD",      "dacosd",       "DACosD",       genNONE,        specDACOSD)     /* VXT */
  87 DEFNAME ("DASIN",       "dasin",        "DASin",        genNONE,        specDASIN)
  88 DEFNAME ("DASIND",      "dasind",       "DASinD",       genNONE,        specDASIND)     /* VXT */
  89 DEFNAME ("DATAN",       "datan",        "DATan",        genNONE,        specDATAN)
  90 DEFNAME ("DATAN2",      "datan2",       "DATan2",       genNONE,        specDATAN2)
  91 DEFNAME ("DATAN2D",     "datan2d",      "DATan2D",      genNONE,        specDATAN2D)    /* VXT */
  92 DEFNAME ("DATAND",      "datand",       "DATanD",       genNONE,        specDATAND)     /* VXT */
  93 DEFNAME ("DATE",        "date",         "Date",         genNONE,        specDATE)       /* VXT */
  94 DEFNAME ("DATE_AND_TIME",       "date_and_time",        "Date_and_Time",        genNONE,        specDATE_AND_TIME)      /* F90 */
  95 DEFNAME ("DBESJ0",      "dbesj0",       "DbesJ0",       genNONE,        specDBESJ0)     /* UNIX */
  96 DEFNAME ("DBESJ1",      "dbesj1",       "DbesJ1",       genNONE,        specDBESJ1)     /* UNIX */
  97 DEFNAME ("DBESJN",      "dbesjn",       "DbesJN",       genNONE,        specDBESJN)     /* UNIX */
  98 DEFNAME ("DBESY0",      "dbesy0",       "DbesY0",       genNONE,        specDBESY0)     /* UNIX */
  99 DEFNAME ("DBESY1",      "dbesy1",       "DbesY1",       genNONE,        specDBESY1)     /* UNIX */
 100 DEFNAME ("DBESYN",      "dbesyn",       "DbesYN",       genNONE,        specDBESYN)     /* UNIX */
 101 DEFNAME ("DBLE",        "dble",         "Dble",         genNONE,        specDBLE)
 102 DEFNAME ("DBLEQ",       "dbleq",        "DbleQ",        genNONE,        specDBLEQ)      /* VXT */
 103 DEFNAME ("DCMPLX",      "dcmplx",       "DCmplx",       genNONE,        specDCMPLX)     /* F2C, VXT */
 104 DEFNAME ("DCONJG",      "dconjg",       "DConjg",       genNONE,        specDCONJG)     /* F2C, VXT */
 105 DEFNAME ("DCOS",        "dcos",         "DCos",         genNONE,        specDCOS)
 106 DEFNAME ("DCOSD",       "dcosd",        "DCosD",        genNONE,        specDCOSD)      /* VXT */
 107 DEFNAME ("DCOSH",       "dcosh",        "DCosH",        genNONE,        specDCOSH)
 108 DEFNAME ("DDIM",        "ddim",         "DDiM",         genNONE,        specDDIM)
 109 DEFNAME ("DERF",        "derf",         "DErF",         genNONE,        specDERF)       /* UNIX */
 110 DEFNAME ("DERFC",       "derfc",        "DErFC",        genNONE,        specDERFC)      /* UNIX */
 111 DEFNAME ("DEXP",        "dexp",         "DExp",         genNONE,        specDEXP)
 112 DEFNAME ("DFLOAT",      "dfloat",       "DFloat",       genNONE,        specDFLOAT)     /* F2C, VXT */
 113 DEFNAME ("DFLOTI",      "dfloti",       "DFlotI",       genNONE,        specDFLOTI)     /* VXT */
 114 DEFNAME ("DFLOTJ",      "dflotj",       "DFlotJ",       genNONE,        specDFLOTJ)     /* VXT */
 115 DEFNAME ("DIGITS",      "digits",       "Digits",       genNONE,        specDIGITS)     /* F90 */
 116 DEFNAME ("DIM",         "dim",          "DiM",          genNONE,        specDIM)
 117 DEFNAME ("DIMAG",       "dimag",        "DImag",        genNONE,        specDIMAG)      /* F2C, VXT */
 118 DEFNAME ("DINT",        "dint",         "DInt",         genNONE,        specDINT)
 119 DEFNAME ("DLOG",        "dlog",         "DLog",         genNONE,        specDLOG)
 120 DEFNAME ("DLOG10",      "dlog10",       "DLog10",       genNONE,        specDLOG10)
 121 DEFNAME ("DMAX1",       "dmax1",        "DMax1",        genNONE,        specDMAX1)
 122 DEFNAME ("DMIN1",       "dmin1",        "DMin1",        genNONE,        specDMIN1)
 123 DEFNAME ("DMOD",        "dmod",         "DMod",         genNONE,        specDMOD)
 124 DEFNAME ("DNINT",       "dnint",        "DNInt",        genNONE,        specDNINT)
 125 DEFNAME ("DOT_PRODUCT", "dot_product",  "Dot_Product",  genNONE,        specDOT_PRODUCT)        /* F90 */
 126 DEFNAME ("DPROD",       "dprod",        "DProd",        genNONE,        specDPROD)
 127 DEFNAME ("DREAL",       "dreal",        "DReal",        genNONE,        specDREAL)      /* VXT */
 128 DEFNAME ("DSIGN",       "dsign",        "DSign",        genNONE,        specDSIGN)
 129 DEFNAME ("DSIN",        "dsin",         "DSin",         genNONE,        specDSIN)
 130 DEFNAME ("DSIND",       "dsind",        "DSinD",        genNONE,        specDSIND)      /* VXT */
 131 DEFNAME ("DSINH",       "dsinh",        "DSinH",        genNONE,        specDSINH)
 132 DEFNAME ("DSQRT",       "dsqrt",        "DSqRt",        genNONE,        specDSQRT)
 133 DEFNAME ("DTAN",        "dtan",         "DTan",         genNONE,        specDTAN)
 134 DEFNAME ("DTAND",       "dtand",        "DTanD",        genNONE,        specDTAND)      /* VXT */
 135 DEFNAME ("DTANH",       "dtanh",        "DTanH",        genNONE,        specDTANH)
 136 DEFNAME ("DTIME",       "dtime",        "DTime",        genDTIME,       specNONE)       /* UNIX */
 137 DEFNAME ("EOSHIFT",     "eoshift",      "EOShift",      genNONE,        specEOSHIFT)    /* F90 */
 138 DEFNAME ("EPSILON",     "epsilon",      "Epsilon",      genNONE,        specEPSILON)    /* F90 */
 139 DEFNAME ("ERF",         "erf",          "ErF",          genNONE,        specERF)        /* UNIX */
 140 DEFNAME ("ERFC",        "erfc",         "ErFC",         genNONE,        specERFC)       /* UNIX */
 141 DEFNAME ("ETIME",       "etime",        "ETime",        genETIME,       specNONE)       /* UNIX */
 142 DEFNAME ("EXIT",        "exit",         "Exit",         genNONE,        specEXIT)       /* UNIX */
 143 DEFNAME ("EXP",         "exp",          "Exp",          genNONE,        specEXP)
 144 DEFNAME ("EXPONENT",    "exponent",     "Exponent",     genNONE,        specEXPONENT)   /* F90 */
 145 DEFNAME ("FDATE",       "fdate",        "FDate",        genFDATE,       specNONE)       /* UNIX */
 146 DEFNAME ("FGET",        "fget",         "FGet",         genFGET,        specNONE)       /* UNIX */
 147 DEFNAME ("FGETC",       "fgetc",        "FGetC",        genFGETC,       specNONE)       /* UNIX */
 148 DEFNAME ("FLOAT",       "float",        "Float",        genNONE,        specFLOAT)
 149 DEFNAME ("FLOATI",      "floati",       "FloatI",       genNONE,        specFLOATI)     /* VXT */
 150 DEFNAME ("FLOATJ",      "floatj",       "FloatJ",       genNONE,        specFLOATJ)     /* VXT */
 151 DEFNAME ("FLOOR",       "floor",        "Floor",        genNONE,        specFLOOR)      /* F90 */
 152 DEFNAME ("FLUSH",       "flush",        "Flush",        genNONE,        specFLUSH)      /* UNIX */
 153 DEFNAME ("FNUM",        "fnum",         "FNum",         genNONE,        specFNUM)       /* UNIX */
 154 DEFNAME ("FPABSP",      "fpabsp",       "FPAbsP",       genFPABSP,      specNONE)       /* F2C */
 155 DEFNAME ("FPEXPN",      "fpexpn",       "FPExpn",       genFPEXPN,      specNONE)       /* F2C */
 156 DEFNAME ("FPFRAC",      "fpfrac",       "FPFrac",       genFPFRAC,      specNONE)       /* F2C */
 157 DEFNAME ("FPMAKE",      "fpmake",       "FPMake",       genFPMAKE,      specNONE)       /* F2C */
 158 DEFNAME ("FPRRSP",      "fprrsp",       "FPRRSp",       genFPRRSP,      specNONE)       /* F2C */
 159 DEFNAME ("FPSCAL",      "fpscal",       "FPScal",       genFPSCAL,      specNONE)       /* F2C */
 160 DEFNAME ("FPUT",        "fput",         "FPut",         genFPUT,        specNONE)       /* UNIX */
 161 DEFNAME ("FPUTC",       "fputc",        "FPutC",        genFPUTC,       specNONE)       /* UNIX */
 162 DEFNAME ("FRACTION",    "fraction",     "Fraction",     genNONE,        specFRACTION)   /* F90 */
 163 DEFNAME ("FSEEK",       "fseek",        "FSeek",        genNONE,        specFSEEK)      /* UNIX */
 164 DEFNAME ("FSTAT",       "fstat",        "FStat",        genFSTAT,       specNONE)       /* UNIX */
 165 DEFNAME ("FTELL",       "ftell",        "FTell",        genFTELL,       specNONE)       /* UNIX */
 166 DEFNAME ("GERROR",      "gerror",       "GError",       genNONE,        specGERROR)     /* UNIX */
 167 DEFNAME ("GETARG",      "getarg",       "GetArg",       genNONE,        specGETARG)     /* UNIX */
 168 DEFNAME ("GETCWD",      "getcwd",       "GetCWD",       genGETCWD,      specNONE)       /* UNIX */
 169 DEFNAME ("GETENV",      "getenv",       "GetEnv",       genNONE,        specGETENV)     /* UNIX */
 170 DEFNAME ("GETGID",      "getgid",       "GetGId",       genNONE,        specGETGID)     /* UNIX */
 171 DEFNAME ("GETLOG",      "getlog",       "GetLog",       genNONE,        specGETLOG)     /* UNIX */
 172 DEFNAME ("GETPID",      "getpid",       "GetPId",       genNONE,        specGETPID)     /* UNIX */
 173 DEFNAME ("GETUID",      "getuid",       "GetUId",       genNONE,        specGETUID)     /* UNIX */
 174 DEFNAME ("GMTIME",      "gmtime",       "GMTime",       genNONE,        specGMTIME)     /* UNIX */
 175 DEFNAME ("HOSTNM",      "hostnm",       "HostNm",       genHOSTNM,      specNONE)       /* UNIX */
 176 DEFNAME ("HUGE",        "huge",         "Huge",         genNONE,        specHUGE)       /* F90 */
 177 DEFNAME ("IABS",        "iabs",         "IAbs",         genNONE,        specIABS)
 178 DEFNAME ("IACHAR",      "iachar",       "IAChar",       genNONE,        specIACHAR)     /* F90, F2C */
 179 DEFNAME ("IAND",        "iand",         "IAnd",         genNONE,        specIAND)       /* F90, VXT */
 180 DEFNAME ("IARGC",       "iargc",        "IArgC",        genNONE,        specIARGC)      /* UNIX */
 181 DEFNAME ("IBCLR",       "ibclr",        "IBClr",        genNONE,        specIBCLR)      /* F90, VXT */
 182 DEFNAME ("IBITS",       "ibits",        "IBits",        genNONE,        specIBITS)      /* F90, VXT */
 183 DEFNAME ("IBSET",       "ibset",        "IBSet",        genNONE,        specIBSET)      /* F90, VXT */
 184 DEFNAME ("ICHAR",       "ichar",        "IChar",        genNONE,        specICHAR)
 185 DEFNAME ("IDATE",       "idate",        "IDate",        genIDATE,       specNONE)       /* UNIX, VXT */
 186 DEFNAME ("IDIM",        "idim",         "IDiM",         genNONE,        specIDIM)
 187 DEFNAME ("IDINT",       "idint",        "IDInt",        genNONE,        specIDINT)
 188 DEFNAME ("IDNINT",      "idnint",       "IDNInt",       genNONE,        specIDNINT)
 189 DEFNAME ("IEOR",        "ieor",         "IEOr",         genNONE,        specIEOR)       /* F90, VXT */
 190 DEFNAME ("IERRNO",      "ierrno",       "IErrNo",       genNONE,        specIERRNO)     /* UNIX */
 191 DEFNAME ("IFIX",        "ifix",         "IFix",         genNONE,        specIFIX)
 192 DEFNAME ("IIABS",       "iiabs",        "IIAbs",        genNONE,        specIIABS)      /* VXT */
 193 DEFNAME ("IIAND",       "iiand",        "IIAnd",        genNONE,        specIIAND)      /* VXT */
 194 DEFNAME ("IIBCLR",      "iibclr",       "IIBClr",       genNONE,        specIIBCLR)     /* VXT */
 195 DEFNAME ("IIBITS",      "iibits",       "IIBits",       genNONE,        specIIBITS)     /* VXT */
 196 DEFNAME ("IIBSET",      "iibset",       "IIBSet",       genNONE,        specIIBSET)     /* VXT */
 197 DEFNAME ("IIDIM",       "iidim",        "IIDiM",        genNONE,        specIIDIM)      /* VXT */
 198 DEFNAME ("IIDINT",      "iidint",       "IIDInt",       genNONE,        specIIDINT)     /* VXT */
 199 DEFNAME ("IIDNNT",      "iidnnt",       "IIDNnt",       genNONE,        specIIDNNT)     /* VXT */
 200 DEFNAME ("IIEOR",       "iieor",        "IIEOr",        genNONE,        specIIEOR)      /* VXT */
 201 DEFNAME ("IIFIX",       "iifix",        "IIFix",        genNONE,        specIIFIX)      /* VXT */
 202 DEFNAME ("IINT",        "iint",         "IInt",         genNONE,        specIINT)       /* VXT */
 203 DEFNAME ("IIOR",        "iior",         "IIOr",         genNONE,        specIIOR)       /* VXT */
 204 DEFNAME ("IIQINT",      "iiqint",       "IIQint",       genNONE,        specIIQINT)     /* VXT */
 205 DEFNAME ("IIQNNT",      "iiqnnt",       "IIQNnt",       genNONE,        specIIQNNT)     /* VXT */
 206 DEFNAME ("IISHFT",      "iishft",       "IIShft",       genNONE,        specNONE)       /* VXT */
 207 DEFNAME ("IISHFTC",     "iishftc",      "IIShftC",      genNONE,        specIISHFTC)    /* VXT */
 208 DEFNAME ("IISIGN",      "iisign",       "IISign",       genNONE,        specIISIGN)     /* VXT */
 209 DEFNAME ("IMAG",        "imag",         "Imag",         genNONE,        specIMAG)       /* F2C */
 210 DEFNAME ("IMAGPART",    "imagpart",     "ImagPart",     genNONE,        specIMAGPART)   /* GNU */
 211 DEFNAME ("IMAX0",       "imax0",        "IMax0",        genNONE,        specIMAX0)      /* VXT */
 212 DEFNAME ("IMAX1",       "imax1",        "IMax1",        genNONE,        specIMAX1)      /* VXT */
 213 DEFNAME ("IMIN0",       "imin0",        "IMin0",        genNONE,        specIMIN0)      /* VXT */
 214 DEFNAME ("IMIN1",       "imin1",        "IMin1",        genNONE,        specIMIN1)      /* VXT */
 215 DEFNAME ("IMOD",        "imod",         "IMod",         genNONE,        specIMOD)       /* VXT */
 216 DEFNAME ("INDEX",       "index",        "Index",        genNONE,        specINDEX)
 217 DEFNAME ("ININT",       "inint",        "INInt",        genNONE,        specININT)      /* VXT */
 218 DEFNAME ("INOT",        "inot",         "INot",         genNONE,        specINOT)       /* VXT */
 219 DEFNAME ("INT",         "int",          "Int",          genNONE,        specINT)
 220 DEFNAME ("INT2",        "int2",         "Int2",         genNONE,        specINT2)       /* MS */
 221 DEFNAME ("INT8",        "int8",         "Int8",         genNONE,        specINT8)       /* GNU */
 222 DEFNAME ("IOR",         "ior",          "IOr",          genNONE,        specIOR)        /* F90, VXT */
 223 DEFNAME ("IRAND",       "irand",        "IRand",        genNONE,        specIRAND)      /* UNIX */
 224 DEFNAME ("ISATTY",      "isatty",       "IsaTty",       genNONE,        specISATTY)     /* UNIX */
 225 DEFNAME ("ISHFT",       "ishft",        "IShft",        genNONE,        specISHFT)      /* F90 */
 226 DEFNAME ("ISHFTC",      "ishftc",       "IShftC",       genNONE,        specISHFTC)     /* F90, VXT */
 227 DEFNAME ("ISIGN",       "isign",        "ISign",        genNONE,        specISIGN)
 228 DEFNAME ("ITIME",       "itime",        "ITime",        genNONE,        specITIME)      /* UNIX */
 229 DEFNAME ("IZEXT",       "izext",        "IZExt",        genNONE,        specIZEXT)      /* VXT */
 230 DEFNAME ("JIABS",       "jiabs",        "JIAbs",        genNONE,        specJIABS)      /* VXT */
 231 DEFNAME ("JIAND",       "jiand",        "JIAnd",        genNONE,        specJIAND)      /* VXT */
 232 DEFNAME ("JIBCLR",      "jibclr",       "JIBClr",       genNONE,        specJIBCLR)     /* VXT */
 233 DEFNAME ("JIBITS",      "jibits",       "JIBits",       genNONE,        specJIBITS)     /* VXT */
 234 DEFNAME ("JIBSET",      "jibset",       "JIBSet",       genNONE,        specJIBSET)     /* VXT */
 235 DEFNAME ("JIDIM",       "jidim",        "JIDiM",        genNONE,        specJIDIM)      /* VXT */
 236 DEFNAME ("JIDINT",      "jidint",       "JIDInt",       genNONE,        specJIDINT)     /* VXT */
 237 DEFNAME ("JIDNNT",      "jidnnt",       "JIDNnt",       genNONE,        specJIDNNT)     /* VXT */
 238 DEFNAME ("JIEOR",       "jieor",        "JIEOr",        genNONE,        specJIEOR)      /* VXT */
 239 DEFNAME ("JIFIX",       "jifix",        "JIFix",        genNONE,        specJIFIX)      /* VXT */
 240 DEFNAME ("JINT",        "jint",         "JInt",         genNONE,        specJINT)       /* VXT */
 241 DEFNAME ("JIOR",        "jior",         "JIOr",         genNONE,        specJIOR)       /* VXT */
 242 DEFNAME ("JIQINT",      "jiqint",       "JIQint",       genNONE,        specJIQINT)     /* VXT */
 243 DEFNAME ("JIQNNT",      "jiqnnt",       "JIQNnt",       genNONE,        specJIQNNT)     /* VXT */
 244 DEFNAME ("JISHFT",      "jishft",       "JIShft",       genNONE,        specJISHFT)     /* VXT */
 245 DEFNAME ("JISHFTC",     "jishftc",      "JIShftC",      genNONE,        specJISHFTC)    /* VXT */
 246 DEFNAME ("JISIGN",      "jisign",       "JISign",       genNONE,        specJISIGN)     /* VXT */
 247 DEFNAME ("JMAX0",       "jmax0",        "JMax0",        genNONE,        specJMAX0)      /* VXT */
 248 DEFNAME ("JMAX1",       "jmax1",        "JMax1",        genNONE,        specJMAX1)      /* VXT */
 249 DEFNAME ("JMIN0",       "jmin0",        "JMin0",        genNONE,        specJMIN0)      /* VXT */
 250 DEFNAME ("JMIN1",       "jmin1",        "JMin1",        genNONE,        specJMIN1)      /* VXT */
 251 DEFNAME ("JMOD",        "jmod",         "JMod",         genNONE,        specJMOD)       /* VXT */
 252 DEFNAME ("JNINT",       "jnint",        "JNInt",        genNONE,        specJNINT)      /* VXT */
 253 DEFNAME ("JNOT",        "jnot",         "JNot",         genNONE,        specJNOT)       /* VXT */
 254 DEFNAME ("JZEXT",       "jzext",        "JZExt",        genNONE,        specJZEXT)      /* VXT */
 255 DEFNAME ("KILL",        "kill",         "Kill",         genKILL,        specNONE)       /* UNIX */
 256 DEFNAME ("KIND",        "kind",         "Kind",         genNONE,        specKIND)       /* F90 */
 257 DEFNAME ("LBOUND",      "lbound",       "LBound",       genNONE,        specLBOUND)     /* F90 */
 258 DEFNAME ("LEN",         "len",          "Len",          genNONE,        specLEN)
 259 DEFNAME ("LEN_TRIM",    "len_trim",     "Len_Trim",     genNONE,        specLEN_TRIM)   /* F90 */
 260 DEFNAME ("LGE",         "lge",          "LGe",          genNONE,        specLGE)
 261 DEFNAME ("LGT",         "lgt",          "LGt",          genNONE,        specLGT)
 262 DEFNAME ("LINK",        "link",         "Link",         genLINK,        specNONE)       /* UNIX */
 263 DEFNAME ("LLE",         "lle",          "LLe",          genNONE,        specLLE)
 264 DEFNAME ("LLT",         "llt",          "LLt",          genNONE,        specLLT)
 265 DEFNAME ("LNBLNK",      "lnblnk",       "LnBlnk",       genNONE,        specLNBLNK)     /* UNIX */
 266 DEFNAME ("LOC",         "loc",          "Loc",          genNONE,        specLOC)        /* VXT */
 267 DEFNAME ("LOG",         "log",          "Log",          genNONE,        specLOG)
 268 DEFNAME ("LOG10",       "log10",        "Log10",        genNONE,        specLOG10)
 269 DEFNAME ("LOGICAL",     "logical",      "Logical",      genNONE,        specLOGICAL)    /* F90 */
 270 DEFNAME ("LONG",        "long",         "Long",         genNONE,        specLONG)       /* UNIX */
 271 DEFNAME ("LSHIFT",      "lshift",       "LShift",       genNONE,        specLSHIFT)     /* F2C */
 272 DEFNAME ("LSTAT",       "lstat",        "LStat",        genLSTAT,       specNONE)       /* UNIX */
 273 DEFNAME ("LTIME",       "ltime",        "LTime",        genNONE,        specLTIME)      /* UNIX */
 274 DEFNAME ("MATMUL",      "matmul",       "MatMul",       genNONE,        specMATMUL)     /* F90 */
 275 DEFNAME ("MAX",         "max",          "Max",          genNONE,        specMAX)
 276 DEFNAME ("MAX0",        "max0",         "Max0",         genNONE,        specMAX0)
 277 DEFNAME ("MAX1",        "max1",         "Max1",         genNONE,        specMAX1)
 278 DEFNAME ("MAXEXPONENT", "maxexponent",  "MaxExponent",  genNONE,        specMAXEXPONENT)        /* F90 */
 279 DEFNAME ("MAXLOC",      "maxloc",       "MaxLoc",       genNONE,        specMAXLOC)     /* F90 */
 280 DEFNAME ("MAXVAL",      "maxval",       "MaxVal",       genNONE,        specMAXVAL)     /* F90 */
 281 DEFNAME ("MCLOCK",      "mclock",       "MClock",       genNONE,        specMCLOCK)     /* UNIX */
 282 DEFNAME ("MCLOCK8",     "mclock8",      "MClock8",      genNONE,        specMCLOCK8)    /* UNIX */
 283 DEFNAME ("MERGE",       "merge",        "Merge",        genNONE,        specMERGE)      /* F90 */
 284 DEFNAME ("MIN",         "min",          "Min",          genNONE,        specMIN)
 285 DEFNAME ("MIN0",        "min0",         "Min0",         genNONE,        specMIN0)
 286 DEFNAME ("MIN1",        "min1",         "Min1",         genNONE,        specMIN1)
 287 DEFNAME ("MINEXPONENT", "minexponent",  "MinExponent",  genNONE,        specMINEXPONENT)        /* F90 */
 288 DEFNAME ("MINLOC",      "minloc",       "MinLoc",       genNONE,        specMINLOC)     /* F90 */
 289 DEFNAME ("MINVAL",      "minval",       "MinVal",       genNONE,        specMINVAL)     /* F90 */
 290 DEFNAME ("MOD",         "mod",          "Mod",          genNONE,        specMOD)
 291 DEFNAME ("MODULO",      "modulo",       "Modulo",       genNONE,        specMODULO)     /* F90 */
 292 DEFNAME ("MVBITS",      "mvbits",       "MvBits",       genNONE,        specMVBITS)     /* F90 */
 293 DEFNAME ("NEAREST",     "nearest",      "Nearest",      genNONE,        specNEAREST)    /* F90 */
 294 DEFNAME ("NINT",        "nint",         "NInt",         genNONE,        specNINT)
 295 DEFNAME ("NOT",         "not",          "Not",          genNONE,        specNOT)        /* F2C, F90,    VXT */
 296 DEFNAME ("OR",          "or",           "Or",           genNONE,        specOR) /* F2C */
 297 DEFNAME ("PACK",        "pack",         "Pack",         genNONE,        specPACK)       /* F90 */
 298 DEFNAME ("PERROR",      "perror",       "PError",       genNONE,        specPERROR)     /* UNIX */
 299 DEFNAME ("PRECISION",   "precision",    "Precision",    genNONE,        specPRECISION)  /* F90 */
 300 DEFNAME ("PRESENT",     "present",      "Present",      genNONE,        specPRESENT)    /* F90 */
 301 DEFNAME ("PRODUCT",     "product",      "Product",      genNONE,        specPRODUCT)    /* F90 */
 302 DEFNAME ("QABS",        "qabs",         "QAbs",         genNONE,        specQABS)       /* VXT */
 303 DEFNAME ("QACOS",       "qacos",        "QACos",        genNONE,        specQACOS)      /* VXT */
 304 DEFNAME ("QACOSD",      "qacosd",       "QACosD",       genNONE,        specQACOSD)     /* VXT */
 305 DEFNAME ("QASIN",       "qasin",        "QASin",        genNONE,        specQASIN)      /* VXT */
 306 DEFNAME ("QASIND",      "qasind",       "QASinD",       genNONE,        specQASIND)     /* VXT */
 307 DEFNAME ("QATAN",       "qatan",        "QATan",        genNONE,        specQATAN)      /* VXT */
 308 DEFNAME ("QATAN2",      "qatan2",       "QATan2",       genNONE,        specQATAN2)     /* VXT */
 309 DEFNAME ("QATAN2D",     "qatan2d",      "QATan2D",      genNONE,        specQATAN2D)    /* VXT */
 310 DEFNAME ("QATAND",      "qatand",       "QATanD",       genNONE,        specQATAND)     /* VXT */
 311 DEFNAME ("QCOS",        "qcos",         "QCos",         genNONE,        specQCOS)       /* VXT */
 312 DEFNAME ("QCOSD",       "qcosd",        "QCosD",        genNONE,        specQCOSD)      /* VXT */
 313 DEFNAME ("QCOSH",       "qcosh",        "QCosH",        genNONE,        specQCOSH)      /* VXT */
 314 DEFNAME ("QDIM",        "qdim",         "QDiM",         genNONE,        specQDIM)       /* VXT */
 315 DEFNAME ("QEXP",        "qexp",         "QExp",         genNONE,        specQEXP)       /* VXT */
 316 DEFNAME ("QEXT",        "qext",         "QExt",         genNONE,        specQEXT)       /* VXT */
 317 DEFNAME ("QEXTD",       "qextd",        "QExtD",        genNONE,        specQEXTD)      /* VXT */
 318 DEFNAME ("QFLOAT",      "qfloat",       "QFloat",       genNONE,        specQFLOAT)     /* VXT */
 319 DEFNAME ("QINT",        "qint",         "QInt",         genNONE,        specQINT)       /* VXT */
 320 DEFNAME ("QLOG",        "qlog",         "QLog",         genNONE,        specQLOG)       /* VXT */
 321 DEFNAME ("QLOG10",      "qlog10",       "QLog10",       genNONE,        specQLOG10)     /* VXT */
 322 DEFNAME ("QMAX1",       "qmax1",        "QMax1",        genNONE,        specQMAX1)      /* VXT */
 323 DEFNAME ("QMIN1",       "qmin1",        "QMin1",        genNONE,        specQMIN1)      /* VXT */
 324 DEFNAME ("QMOD",        "qmod",         "QMod",         genNONE,        specQMOD)       /* VXT */
 325 DEFNAME ("QNINT",       "qnint",        "QNInt",        genNONE,        specQNINT)      /* VXT */
 326 DEFNAME ("QSIN",        "qsin",         "QSin",         genNONE,        specQSIN)       /* VXT */
 327 DEFNAME ("QSIND",       "qsind",        "QSinD",        genNONE,        specQSIND)      /* VXT */
 328 DEFNAME ("QSINH",       "qsinh",        "QSinH",        genNONE,        specQSINH)      /* VXT */
 329 DEFNAME ("QSQRT",       "qsqrt",        "QSqRt",        genNONE,        specQSQRT)      /* VXT */
 330 DEFNAME ("QTAN",        "qtan",         "QTan",         genNONE,        specQTAN)       /* VXT */
 331 DEFNAME ("QTAND",       "qtand",        "QTanD",        genNONE,        specQTAND)      /* VXT */
 332 DEFNAME ("QTANH",       "qtanh",        "QTanH",        genNONE,        specQTANH)      /* VXT */
 333 DEFNAME ("RADIX",       "radix",        "Radix",        genNONE,        specRADIX)      /* F90 */
 334 DEFNAME ("RAND",        "rand",         "Rand",         genNONE,        specRAND)       /* UNIX */
 335 DEFNAME ("RANDOM_NUMBER",       "random_number",        "Random_Number",        genNONE,        specRANDOM_NUMBER)      /* F90 */
 336 DEFNAME ("RANDOM_SEED", "random_seed",  "Random_Seed",  genNONE,        specRANDOM_SEED)        /* F90 */
 337 DEFNAME ("RANGE",       "range",        "Range",        genNONE,        specRANGE)      /* F90 */
 338 DEFNAME ("REAL",        "real",         "Real",         genNONE,        specREAL)
 339 DEFNAME ("REALPART",    "realpart",     "RealPart",     genNONE,        specREALPART)   /* GNU */
 340 DEFNAME ("RENAME",      "rename",       "Rename",       genRENAME,      specNONE)       /* UNIX */
 341 DEFNAME ("REPEAT",      "repeat",       "Repeat",       genNONE,        specREPEAT)     /* F90 */
 342 DEFNAME ("RESHAPE",     "reshape",      "Reshape",      genNONE,        specRESHAPE)    /* F90 */
 343 DEFNAME ("RRSPACING",   "rrspacing",    "RRSpacing",    genNONE,        specRRSPACING)  /* F90 */
 344 DEFNAME ("RSHIFT",      "rshift",       "RShift",       genNONE,        specRSHIFT)     /* F2C */
 345 DEFNAME ("SCALE",       "scale",        "Scale",        genNONE,        specSCALE)      /* F90 */
 346 DEFNAME ("SCAN",        "scan",         "Scan",         genNONE,        specSCAN)       /* F90 */
 347 DEFNAME ("SECNDS",      "secnds",       "Secnds",       genNONE,        specSECNDS)     /* VXT */
 348 DEFNAME ("SECOND",      "second",       "Second",       genSECOND,      specNONE)       /* UNIX */
 349 DEFNAME ("SELECTED_INT_KIND",   "selected_int_kind",    "Selected_Int_Kind",    genNONE,        specSEL_INT_KIND)       /* F90 */
 350 DEFNAME ("SELECTED_REAL_KIND",  "selected_real_kind",   "Selected_Real_Kind",   genNONE,        specSEL_REAL_KIND)      /* F90 */
 351 DEFNAME ("SET_EXPONENT",        "set_exponent", "Set_Exponent", genNONE,        specSET_EXPONENT)       /* F90 */
 352 DEFNAME ("SHAPE",       "shape",        "Shape",        genNONE,        specSHAPE)      /* F90 */
 353 DEFNAME ("SHORT",       "short",        "Short",        genNONE,        specSHORT)      /* UNIX */
 354 DEFNAME ("SIGN",        "sign",         "Sign",         genNONE,        specSIGN)
 355 DEFNAME ("SIGNAL",      "signal",       "Signal",       genSIGNAL,      specNONE)       /* UNIX */
 356 DEFNAME ("SIN",         "sin",          "Sin",          genNONE,        specSIN)
 357 DEFNAME ("SIND",        "sind",         "SinD",         genNONE,        specSIND)       /* VXT */
 358 DEFNAME ("SINH",        "sinh",         "SinH",         genNONE,        specSINH)
 359 DEFNAME ("SLEEP",       "sleep",        "Sleep",        genNONE,        specSLEEP)      /* UNIX */
 360 DEFNAME ("SNGL",        "sngl",         "Sngl",         genNONE,        specSNGL)
 361 DEFNAME ("SNGLQ",       "snglq",        "SnglQ",        genNONE,        specSNGLQ)      /* VXT */
 362 DEFNAME ("SPACING",     "spacing",      "Spacing",      genNONE,        specSPACING)    /* F90 */
 363 DEFNAME ("SPREAD",      "spread",       "Spread",       genNONE,        specSPREAD)     /* F90 */
 364 DEFNAME ("SQRT",        "sqrt",         "SqRt",         genNONE,        specSQRT)
 365 DEFNAME ("SRAND",       "srand",        "SRand",        genNONE,        specSRAND)      /* UNIX */
 366 DEFNAME ("STAT",        "stat",         "Stat",         genSTAT,        specNONE)       /* UNIX */
 367 DEFNAME ("SUM",         "sum",          "Sum",          genNONE,        specSUM)        /* F90 */
 368 DEFNAME ("SYMLNK",      "symlnk",       "SymLnk",       genSYMLNK,      specNONE)       /* UNIX */
 369 DEFNAME ("SYSTEM",      "system",       "System",       genSYSTEM,      specNONE)       /* UNIX */
 370 DEFNAME ("SYSTEM_CLOCK",        "system_clock", "System_Clock", genNONE,        specSYSTEM_CLOCK)       /* F90 */
 371 DEFNAME ("TAN",         "tan",          "Tan",          genNONE,        specTAN)
 372 DEFNAME ("TAND",        "tand",         "TanD",         genNONE,        specTAND)       /* VXT */
 373 DEFNAME ("TANH",        "tanh",         "TanH",         genNONE,        specTANH)
 374 DEFNAME ("TIME",        "time",         "Time",         genTIME,        specNONE)       /* UNIX, VXT */
 375 DEFNAME ("TIME8",       "time8",        "Time8",        genNONE,        specTIME8)      /* UNIX */
 376 DEFNAME ("TINY",        "tiny",         "Tiny",         genNONE,        specTINY)       /* F90 */
 377 DEFNAME ("TRANSFER",    "transfer",     "Transfer",     genNONE,        specTRANSFER)   /* F90 */
 378 DEFNAME ("TRANSPOSE",   "transpose",    "Transpose",    genNONE,        specTRANSPOSE)  /* F90 */
 379 DEFNAME ("TRIM",        "trim",         "Trim",         genNONE,        specTRIM)       /* F90 */
 380 DEFNAME ("TTYNAM",      "ttynam",       "TtyNam",       genTTYNAM,      specNONE)       /* UNIX */
 381 DEFNAME ("UBOUND",      "ubound",       "UBound",       genNONE,        specUBOUND)     /* F90 */
 382 DEFNAME ("UMASK",       "umask",        "UMask",        genUMASK,       specNONE)       /* UNIX */
 383 DEFNAME ("UNLINK",      "unlink",       "Unlink",       genUNLINK,      specNONE)       /* UNIX */
 384 DEFNAME ("UNPACK",      "unpack",       "Unpack",       genNONE,        specUNPACK)     /* F90 */
 385 DEFNAME ("VERIFY",      "verify",       "Verify",       genNONE,        specVERIFY)     /* F90 */
 386 DEFNAME ("XOR",         "xor",          "XOr",          genNONE,        specXOR)        /* F2C */
 387 DEFNAME ("ZABS",        "zabs",         "ZAbs",         genNONE,        specZABS)       /* F2C */
 388 DEFNAME ("ZCOS",        "zcos",         "ZCos",         genNONE,        specZCOS)       /* F2C */
 389 DEFNAME ("ZEXP",        "zexp",         "ZExp",         genNONE,        specZEXP)       /* F2C */
 390 DEFNAME ("ZEXT",        "zext",         "ZExt",         genNONE,        specZEXT)       /* VXT */
 391 DEFNAME ("ZLOG",        "zlog",         "ZLog",         genNONE,        specZLOG)       /* F2C */
 392 DEFNAME ("ZSIN",        "zsin",         "ZSin",         genNONE,        specZSIN)       /* F2C */
 393 DEFNAME ("ZSQRT",       "zsqrt",        "ZSqRt",        genNONE,        specZSQRT)      /* F2C */
 394
 395 /* Internally generic intrinsics.
 396
 397    Should properly be called "mapped" intrinsics.  These are intrinsics
 398    that map to one or more generally different implementations -- e.g.
 399    that have differing interpretations depending on the Fortran dialect
 400    being used.  Also, this includes the placeholder intrinsics that
 401    have no specific versions, but we want to reserve the names for now.  */
 402
 403 DEFGEN (CTIME, "CTIME",         /* UNIX */
 404     FFEINTRIN_specCTIME_subr,
 405     FFEINTRIN_specCTIME_func
 406   )
 407 DEFGEN (CHDIR, "CHDIR",         /* UNIX */
 408     FFEINTRIN_specCHDIR_subr,
 409     FFEINTRIN_specCHDIR_func
 410   )
 411 DEFGEN (CHMOD, "CHMOD",         /* UNIX */
 412     FFEINTRIN_specCHMOD_subr,
 413     FFEINTRIN_specCHMOD_func
 414   )
 415 DEFGEN (DTIME, "DTIME",         /* UNIX */
 416     FFEINTRIN_specDTIME_subr,
 417     FFEINTRIN_specDTIME_func
 418   )
 419 DEFGEN (ETIME, "ETIME",         /* UNIX */
 420     FFEINTRIN_specETIME_subr,
 421     FFEINTRIN_specETIME_func
 422   )
 423 DEFGEN (FDATE, "FDATE",         /* UNIX */
 424     FFEINTRIN_specFDATE_subr,
 425     FFEINTRIN_specFDATE_func
 426   )
 427 DEFGEN (FGET, "FGET",           /* UNIX */
 428     FFEINTRIN_specFGET_subr,
 429     FFEINTRIN_specFGET_func
 430   )
 431 DEFGEN (FGETC, "FGETC",         /* UNIX */
 432     FFEINTRIN_specFGETC_subr,
 433     FFEINTRIN_specFGETC_func
 434   )
 435 DEFGEN (FPABSP, "FPABSP",       /* F2C */
 436     FFEINTRIN_specNONE,
 437     FFEINTRIN_specNONE
 438   )
 439 DEFGEN (FPEXPN, "FPEXPN",       /* F2C */
 440     FFEINTRIN_specNONE,
 441     FFEINTRIN_specNONE
 442   )
 443 DEFGEN (FPFRAC, "FPFRAC",       /* F2C */
 444     FFEINTRIN_specNONE,
 445     FFEINTRIN_specNONE
 446   )
 447 DEFGEN (FPMAKE, "FPMAKE",       /* F2C */
 448     FFEINTRIN_specNONE,
 449     FFEINTRIN_specNONE
 450   )
 451 DEFGEN (FPRRSP, "FPRRSP",       /* F2C */
 452     FFEINTRIN_specNONE,
 453     FFEINTRIN_specNONE
 454   )
 455 DEFGEN (FPSCAL, "FPSCAL",       /* F2C */
 456     FFEINTRIN_specNONE,
 457     FFEINTRIN_specNONE
 458   )
 459 DEFGEN (FPUT, "FPUT",           /* UNIX */
 460     FFEINTRIN_specFPUT_subr,
 461     FFEINTRIN_specFPUT_func
 462   )
 463 DEFGEN (FPUTC, "FPUTC",         /* UNIX */
 464     FFEINTRIN_specFPUTC_subr,
 465     FFEINTRIN_specFPUTC_func
 466   )
 467 DEFGEN (FSTAT, "FSTAT",         /* UNIX */
 468     FFEINTRIN_specFSTAT_subr,
 469     FFEINTRIN_specFSTAT_func
 470   )
 471 DEFGEN (FTELL, "FTELL",         /* UNIX */
 472     FFEINTRIN_specFTELL_subr,
 473     FFEINTRIN_specFTELL_func
 474   )
 475 DEFGEN (GETCWD, "GETCWD",       /* UNIX */
 476     FFEINTRIN_specGETCWD_subr,
 477     FFEINTRIN_specGETCWD_func
 478   )
 479 DEFGEN (HOSTNM, "HOSTNM",       /* UNIX */
 480     FFEINTRIN_specHOSTNM_subr,
 481     FFEINTRIN_specHOSTNM_func
 482   )
 483 DEFGEN (IDATE, "IDATE",         /* UNIX/VXT */
 484     FFEINTRIN_specIDATE_unix,
 485     FFEINTRIN_specIDATE_vxt
 486   )
 487 DEFGEN (KILL, "KILL",           /* UNIX */
 488     FFEINTRIN_specKILL_subr,
 489     FFEINTRIN_specKILL_func
 490   )
 491 DEFGEN (LINK, "LINK",           /* UNIX */
 492     FFEINTRIN_specLINK_subr,
 493     FFEINTRIN_specLINK_func
 494   )
 495 DEFGEN (LSTAT, "LSTAT",         /* UNIX */
 496     FFEINTRIN_specLSTAT_subr,
 497     FFEINTRIN_specLSTAT_func
 498   )
 499 DEFGEN (RENAME, "RENAME",       /* UNIX */
 500     FFEINTRIN_specRENAME_subr,
 501     FFEINTRIN_specRENAME_func
 502   )
 503 DEFGEN (SECOND, "SECOND",       /* UNIX/CRAY */
 504     FFEINTRIN_specSECOND_func,
 505     FFEINTRIN_specSECOND_subr
 506   )
 507 DEFGEN (SIGNAL, "SIGNAL",       /* UNIX */
 508     FFEINTRIN_specSIGNAL_subr,
 509     FFEINTRIN_specSIGNAL_func
 510   )
 511 DEFGEN (STAT, "STAT",           /* UNIX */
 512     FFEINTRIN_specSTAT_subr,
 513     FFEINTRIN_specSTAT_func
 514   )
 515 DEFGEN (SYMLNK, "SYMLNK",       /* UNIX */
 516     FFEINTRIN_specSYMLNK_subr,
 517     FFEINTRIN_specSYMLNK_func
 518   )
 519 DEFGEN (SYSTEM, "SYSTEM",       /* UNIX */
 520     FFEINTRIN_specSYSTEM_subr,
 521     FFEINTRIN_specSYSTEM_func
 522   )
 523 DEFGEN (TIME, "TIME",           /* UNIX/VXT */
 524     FFEINTRIN_specTIME_unix,
 525     FFEINTRIN_specTIME_vxt
 526   )
 527 DEFGEN (TTYNAM, "TTYNAM",       /* UNIX/VXT */
 528     FFEINTRIN_specTTYNAM_subr,
 529     FFEINTRIN_specTTYNAM_func
 530   )
 531 DEFGEN (UMASK, "UMASK",         /* UNIX */
 532     FFEINTRIN_specUMASK_subr,
 533     FFEINTRIN_specUMASK_func
 534   )
 535 DEFGEN (UNLINK, "UNLINK",       /* UNIX */
 536     FFEINTRIN_specUNLINK_subr,
 537     FFEINTRIN_specUNLINK_func
 538   )
 539 DEFGEN (NONE, "none",
 540     FFEINTRIN_specNONE,
 541     FFEINTRIN_specNONE
 542   )
 543
 544 /* Specific intrinsic information.
 545
 546    Currently this list starts with the list of F77-standard intrinsics
 547    in alphabetical order, then continues with the list of all other
 548    intrinsics.
 549
 550    The second boolean argument specifies whether the intrinsic is
 551    allowed by the standard to be passed as an actual argument.  */
 552
 553 DEFSPEC (ABS,
 554     "ABS",
 555     TRUE,
 556     FFEINTRIN_familyF77,
 557     FFEINTRIN_impABS
 558   )
 559 DEFSPEC (ACOS,
 560     "ACOS",
 561     TRUE,
 562     FFEINTRIN_familyF77,
 563     FFEINTRIN_impACOS
 564   )
 565 DEFSPEC (AIMAG,
 566     "AIMAG",
 567     TRUE,
 568     FFEINTRIN_familyF77,
 569     FFEINTRIN_impAIMAG
 570   )
 571 DEFSPEC (AINT,
 572     "AINT",
 573     TRUE,
 574     FFEINTRIN_familyF77,
 575     FFEINTRIN_impAINT
 576   )
 577 DEFSPEC (ALOG,
 578     "ALOG",
 579     TRUE,
 580     FFEINTRIN_familyF77,
 581     FFEINTRIN_impALOG
 582   )
 583 DEFSPEC (ALOG10,
 584     "ALOG10",
 585     TRUE,
 586     FFEINTRIN_familyF77,
 587     FFEINTRIN_impALOG10
 588   )
 589 DEFSPEC (AMAX0,
 590     "AMAX0",
 591     FALSE,
 592     FFEINTRIN_familyF77,
 593     FFEINTRIN_impAMAX0
 594   )
 595 DEFSPEC (AMAX1,
 596     "AMAX1",
 597     FALSE,
 598     FFEINTRIN_familyF77,
 599     FFEINTRIN_impAMAX1
 600   )
 601 DEFSPEC (AMIN0,
 602     "AMIN0",
 603     FALSE,
 604     FFEINTRIN_familyF77,
 605     FFEINTRIN_impAMIN0
 606   )
 607 DEFSPEC (AMIN1,
 608     "AMIN1",
 609     FALSE,
 610     FFEINTRIN_familyF77,
 611     FFEINTRIN_impAMIN1
 612   )
 613 DEFSPEC (AMOD,
 614     "AMOD",
 615     TRUE,
 616     FFEINTRIN_familyF77,
 617     FFEINTRIN_impAMOD
 618   )
 619 DEFSPEC (ANINT,
 620     "ANINT",
 621     TRUE,
 622     FFEINTRIN_familyF77,
 623     FFEINTRIN_impANINT
 624   )
 625 DEFSPEC (ASIN,
 626     "ASIN",
 627     TRUE,
 628     FFEINTRIN_familyF77,
 629     FFEINTRIN_impASIN
 630   )
 631 DEFSPEC (ATAN,
 632     "ATAN",
 633     TRUE,
 634     FFEINTRIN_familyF77,
 635     FFEINTRIN_impATAN
 636   )
 637 DEFSPEC (ATAN2,
 638     "ATAN2",
 639     TRUE,
 640     FFEINTRIN_familyF77,
 641     FFEINTRIN_impATAN2
 642   )
 643 DEFSPEC (CABS,
 644     "CABS",
 645     TRUE,
 646     FFEINTRIN_familyF77,
 647     FFEINTRIN_impCABS
 648   )
 649 DEFSPEC (CCOS,
 650     "CCOS",
 651     TRUE,
 652     FFEINTRIN_familyF77,
 653     FFEINTRIN_impCCOS
 654   )
 655 DEFSPEC (CEXP,
 656     "CEXP",
 657     TRUE,
 658     FFEINTRIN_familyF77,
 659     FFEINTRIN_impCEXP
 660   )
 661 DEFSPEC (CHAR,
 662     "CHAR",
 663     FALSE,
 664     FFEINTRIN_familyF77,
 665     FFEINTRIN_impCHAR
 666   )
 667 DEFSPEC (CLOG,
 668     "CLOG",
 669     TRUE,
 670     FFEINTRIN_familyF77,
 671     FFEINTRIN_impCLOG
 672   )
 673 DEFSPEC (CMPLX,
 674     "CMPLX",
 675     FALSE,
 676     FFEINTRIN_familyF77,
 677     FFEINTRIN_impCMPLX
 678   )
 679 DEFSPEC (CONJG,
 680     "CONJG",
 681     TRUE,
 682     FFEINTRIN_familyF77,
 683     FFEINTRIN_impCONJG
 684   )
 685 DEFSPEC (COS,
 686     "COS",
 687     TRUE,
 688     FFEINTRIN_familyF77,
 689     FFEINTRIN_impCOS
 690   )
 691 DEFSPEC (COSH,
 692     "COSH",
 693     TRUE,
 694     FFEINTRIN_familyF77,
 695     FFEINTRIN_impCOSH
 696   )
 697 DEFSPEC (CSIN,
 698     "CSIN",
 699     TRUE,
 700     FFEINTRIN_familyF77,
 701     FFEINTRIN_impCSIN
 702   )
 703 DEFSPEC (CSQRT,
 704     "CSQRT",
 705     TRUE,
 706     FFEINTRIN_familyF77,
 707     FFEINTRIN_impCSQRT
 708   )
 709 DEFSPEC (DABS,
 710     "DABS",
 711     TRUE,
 712     FFEINTRIN_familyF77,
 713     FFEINTRIN_impDABS
 714   )
 715 DEFSPEC (DACOS,
 716     "DACOS",
 717     TRUE,
 718     FFEINTRIN_familyF77,
 719     FFEINTRIN_impDACOS
 720   )
 721 DEFSPEC (DASIN,
 722     "DASIN",
 723     TRUE,
 724     FFEINTRIN_familyF77,
 725     FFEINTRIN_impDASIN
 726   )
 727 DEFSPEC (DATAN,
 728     "DATAN",
 729     TRUE,
 730     FFEINTRIN_familyF77,
 731     FFEINTRIN_impDATAN
 732   )
 733 DEFSPEC (DATAN2,
 734     "DATAN2",
 735     TRUE,
 736     FFEINTRIN_familyF77,
 737     FFEINTRIN_impDATAN2
 738   )
 739 DEFSPEC (DBLE,
 740     "DBLE",
 741     FALSE,
 742     FFEINTRIN_familyF77,
 743     FFEINTRIN_impDBLE
 744   )
 745 DEFSPEC (DCOS,
 746     "DCOS",
 747     TRUE,
 748     FFEINTRIN_familyF77,
 749     FFEINTRIN_impDCOS
 750   )
 751 DEFSPEC (DCOSH,
 752     "DCOSH",
 753     TRUE,
 754     FFEINTRIN_familyF77,
 755     FFEINTRIN_impDCOSH
 756   )
 757 DEFSPEC (DDIM,
 758     "DDIM",
 759     TRUE,
 760     FFEINTRIN_familyF77,
 761     FFEINTRIN_impDDIM
 762   )
 763 DEFSPEC (DEXP,
 764     "DEXP",
 765     TRUE,
 766     FFEINTRIN_familyF77,
 767     FFEINTRIN_impDEXP
 768   )
 769 DEFSPEC (DIM,
 770     "DIM",
 771     TRUE,
 772     FFEINTRIN_familyF77,
 773     FFEINTRIN_impDIM
 774   )
 775 DEFSPEC (DINT,
 776     "DINT",
 777     TRUE,
 778     FFEINTRIN_familyF77,
 779     FFEINTRIN_impDINT
 780   )
 781 DEFSPEC (DLOG,
 782     "DLOG",
 783     TRUE,
 784     FFEINTRIN_familyF77,
 785     FFEINTRIN_impDLOG
 786   )
 787 DEFSPEC (DLOG10,
 788     "DLOG10",
 789     TRUE,
 790     FFEINTRIN_familyF77,
 791     FFEINTRIN_impDLOG10
 792   )
 793 DEFSPEC (DMAX1,
 794     "DMAX1",
 795     FALSE,
 796     FFEINTRIN_familyF77,
 797     FFEINTRIN_impDMAX1
 798   )
 799 DEFSPEC (DMIN1,
 800     "DMIN1",
 801     FALSE,
 802     FFEINTRIN_familyF77,
 803     FFEINTRIN_impDMIN1
 804   )
 805 DEFSPEC (DMOD,
 806     "DMOD",
 807     TRUE,
 808     FFEINTRIN_familyF77,
 809     FFEINTRIN_impDMOD
 810   )
 811 DEFSPEC (DNINT,
 812     "DNINT",
 813     TRUE,
 814     FFEINTRIN_familyF77,
 815     FFEINTRIN_impDNINT
 816   )
 817 DEFSPEC (DPROD,
 818     "DPROD",
 819     TRUE,
 820     FFEINTRIN_familyF77,
 821     FFEINTRIN_impDPROD
 822   )
 823 DEFSPEC (DSIGN,
 824     "DSIGN",
 825     TRUE,
 826     FFEINTRIN_familyF77,
 827     FFEINTRIN_impDSIGN
 828   )
 829 DEFSPEC (DSIN,
 830     "DSIN",
 831     TRUE,
 832     FFEINTRIN_familyF77,
 833     FFEINTRIN_impDSIN
 834   )
 835 DEFSPEC (DSINH,
 836     "DSINH",
 837     TRUE,
 838     FFEINTRIN_familyF77,
 839     FFEINTRIN_impDSINH
 840   )
 841 DEFSPEC (DSQRT,
 842     "DSQRT",
 843     TRUE,
 844     FFEINTRIN_familyF77,
 845     FFEINTRIN_impDSQRT
 846   )
 847 DEFSPEC (DTAN,
 848     "DTAN",
 849     TRUE,
 850     FFEINTRIN_familyF77,
 851     FFEINTRIN_impDTAN
 852   )
 853 DEFSPEC (DTANH,
 854     "DTANH",
 855     TRUE,
 856     FFEINTRIN_familyF77,
 857     FFEINTRIN_impDTANH
 858   )
 859 DEFSPEC (EXP,
 860     "EXP",
 861     TRUE,
 862     FFEINTRIN_familyF77,
 863     FFEINTRIN_impEXP
 864   )
 865 DEFSPEC (FLOAT,
 866     "FLOAT",
 867     FALSE,
 868     FFEINTRIN_familyF77,
 869     FFEINTRIN_impFLOAT
 870   )
 871 DEFSPEC (IABS,
 872     "IABS",
 873     TRUE,
 874     FFEINTRIN_familyF77,
 875     FFEINTRIN_impIABS
 876   )
 877 DEFSPEC (ICHAR,
 878     "ICHAR",
 879     FALSE,
 880     FFEINTRIN_familyF77,
 881     FFEINTRIN_impICHAR
 882   )
 883 DEFSPEC (IDIM,
 884     "IDIM",
 885     TRUE,
 886     FFEINTRIN_familyF77,
 887     FFEINTRIN_impIDIM
 888   )
 889 DEFSPEC (IDINT,
 890     "IDINT",
 891     FALSE,
 892     FFEINTRIN_familyF77,
 893     FFEINTRIN_impIDINT
 894   )
 895 DEFSPEC (IDNINT,
 896     "IDNINT",
 897     TRUE,
 898     FFEINTRIN_familyF77,
 899     FFEINTRIN_impIDNINT
 900   )
 901 DEFSPEC (IFIX,
 902     "IFIX",
 903     FALSE,
 904     FFEINTRIN_familyF77,
 905     FFEINTRIN_impIFIX
 906   )
 907 DEFSPEC (INDEX,
 908     "INDEX",
 909     TRUE,
 910     FFEINTRIN_familyF77,
 911     FFEINTRIN_impINDEX
 912   )
 913 DEFSPEC (INT,
 914     "INT",
 915     FALSE,
 916     FFEINTRIN_familyF77,
 917     FFEINTRIN_impINT
 918   )
 919 DEFSPEC (ISIGN,
 920     "ISIGN",
 921     TRUE,
 922     FFEINTRIN_familyF77,
 923     FFEINTRIN_impISIGN
 924   )
 925 DEFSPEC (LEN,
 926     "LEN",
 927     TRUE,
 928     FFEINTRIN_familyF77,
 929     FFEINTRIN_impLEN
 930   )
 931 DEFSPEC (LGE,
 932     "LGE",
 933     FALSE,
 934     FFEINTRIN_familyF77,
 935     FFEINTRIN_impLGE
 936   )
 937 DEFSPEC (LGT,
 938     "LGT",
 939     FALSE,
 940     FFEINTRIN_familyF77,
 941     FFEINTRIN_impLGT
 942   )
 943 DEFSPEC (LLE,
 944     "LLE",
 945     FALSE,
 946     FFEINTRIN_familyF77,
 947     FFEINTRIN_impLLE
 948   )
 949 DEFSPEC (LLT,
 950     "LLT",
 951     FALSE,
 952     FFEINTRIN_familyF77,
 953     FFEINTRIN_impLLT
 954   )
 955 DEFSPEC (LOG,
 956     "LOG",
 957     FALSE,
 958     FFEINTRIN_familyF77,
 959     FFEINTRIN_impLOG
 960   )
 961 DEFSPEC (LOG10,
 962     "LOG10",
 963     FALSE,
 964     FFEINTRIN_familyF77,
 965     FFEINTRIN_impLOG10
 966   )
 967 DEFSPEC (MAX,
 968     "MAX",
 969     FALSE,
 970     FFEINTRIN_familyF77,
 971     FFEINTRIN_impMAX
 972   )
 973 DEFSPEC (MAX0,
 974     "MAX0",
 975     FALSE,
 976     FFEINTRIN_familyF77,
 977     FFEINTRIN_impMAX0
 978   )
 979 DEFSPEC (MAX1,
 980     "MAX1",
 981     FALSE,
 982     FFEINTRIN_familyF77,
 983     FFEINTRIN_impMAX1
 984   )
 985 DEFSPEC (MIN,
 986     "MIN",
 987     FALSE,
 988     FFEINTRIN_familyF77,
 989     FFEINTRIN_impMIN
 990   )
 991 DEFSPEC (MIN0,
 992     "MIN0",
 993     FALSE,
 994     FFEINTRIN_familyF77,
 995     FFEINTRIN_impMIN0
 996   )
 997 DEFSPEC (MIN1,
 998     "MIN1",
 999     FALSE,
1000     FFEINTRIN_familyF77,
1001     FFEINTRIN_impMIN1
1002   )
1003 DEFSPEC (MOD,
1004     "MOD",
1005     TRUE,
1006     FFEINTRIN_familyF77,
1007     FFEINTRIN_impMOD
1008   )
1009 DEFSPEC (NINT,
1010     "NINT",
1011     TRUE,
1012     FFEINTRIN_familyF77,
1013     FFEINTRIN_impNINT
1014   )
1015 DEFSPEC (REAL,
1016     "REAL",
1017     FALSE,
1018     FFEINTRIN_familyF77,
1019     FFEINTRIN_impREAL
1020   )
1021 DEFSPEC (SIGN,
1022     "SIGN",
1023     TRUE,
1024     FFEINTRIN_familyF77,
1025     FFEINTRIN_impSIGN
1026   )
1027 DEFSPEC (SIN,
1028     "SIN",
1029     TRUE,
1030     FFEINTRIN_familyF77,
1031     FFEINTRIN_impSIN
1032   )
1033 DEFSPEC (SINH,
1034     "SINH",
1035     TRUE,
1036     FFEINTRIN_familyF77,
1037     FFEINTRIN_impSINH
1038   )
1039 DEFSPEC (SNGL,
1040     "SNGL",
1041     FALSE,
1042     FFEINTRIN_familyF77,
1043     FFEINTRIN_impSNGL
1044   )
1045 DEFSPEC (SQRT,
1046     "SQRT",
1047     TRUE,
1048     FFEINTRIN_familyF77,
1049     FFEINTRIN_impSQRT
1050   )
1051 DEFSPEC (TAN,
1052     "TAN",
1053     TRUE,
1054     FFEINTRIN_familyF77,
1055     FFEINTRIN_impTAN
1056   )
1057 DEFSPEC (TANH,
1058     "TANH",
1059     TRUE,
1060     FFEINTRIN_familyF77,
1061     FFEINTRIN_impTANH
1062   )
1063
1064 DEFSPEC (ABORT,
1065     "ABORT",
1066     FALSE,
1067     FFEINTRIN_familyF2U,
1068     FFEINTRIN_impABORT
1069   )
1070 DEFSPEC (ACCESS,
1071     "ACCESS",
1072     FALSE,
1073     FFEINTRIN_familyF2U,
1074     FFEINTRIN_impACCESS
1075 )
1076 DEFSPEC (ACHAR,
1077     "ACHAR",
1078     FALSE,
1079     FFEINTRIN_familyASC,
1080     FFEINTRIN_impACHAR
1081   )
1082 DEFSPEC (ACOSD,
1083     "ACOSD",
1084     TRUE,
1085     FFEINTRIN_familyVXT,
1086     FFEINTRIN_impNONE
1087   )
1088 DEFSPEC (ADJUSTL,
1089     "ADJUSTL",
1090     FALSE,
1091     FFEINTRIN_familyF90,
1092     FFEINTRIN_impNONE
1093   )
1094 DEFSPEC (ADJUSTR,
1095     "ADJUSTR",
1096     FALSE,
1097     FFEINTRIN_familyF90,
1098     FFEINTRIN_impNONE
1099   )
1100 DEFSPEC (AIMAX0,
1101     "AIMAX0",
1102     FALSE,
1103     FFEINTRIN_familyVXT,
1104     FFEINTRIN_impNONE
1105   )
1106 DEFSPEC (AIMIN0,
1107     "AIMIN0",
1108     FALSE,
1109     FFEINTRIN_familyVXT,
1110     FFEINTRIN_impNONE
1111   )
1112 DEFSPEC (AJMAX0,
1113     "AJMAX0",
1114     FALSE,
1115     FFEINTRIN_familyVXT,
1116     FFEINTRIN_impNONE
1117   )
1118 DEFSPEC (AJMIN0,
1119     "AJMIN0",
1120     FALSE,
1121     FFEINTRIN_familyVXT,
1122     FFEINTRIN_impNONE
1123   )
1124 DEFSPEC (ALARM,
1125     "ALARM",
1126     FALSE,
1127     FFEINTRIN_familyF2U,
1128     FFEINTRIN_impALARM
1129   )
1130 DEFSPEC (ALL,
1131     "ALL",
1132     FALSE,
1133     FFEINTRIN_familyF90,
1134     FFEINTRIN_impNONE
1135   )
1136 DEFSPEC (ALLOCATED,
1137     "ALLOCATED",
1138     FALSE,
1139     FFEINTRIN_familyF90,
1140     FFEINTRIN_impNONE
1141   )
1142 DEFSPEC (AND,
1143     "AND",
1144     FALSE,
1145     FFEINTRIN_familyF2C,
1146     FFEINTRIN_impAND
1147   )
1148 DEFSPEC (ANY,
1149     "ANY",
1150     FALSE,
1151     FFEINTRIN_familyF90,
1152     FFEINTRIN_impNONE
1153   )
1154 DEFSPEC (ASIND,
1155     "ASIND",
1156     TRUE,
1157     FFEINTRIN_familyVXT,
1158     FFEINTRIN_impNONE
1159   )
1160 DEFSPEC (ASSOCIATED,
1161     "ASSOCIATED",
1162     FALSE,
1163     FFEINTRIN_familyF90,
1164     FFEINTRIN_impNONE
1165   )
1166 DEFSPEC (ATAN2D,
1167     "ATAN2D",
1168     TRUE,
1169     FFEINTRIN_familyVXT,
1170     FFEINTRIN_impNONE
1171   )
1172 DEFSPEC (ATAND,
1173     "ATAND",
1174     TRUE,
1175     FFEINTRIN_familyVXT,
1176     FFEINTRIN_impNONE
1177   )
1178 DEFSPEC (BESJ0,
1179     "BESJ0",
1180     FALSE,
1181     FFEINTRIN_familyF2U,
1182     FFEINTRIN_impBESJ0
1183 )
1184 DEFSPEC (BESJ1,
1185     "BESJ1",
1186     FALSE,
1187     FFEINTRIN_familyF2U,
1188     FFEINTRIN_impBESJ1
1189 )
1190 DEFSPEC (BESJN,
1191     "BESJN",
1192     FALSE,
1193     FFEINTRIN_familyF2U,
1194     FFEINTRIN_impBESJN
1195 )
1196 DEFSPEC (BESY0,
1197     "BESY0",
1198     FALSE,
1199     FFEINTRIN_familyF2U,
1200     FFEINTRIN_impBESY0
1201 )
1202 DEFSPEC (BESY1,
1203     "BESY1",
1204     FALSE,
1205     FFEINTRIN_familyF2U,
1206     FFEINTRIN_impBESY1
1207 )
1208 DEFSPEC (BESYN,
1209     "BESYN",
1210     FALSE,
1211     FFEINTRIN_familyF2U,
1212     FFEINTRIN_impBESYN
1213 )
1214 DEFSPEC (BIT_SIZE,
1215     "BIT_SIZE",
1216     FALSE,
1217     FFEINTRIN_familyF90,
1218     FFEINTRIN_impBIT_SIZE
1219   )
1220 DEFSPEC (BITEST,
1221     "BITEST",
1222     FALSE,
1223     FFEINTRIN_familyVXT,
1224     FFEINTRIN_impNONE
1225   )
1226 DEFSPEC (BJTEST,
1227     "BJTEST",
1228     FALSE,
1229     FFEINTRIN_familyVXT,
1230     FFEINTRIN_impNONE
1231   )
1232 DEFSPEC (BTEST,
1233     "BTEST",
1234     FALSE,
1235     FFEINTRIN_familyMIL,
1236     FFEINTRIN_impBTEST
1237   )
1238 DEFSPEC (CDABS,
1239     "CDABS",
1240     TRUE,
1241     FFEINTRIN_familyFVZ,
1242     FFEINTRIN_impCDABS
1243   )
1244 DEFSPEC (CDCOS,
1245     "CDCOS",
1246     TRUE,
1247     FFEINTRIN_familyFVZ,
1248     FFEINTRIN_impCDCOS
1249   )
1250 DEFSPEC (CDEXP,
1251     "CDEXP",
1252     TRUE,
1253     FFEINTRIN_familyFVZ,
1254     FFEINTRIN_impCDEXP
1255   )
1256 DEFSPEC (CDLOG,
1257     "CDLOG",
1258     TRUE,
1259     FFEINTRIN_familyFVZ,
1260     FFEINTRIN_impCDLOG
1261   )
1262 DEFSPEC (CDSIN,
1263     "CDSIN",
1264     TRUE,
1265     FFEINTRIN_familyFVZ,
1266     FFEINTRIN_impCDSIN
1267   )
1268 DEFSPEC (CDSQRT,
1269     "CDSQRT",
1270     TRUE,
1271     FFEINTRIN_familyFVZ,
1272     FFEINTRIN_impCDSQRT
1273   )
1274 DEFSPEC (CEILING,
1275     "CEILING",
1276     FALSE,
1277     FFEINTRIN_familyF90,
1278     FFEINTRIN_impNONE
1279   )
1280 DEFSPEC (CHDIR_func,
1281     "function",
1282     FALSE,
1283     FFEINTRIN_familyBADU77,
1284     FFEINTRIN_impCHDIR_func
1285 )
1286 DEFSPEC (CHDIR_subr,
1287     "subroutine",
1288     FALSE,
1289     FFEINTRIN_familyF2U,
1290     FFEINTRIN_impCHDIR_subr
1291 )
1292 DEFSPEC (CHMOD_func,
1293     "function",
1294     FALSE,
1295     FFEINTRIN_familyBADU77,
1296     FFEINTRIN_impCHMOD_func
1297 )
1298 DEFSPEC (CHMOD_subr,
1299     "subroutine",
1300     FALSE,
1301     FFEINTRIN_familyF2U,
1302     FFEINTRIN_impCHMOD_subr
1303 )
1304 DEFSPEC (COMPLEX,
1305     "COMPLEX",
1306     FALSE,
1307     FFEINTRIN_familyGNU,
1308     FFEINTRIN_impCOMPLEX
1309   )
1310 DEFSPEC (COSD,
1311     "COSD",
1312     TRUE,
1313     FFEINTRIN_familyVXT,
1314     FFEINTRIN_impNONE
1315   )
1316 DEFSPEC (COUNT,
1317     "COUNT",
1318     FALSE,
1319     FFEINTRIN_familyF90,
1320     FFEINTRIN_impNONE
1321   )
1322 DEFSPEC (CSHIFT,
1323     "CSHIFT",
1324     FALSE,
1325     FFEINTRIN_familyF90,
1326     FFEINTRIN_impNONE
1327   )
1328 DEFSPEC (CPU_TIME,
1329     "CPU_TIME",
1330     FALSE,
1331     FFEINTRIN_familyF95,
1332     FFEINTRIN_impCPU_TIME
1333 )
1334 DEFSPEC (CTIME_func,
1335     "function",
1336     FALSE,
1337     FFEINTRIN_familyF2U,
1338     FFEINTRIN_impCTIME_func
1339 )
1340 DEFSPEC (CTIME_subr,
1341     "subroutine",
1342     FALSE,
1343     FFEINTRIN_familyF2U,
1344     FFEINTRIN_impCTIME_subr
1345 )
1346 DEFSPEC (DACOSD,
1347     "DACOSD",
1348     TRUE,
1349     FFEINTRIN_familyVXT,
1350     FFEINTRIN_impNONE
1351   )
1352 DEFSPEC (DASIND,
1353     "DASIND",
1354     TRUE,
1355     FFEINTRIN_familyVXT,
1356     FFEINTRIN_impNONE
1357   )
1358 DEFSPEC (DATAN2D,
1359     "DATAN2D",
1360     TRUE,
1361     FFEINTRIN_familyVXT,
1362     FFEINTRIN_impNONE
1363   )
1364 DEFSPEC (DATAND,
1365     "DATAND",
1366     TRUE,
1367     FFEINTRIN_familyVXT,
1368     FFEINTRIN_impNONE
1369   )
1370 DEFSPEC (DATE,
1371     "DATE",
1372     FALSE,
1373     FFEINTRIN_familyVXT,
1374     FFEINTRIN_impDATE
1375 )
1376 DEFSPEC (DATE_AND_TIME,
1377     "DATE_AND_TIME",
1378     FALSE,
1379     FFEINTRIN_familyF90,
1380     FFEINTRIN_impDATE_AND_TIME
1381   )
1382 DEFSPEC (DBESJ0,
1383     "DBESJ0",
1384     FALSE,
1385     FFEINTRIN_familyF2U,
1386     FFEINTRIN_impDBESJ0
1387 )
1388 DEFSPEC (DBESJ1,
1389     "DBESJ1",
1390     FALSE,
1391     FFEINTRIN_familyF2U,
1392     FFEINTRIN_impDBESJ1
1393 )
1394 DEFSPEC (DBESJN,
1395     "DBESJN",
1396     FALSE,
1397     FFEINTRIN_familyF2U,
1398     FFEINTRIN_impDBESJN
1399 )
1400 DEFSPEC (DBESY0,
1401     "DBESY0",
1402     FALSE,
1403     FFEINTRIN_familyF2U,
1404     FFEINTRIN_impDBESY0
1405 )
1406 DEFSPEC (DBESY1,
1407     "DBESY1",
1408     FALSE,
1409     FFEINTRIN_familyF2U,
1410     FFEINTRIN_impDBESY1
1411 )
1412 DEFSPEC (DBESYN,
1413     "DBESYN",
1414     FALSE,
1415     FFEINTRIN_familyF2U,
1416     FFEINTRIN_impDBESYN
1417 )
1418 DEFSPEC (DBLEQ,
1419     "DBLEQ",
1420     FALSE,
1421     FFEINTRIN_familyVXT,
1422     FFEINTRIN_impNONE
1423   )
1424 DEFSPEC (DCMPLX,
1425     "DCMPLX",
1426     FALSE,
1427     FFEINTRIN_familyFVZ,
1428     FFEINTRIN_impDCMPLX
1429   )
1430 DEFSPEC (DCONJG,
1431     "DCONJG",
1432     TRUE,
1433     FFEINTRIN_familyFVZ,
1434     FFEINTRIN_impDCONJG
1435   )
1436 DEFSPEC (DCOSD,
1437     "DCOSD",
1438     TRUE,
1439     FFEINTRIN_familyVXT,
1440     FFEINTRIN_impNONE
1441   )
1442 DEFSPEC (DERF,
1443     "DERF",
1444     FALSE,
1445     FFEINTRIN_familyF2U,
1446     FFEINTRIN_impDERF
1447   )
1448 DEFSPEC (DERFC,
1449     "DERFC",
1450     FALSE,
1451     FFEINTRIN_familyF2U,
1452     FFEINTRIN_impDERFC
1453   )
1454 DEFSPEC (DFLOAT,
1455     "DFLOAT",
1456     FALSE,
1457     FFEINTRIN_familyFVZ,
1458     FFEINTRIN_impDFLOAT
1459   )
1460 DEFSPEC (DFLOTI,
1461     "DFLOTI",
1462     FALSE,
1463     FFEINTRIN_familyVXT,
1464     FFEINTRIN_impNONE
1465   )
1466 DEFSPEC (DFLOTJ,
1467     "DFLOTJ",
1468     FALSE,
1469     FFEINTRIN_familyVXT,
1470     FFEINTRIN_impNONE
1471   )
1472 DEFSPEC (DIGITS,
1473     "DIGITS",
1474     FALSE,
1475     FFEINTRIN_familyF90,
1476     FFEINTRIN_impNONE
1477   )
1478 DEFSPEC (DIMAG,
1479     "DIMAG",
1480     TRUE,
1481     FFEINTRIN_familyFVZ,
1482     FFEINTRIN_impDIMAG
1483   )
1484 DEFSPEC (DOT_PRODUCT,
1485     "DOT_PRODUCT",
1486     FALSE,
1487     FFEINTRIN_familyF90,
1488     FFEINTRIN_impNONE
1489   )
1490 DEFSPEC (DREAL,
1491     "DREAL",
1492     FALSE,
1493     FFEINTRIN_familyVXT,
1494     FFEINTRIN_impDREAL
1495   )
1496 DEFSPEC (DSIND,
1497     "DSIND",
1498     TRUE,
1499     FFEINTRIN_familyVXT,
1500     FFEINTRIN_impNONE
1501   )
1502 DEFSPEC (DTAND,
1503     "DTAND",
1504     TRUE,
1505     FFEINTRIN_familyVXT,
1506     FFEINTRIN_impNONE
1507   )
1508 DEFSPEC (DTIME_func,
1509     "function",
1510     FALSE,
1511     FFEINTRIN_familyBADU77,
1512     FFEINTRIN_impDTIME_func
1513 )
1514 DEFSPEC (DTIME_subr,
1515     "subroutine",
1516     FALSE,
1517     FFEINTRIN_familyF2U,
1518     FFEINTRIN_impDTIME_subr
1519 )
1520 DEFSPEC (EOSHIFT,
1521     "EOSHIFT",
1522     FALSE,
1523     FFEINTRIN_familyF90,
1524     FFEINTRIN_impNONE
1525   )
1526 DEFSPEC (EPSILON,
1527     "EPSILON",
1528     FALSE,
1529     FFEINTRIN_familyF90,
1530     FFEINTRIN_impNONE
1531   )
1532 DEFSPEC (ERF,
1533     "ERF",
1534     FALSE,
1535     FFEINTRIN_familyF2U,
1536     FFEINTRIN_impERF
1537   )
1538 DEFSPEC (ERFC,
1539     "ERFC",
1540     FALSE,
1541     FFEINTRIN_familyF2U,
1542     FFEINTRIN_impERFC
1543   )
1544 DEFSPEC (ETIME_func,
1545     "function",
1546     FALSE,
1547     FFEINTRIN_familyF2U,
1548     FFEINTRIN_impETIME_func
1549 )
1550 DEFSPEC (ETIME_subr,
1551     "subroutine",
1552     FALSE,
1553     FFEINTRIN_familyF2U,
1554     FFEINTRIN_impETIME_subr
1555 )
1556 DEFSPEC (EXIT,
1557     "EXIT",
1558     FALSE,
1559     FFEINTRIN_familyF2U,
1560     FFEINTRIN_impEXIT
1561   )
1562 DEFSPEC (EXPONENT,
1563     "EXPONENT",
1564     FALSE,
1565     FFEINTRIN_familyF90,
1566     FFEINTRIN_impNONE
1567   )
1568 DEFSPEC (FDATE_func,
1569     "function",
1570     FALSE,
1571     FFEINTRIN_familyF2U,
1572     FFEINTRIN_impFDATE_func
1573 )
1574 DEFSPEC (FDATE_subr,
1575     "subroutine",
1576     FALSE,
1577     FFEINTRIN_familyF2U,
1578     FFEINTRIN_impFDATE_subr
1579 )
1580 DEFSPEC (FGET_func,
1581     "function",
1582     FALSE,
1583     FFEINTRIN_familyBADU77,
1584     FFEINTRIN_impFGET_func
1585 )
1586 DEFSPEC (FGET_subr,
1587     "subroutine",
1588     FALSE,
1589     FFEINTRIN_familyF2U,
1590     FFEINTRIN_impFGET_subr
1591 )
1592 DEFSPEC (FGETC_func,
1593     "function",
1594     FALSE,
1595     FFEINTRIN_familyBADU77,
1596     FFEINTRIN_impFGETC_func
1597 )
1598 DEFSPEC (FGETC_subr,
1599     "subroutine",
1600     FALSE,
1601     FFEINTRIN_familyF2U,
1602     FFEINTRIN_impFGETC_subr
1603 )
1604 DEFSPEC (FLOATI,
1605     "FLOATI",
1606     FALSE,
1607     FFEINTRIN_familyVXT,
1608     FFEINTRIN_impNONE
1609   )
1610 DEFSPEC (FLOATJ,
1611     "FLOATJ",
1612     FALSE,
1613     FFEINTRIN_familyVXT,
1614     FFEINTRIN_impNONE
1615   )
1616 DEFSPEC (FLOOR,
1617     "FLOOR",
1618     FALSE,
1619     FFEINTRIN_familyF90,
1620     FFEINTRIN_impNONE
1621   )
1622 DEFSPEC (FLUSH,
1623     "FLUSH",
1624     FALSE,
1625     FFEINTRIN_familyF2U,
1626     FFEINTRIN_impFLUSH
1627   )
1628 DEFSPEC (FNUM,
1629     "FNUM",
1630     FALSE,
1631     FFEINTRIN_familyF2U,
1632     FFEINTRIN_impFNUM
1633 )
1634 DEFSPEC (FPUT_func,
1635     "function",
1636     FALSE,
1637     FFEINTRIN_familyBADU77,
1638     FFEINTRIN_impFPUT_func
1639 )
1640 DEFSPEC (FPUT_subr,
1641     "subroutine",
1642     FALSE,
1643     FFEINTRIN_familyF2U,
1644     FFEINTRIN_impFPUT_subr
1645 )
1646 DEFSPEC (FPUTC_func,
1647     "function",
1648     FALSE,
1649     FFEINTRIN_familyBADU77,
1650     FFEINTRIN_impFPUTC_func
1651 )
1652 DEFSPEC (FPUTC_subr,
1653     "subroutine",
1654     FALSE,
1655     FFEINTRIN_familyF2U,
1656     FFEINTRIN_impFPUTC_subr
1657 )
1658 DEFSPEC (FRACTION,
1659     "FRACTION",
1660     FALSE,
1661     FFEINTRIN_familyF90,
1662     FFEINTRIN_impNONE
1663   )
1664 DEFSPEC (FSEEK,
1665     "FSEEK",
1666     FALSE,
1667     FFEINTRIN_familyF2U,
1668     FFEINTRIN_impFSEEK
1669   )
1670 DEFSPEC (FSTAT_func,
1671     "function",
1672     FALSE,
1673     FFEINTRIN_familyF2U,
1674     FFEINTRIN_impFSTAT_func
1675 )
1676 DEFSPEC (FSTAT_subr,
1677     "subroutine",
1678     FALSE,
1679     FFEINTRIN_familyF2U,
1680     FFEINTRIN_impFSTAT_subr
1681 )
1682 DEFSPEC (FTELL_func,
1683     "function",
1684     FALSE,
1685     FFEINTRIN_familyF2U,
1686     FFEINTRIN_impFTELL_func
1687   )
1688 DEFSPEC (FTELL_subr,
1689     "subroutine",
1690     FALSE,
1691     FFEINTRIN_familyF2U,
1692     FFEINTRIN_impFTELL_subr
1693   )
1694 DEFSPEC (GERROR,
1695     "GERROR",
1696     FALSE,
1697     FFEINTRIN_familyF2U,
1698     FFEINTRIN_impGERROR
1699 )
1700 DEFSPEC (GETARG,
1701     "GETARG",
1702     FALSE,
1703     FFEINTRIN_familyF2U,
1704     FFEINTRIN_impGETARG
1705   )
1706 DEFSPEC (GETCWD_func,
1707     "function",
1708     FALSE,
1709     FFEINTRIN_familyF2U,
1710     FFEINTRIN_impGETCWD_func
1711 )
1712 DEFSPEC (GETCWD_subr,
1713     "subroutine",
1714     FALSE,
1715     FFEINTRIN_familyF2U,
1716     FFEINTRIN_impGETCWD_subr
1717 )
1718 DEFSPEC (GETENV,
1719     "GETENV",
1720     FALSE,
1721     FFEINTRIN_familyF2U,
1722     FFEINTRIN_impGETENV
1723   )
1724 DEFSPEC (GETGID,
1725     "GETGID",
1726     FALSE,
1727     FFEINTRIN_familyF2U,
1728     FFEINTRIN_impGETGID
1729 )
1730 DEFSPEC (GETLOG,
1731     "GETLOG",
1732     FALSE,
1733     FFEINTRIN_familyF2U,
1734     FFEINTRIN_impGETLOG
1735 )
1736 DEFSPEC (GETPID,
1737     "GETPID",
1738     FALSE,
1739     FFEINTRIN_familyF2U,
1740     FFEINTRIN_impGETPID
1741 )
1742 DEFSPEC (GETUID,
1743     "GETUID",
1744     FALSE,
1745     FFEINTRIN_familyF2U,
1746     FFEINTRIN_impGETUID
1747 )
1748 DEFSPEC (GMTIME,
1749     "GMTIME",
1750     FALSE,
1751     FFEINTRIN_familyF2U,
1752     FFEINTRIN_impGMTIME
1753 )
1754 DEFSPEC (HOSTNM_func,
1755     "function",
1756     FALSE,
1757     FFEINTRIN_familyF2U,
1758     FFEINTRIN_impHOSTNM_func
1759 )
1760 DEFSPEC (HOSTNM_subr,
1761     "subroutine",
1762     FALSE,
1763     FFEINTRIN_familyF2U,
1764     FFEINTRIN_impHOSTNM_subr
1765 )
1766 DEFSPEC (HUGE,
1767     "HUGE",
1768     FALSE,
1769     FFEINTRIN_familyF90,
1770     FFEINTRIN_impNONE
1771   )
1772 DEFSPEC (IACHAR,
1773     "IACHAR",
1774     FALSE,
1775     FFEINTRIN_familyASC,
1776     FFEINTRIN_impIACHAR
1777   )
1778 DEFSPEC (IAND,
1779     "IAND",
1780     FALSE,
1781     FFEINTRIN_familyMIL,
1782     FFEINTRIN_impIAND
1783   )
1784 DEFSPEC (IARGC,
1785     "IARGC",
1786     FALSE,
1787     FFEINTRIN_familyF2U,
1788     FFEINTRIN_impIARGC
1789   )
1790 DEFSPEC (IBCLR,
1791     "IBCLR",
1792     FALSE,
1793     FFEINTRIN_familyMIL,
1794     FFEINTRIN_impIBCLR
1795   )
1796 DEFSPEC (IBITS,
1797     "IBITS",
1798     FALSE,
1799     FFEINTRIN_familyMIL,
1800     FFEINTRIN_impIBITS
1801   )
1802 DEFSPEC (IBSET,
1803     "IBSET",
1804     FALSE,
1805     FFEINTRIN_familyMIL,
1806     FFEINTRIN_impIBSET
1807   )
1808 DEFSPEC (IDATE_unix,
1809     "UNIX",
1810     FALSE,
1811     FFEINTRIN_familyF2U,
1812     FFEINTRIN_impIDATE_unix
1813 )
1814 DEFSPEC (IDATE_vxt,
1815     "VXT",
1816     FALSE,
1817     FFEINTRIN_familyVXT,
1818     FFEINTRIN_impIDATE_vxt
1819 )
1820 DEFSPEC (IEOR,
1821     "IEOR",
1822     FALSE,
1823     FFEINTRIN_familyMIL,
1824     FFEINTRIN_impIEOR
1825   )
1826 DEFSPEC (IERRNO,
1827     "IERRNO",
1828     FALSE,
1829     FFEINTRIN_familyF2U,
1830     FFEINTRIN_impIERRNO
1831 )
1832 DEFSPEC (IIABS,
1833     "IIABS",
1834     TRUE,
1835     FFEINTRIN_familyVXT,
1836     FFEINTRIN_impNONE
1837   )
1838 DEFSPEC (IIAND,
1839     "IIAND",
1840     FALSE,
1841     FFEINTRIN_familyVXT,
1842     FFEINTRIN_impNONE
1843   )
1844 DEFSPEC (IIBCLR,
1845     "IIBCLR",
1846     FALSE,
1847     FFEINTRIN_familyVXT,
1848     FFEINTRIN_impNONE
1849   )
1850 DEFSPEC (IIBITS,
1851     "IIBITS",
1852     FALSE,
1853     FFEINTRIN_familyVXT,
1854     FFEINTRIN_impNONE
1855   )
1856 DEFSPEC (IIBSET,
1857     "IIBSET",
1858     FALSE,
1859     FFEINTRIN_familyVXT,
1860     FFEINTRIN_impNONE
1861   )
1862 DEFSPEC (IIDIM,
1863     "IIDIM",
1864     TRUE,
1865     FFEINTRIN_familyVXT,
1866     FFEINTRIN_impNONE
1867   )
1868 DEFSPEC (IIDINT,
1869     "IIDINT",
1870     FALSE,
1871     FFEINTRIN_familyVXT,
1872     FFEINTRIN_impNONE
1873   )
1874 DEFSPEC (IIDNNT,
1875     "IIDNNT",
1876     TRUE,
1877     FFEINTRIN_familyVXT,
1878     FFEINTRIN_impNONE
1879   )
1880 DEFSPEC (IIEOR,
1881     "IIEOR",
1882     FALSE,
1883     FFEINTRIN_familyVXT,
1884     FFEINTRIN_impNONE
1885   )
1886 DEFSPEC (IIFIX,
1887     "IIFIX",
1888     FALSE,
1889     FFEINTRIN_familyVXT,
1890     FFEINTRIN_impNONE
1891   )
1892 DEFSPEC (IINT,
1893     "IINT",
1894     FALSE,
1895     FFEINTRIN_familyVXT,
1896     FFEINTRIN_impNONE
1897   )
1898 DEFSPEC (IIOR,
1899     "IIOR",
1900     FALSE,
1901     FFEINTRIN_familyVXT,
1902     FFEINTRIN_impNONE
1903   )
1904 DEFSPEC (IIQINT,
1905     "IIQINT",
1906     FALSE,
1907     FFEINTRIN_familyVXT,
1908     FFEINTRIN_impNONE
1909   )
1910 DEFSPEC (IIQNNT,
1911     "IIQNNT",
1912     TRUE,
1913     FFEINTRIN_familyVXT,
1914     FFEINTRIN_impNONE
1915   )
1916 DEFSPEC (IISHFT,
1917     "IISHFT",
1918     FALSE,
1919     FFEINTRIN_familyVXT,
1920     FFEINTRIN_impNONE
1921   )
1922 DEFSPEC (IISHFTC,
1923     "IISHFTC",
1924     FALSE,
1925     FFEINTRIN_familyVXT,
1926     FFEINTRIN_impNONE
1927   )
1928 DEFSPEC (IISIGN,
1929     "IISIGN",
1930     TRUE,
1931     FFEINTRIN_familyVXT,
1932     FFEINTRIN_impNONE
1933   )
1934 DEFSPEC (IMAG,
1935     "IMAG",
1936     FALSE,
1937     FFEINTRIN_familyF2C,
1938     FFEINTRIN_impIMAGPART
1939   )
1940 DEFSPEC (IMAGPART,
1941     "IMAGPART",
1942     FALSE,
1943     FFEINTRIN_familyGNU,
1944     FFEINTRIN_impIMAGPART
1945   )
1946 DEFSPEC (IMAX0,
1947     "IMAX0",
1948     FALSE,
1949     FFEINTRIN_familyVXT,
1950     FFEINTRIN_impNONE
1951   )
1952 DEFSPEC (IMAX1,
1953     "IMAX1",
1954     FALSE,
1955     FFEINTRIN_familyVXT,
1956     FFEINTRIN_impNONE
1957   )
1958 DEFSPEC (IMIN0,
1959     "IMIN0",
1960     FALSE,
1961     FFEINTRIN_familyVXT,
1962     FFEINTRIN_impNONE
1963   )
1964 DEFSPEC (IMIN1,
1965     "IMIN1",
1966     FALSE,
1967     FFEINTRIN_familyVXT,
1968     FFEINTRIN_impNONE
1969   )
1970 DEFSPEC (IMOD,
1971     "IMOD",
1972     TRUE,
1973     FFEINTRIN_familyVXT,
1974     FFEINTRIN_impNONE
1975   )
1976 DEFSPEC (ININT,
1977     "ININT",
1978     TRUE,
1979     FFEINTRIN_familyVXT,
1980     FFEINTRIN_impNONE
1981   )
1982 DEFSPEC (INOT,
1983     "INOT",
1984     FALSE,
1985     FFEINTRIN_familyVXT,
1986     FFEINTRIN_impNONE
1987   )
1988 DEFSPEC (INT2,
1989     "INT2",
1990     FALSE,
1991     FFEINTRIN_familyGNU,
1992     FFEINTRIN_impINT2
1993   )
1994 DEFSPEC (INT8,
1995     "INT8",
1996     FALSE,
1997     FFEINTRIN_familyGNU,
1998     FFEINTRIN_impINT8
1999   )
2000 DEFSPEC (IOR,
2001     "IOR",
2002     FALSE,
2003     FFEINTRIN_familyMIL,
2004     FFEINTRIN_impIOR
2005   )
2006 DEFSPEC (IRAND,
2007     "IRAND",
2008     FALSE,
2009     FFEINTRIN_familyF2U,
2010     FFEINTRIN_impIRAND
2011 )
2012 DEFSPEC (ISATTY,
2013     "ISATTY",
2014     FALSE,
2015     FFEINTRIN_familyF2U,
2016     FFEINTRIN_impISATTY
2017 )
2018 DEFSPEC (ISHFT,
2019     "ISHFT",
2020     FALSE,
2021     FFEINTRIN_familyMIL,
2022     FFEINTRIN_impISHFT
2023   )
2024 DEFSPEC (ISHFTC,
2025     "ISHFTC",
2026     FALSE,
2027     FFEINTRIN_familyMIL,
2028     FFEINTRIN_impISHFTC
2029   )
2030 DEFSPEC (ITIME,
2031     "ITIME",
2032     FALSE,
2033     FFEINTRIN_familyF2U,
2034     FFEINTRIN_impITIME
2035 )
2036 DEFSPEC (IZEXT,
2037     "IZEXT",
2038     FALSE,
2039     FFEINTRIN_familyVXT,
2040     FFEINTRIN_impNONE
2041   )
2042 DEFSPEC (JIABS,
2043     "JIABS",
2044     TRUE,
2045     FFEINTRIN_familyVXT,
2046     FFEINTRIN_impNONE
2047   )
2048 DEFSPEC (JIAND,
2049     "JIAND",
2050     FALSE,
2051     FFEINTRIN_familyVXT,
2052     FFEINTRIN_impNONE
2053   )
2054 DEFSPEC (JIBCLR,
2055     "JIBCLR",
2056     FALSE,
2057     FFEINTRIN_familyVXT,
2058     FFEINTRIN_impNONE
2059   )
2060 DEFSPEC (JIBITS,
2061     "JIBITS",
2062     FALSE,
2063     FFEINTRIN_familyVXT,
2064     FFEINTRIN_impNONE
2065   )
2066 DEFSPEC (JIBSET,
2067     "JIBSET",
2068     FALSE,
2069     FFEINTRIN_familyVXT,
2070     FFEINTRIN_impNONE
2071   )
2072 DEFSPEC (JIDIM,
2073     "JIDIM",
2074     TRUE,
2075     FFEINTRIN_familyVXT,
2076     FFEINTRIN_impNONE
2077   )
2078 DEFSPEC (JIDINT,
2079     "JIDINT",
2080     FALSE,
2081     FFEINTRIN_familyVXT,
2082     FFEINTRIN_impNONE
2083   )
2084 DEFSPEC (JIDNNT,
2085     "JIDNNT",
2086     TRUE,
2087     FFEINTRIN_familyVXT,
2088     FFEINTRIN_impNONE
2089   )
2090 DEFSPEC (JIEOR,
2091     "JIEOR",
2092     FALSE,
2093     FFEINTRIN_familyVXT,
2094     FFEINTRIN_impNONE
2095   )
2096 DEFSPEC (JIFIX,
2097     "JIFIX",
2098     FALSE,
2099     FFEINTRIN_familyVXT,
2100     FFEINTRIN_impNONE
2101   )
2102 DEFSPEC (JINT,
2103     "JINT",
2104     FALSE,
2105     FFEINTRIN_familyVXT,
2106     FFEINTRIN_impNONE
2107   )
2108 DEFSPEC (JIOR,
2109     "JIOR",
2110     FALSE,
2111     FFEINTRIN_familyVXT,
2112     FFEINTRIN_impNONE
2113   )
2114 DEFSPEC (JIQINT,
2115     "JIQINT",
2116     FALSE,
2117     FFEINTRIN_familyVXT,
2118     FFEINTRIN_impNONE
2119   )
2120 DEFSPEC (JIQNNT,
2121     "JIQNNT",
2122     TRUE,
2123     FFEINTRIN_familyVXT,
2124     FFEINTRIN_impNONE
2125   )
2126 DEFSPEC (JISHFT,
2127     "JISHFT",
2128     FALSE,
2129     FFEINTRIN_familyVXT,
2130     FFEINTRIN_impNONE
2131   )
2132 DEFSPEC (JISHFTC,
2133     "JISHFTC",
2134     FALSE,
2135     FFEINTRIN_familyVXT,
2136     FFEINTRIN_impNONE
2137   )
2138 DEFSPEC (JISIGN,
2139     "JISIGN",
2140     TRUE,
2141     FFEINTRIN_familyVXT,
2142     FFEINTRIN_impNONE
2143   )
2144 DEFSPEC (JMAX0,
2145     "JMAX0",
2146     FALSE,
2147     FFEINTRIN_familyVXT,
2148     FFEINTRIN_impNONE
2149   )
2150 DEFSPEC (JMAX1,
2151     "JMAX1",
2152     FALSE,
2153     FFEINTRIN_familyVXT,
2154     FFEINTRIN_impNONE
2155   )
2156 DEFSPEC (JMIN0,
2157     "JMIN0",
2158     FALSE,
2159     FFEINTRIN_familyVXT,
2160     FFEINTRIN_impNONE
2161   )
2162 DEFSPEC (JMIN1,
2163     "JMIN1",
2164     FALSE,
2165     FFEINTRIN_familyVXT,
2166     FFEINTRIN_impNONE
2167   )
2168 DEFSPEC (JMOD,
2169     "JMOD",
2170     TRUE,
2171     FFEINTRIN_familyVXT,
2172     FFEINTRIN_impNONE
2173   )
2174 DEFSPEC (JNINT,
2175     "JNINT",
2176     TRUE,
2177     FFEINTRIN_familyVXT,
2178     FFEINTRIN_impNONE
2179   )
2180 DEFSPEC (JNOT,
2181     "JNOT",
2182     TRUE,
2183     FFEINTRIN_familyVXT,
2184     FFEINTRIN_impNONE
2185   )
2186 DEFSPEC (JZEXT,
2187     "JZEXT",
2188     FALSE,
2189     FFEINTRIN_familyVXT,
2190     FFEINTRIN_impNONE
2191   )
2192 DEFSPEC (KILL_func,
2193     "function",
2194     FALSE,
2195     FFEINTRIN_familyBADU77,
2196     FFEINTRIN_impKILL_func
2197 )
2198 DEFSPEC (KILL_subr,
2199     "subroutine",
2200     FALSE,
2201     FFEINTRIN_familyF2U,
2202     FFEINTRIN_impKILL_subr
2203 )
2204 DEFSPEC (KIND,
2205     "KIND",
2206     FALSE,
2207     FFEINTRIN_familyF90,
2208     FFEINTRIN_impNONE
2209   )
2210 DEFSPEC (LBOUND,
2211     "LBOUND",
2212     FALSE,
2213     FFEINTRIN_familyF90,
2214     FFEINTRIN_impNONE
2215   )
2216 DEFSPEC (LINK_func,
2217     "function",
2218     FALSE,
2219     FFEINTRIN_familyBADU77,
2220     FFEINTRIN_impLINK_func
2221 )
2222 DEFSPEC (LINK_subr,
2223     "subroutine",
2224     FALSE,
2225     FFEINTRIN_familyF2U,
2226     FFEINTRIN_impLINK_subr
2227 )
2228 DEFSPEC (LEN_TRIM,
2229     "LEN_TRIM",
2230     FALSE,
2231     FFEINTRIN_familyF90,
2232     FFEINTRIN_impLNBLNK
2233   )
2234 DEFSPEC (LNBLNK,
2235     "LNBLNK",
2236     FALSE,
2237     FFEINTRIN_familyF2U,
2238     FFEINTRIN_impLNBLNK
2239 )
2240 DEFSPEC (LOC,
2241     "LOC",
2242     FALSE,
2243     FFEINTRIN_familyF2U,
2244     FFEINTRIN_impLOC
2245   )
2246 DEFSPEC (LOGICAL,
2247     "LOGICAL",
2248     FALSE,
2249     FFEINTRIN_familyF90,
2250     FFEINTRIN_impNONE
2251   )
2252 DEFSPEC (LONG,
2253     "LONG",
2254     FALSE,
2255     FFEINTRIN_familyF2U,
2256     FFEINTRIN_impLONG
2257   )
2258 DEFSPEC (LSHIFT,
2259     "LSHIFT",
2260     FALSE,
2261     FFEINTRIN_familyF2C,
2262     FFEINTRIN_impLSHIFT
2263   )
2264 DEFSPEC (LSTAT_func,
2265     "function",
2266     FALSE,
2267     FFEINTRIN_familyF2U,
2268     FFEINTRIN_impLSTAT_func
2269 )
2270 DEFSPEC (LSTAT_subr,
2271     "subroutine",
2272     FALSE,
2273     FFEINTRIN_familyF2U,
2274     FFEINTRIN_impLSTAT_subr
2275 )
2276 DEFSPEC (LTIME,
2277     "LTIME",
2278     FALSE,
2279     FFEINTRIN_familyF2U,
2280     FFEINTRIN_impLTIME
2281 )
2282 DEFSPEC (MATMUL,
2283     "MATMUL",
2284     FALSE,
2285     FFEINTRIN_familyF90,
2286     FFEINTRIN_impNONE
2287   )
2288 DEFSPEC (MAXEXPONENT,
2289     "MAXEXPONENT",
2290     FALSE,
2291     FFEINTRIN_familyF90,
2292     FFEINTRIN_impNONE
2293   )
2294 DEFSPEC (MAXLOC,
2295     "MAXLOC",
2296     FALSE,
2297     FFEINTRIN_familyF90,
2298     FFEINTRIN_impNONE
2299   )
2300 DEFSPEC (MAXVAL,
2301     "MAXVAL",
2302     FALSE,
2303     FFEINTRIN_familyF90,
2304     FFEINTRIN_impNONE
2305   )
2306 DEFSPEC (MCLOCK,
2307     "MCLOCK",
2308     FALSE,
2309     FFEINTRIN_familyF2U,
2310     FFEINTRIN_impMCLOCK
2311 )
2312 DEFSPEC (MCLOCK8,
2313     "MCLOCK8",
2314     FALSE,
2315     FFEINTRIN_familyF2U,
2316     FFEINTRIN_impMCLOCK8
2317 )
2318 DEFSPEC (MERGE,
2319     "MERGE",
2320     FALSE,
2321     FFEINTRIN_familyF90,
2322     FFEINTRIN_impNONE
2323   )
2324 DEFSPEC (MINEXPONENT,
2325     "MINEXPONENT",
2326     FALSE,
2327     FFEINTRIN_familyF90,
2328     FFEINTRIN_impNONE
2329   )
2330 DEFSPEC (MINLOC,
2331     "MINLOC",
2332     FALSE,
2333     FFEINTRIN_familyF90,
2334     FFEINTRIN_impNONE
2335   )
2336 DEFSPEC (MINVAL,
2337     "MINVAL",
2338     FALSE,
2339     FFEINTRIN_familyF90,
2340     FFEINTRIN_impNONE
2341   )
2342 DEFSPEC (MODULO,
2343     "MODULO",
2344     FALSE,
2345     FFEINTRIN_familyF90,
2346     FFEINTRIN_impNONE
2347   )
2348 DEFSPEC (MVBITS,
2349     "MVBITS",
2350     FALSE,
2351     FFEINTRIN_familyMIL,
2352     FFEINTRIN_impMVBITS
2353   )
2354 DEFSPEC (NEAREST,
2355     "NEAREST",
2356     FALSE,
2357     FFEINTRIN_familyF90,
2358     FFEINTRIN_impNONE
2359   )
2360 DEFSPEC (NOT,
2361     "NOT",
2362     FALSE,
2363     FFEINTRIN_familyMIL,
2364     FFEINTRIN_impNOT
2365   )
2366 DEFSPEC (OR,
2367     "OR",
2368     FALSE,
2369     FFEINTRIN_familyF2C,
2370     FFEINTRIN_impOR
2371   )
2372 DEFSPEC (PACK,
2373     "PACK",
2374     FALSE,
2375     FFEINTRIN_familyF90,
2376     FFEINTRIN_impNONE
2377   )
2378 DEFSPEC (PERROR,
2379     "PERROR",
2380     FALSE,
2381     FFEINTRIN_familyF2U,
2382     FFEINTRIN_impPERROR
2383 )
2384 DEFSPEC (PRECISION,
2385     "PRECISION",
2386     FALSE,
2387     FFEINTRIN_familyF90,
2388     FFEINTRIN_impNONE
2389   )
2390 DEFSPEC (PRESENT,
2391     "PRESENT",
2392     FALSE,
2393     FFEINTRIN_familyF90,
2394     FFEINTRIN_impNONE
2395   )
2396 DEFSPEC (PRODUCT,
2397     "PRODUCT",
2398     FALSE,
2399     FFEINTRIN_familyF90,
2400     FFEINTRIN_impNONE
2401   )
2402 DEFSPEC (QABS,
2403     "QABS",
2404     TRUE,
2405     FFEINTRIN_familyVXT,
2406     FFEINTRIN_impNONE
2407   )
2408 DEFSPEC (QACOS,
2409     "QACOS",
2410     TRUE,
2411     FFEINTRIN_familyVXT,
2412     FFEINTRIN_impNONE
2413   )
2414 DEFSPEC (QACOSD,
2415     "QACOSD",
2416     TRUE,
2417     FFEINTRIN_familyVXT,
2418     FFEINTRIN_impNONE
2419   )
2420 DEFSPEC (QASIN,
2421     "QASIN",
2422     TRUE,
2423     FFEINTRIN_familyVXT,
2424     FFEINTRIN_impNONE
2425   )
2426 DEFSPEC (QASIND,
2427     "QASIND",
2428     TRUE,
2429     FFEINTRIN_familyVXT,
2430     FFEINTRIN_impNONE
2431   )
2432 DEFSPEC (QATAN,
2433     "QATAN",
2434     TRUE,
2435     FFEINTRIN_familyVXT,
2436     FFEINTRIN_impNONE
2437   )
2438 DEFSPEC (QATAN2,
2439     "QATAN2",
2440     TRUE,
2441     FFEINTRIN_familyVXT,
2442     FFEINTRIN_impNONE
2443   )
2444 DEFSPEC (QATAN2D,
2445     "QATAN2D",
2446     TRUE,
2447     FFEINTRIN_familyVXT,
2448     FFEINTRIN_impNONE
2449   )
2450 DEFSPEC (QATAND,
2451     "QATAND",
2452     TRUE,
2453     FFEINTRIN_familyVXT,
2454     FFEINTRIN_impNONE
2455   )
2456 DEFSPEC (QCOS,
2457     "QCOS",
2458     TRUE,
2459     FFEINTRIN_familyVXT,
2460     FFEINTRIN_impNONE
2461   )
2462 DEFSPEC (QCOSD,
2463     "QCOSD",
2464     TRUE,
2465     FFEINTRIN_familyVXT,
2466     FFEINTRIN_impNONE
2467   )
2468 DEFSPEC (QCOSH,
2469     "QCOSH",
2470     TRUE,
2471     FFEINTRIN_familyVXT,
2472     FFEINTRIN_impNONE
2473   )
2474 DEFSPEC (QDIM,
2475     "QDIM",
2476     TRUE,
2477     FFEINTRIN_familyVXT,
2478     FFEINTRIN_impNONE
2479   )
2480 DEFSPEC (QEXP,
2481     "QEXP",
2482     TRUE,
2483     FFEINTRIN_familyVXT,
2484     FFEINTRIN_impNONE
2485   )
2486 DEFSPEC (QEXT,
2487     "QEXT",
2488     FALSE,
2489     FFEINTRIN_familyVXT,
2490     FFEINTRIN_impNONE
2491   )
2492 DEFSPEC (QEXTD,
2493     "QEXTD",
2494     FALSE,
2495     FFEINTRIN_familyVXT,
2496     FFEINTRIN_impNONE
2497   )
2498 DEFSPEC (QFLOAT,
2499     "QFLOAT",
2500     FALSE,
2501     FFEINTRIN_familyVXT,
2502     FFEINTRIN_impNONE
2503   )
2504 DEFSPEC (QINT,
2505     "QINT",
2506     TRUE,
2507     FFEINTRIN_familyVXT,
2508     FFEINTRIN_impNONE
2509   )
2510 DEFSPEC (QLOG,
2511     "QLOG",
2512     TRUE,
2513     FFEINTRIN_familyVXT,
2514     FFEINTRIN_impNONE
2515   )
2516 DEFSPEC (QLOG10,
2517     "QLOG10",
2518     TRUE,
2519     FFEINTRIN_familyVXT,
2520     FFEINTRIN_impNONE
2521   )
2522 DEFSPEC (QMAX1,
2523     "QMAX1",
2524     FALSE,
2525     FFEINTRIN_familyVXT,
2526     FFEINTRIN_impNONE
2527   )
2528 DEFSPEC (QMIN1,
2529     "QMIN1",
2530     FALSE,
2531     FFEINTRIN_familyVXT,
2532     FFEINTRIN_impNONE
2533   )
2534 DEFSPEC (QMOD,
2535     "QMOD",
2536     TRUE,
2537     FFEINTRIN_familyVXT,
2538     FFEINTRIN_impNONE
2539   )
2540 DEFSPEC (QNINT,
2541     "QNINT",
2542     TRUE,
2543     FFEINTRIN_familyVXT,
2544     FFEINTRIN_impNONE
2545   )
2546 DEFSPEC (QSIGN,
2547     "QSIGN",
2548     TRUE,
2549     FFEINTRIN_familyVXT,
2550     FFEINTRIN_impNONE
2551   )
2552 DEFSPEC (QSIN,
2553     "QSIN",
2554     TRUE,
2555     FFEINTRIN_familyVXT,
2556     FFEINTRIN_impNONE
2557   )
2558 DEFSPEC (QSIND,
2559     "QSIND",
2560     TRUE,
2561     FFEINTRIN_familyVXT,
2562     FFEINTRIN_impNONE
2563   )
2564 DEFSPEC (QSINH,
2565     "QSINH",
2566     TRUE,
2567     FFEINTRIN_familyVXT,
2568     FFEINTRIN_impNONE
2569   )
2570 DEFSPEC (QSQRT,
2571     "QSQRT",
2572     TRUE,
2573     FFEINTRIN_familyVXT,
2574     FFEINTRIN_impNONE
2575   )
2576 DEFSPEC (QTAN,
2577     "QTAN",
2578     TRUE,
2579     FFEINTRIN_familyVXT,
2580     FFEINTRIN_impNONE
2581   )
2582 DEFSPEC (QTAND,
2583     "QTAND",
2584     TRUE,
2585     FFEINTRIN_familyVXT,
2586     FFEINTRIN_impNONE
2587   )
2588 DEFSPEC (QTANH,
2589     "QTANH",
2590     TRUE,
2591     FFEINTRIN_familyVXT,
2592     FFEINTRIN_impNONE
2593   )
2594 DEFSPEC (RADIX,
2595     "RADIX",
2596     FALSE,
2597     FFEINTRIN_familyF90,
2598     FFEINTRIN_impNONE
2599   )
2600 DEFSPEC (RAND,
2601     "RAND",
2602     FALSE,
2603     FFEINTRIN_familyF2U,
2604     FFEINTRIN_impRAND
2605 )
2606 DEFSPEC (RANDOM_NUMBER,
2607     "RANDOM_NUMBER",
2608     FALSE,
2609     FFEINTRIN_familyF90,
2610     FFEINTRIN_impNONE
2611   )
2612 DEFSPEC (RANDOM_SEED,
2613     "RANDOM_SEED",
2614     FALSE,
2615     FFEINTRIN_familyF90,
2616     FFEINTRIN_impNONE
2617   )
2618 DEFSPEC (RANGE,
2619     "RANGE",
2620     FALSE,
2621     FFEINTRIN_familyF90,
2622     FFEINTRIN_impNONE
2623   )
2624 DEFSPEC (REALPART,
2625     "REALPART",
2626     FALSE,
2627     FFEINTRIN_familyGNU,
2628     FFEINTRIN_impREALPART
2629   )
2630 DEFSPEC (RENAME_func,
2631     "function",
2632     FALSE,
2633     FFEINTRIN_familyBADU77,
2634     FFEINTRIN_impRENAME_func
2635 )
2636 DEFSPEC (RENAME_subr,
2637     "subroutine",
2638     FALSE,
2639     FFEINTRIN_familyF2U,
2640     FFEINTRIN_impRENAME_subr
2641 )
2642 DEFSPEC (REPEAT,
2643     "REPEAT",
2644     FALSE,
2645     FFEINTRIN_familyF90,
2646     FFEINTRIN_impNONE
2647   )
2648 DEFSPEC (RESHAPE,
2649     "RESHAPE",
2650     FALSE,
2651     FFEINTRIN_familyF90,
2652     FFEINTRIN_impNONE
2653   )
2654 DEFSPEC (RRSPACING,
2655     "RRSPACING",
2656     FALSE,
2657     FFEINTRIN_familyF90,
2658     FFEINTRIN_impNONE
2659   )
2660 DEFSPEC (RSHIFT,
2661     "RSHIFT",
2662     FALSE,
2663     FFEINTRIN_familyF2C,
2664     FFEINTRIN_impRSHIFT
2665   )
2666 DEFSPEC (SCALE,
2667     "SCALE",
2668     FALSE,
2669     FFEINTRIN_familyF90,
2670     FFEINTRIN_impNONE
2671   )
2672 DEFSPEC (SCAN,
2673     "SCAN",
2674     FALSE,
2675     FFEINTRIN_familyF90,
2676     FFEINTRIN_impNONE
2677   )
2678 DEFSPEC (SECNDS,
2679     "SECNDS",
2680     FALSE,
2681     FFEINTRIN_familyVXT,
2682     FFEINTRIN_impSECNDS
2683 )
2684 DEFSPEC (SECOND_func,
2685     "function",
2686     FALSE,
2687     FFEINTRIN_familyF2U,
2688     FFEINTRIN_impSECOND_func
2689 )
2690 DEFSPEC (SECOND_subr,
2691     "subroutine",
2692     FALSE,
2693     FFEINTRIN_familyF2U,
2694     FFEINTRIN_impSECOND_subr
2695 )
2696 DEFSPEC (SEL_INT_KIND,
2697     "SEL_INT_KIND",
2698     FALSE,
2699     FFEINTRIN_familyF90,
2700     FFEINTRIN_impNONE
2701   )
2702 DEFSPEC (SEL_REAL_KIND,
2703     "SEL_REAL_KIND",
2704     FALSE,
2705     FFEINTRIN_familyF90,
2706     FFEINTRIN_impNONE
2707   )
2708 DEFSPEC (SET_EXPONENT,
2709     "SET_EXPONENT",
2710     FALSE,
2711     FFEINTRIN_familyF90,
2712     FFEINTRIN_impNONE
2713   )
2714 DEFSPEC (SHAPE,
2715     "SHAPE",
2716     FALSE,
2717     FFEINTRIN_familyF90,
2718     FFEINTRIN_impNONE
2719   )
2720 DEFSPEC (SHORT,
2721     "SHORT",
2722     FALSE,
2723     FFEINTRIN_familyF2U,
2724     FFEINTRIN_impSHORT
2725   )
2726 DEFSPEC (SIGNAL_func,
2727     "function",
2728     FALSE,
2729     FFEINTRIN_familyBADU77,
2730     FFEINTRIN_impSIGNAL_func
2731   )
2732 DEFSPEC (SIGNAL_subr,
2733     "subroutine",
2734     FALSE,
2735     FFEINTRIN_familyF2U,
2736     FFEINTRIN_impSIGNAL_subr
2737   )
2738 DEFSPEC (SIND,
2739     "SIND",
2740     TRUE,
2741     FFEINTRIN_familyVXT,
2742     FFEINTRIN_impNONE
2743   )
2744 DEFSPEC (SLEEP,
2745     "SLEEP",
2746     FALSE,
2747     FFEINTRIN_familyF2U,
2748     FFEINTRIN_impSLEEP
2749 )
2750 DEFSPEC (SNGLQ,
2751     "SNGLQ",
2752     FALSE,
2753     FFEINTRIN_familyVXT,
2754     FFEINTRIN_impNONE
2755   )
2756 DEFSPEC (SPACING,
2757     "SPACING",
2758     FALSE,
2759     FFEINTRIN_familyF90,
2760     FFEINTRIN_impNONE
2761   )
2762 DEFSPEC (SPREAD,
2763     "SPREAD",
2764     FALSE,
2765     FFEINTRIN_familyF90,
2766     FFEINTRIN_impNONE
2767   )
2768 DEFSPEC (SRAND,
2769     "SRAND",
2770     FALSE,
2771     FFEINTRIN_familyF2U,
2772     FFEINTRIN_impSRAND
2773 )
2774 DEFSPEC (STAT_func,
2775     "function",
2776     FALSE,
2777     FFEINTRIN_familyF2U,
2778     FFEINTRIN_impSTAT_func
2779 )
2780 DEFSPEC (STAT_subr,
2781     "subroutine",
2782     FALSE,
2783     FFEINTRIN_familyF2U,
2784     FFEINTRIN_impSTAT_subr
2785 )
2786 DEFSPEC (SUM,
2787     "SUM",
2788     FALSE,
2789     FFEINTRIN_familyF90,
2790     FFEINTRIN_impNONE
2791   )
2792 DEFSPEC (SYMLNK_func,
2793     "function",
2794     FALSE,
2795     FFEINTRIN_familyBADU77,
2796     FFEINTRIN_impSYMLNK_func
2797 )
2798 DEFSPEC (SYMLNK_subr,
2799     "subroutine",
2800     FALSE,
2801     FFEINTRIN_familyF2U,
2802     FFEINTRIN_impSYMLNK_subr
2803 )
2804 DEFSPEC (SYSTEM_func,
2805     "function",
2806     FALSE,
2807     FFEINTRIN_familyBADU77,
2808     FFEINTRIN_impSYSTEM_func
2809   )
2810 DEFSPEC (SYSTEM_subr,
2811     "subroutine",
2812     FALSE,
2813     FFEINTRIN_familyF2U,
2814     FFEINTRIN_impSYSTEM_subr
2815   )
2816 DEFSPEC (SYSTEM_CLOCK,
2817     "SYSTEM_CLOCK",
2818     FALSE,
2819     FFEINTRIN_familyF90,
2820     FFEINTRIN_impSYSTEM_CLOCK
2821   )
2822 DEFSPEC (TAND,
2823     "TAND",
2824     TRUE,
2825     FFEINTRIN_familyVXT,
2826     FFEINTRIN_impNONE
2827   )
2828 DEFSPEC (TIME8,
2829     "UNIX",
2830     FALSE,
2831     FFEINTRIN_familyF2U,
2832     FFEINTRIN_impTIME8
2833 )
2834 DEFSPEC (TIME_unix,
2835     "UNIX",
2836     FALSE,
2837     FFEINTRIN_familyF2U,
2838     FFEINTRIN_impTIME_unix
2839 )
2840 DEFSPEC (TIME_vxt,
2841     "VXT",
2842     FALSE,
2843     FFEINTRIN_familyVXT,
2844     FFEINTRIN_impTIME_vxt
2845 )
2846 DEFSPEC (TINY,
2847     "TINY",
2848     FALSE,
2849     FFEINTRIN_familyF90,
2850     FFEINTRIN_impNONE
2851   )
2852 DEFSPEC (TRANSFER,
2853     "TRANSFER",
2854     FALSE,
2855     FFEINTRIN_familyF90,
2856     FFEINTRIN_impNONE
2857   )
2858 DEFSPEC (TRANSPOSE,
2859     "TRANSPOSE",
2860     FALSE,
2861     FFEINTRIN_familyF90,
2862     FFEINTRIN_impNONE
2863   )
2864 DEFSPEC (TRIM,
2865     "TRIM",
2866     FALSE,
2867     FFEINTRIN_familyF90,
2868     FFEINTRIN_impNONE
2869   )
2870 DEFSPEC (TTYNAM_func,
2871     "function",
2872     FALSE,
2873     FFEINTRIN_familyF2U,
2874     FFEINTRIN_impTTYNAM_func
2875 )
2876 DEFSPEC (TTYNAM_subr,
2877     "subroutine",
2878     FALSE,
2879     FFEINTRIN_familyF2U,
2880     FFEINTRIN_impTTYNAM_subr
2881 )
2882 DEFSPEC (UBOUND,
2883     "UBOUND",
2884     FALSE,
2885     FFEINTRIN_familyF90,
2886     FFEINTRIN_impNONE
2887   )
2888 DEFSPEC (UMASK_func,
2889     "function",
2890     FALSE,
2891     FFEINTRIN_familyBADU77,
2892     FFEINTRIN_impUMASK_func
2893 )
2894 DEFSPEC (UMASK_subr,
2895     "subroutine",
2896     FALSE,
2897     FFEINTRIN_familyF2U,
2898     FFEINTRIN_impUMASK_subr
2899 )
2900 DEFSPEC (UNLINK_func,
2901     "function",
2902     FALSE,
2903     FFEINTRIN_familyBADU77,
2904     FFEINTRIN_impUNLINK_func
2905 )
2906 DEFSPEC (UNLINK_subr,
2907     "subroutine",
2908     FALSE,
2909     FFEINTRIN_familyF2U,
2910     FFEINTRIN_impUNLINK_subr
2911 )
2912 DEFSPEC (UNPACK,
2913     "UNPACK",
2914     FALSE,
2915     FFEINTRIN_familyF90,
2916     FFEINTRIN_impNONE
2917   )
2918 DEFSPEC (VERIFY,
2919     "VERIFY",
2920     FALSE,
2921     FFEINTRIN_familyF90,
2922     FFEINTRIN_impNONE
2923   )
2924 DEFSPEC (XOR,
2925     "XOR",
2926     FALSE,
2927     FFEINTRIN_familyF2C,
2928     FFEINTRIN_impXOR
2929   )
2930 DEFSPEC (ZABS,
2931     "ZABS",
2932     TRUE,
2933     FFEINTRIN_familyF2C,
2934     FFEINTRIN_impCDABS
2935   )
2936 DEFSPEC (ZCOS,
2937     "ZCOS",
2938     TRUE,
2939     FFEINTRIN_familyF2C,
2940     FFEINTRIN_impCDCOS
2941   )
2942 DEFSPEC (ZEXP,
2943     "ZEXP",
2944     TRUE,
2945     FFEINTRIN_familyF2C,
2946     FFEINTRIN_impCDEXP
2947   )
2948 DEFSPEC (ZEXT,
2949     "ZEXT",
2950     FALSE,
2951     FFEINTRIN_familyVXT,
2952     FFEINTRIN_impNONE
2953   )
2954 DEFSPEC (ZLOG,
2955     "ZLOG",
2956     TRUE,
2957     FFEINTRIN_familyF2C,
2958     FFEINTRIN_impCDLOG
2959   )
2960 DEFSPEC (ZSIN,
2961     "ZSIN",
2962     TRUE,
2963     FFEINTRIN_familyF2C,
2964     FFEINTRIN_impCDSIN
2965   )
2966 DEFSPEC (ZSQRT,
2967     "ZSQRT",
2968     TRUE,
2969     FFEINTRIN_familyF2C,
2970     FFEINTRIN_impCDSQRT
2971   )
2972 DEFSPEC (NONE,
2973     "none",
2974     FALSE,
2975     FFEINTRIN_familyNONE,
2976     FFEINTRIN_impNONE
2977   )
2978
2979 /* Intrinsic implementations ordered in two sections:
2980    F77, then extensions; secondarily, alphabetical
2981    ordering.  */
2982
2983 /* The DEFIMP macro specifies the following fields for an intrinsic:
2984
2985    CODE       -- The internal name for this intrinsic; `FFEINTRIN_imp'
2986                  prepends this to form the `enum' name.
2987
2988    NAME       -- The textual name to use when printing information on
2989                  this intrinsic.
2990
2991    GFRTDIRECT -- The run-time library routine that is suitable for
2992                  a call to implement a *direct* invocation of the
2993                  intrinsic (e.g. `ABS(10)').
2994
2995    GFRTF2C    -- The run-time library routine that is suitable for
2996                  passing as an argument to a procedure that will
2997                  invoke the argument as an EXTERNAL procedure, when
2998                  f2c calling conventions will be used (e.g.
2999                  `CALL FOO(ABS)', when FOO compiled with -ff2c).
3000
3001    GFRTGNU    -- The run-time library routine that is suitable for
3002                  passing as an argument to a procedure that will
3003                  invoke the argument as an EXTERNAL procedure, when
3004                  GNU calling conventions will be used (e.g.
3005                  `CALL FOO(ABS)', when FOO compiled with -fno-f2c).
3006
3007    CONTROL    -- A control string, described below.
3008
3009    The DEFIMPY macro specifies the above, plus:
3010
3011    Y2KBAD     -- TRUE if the intrinsic is known to be non-Y2K-compliant,
3012                  FALSE if it is known to be Y2K-compliant.  (In terms of
3013                  interface and libg2c implementation.)
3014
3015 */
3016
3017 /* The control string has the following format:
3018
3019      <return-type>:<arglist-info>:[<argitem-info>,...]
3020
3021    <return-type> is:
3022
3023      <return-base-type><return-kind-type>[<return-modifier>]
3024
3025    <return-base-type> is:
3026
3027      -    Subroutine
3028      A    Character
3029      C    Complex
3030      I    Integer
3031      L    Logical
3032      R    Real
3033      B    Boolean (I or L), decided by co-operand list (COL)
3034      F    Floating-point (C or R), decided by COL
3035      N    Numeric (C, I, or R), decided by co-operand list (COL)
3036      S    Scalar numeric (I or R), decided by COL, which may be COMPLEX
3037
3038    <return-kind-type> is:
3039
3040      -    Subroutine
3041      =    Decided by COL
3042      1    (Default)
3043      2    (Twice the size of 1)
3044      3    (Same size as CHARACTER*1)
3045      4    (Twice the size of 2)
3046      6    (Twice the size as 3)
3047      7    (Same size as `char *')
3048      C    Like 1 (F77), except (F90), if COL is COMPLEX, uses kind type of COL
3049
3050    <return-modifier> is:
3051
3052      *    Valid for <return-base-type> of `A' only, means program may
3053           declare any length for return value, default being (*)
3054
3055    <arglist-info> is:
3056
3057      <COL-spec>
3058
3059    <COL-spec> is:
3060
3061      -    No COL (return-base-type and return-kind-type must be definitive)
3062      *    All arguments form COL (must have more than one argument)
3063      n    Argument n (0 for first arg, 1 for second, etc.) forms COL
3064
3065    <argitem-info> is:
3066
3067      <name>=[<optionality>]<arg-base-type><arg-kind-type>[<arg-len>][<arg-rank>][<arg-extra>]
3068
3069    <name> is the standard keyword name for the argument.
3070
3071    <optionality> is:
3072
3073      ?    Argument is optional
3074      !    Like ?, but argument must be omitted if previous arg was COMPLEX
3075      +    One or more of these arguments must be specified
3076      *    Zero or more of these arguments must be specified
3077      n    Numbered names for arguments, one or more must be specified
3078      p    Like n, but two or more must be specified
3079
3080    <arg-base-type> is:
3081
3082      -    Any is valid (arg-kind-type is 0)
3083      A    Character*(*)
3084      C    Complex
3085      I    Integer
3086      L    Logical
3087      R    Real
3088      B    Boolean (I or L)
3089      F    Floating-point (C or R)
3090      N    Numeric (C, I, or R)
3091      S    Scalar numeric (I or R)
3092      g    GOTO label (alternate-return form of CALL) (arg-kind-type is 0)
3093      s    Signal handler (INTEGER FUNCTION, SUBROUTINE or dummy/global
3094           default INTEGER variable) (arg-kind-type is 0)
3095
3096    <arg-kind-type> is:
3097
3098      *    Any is valid
3099      1    (Default)
3100      2    (Twice the size of 1)
3101      3    (Same size as CHARACTER*1)
3102      4    (Twice the size of 2)
3103      6    (Twice the size as 3)
3104      A    Same as first argument
3105      N    Not wider than the default kind
3106
3107    <arg-len> is:
3108
3109           (Default) CHARACTER*(*)
3110      [n]  CHARACTER*n
3111
3112    <arg-rank> is:
3113
3114           (default) Rank-0 (variable or array element)
3115      (n)  Rank-1 array n elements long
3116      &    Any (arg-extra is &)
3117
3118    <arg-extra> is:
3119
3120           (default) Arg is INTENT(IN)
3121      i    Arg's attributes are all that matter (inquiry function)
3122      w    Arg is INTENT(OUT)
3123      x    Arg is INTENT(INOUT)
3124      &    Arg can have its address taken (LOC(), for example)
3125
3126 */
3127
3128 DEFIMP  (ABS,           "ABS",          ,ABS,,          "S=:0:A=N*")
3129 DEFIMP  (ACOS,          "ACOS",         L_ACOS,ACOS,,   "R=:0:X=R*")
3130 DEFIMP  (AIMAG,         "AIMAG",        ,AIMAG,,        "RC:0:Z=C*")
3131 DEFIMP  (AINT,          "AINT",         ,AINT,,         "R=:0:A=R*")
3132 DEFIMP  (ALOG,          "ALOG",         L_LOG,ALOG,,    "R1:-:X=R1")
3133 DEFIMP  (ALOG10,        "ALOG10",       L_LOG10,ALOG10,,"R1:-:X=R1")
3134 DEFIMP  (AMAX0,         "AMAX0",        ,,,             "R1:*:A=pI1")
3135 DEFIMP  (AMAX1,         "AMAX1",        ,,,             "R1:*:A=pR1")
3136 DEFIMP  (AMIN0,         "AMIN0",        ,,,             "R1:*:A=pI1")
3137 DEFIMP  (AMIN1,         "AMIN1",        ,,,             "R1:*:A=pR1")
3138 DEFIMP  (AMOD,          "AMOD",         L_FMOD,AMOD,,   "R1:*:A=R1,P=R1")
3139 DEFIMP  (ANINT,         "ANINT",        ,ANINT,,        "R=:0:A=R*")
3140 DEFIMP  (ASIN,          "ASIN",         L_ASIN,ASIN,,   "R=:0:X=R*")
3141 DEFIMP  (ATAN,          "ATAN",         L_ATAN,ATAN,,   "R=:0:X=R*")
3142 DEFIMP  (ATAN2,         "ATAN2",        L_ATAN2,ATAN2,, "R=:*:Y=R*,X=R*")
3143 DEFIMP  (CABS,          "CABS",         ,CABS,,         "R1:-:A=C1")
3144 DEFIMP  (CCOS,          "CCOS",         ,CCOS,,         "C1:-:X=C1")
3145 DEFIMP  (CEXP,          "CEXP",         ,CEXP,,         "C1:-:X=C1")
3146 DEFIMP  (CHAR,          "CHAR",         ,,,             "A1:-:I=I*")
3147 DEFIMP  (CLOG,          "CLOG",         ,CLOG,,         "C1:-:X=C1")
3148 DEFIMP  (CMPLX,         "CMPLX",        ,,,             "C1:*:X=N*,Y=!S*")
3149 DEFIMP  (CONJG,         "CONJG",        ,CONJG,,        "C=:0:Z=C*")
3150 DEFIMP  (COS,           "COS",          L_COS,COS,,     "F=:0:X=F*")
3151 DEFIMP  (COSH,          "COSH",         L_COSH,COSH,,   "R=:0:X=R*")
3152 DEFIMP  (CSIN,          "CSIN",         ,CSIN,,         "C1:-:X=C1")
3153 DEFIMP  (CSQRT,         "CSQRT",        ,CSQRT,,        "C1:-:X=C1")
3154 DEFIMP  (DABS,          "DABS",         ,DABS,,         "R2:-:A=R2")
3155 DEFIMP  (DACOS,         "DACOS",        L_ACOS,DACOS,,  "R2:-:X=R2")
3156 DEFIMP  (DASIN,         "DASIN",        L_ASIN,DASIN,,  "R2:-:X=R2")
3157 DEFIMP  (DATAN,         "DATAN",        L_ATAN,DATAN,,  "R2:-:X=R2")
3158 DEFIMP  (DATAN2,        "DATAN2",       L_ATAN2,DATAN2,,"R2:*:Y=R2,X=R2")
3159 DEFIMP  (DBLE,          "DBLE",         ,,,             "R2:-:A=N*")
3160 DEFIMP  (DCMPLX,        "DCMPLX",       ,,,             "C2:*:X=N*,Y=!S*")
3161 DEFIMP  (DCOS,          "DCOS",         L_COS,DCOS,,    "R2:-:X=R2")
3162 DEFIMP  (DCOSH,         "DCOSH",        L_COSH,DCOSH,,  "R2:-:X=R2")
3163 DEFIMP  (DDIM,          "DDIM",         ,DDIM,,         "R2:*:X=R2,Y=R2")
3164 DEFIMP  (DEXP,          "DEXP",         L_EXP,DEXP,,    "R2:-:X=R2")
3165 DEFIMP  (DIM,           "DIM",          ,DIM,,          "S=:*:X=S*,Y=S*")
3166 DEFIMP  (DINT,          "DINT",         ,DINT,,         "R2:-:A=R2")
3167 DEFIMP  (DLOG,          "DLOG",         L_LOG,DLOG,,    "R2:-:X=R2")
3168 DEFIMP  (DLOG10,        "DLOG10",       L_LOG10,DLOG10,,"R2:-:X=R2")
3169 DEFIMP  (DMAX1,         "DMAX1",        ,,,             "R2:*:A=pR2")
3170 DEFIMP  (DMIN1,         "DMIN1",        ,,,             "R2:*:A=pR2")
3171 DEFIMP  (DMOD,          "DMOD",         L_FMOD,DMOD,,   "R2:*:A=R2,P=R2")
3172 DEFIMP  (DNINT,         "DNINT",        ,DNINT,,        "R2:-:A=R2")
3173 DEFIMP  (DPROD,         "DPROD",        ,DPROD,,        "R2:*:X=R1,Y=R1")
3174 DEFIMP  (DSIGN,         "DSIGN",        ,DSIGN,,        "R2:*:A=R2,B=R2")
3175 DEFIMP  (DSIN,          "DSIN",         L_SIN,DSIN,,    "R2:-:X=R2")
3176 DEFIMP  (DSINH,         "DSINH",        L_SINH,DSINH,,  "R2:-:X=R2")
3177 DEFIMP  (DSQRT,         "DSQRT",        L_SQRT,DSQRT,,  "R2:-:X=R2")
3178 DEFIMP  (DTAN,          "DTAN",         L_TAN,DTAN,,    "R2:-:X=R2")
3179 DEFIMP  (DTANH,         "DTANH",        L_TANH,DTANH,,  "R2:-:X=R2")
3180 DEFIMP  (EXP,           "EXP",          L_EXP,EXP,,     "F=:0:X=F*")
3181 DEFIMP  (FLOAT,         "FLOAT",        ,,,             "R1:-:A=I*")
3182 DEFIMP  (IABS,          "IABS",         ,IABS,IABS,     "I1:-:A=I1")
3183 DEFIMP  (ICHAR,         "ICHAR",        ,,,             "I1:-:C=A*")
3184 DEFIMP  (IDIM,          "IDIM",         ,IDIM,IDIM,     "I1:*:X=I1,Y=I1")
3185 DEFIMP  (IDINT,         "IDINT",        ,,,             "I1:-:A=R2")
3186 DEFIMP  (IDNINT,        "IDNINT",       ,IDNINT,IDNINT, "I1:-:A=R2")
3187 DEFIMP  (IFIX,          "IFIX",         ,,,             "I1:-:A=R1")
3188 DEFIMP  (INDEX,         "INDEX",        ,INDEX,INDEX,   "I1:*:String=A*,Substring=A*")
3189 DEFIMP  (INT,           "INT",          ,,,             "I1:-:A=N*")
3190 DEFIMP  (ISIGN,         "ISIGN",        ,ISIGN,ISIGN,   "I1:*:A=I1,B=I1")
3191 DEFIMP  (LEN,           "LEN",          ,LEN,LEN,       "I1:-:String=A*i")
3192 DEFIMP  (LGE,           "LGE",          ,LGE,LGE,       "L1:*:String_A=A1,String_B=A1")
3193 DEFIMP  (LGT,           "LGT",          ,LGT,LGT,       "L1:*:String_A=A1,String_B=A1")
3194 DEFIMP  (LLE,           "LLE",          ,LLE,LLE,       "L1:*:String_A=A1,String_B=A1")
3195 DEFIMP  (LLT,           "LLT",          ,LLT,LLT,       "L1:*:String_A=A1,String_B=A1")
3196 DEFIMP  (LOG,           "LOG",          L_LOG,ALOG,,    "F=:0:X=F*")
3197 DEFIMP  (LOG10,         "LOG10",        L_LOG10,ALOG10,,"R=:0:X=R*")
3198 DEFIMP  (MAX,           "MAX",          ,,,             "S=:*:A=pS*")
3199 DEFIMP  (MIN,           "MIN",          ,,,             "S=:*:A=pS*")
3200 DEFIMP  (MAX0,          "MAX0",         ,,,             "I1:*:A=pI1")
3201 DEFIMP  (MAX1,          "MAX1",         ,,,             "I1:*:A=pR1")
3202 DEFIMP  (MIN0,          "MIN0",         ,,,             "I1:*:A=pI1")
3203 DEFIMP  (MIN1,          "MIN1",         ,,,             "I1:*:A=pR1")
3204 DEFIMP  (MOD,           "MOD",          ,MOD,MOD,       "S=:*:A=S*,P=S*")
3205 DEFIMP  (NINT,          "NINT",         ,NINT,NINT,     "I1:-:A=R*")
3206 DEFIMP  (REAL,          "REAL",         ,,,             "RC:0:A=N*")
3207 DEFIMP  (SIGN,          "SIGN",         ,SIGN,,         "S=:*:A=S*,B=S*")
3208 DEFIMP  (SIN,           "SIN",          L_SIN,SIN,,     "F=:0:X=F*")
3209 DEFIMP  (SINH,          "SINH",         L_SINH,SINH,,   "R=:0:X=R*")
3210 DEFIMP  (SNGL,          "SNGL",         ,,,             "R1:-:A=R2")
3211 DEFIMP  (SQRT,          "SQRT",         L_SQRT,SQRT,,   "F=:0:X=F*")
3212 DEFIMP  (TAN,           "TAN",          L_TAN,TAN,,     "R=:0:X=R*")
3213 DEFIMP  (TANH,          "TANH",         L_TANH,TANH,,   "R=:0:X=R*")
3214
3215 DEFIMP  (ABORT,         "ABORT",        ABORT,,,        "--:-:")
3216 DEFIMP  (ACCESS,        "ACCESS",       ACCESS,,,       "I1:-:Name=A1,Mode=A1")
3217 DEFIMP  (ACHAR,         "ACHAR",        ,,,             "A1:-:I=I*")
3218 DEFIMP  (ALARM,         "ALARM",        ALARM,,,        "--:-:Seconds=I*,Handler=s*,Status=?I1w")
3219 DEFIMP  (AND,           "AND",          ,,,             "B=:*:I=B*,J=B*")
3220 DEFIMP  (BESJ0,         "BESJ0",        L_BESJ0,,,      "R=:0:X=R*")
3221 DEFIMP  (BESJ1,         "BESJ1",        L_BESJ1,,,      "R=:0:X=R*")
3222 DEFIMP  (BESJN,         "BESJN",        L_BESJN,,,      "R=:1:N=IN,X=R*")
3223 DEFIMP  (BESY0,         "BESY0",        L_BESY0,,,      "R=:0:X=R*")
3224 DEFIMP  (BESY1,         "BESY1",        L_BESY1,,,      "R=:0:X=R*")
3225 DEFIMP  (BESYN,         "BESYN",        L_BESYN,,,      "R=:1:N=IN,X=R*")
3226 DEFIMP  (BIT_SIZE,      "BIT_SIZE",     ,,,             "I=:0:I=I*i")
3227 DEFIMP  (BTEST,         "BTEST",        ,,,             "L1:*:I=I*,Pos=I*")
3228 DEFIMP  (CDABS,         "CDABS",        ,CDABS,,        "R2:-:A=C2")
3229 DEFIMP  (CDCOS,         "CDCOS",        ,CDCOS,,        "C2:-:X=C2")
3230 DEFIMP  (CDEXP,         "CDEXP",        ,CDEXP,,        "C2:-:X=C2")
3231 DEFIMP  (CDLOG,         "CDLOG",        ,CDLOG,,        "C2:-:X=C2")
3232 DEFIMP  (CDSIN,         "CDSIN",        ,CDSIN,,        "C2:-:X=C2")
3233 DEFIMP  (CDSQRT,        "CDSQRT",       ,CDSQRT,,       "C2:-:X=C2")
3234 DEFIMP  (CHDIR_func,    "CHDIR_func",   CHDIR,,,        "I1:-:Dir=A1")
3235 DEFIMP  (CHDIR_subr,    "CHDIR_subr",   CHDIR,,,        "--:-:Dir=A1,Status=?I1w")
3236 DEFIMP  (CHMOD_func,    "CHMOD_func",   CHMOD,,,        "I1:-:Name=A1,Mode=A1")
3237 DEFIMP  (CHMOD_subr,    "CHMOD_subr",   CHMOD,,,        "--:-:Name=A1,Mode=A1,Status=?I1w")
3238 DEFIMP  (COMPLEX,       "COMPLEX",      ,,,             "C=:*:Real=S*,Imag=S*")
3239 DEFIMP  (CPU_TIME,      "CPU_TIME",     SECOND,,,       "--:-:Seconds=R*w")
3240 DEFIMP  (CTIME_func,    "CTIME_func",   CTIME,,,        "A1*:-:STime=I*")
3241 DEFIMP  (CTIME_subr,    "CTIME_subr",   CTIME,,,        "--:-:STime=I*,Result=A1w")
3242 DEFIMPY (DATE,          "DATE",         DATE,,,         "--:-:Date=A1w",        TRUE)
3243 DEFIMP  (DATE_AND_TIME, "DATE_AND_TIME", DATE_AND_TIME,,, "--:-:Date=A1w,Time=?A1w,Zone=?A1w,Values=?I1(8)w")
3244 DEFIMP  (DBESJ0,        "DBESJ0",       L_BESJ0,,,      "R2:-:X=R2")
3245 DEFIMP  (DBESJ1,        "DBESJ1",       L_BESJ1,,,      "R2:-:X=R2")
3246 DEFIMP  (DBESJN,        "DBESJN",       L_BESJN,,,      "R2:-:N=IN,X=R2")
3247 DEFIMP  (DBESY0,        "DBESY0",       L_BESY0,,,      "R2:-:X=R2")
3248 DEFIMP  (DBESY1,        "DBESY1",       L_BESY1,,,      "R2:-:X=R2")
3249 DEFIMP  (DBESYN,        "DBESYN",       L_BESYN,,,      "R2:-:N=IN,X=R2")
3250 DEFIMP  (DCONJG,        "DCONJG",       ,DCONJG,,       "C2:-:Z=C2")
3251 DEFIMP  (DERF,          "DERF",         L_ERF,DERF,,    "R2:-:X=R2")
3252 DEFIMP  (DERFC,         "DERFC",        L_ERFC,DERFC,,  "R2:-:X=R2")
3253 DEFIMP  (DFLOAT,        "DFLOAT",       ,,,             "R2:-:A=I*")
3254 DEFIMP  (DIMAG,         "DIMAG",        ,DIMAG,,        "R2:-:Z=C2")
3255 DEFIMP  (DREAL,         "DREAL",        ,,,             "R2:-:A=N*")
3256 DEFIMP  (DTIME_func,    "DTIME_func",   DTIME,,,        "R1:-:TArray=R1(2)w")
3257 DEFIMP  (DTIME_subr,    "DTIME_subr",   DTIME,,,        "--:-:TArray=R1(2)w,Result=R1w")
3258 DEFIMP  (ERF,           "ERF",          L_ERF,ERF,,     "R=:0:X=R*")
3259 DEFIMP  (ERFC,          "ERFC",         L_ERFC,ERFC,,   "R=:0:X=R*")
3260 DEFIMP  (ETIME_func,    "ETIME_func",   ETIME,,,        "R1:-:TArray=R1(2)w")
3261 DEFIMP  (ETIME_subr,    "ETIME_subr",   ETIME,,,        "--:-:TArray=R1(2)w,Result=R1w")
3262 DEFIMP  (EXIT,          "EXIT",         EXIT,,,         "--:-:Status=?IN")
3263 DEFIMP  (FDATE_func,    "FDATE_func",   FDATE,,,        "A1*:-:")
3264 DEFIMP  (FDATE_subr,    "FDATE_subr",   FDATE,,,        "--:-:Date=A1w")
3265 DEFIMP  (FGET_func,     "FGET_func",    FGET,,,         "I1:-:C=A1w")
3266 DEFIMP  (FGET_subr,     "FGET_subr",    FGET,,,         "--:-:C=A1w,Status=?I1w")
3267 DEFIMP  (FGETC_func,    "FGETC_func",   FGETC,,,        "I1:-:Unit=I*,C=A1w")
3268 DEFIMP  (FGETC_subr,    "FGETC_subr",   FGETC,,,        "--:-:Unit=I*,C=A1w,Status=?I1w")
3269 DEFIMP  (FLUSH,         "FLUSH",        ,,,             "--:-:Unit=?I*")
3270 DEFIMP  (FNUM,          "FNUM",         FNUM,,,         "I1:-:Unit=I*")
3271 DEFIMP  (FPUT_func,     "FPUT_func",    FPUT,,,         "I1:-:C=A1")
3272 DEFIMP  (FPUT_subr,     "FPUT_subr",    FPUT,,,         "--:-:C=A1,Status=?I1w")
3273 DEFIMP  (FPUTC_func,    "FPUTC_func",   FPUTC,,,        "I1:-:Unit=I*,C=A1")
3274 DEFIMP  (FPUTC_subr,    "FPUTC_subr",   FPUTC,,,        "--:-:Unit=I*,C=A1,Status=?I1w")
3275 DEFIMP  (FSEEK,         "FSEEK",        FSEEK,,,        "--:-:Unit=I*,Offset=I*,Whence=I*,ErrLab=?g*")
3276 DEFIMP  (FSTAT_func,    "FSTAT_func",   FSTAT,,,        "I1:-:Unit=I*,SArray=I1(13)w")
3277 DEFIMP  (FSTAT_subr,    "FSTAT_subr",   FSTAT,,,        "--:-:Unit=I*,SArray=I1(13)w,Status=?I1w")
3278 DEFIMP  (FTELL_func,    "FTELL_func",   FTELL,,,        "I1:-:Unit=I*")
3279 DEFIMP  (FTELL_subr,    "FTELL_subr",   FTELL,,,        "--:-:Unit=I*,Offset=I1w")
3280 DEFIMP  (GERROR,        "GERROR",       GERROR,,,       "--:-:Message=A1w")
3281 DEFIMP  (GETARG,        "GETARG",       GETARG,,,       "--:-:Pos=IN,Value=A1w")
3282 DEFIMP  (GETCWD_func,   "GETCWD_func",  GETCWD,,,       "I1:-:Name=A1w")
3283 DEFIMP  (GETCWD_subr,   "GETCWD_subr",  GETCWD,,,       "--:-:Name=A1w,Status=?I1w")
3284 DEFIMP  (GETGID,        "GETGID",       GETGID,,,       "I1:-:")
3285 DEFIMP  (GETLOG,        "GETLOG",       GETLOG,,,       "--:-:Login=A1w")
3286 DEFIMP  (GETPID,        "GETPID",       GETPID,,,       "I1:-:")
3287 DEFIMP  (GETUID,        "GETUID",       GETUID,,,       "I1:-:")
3288 DEFIMP  (GETENV,        "GETENV",       GETENV,,,       "--:-:Name=A1,Value=A1w")
3289 DEFIMP  (GMTIME,        "GMTIME",       GMTIME,,,       "--:-:STime=I1,TArray=I1(9)w")
3290 DEFIMP  (HOSTNM_func,   "HOSTNM_func",  HOSTNM,,,       "I1:-:Name=A1w")
3291 DEFIMP  (HOSTNM_subr,   "HOSTNM_subr",  HOSTNM,,,       "--:-:Name=A1w,Status=?I1w")
3292 DEFIMP  (IACHAR,        "IACHAR",       ,,,             "I1:-:C=A*")
3293 DEFIMP  (IAND,          "IAND",         ,,,             "I=:*:I=I*,J=I*")
3294 DEFIMP  (IARGC,         "IARGC",        IARGC,,,        "I1:-:")
3295 DEFIMP  (IBCLR,         "IBCLR",        ,,,             "I=:0:I=I*,Pos=I*")
3296 DEFIMP  (IBITS,         "IBITS",        ,,,             "I=:0:I=I*,Pos=I*,Len=I*")
3297 DEFIMP  (IBSET,         "IBSET",        ,,,             "I=:0:I=I*,Pos=I*")
3298 DEFIMP  (IDATE_unix,    "IDATE_unix",   IDATE,,,        "--:-:TArray=I1(3)w")
3299 DEFIMPY (IDATE_vxt,     "IDATE_vxt",    VXTIDATE,,,     "--:-:M=I1w,D=I1w,Y=I1w",       TRUE)
3300 DEFIMP  (IEOR,          "IEOR",         ,,,             "I=:*:I=I*,J=I*")
3301 DEFIMP  (IOR,           "IOR",          ,,,             "I=:*:I=I*,J=I*")
3302 DEFIMP  (IERRNO,        "IERRNO",       IERRNO,,,       "I1:-:")
3303 DEFIMP  (IMAGPART,      "IMAGPART",     ,,,             "R=:0:Z=C*")
3304 DEFIMP  (INT2,          "INT2",         ,,,             "I6:-:A=N*")
3305 DEFIMP  (INT8,          "INT8",         ,,,             "I2:-:A=N*")
3306 DEFIMP  (IRAND,         "IRAND",        IRAND,,,        "I1:-:Flag=?I*")
3307 DEFIMP  (ISATTY,        "ISATTY",       ISATTY,,,       "L1:-:Unit=I*")
3308 DEFIMP  (ISHFT,         "ISHFT",        ,,,             "I=:0:I=I*,Shift=I*")
3309 DEFIMP  (ISHFTC,        "ISHFTC",       ,,,             "I=:0:I=I*,Shift=I*,Size=I*")
3310 DEFIMP  (ITIME,         "ITIME",        ITIME,,,        "--:-:TArray=I1(3)w")
3311 DEFIMP  (KILL_func,     "KILL_func",    KILL,,,         "I1:-:Pid=I*,Signal=I*")
3312 DEFIMP  (KILL_subr,     "KILL_subr",    KILL,,,         "--:-:Pid=I*,Signal=I*,Status=?I1w")
3313 DEFIMP  (LINK_func,     "LINK_func",    LINK,,,         "I1:-:Path1=A1,Path2=A1")
3314 DEFIMP  (LINK_subr,     "LINK_subr",    LINK,,,         "--:-:Path1=A1,Path2=A1,Status=?I1w")
3315 DEFIMP  (LNBLNK,        "LNBLNK",       LNBLNK,,,       "I1:-:String=A1")
3316 DEFIMP  (LONG,          "LONG",         ,,,             "I1:-:A=I6")
3317 DEFIMP  (LSTAT_func,    "LSTAT_func",   LSTAT,,,        "I1:-:File=A1,SArray=I1(13)w")
3318 DEFIMP  (LSTAT_subr,    "LSTAT_subr",   LSTAT,,,        "--:-:File=A1,SArray=I1(13)w,Status=?I1w")
3319 DEFIMP  (LTIME,         "LTIME",        LTIME,,,        "--:-:STime=I1,TArray=I1(9)w")
3320 DEFIMP  (LOC,           "LOC",          ,,,             "I7:-:Entity=-*&&")
3321 DEFIMP  (LSHIFT,        "LSHIFT",       ,,,             "I=:0:I=I*,Shift=I*")
3322 DEFIMP  (MCLOCK,        "MCLOCK",       MCLOCK,,,       "I1:-:")
3323 DEFIMP  (MCLOCK8,       "MCLOCK8",      MCLOCK,,,       "I2:-:")
3324 DEFIMP  (MVBITS,        "MVBITS",       ,,,             "--:-:From=I*,FromPos=I*,Len=I*,TO=IAx,ToPos=I*")
3325 DEFIMP  (NOT,           "NOT",          ,,,             "I=:0:I=I*")
3326 DEFIMP  (OR,            "OR",           ,,,             "B=:*:I=B*,J=B*")
3327 DEFIMP  (PERROR,        "PERROR",       PERROR,,,       "--:-:String=A1")
3328 DEFIMP  (RAND,          "RAND",         RAND,,,         "R1:-:Flag=?I*")
3329 DEFIMP  (REALPART,      "REALPART",     ,,,             "R=:0:Z=C*")
3330 DEFIMP  (RENAME_func,   "RENAME_func",  RENAME,,,       "I1:-:Path1=A1,Path2=A1")
3331 DEFIMP  (RENAME_subr,   "RENAME_subr",  RENAME,,,       "--:-:Path1=A1,Path2=A1,Status=?I1w")
3332 DEFIMP  (RSHIFT,        "RSHIFT",       ,,,             "I=:0:I=I*,Shift=I*")
3333 DEFIMP  (SECNDS,        "SECNDS",       SECNDS,,,       "R1:-:T=R1")
3334 DEFIMP  (SECOND_func,   "SECOND_func",  SECOND,SECOND,, "R1:-:")
3335 DEFIMP  (SECOND_subr,   "SECOND_subr",  SECOND,,,       "--:-:Seconds=R*w")
3336 DEFIMP  (SHORT,         "SHORT",        ,,,             "I6:-:A=I*")
3337 DEFIMP  (SIGNAL_func,   "SIGNAL_func",  L_SIGNAL,,,     "I7:-:Number=I*,Handler=s*")
3338 DEFIMP  (SIGNAL_subr,   "SIGNAL_subr",  L_SIGNAL,,,     "--:-:Number=I*,Handler=s*,Status=?I7w")
3339 DEFIMP  (SLEEP,         "SLEEP",        SLEEP,,,        "--:-:Seconds=I1")
3340 DEFIMP  (SRAND,         "SRAND",        SRAND,,,        "--:-:Seed=I*")
3341 DEFIMP  (STAT_func,     "STAT_func",    STAT,,,         "I1:-:File=A1,SArray=I1(13)w")
3342 DEFIMP  (STAT_subr,     "STAT_subr",    STAT,,,         "--:-:File=A1,SArray=I1(13)w,Status=?I1w")
3343 DEFIMP  (SYMLNK_func,   "SYMLNK_func",  SYMLNK,,,       "I1:-:Path1=A1,Path2=A1")
3344 DEFIMP  (SYMLNK_subr,   "SYMLNK_subr",  SYMLNK,,,       "--:-:Path1=A1,Path2=A1,Status=?I1w")
3345 DEFIMP  (SYSTEM_func,   "SYSTEM_func",  SYSTEM,SYSTEM,SYSTEM,"I1:-:Command=A1")
3346 DEFIMP  (SYSTEM_subr,   "SYSTEM_subr",  SYSTEM,,,       "--:-:Command=A1,Status=?I1w")
3347 DEFIMP  (SYSTEM_CLOCK,  "SYSTEM_CLOCK", SYSTEM_CLOCK,,, "--:-:Count=I1w,Rate=?I1w,Max=?I1w")
3348 DEFIMP  (TIME8,         "TIME8",        TIME,,,         "I2:-:")
3349 DEFIMP  (TIME_unix,     "TIME_unix",    TIME,,,         "I1:-:")
3350 DEFIMP  (TIME_vxt,      "TIME_vxt",     VXTTIME,,,      "--:-:Time=A1[8]w")
3351 DEFIMP  (TTYNAM_func,   "TTYNAM_func",  TTYNAM,,,       "A1*:-:Unit=I*")
3352 DEFIMP  (TTYNAM_subr,   "TTYNAM_subr",  TTYNAM,,,       "--:-:Unit=I*,Name=A1w")
3353 DEFIMP  (UMASK_func,    "UMASK_func",   UMASK,,,        "I1:-:Mask=I*")
3354 DEFIMP  (UMASK_subr,    "UMASK_subr",   UMASK,,,        "--:-:Mask=I*,Old=?I1w")
3355 DEFIMP  (UNLINK_func,   "UNLINK_func",  UNLINK,,,       "I1:-:File=A1")
3356 DEFIMP  (UNLINK_subr,   "UNLINK_subr",  UNLINK,,,       "--:-:File=A1,Status=?I1w")
3357 DEFIMP  (XOR,           "XOR",          ,,,             "B=:*:I=B*,J=B*")
3358 DEFIMP  (NONE,          "none",         ,,,             "")