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