/* intrin.def -- Public #include File (module.h template V1.0) Copyright (C) 1995 Free Software Foundation, Inc. Contributed by James Craig Burley (burley@gnu.ai.mit.edu). This file is part of GNU Fortran. GNU Fortran is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU Fortran is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Fortran; see the file COPYING. If not, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Owning Modules: intrin.c Modifications: */ /* Intrinsic names listed in alphabetical order, sorted by uppercase name. This list is keyed to the names of intrinsics as seen in source code. */ DEFNAME ("ABORT", "abort", "Abort", genNONE, specABORT) /* UNIX */ DEFNAME ("ABS", "abs", "Abs", genNONE, specABS) DEFNAME ("ACHAR", "achar", "AChar", genNONE, specACHAR) /* F90, F2C */ DEFNAME ("ACOS", "acos", "ACos", genNONE, specACOS) DEFNAME ("ACOSD", "acosd", "ACosD", genNONE, specACOSD) /* VXT */ DEFNAME ("ADJUSTL", "adjustl", "AdjustL", genNONE, specADJUSTL) /* F90 */ DEFNAME ("ADJUSTR", "adjustr", "AdjustR", genNONE, specADJUSTR) /* F90 */ DEFNAME ("AIMAG", "aimag", "AImag", genNONE, specAIMAG) DEFNAME ("AIMAX0", "aimax0", "AIMax0", genNONE, specAIMAX0) /* VXT */ DEFNAME ("AIMIN0", "aimin0", "AIMin0", genNONE, specAIMIN0) /* VXT */ DEFNAME ("AINT", "aint", "AInt", genNONE, specAINT) DEFNAME ("AJMAX0", "ajmax0", "AJMax0", genNONE, specAJMAX0) /* VXT */ DEFNAME ("AJMIN0", "ajmin0", "AJMin0", genNONE, specAJMIN0) /* VXT */ DEFNAME ("ALL", "all", "All", genNONE, specALL) /* F90 */ DEFNAME ("ALLOCATED", "allocated", "Allocated", genNONE, specALLOCATED) /* F90 */ DEFNAME ("ALOG", "alog", "ALog", genNONE, specALOG) DEFNAME ("ALOG10", "alog10", "ALog10", genNONE, specALOG10) DEFNAME ("AMAX0", "amax0", "AMax0", genNONE, specAMAX0) DEFNAME ("AMAX1", "amax1", "AMax1", genNONE, specAMAX1) DEFNAME ("AMIN0", "amin0", "AMin0", genNONE, specAMIN0) DEFNAME ("AMIN1", "amin1", "AMin1", genNONE, specAMIN1) DEFNAME ("AMOD", "amod", "AMod", genNONE, specAMOD) DEFNAME ("AND", "and", "And", genNONE, specAND) /* F2C */ DEFNAME ("ANINT", "anint", "ANInt", genNONE, specANINT) DEFNAME ("ANY", "any", "Any", genNONE, specANY) /* F90 */ DEFNAME ("ASIN", "asin", "ASin", genNONE, specASIN) DEFNAME ("ASIND", "asind", "ASinD", genNONE, specASIND) /* VXT */ DEFNAME ("ASSOCIATED", "associated", "Associated", genNONE, specASSOCIATED) /* F90 */ DEFNAME ("ATAN", "atan", "ATan", genNONE, specATAN) DEFNAME ("ATAN2", "atan2", "ATan2", genNONE, specATAN2) DEFNAME ("ATAN2D", "atan2d", "ATan2D", genNONE, specATAN2D) /* VXT */ DEFNAME ("ATAND", "atand", "ATanD", genNONE, specATAND) /* VXT */ DEFNAME ("BITEST", "bitest", "BITest", genNONE, specBITEST) /* VXT */ DEFNAME ("BIT_SIZE", "bit_size", "Bit_Size", genNONE, specBIT_SIZE) /* F90 */ DEFNAME ("BJTEST", "bjtest", "BJTest", genNONE, specBJTEST) /* VXT */ DEFNAME ("BTEST", "btest", "BTest", genNONE, specBTEST) /* F90, VXT */ DEFNAME ("CABS", "cabs", "CAbs", genNONE, specCABS) DEFNAME ("CCOS", "ccos", "CCos", genNONE, specCCOS) DEFNAME ("CDABS", "cdabs", "CDAbs", genNONE, specCDABS) /* VXT */ DEFNAME ("CDCOS", "cdcos", "CDCos", genNONE, specCDCOS) /* VXT */ DEFNAME ("CDEXP", "cdexp", "CDExp", genNONE, specCDEXP) /* VXT */ DEFNAME ("CDLOG", "cdlog", "CDLog", genNONE, specCDLOG) /* VXT */ DEFNAME ("CDSIN", "cdsin", "CDSin", genNONE, specCDSIN) /* VXT */ DEFNAME ("CDSQRT", "cdsqrt", "CDSqRt", genNONE, specCDSQRT) /* VXT */ DEFNAME ("CEILING", "ceiling", "Ceiling", genNONE, specCEILING) /* F90 */ DEFNAME ("CEXP", "cexp", "CExp", genNONE, specCEXP) DEFNAME ("CHAR", "char", "Char", genNONE, specCHAR) DEFNAME ("CLOG", "clog", "CLog", genNONE, specCLOG) DEFNAME ("CMPLX", "cmplx", "Cmplx", genNONE, specCMPLX) DEFNAME ("CONJG", "conjg", "Conjg", genNONE, specCONJG) DEFNAME ("COS", "cos", "Cos", genNONE, specCOS) DEFNAME ("COSD", "cosd", "CosD", genNONE, specCOSD) /* VXT */ DEFNAME ("COSH", "cosh", "CosH", genNONE, specCOSH) DEFNAME ("COUNT", "count", "Count", genNONE, specCOUNT) /* F90 */ DEFNAME ("CSHIFT", "cshift", "CShift", genNONE, specCSHIFT) /* F90 */ DEFNAME ("CSIN", "csin", "CSin", genNONE, specCSIN) DEFNAME ("CSQRT", "csqrt", "CSqRt", genNONE, specCSQRT) DEFNAME ("DABS", "dabs", "DAbs", genNONE, specDABS) DEFNAME ("DACOS", "dacos", "DACos", genNONE, specDACOS) DEFNAME ("DACOSD", "dacosd", "DACosD", genNONE, specDACOSD) /* VXT */ DEFNAME ("DASIN", "dasin", "DASin", genNONE, specDASIN) DEFNAME ("DASIND", "dasind", "DASinD", genNONE, specDASIND) /* VXT */ DEFNAME ("DATAN", "datan", "DATan", genNONE, specDATAN) DEFNAME ("DATAN2", "datan2", "DATan2", genNONE, specDATAN2) DEFNAME ("DATAN2D", "datan2d", "DATan2D", genNONE, specDATAN2D) /* VXT */ DEFNAME ("DATAND", "datand", "DATanD", genNONE, specDATAND) /* VXT */ DEFNAME ("DATE_AND_TIME", "date_and_time", "Date_and_Time", genNONE, specDATE_AND_TIME) /* F90 */ DEFNAME ("DBLE", "dble", "Dble", genNONE, specDBLE) DEFNAME ("DBLEQ", "dbleq", "DbleQ", genNONE, specDBLEQ) /* VXT */ DEFNAME ("DCMPLX", "dcmplx", "DCmplx", genNONE, specDCMPLX) /* F2C, VXT */ DEFNAME ("DCONJG", "dconjg", "DConjg", genNONE, specDCONJG) /* F2C, VXT */ DEFNAME ("DCOS", "dcos", "DCos", genNONE, specDCOS) DEFNAME ("DCOSD", "dcosd", "DCosD", genNONE, specDCOSD) /* VXT */ DEFNAME ("DCOSH", "dcosh", "DCosH", genNONE, specDCOSH) DEFNAME ("DDIM", "ddim", "DDim", genNONE, specDDIM) DEFNAME ("DERF", "derf", "DErF", genNONE, specDERF) /* UNIX */ DEFNAME ("DERFC", "derfc", "DErFC", genNONE, specDERFC) /* UNIX */ DEFNAME ("DEXP", "dexp", "DExp", genNONE, specDEXP) DEFNAME ("DFLOAT", "dfloat", "DFloat", genNONE, specDFLOAT) /* F2C, VXT */ DEFNAME ("DFLOTI", "dfloti", "DFlotI", genNONE, specDFLOTI) /* VXT */ DEFNAME ("DFLOTJ", "dflotj", "DFlotJ", genNONE, specDFLOTJ) /* VXT */ DEFNAME ("DIGITS", "digits", "Digits", genNONE, specDIGITS) /* F90 */ DEFNAME ("DIM", "dim", "DiM", genNONE, specDIM) DEFNAME ("DIMAG", "dimag", "DImag", genNONE, specDIMAG) /* VXT */ DEFNAME ("DINT", "dint", "DInt", genNONE, specDINT) DEFNAME ("DLOG", "dlog", "DLog", genNONE, specDLOG) DEFNAME ("DLOG10", "dlog10", "DLog10", genNONE, specDLOG10) DEFNAME ("DMAX1", "dmax1", "DMax1", genNONE, specDMAX1) DEFNAME ("DMIN1", "dmin1", "DMin1", genNONE, specDMIN1) DEFNAME ("DMOD", "dmod", "DMod", genNONE, specDMOD) DEFNAME ("DNINT", "dnint", "DNInt", genNONE, specDNINT) DEFNAME ("DOT_PRODUCT", "dot_product", "Dot_Product", genNONE, specDOT_PRODUCT) /* F90 */ DEFNAME ("DPROD", "dprod", "DProd", genNONE, specDPROD) DEFNAME ("DREAL", "dreal", "DReal", genNONE, specDREAL) /* VXT */ DEFNAME ("DSIGN", "dsign", "DSign", genNONE, specDSIGN) DEFNAME ("DSIN", "dsin", "DSin", genNONE, specDSIN) DEFNAME ("DSIND", "dsind", "DSinD", genNONE, specDSIND) /* VXT */ DEFNAME ("DSINH", "dsinh", "DSinH", genNONE, specDSINH) DEFNAME ("DSQRT", "dsqrt", "DSqRt", genNONE, specDSQRT) DEFNAME ("DTAN", "dtan", "DTan", genNONE, specDTAN) DEFNAME ("DTAND", "dtand", "DTanD", genNONE, specDTAND) /* VXT */ DEFNAME ("DTANH", "dtanh", "DTanH", genNONE, specDTANH) DEFNAME ("EOSHIFT", "eoshift", "EOShift", genNONE, specEOSHIFT) /* F90 */ DEFNAME ("EPSILON", "epsilon", "Epsilon", genNONE, specEPSILON) /* F90 */ DEFNAME ("ERF", "erf", "ErF", genNONE, specERF) /* UNIX */ DEFNAME ("ERFC", "erfc", "ErFC", genNONE, specERFC) /* UNIX */ DEFNAME ("EXIT", "exit", "Exit", genNONE, specEXIT) /* UNIX */ DEFNAME ("EXP", "exp", "Exp", genNONE, specEXP) DEFNAME ("EXPONENT", "exponent", "Exponent", genNONE, specEXPONENT) /* F90 */ DEFNAME ("FLOAT", "float", "Float", genNONE, specFLOAT) DEFNAME ("FLOATI", "floati", "FloatI", genNONE, specFLOATI) /* VXT */ DEFNAME ("FLOATJ", "floatj", "FloatJ", genNONE, specFLOATJ) /* VXT */ DEFNAME ("FLOOR", "floor", "Floor", genNONE, specFLOOR) /* F90 */ DEFNAME ("FLUSH", "flush", "Flush", genNONE, specFLUSH) /* UNIX */ DEFNAME ("FPABSP", "fpabsp", "FPAbsP", genFPABSP, specNONE) /* F2C */ DEFNAME ("FPEXPN", "fpexpn", "FPExpn", genFPEXPN, specNONE) /* F2C */ DEFNAME ("FPFRAC", "fpfrac", "FPFrac", genFPFRAC, specNONE) /* F2C */ DEFNAME ("FPMAKE", "fpmake", "FPMake", genFPMAKE, specNONE) /* F2C */ DEFNAME ("FPRRSP", "fprrsp", "FPRRSp", genFPRRSP, specNONE) /* F2C */ DEFNAME ("FPSCAL", "fpscal", "FPScal", genFPSCAL, specNONE) /* F2C */ DEFNAME ("FRACTION", "fraction", "Fraction", genNONE, specFRACTION) /* F90 */ DEFNAME ("FSEEK", "fseek", "FSeek", genNONE, specFSEEK) /* UNIX */ DEFNAME ("FTELL", "ftell", "FTell", genNONE, specFTELL) /* UNIX */ DEFNAME ("GETARG", "getarg", "GetArg", genNONE, specGETARG) /* UNIX */ DEFNAME ("GETENV", "getenv", "GetEnv", genNONE, specGETENV) /* UNIX */ DEFNAME ("HUGE", "huge", "Huge", genNONE, specHUGE) /* F90 */ DEFNAME ("IABS", "iabs", "IAbs", genNONE, specIABS) DEFNAME ("IACHAR", "iachar", "IAChar", genNONE, specIACHAR) /* F90, F2C */ DEFNAME ("IAND", "iand", "IAnd", genNONE, specIAND) /* F90, VXT */ DEFNAME ("IARGC", "iargc", "IArgC", genNONE, specIARGC) /* UNIX */ DEFNAME ("IBCLR", "ibclr", "IBClr", genNONE, specIBCLR) /* F90, VXT */ DEFNAME ("IBITS", "ibits", "IBits", genNONE, specIBITS) /* F90, VXT */ DEFNAME ("IBSET", "ibset", "IBSet", genNONE, specIBSET) /* F90, VXT */ DEFNAME ("ICHAR", "ichar", "IChar", genNONE, specICHAR) DEFNAME ("IDIM", "idim", "IDiM", genNONE, specIDIM) DEFNAME ("IDINT", "idint", "IDInt", genNONE, specIDINT) DEFNAME ("IDNINT", "idnint", "IDNInt", genNONE, specIDNINT) DEFNAME ("IEOR", "ieor", "IEOr", genNONE, specIEOR) /* F90, VXT */ DEFNAME ("IFIX", "ifix", "IFix", genNONE, specIFIX) DEFNAME ("IIABS", "iiabs", "IIAbs", genNONE, specIIABS) /* VXT */ DEFNAME ("IIAND", "iiand", "IIAnd", genNONE, specIIAND) /* VXT */ DEFNAME ("IIBCLR", "iibclr", "IIBClr", genNONE, specIIBCLR) /* VXT */ DEFNAME ("IIBITS", "iibits", "IIBits", genNONE, specIIBITS) /* VXT */ DEFNAME ("IIBSET", "iibset", "IIBSet", genNONE, specIIBSET) /* VXT */ DEFNAME ("IIDIM", "iidim", "IIDiM", genNONE, specIIDIM) /* VXT */ DEFNAME ("IIDINT", "iidint", "IIDint", genNONE, specIIDINT) /* VXT */ DEFNAME ("IIDNNT", "iidnnt", "IIDNnt", genNONE, specIIDNNT) /* VXT */ DEFNAME ("IIEOR", "iieor", "IIEOr", genNONE, specIIEOR) /* VXT */ DEFNAME ("IIFIX", "iifix", "IIFix", genNONE, specIIFIX) /* VXT */ DEFNAME ("IINT", "iint", "IInt", genNONE, specIINT) /* VXT */ DEFNAME ("IIOR", "iior", "IIOr", genNONE, specIIOR) /* VXT */ DEFNAME ("IIQINT", "iiqint", "IIQint", genNONE, specIIQINT) /* VXT */ DEFNAME ("IIQNNT", "iiqnnt", "IIQNnt", genNONE, specIIQNNT) /* VXT */ DEFNAME ("IISHFT", "iishft", "IIShft", genNONE, specNONE) /* VXT */ DEFNAME ("IISHFTC", "iishftc", "IIShftC", genNONE, specIISHFTC) /* VXT */ DEFNAME ("IISIGN", "iisign", "IISign", genNONE, specIISIGN) /* VXT */ DEFNAME ("IMAG", "imag", "Imag", genNONE, specIMAG) /* F2C */ DEFNAME ("IMAX0", "imax0", "IMax0", genNONE, specIMAX0) /* VXT */ DEFNAME ("IMAX1", "imax1", "IMax1", genNONE, specIMAX1) /* VXT */ DEFNAME ("IMIN0", "imin0", "IMin0", genNONE, specIMIN0) /* VXT */ DEFNAME ("IMIN1", "imin1", "IMin1", genNONE, specIMIN1) /* VXT */ DEFNAME ("IMOD", "imod", "IMod", genNONE, specIMOD) /* VXT */ DEFNAME ("INDEX", "index", "Index", genNONE, specINDEX) DEFNAME ("ININT", "inint", "INInt", genNONE, specININT) /* VXT */ DEFNAME ("INOT", "inot", "INot", genNONE, specINOT) /* VXT */ DEFNAME ("INT", "int", "Int", genNONE, specINT) DEFNAME ("IOR", "ior", "IOr", genNONE, specIOR) /* F90, VXT */ DEFNAME ("ISHFT", "ishft", "IShft", genNONE, specISHFT) /* F90 */ DEFNAME ("ISHFTC", "ishftc", "IShftC", genNONE, specISHFTC) /* F90, VXT */ DEFNAME ("ISIGN", "isign", "ISign", genNONE, specISIGN) DEFNAME ("IZEXT", "izext", "IZExt", genNONE, specIZEXT) /* VXT */ DEFNAME ("JIABS", "jiabs", "JIAbs", genNONE, specJIABS) /* VXT */ DEFNAME ("JIAND", "jiand", "JIAnd", genNONE, specJIAND) /* VXT */ DEFNAME ("JIBCLR", "jibclr", "JIBClr", genNONE, specJIBCLR) /* VXT */ DEFNAME ("JIBITS", "jibits", "JIBits", genNONE, specJIBITS) /* VXT */ DEFNAME ("JIBSET", "jibset", "JIBSet", genNONE, specJIBSET) /* VXT */ DEFNAME ("JIDIM", "jidim", "JIDiM", genNONE, specJIDIM) /* VXT */ DEFNAME ("JIDINT", "jidint", "JIDint", genNONE, specJIDINT) /* VXT */ DEFNAME ("JIDNNT", "jidnnt", "JIDNnt", genNONE, specJIDNNT) /* VXT */ DEFNAME ("JIEOR", "jieor", "JIEOr", genNONE, specJIEOR) /* VXT */ DEFNAME ("JIFIX", "jifix", "JIFix", genNONE, specJIFIX) /* VXT */ DEFNAME ("JINT", "jint", "JInt", genNONE, specJINT) /* VXT */ DEFNAME ("JIOR", "jior", "JIOr", genNONE, specJIOR) /* VXT */ DEFNAME ("JIQINT", "jiqint", "JIQint", genNONE, specJIQINT) /* VXT */ DEFNAME ("JIQNNT", "jiqnnt", "JIQNnt", genNONE, specJIQNNT) /* VXT */ DEFNAME ("JISHFT", "jishft", "JIShft", genNONE, specJISHFT) /* VXT */ DEFNAME ("JISHFTC", "jishftc", "JIShftC", genNONE, specJISHFTC) /* VXT */ DEFNAME ("JISIGN", "jisign", "JISign", genNONE, specJISIGN) /* VXT */ DEFNAME ("JMAX0", "jmax0", "JMax0", genNONE, specJMAX0) /* VXT */ DEFNAME ("JMAX1", "jmax1", "JMax1", genNONE, specJMAX1) /* VXT */ DEFNAME ("JMIN0", "jmin0", "JMin0", genNONE, specJMIN0) /* VXT */ DEFNAME ("JMIN1", "jmin1", "JMin1", genNONE, specJMIN1) /* VXT */ DEFNAME ("JMOD", "jmod", "JMod", genNONE, specJMOD) /* VXT */ DEFNAME ("JNINT", "jnint", "JNInt", genNONE, specJNINT) /* VXT */ DEFNAME ("JNOT", "jnot", "JNot", genNONE, specJNOT) /* VXT */ DEFNAME ("JZEXT", "jzext", "JZExt", genNONE, specJZEXT) /* VXT */ DEFNAME ("KIND", "kind", "Kind", genNONE, specKIND) /* F90 */ DEFNAME ("LBOUND", "lbound", "LBound", genNONE, specLBOUND) /* F90 */ DEFNAME ("LEN", "len", "Len", genNONE, specLEN) DEFNAME ("LEN_TRIM", "len_trim", "Len_Trim", genNONE, specLEN_TRIM) /* F90 */ DEFNAME ("LGE", "lge", "LGe", genNONE, specLGE) DEFNAME ("LGT", "lgt", "LGt", genNONE, specLGT) DEFNAME ("LLE", "lle", "LLe", genNONE, specLLE) DEFNAME ("LLT", "llt", "LLt", genNONE, specLLT) DEFNAME ("LOC", "loc", "Loc", genNONE, specLOC) /* VXT */ DEFNAME ("LOG", "log", "Log", genNONE, specLOG) DEFNAME ("LOG10", "log10", "Log10", genNONE, specLOG10) DEFNAME ("LOGICAL", "logical", "Logical", genNONE, specLOGICAL) /* F90 */ DEFNAME ("LSHIFT", "lshift", "LShift", genNONE, specLSHIFT) /* F2C */ DEFNAME ("MATMUL", "matmul", "MatMul", genNONE, specMATMUL) /* F90 */ DEFNAME ("MAX", "max", "Max", genNONE, specMAX) DEFNAME ("MAX0", "max0", "Max0", genNONE, specMAX0) DEFNAME ("MAX1", "max1", "Max1", genNONE, specMAX1) DEFNAME ("MAXEXPONENT", "maxexponent", "MaxExponent", genNONE, specMAXEXPONENT) /* F90 */ DEFNAME ("MAXLOC", "maxloc", "MaxLoc", genNONE, specMAXLOC) /* F90 */ DEFNAME ("MAXVAL", "maxval", "MaxVal", genNONE, specMAXVAL) /* F90 */ DEFNAME ("MERGE", "merge", "Merge", genNONE, specMERGE) /* F90 */ DEFNAME ("MIN", "min", "Min", genNONE, specMIN) DEFNAME ("MIN0", "min0", "Min0", genNONE, specMIN0) DEFNAME ("MIN1", "min1", "Min1", genNONE, specMIN1) DEFNAME ("MINEXPONENT", "minexponent", "MinExponent", genNONE, specMINEXPONENT) /* F90 */ DEFNAME ("MINLOC", "minloc", "MinLoc", genNONE, specMINLOC) /* F90 */ DEFNAME ("MINVAL", "minval", "MinVal", genNONE, specMINVAL) /* F90 */ DEFNAME ("MOD", "mod", "Mod", genNONE, specMOD) DEFNAME ("MODULO", "modulo", "Modulo", genNONE, specMODULO) /* F90 */ DEFNAME ("MVBITS", "mvbits", "MvBits", genNONE, specMVBITS) /* F90 */ DEFNAME ("NEAREST", "nearest", "Nearest", genNONE, specNEAREST) /* F90 */ DEFNAME ("NINT", "nint", "NInt", genNONE, specNINT) DEFNAME ("NOT", "not", "Not", genNONE, specNOT) /* F2C, F90, VXT */ DEFNAME ("OR", "or", "Or", genNONE, specOR) /* F2C */ DEFNAME ("PACK", "pack", "Pack", genNONE, specPACK) /* F90 */ DEFNAME ("PRECISION", "precision", "Precision", genNONE, specPRECISION) /* F90 */ DEFNAME ("PRESENT", "present", "Present", genNONE, specPRESENT) /* F90 */ DEFNAME ("PRODUCT", "product", "Product", genNONE, specPRODUCT) /* F90 */ DEFNAME ("QABS", "qabs", "QAbs", genNONE, specQABS) /* VXT */ DEFNAME ("QACOS", "qacos", "QACos", genNONE, specQACOS) /* VXT */ DEFNAME ("QACOSD", "qacosd", "QACosD", genNONE, specQACOSD) /* VXT */ DEFNAME ("QASIN", "qasin", "QASin", genNONE, specQASIN) /* VXT */ DEFNAME ("QASIND", "qasind", "QASinD", genNONE, specQASIND) /* VXT */ DEFNAME ("QATAN", "qatan", "QATan", genNONE, specQATAN) /* VXT */ DEFNAME ("QATAN2", "qatan2", "QATan2", genNONE, specQATAN2) /* VXT */ DEFNAME ("QATAN2D", "qatan2d", "QATan2D", genNONE, specQATAN2D) /* VXT */ DEFNAME ("QATAND", "qatand", "QATanD", genNONE, specQATAND) /* VXT */ DEFNAME ("QCOS", "qcos", "QCos", genNONE, specQCOS) /* VXT */ DEFNAME ("QCOSD", "qcosd", "QCosD", genNONE, specQCOSD) /* VXT */ DEFNAME ("QCOSH", "qcosh", "QCosH", genNONE, specQCOSH) /* VXT */ DEFNAME ("QDIM", "qdim", "QDiM", genNONE, specQDIM) /* VXT */ DEFNAME ("QEXP", "qexp", "QExp", genNONE, specQEXP) /* VXT */ DEFNAME ("QEXT", "qext", "QExt", genNONE, specQEXT) /* VXT */ DEFNAME ("QEXTD", "qextd", "QExtD", genNONE, specQEXTD) /* VXT */ DEFNAME ("QFLOAT", "qfloat", "QFloat", genNONE, specQFLOAT) /* VXT */ DEFNAME ("QINT", "qint", "QInt", genNONE, specQINT) /* VXT */ DEFNAME ("QLOG", "qlog", "QLog", genNONE, specQLOG) /* VXT */ DEFNAME ("QLOG10", "qlog10", "QLog10", genNONE, specQLOG10) /* VXT */ DEFNAME ("QMAX1", "qmax1", "QMax1", genNONE, specQMAX1) /* VXT */ DEFNAME ("QMIN1", "qmin1", "QMin1", genNONE, specQMIN1) /* VXT */ DEFNAME ("QMOD", "qmod", "QMod", genNONE, specQMOD) /* VXT */ DEFNAME ("QNINT", "qnint", "QNInt", genNONE, specQNINT) /* VXT */ DEFNAME ("QSIN", "qsin", "QSin", genNONE, specQSIN) /* VXT */ DEFNAME ("QSIND", "qsind", "QSinD", genNONE, specQSIND) /* VXT */ DEFNAME ("QSINH", "qsinh", "QSinH", genNONE, specQSINH) /* VXT */ DEFNAME ("QSQRT", "qsqrt", "QSqRt", genNONE, specQSQRT) /* VXT */ DEFNAME ("QTAN", "qtan", "QTan", genNONE, specQTAN) /* VXT */ DEFNAME ("QTAND", "qtand", "QTanD", genNONE, specQTAND) /* VXT */ DEFNAME ("QTANH", "qtanh", "QTanH", genNONE, specQTANH) /* VXT */ DEFNAME ("RADIX", "radix", "Radix", genNONE, specRADIX) /* F90 */ DEFNAME ("RANDOM_NUMBER", "random_number", "Random_Number", genNONE, specRANDOM_NUMBER) /* F90 */ DEFNAME ("RANDOM_SEED", "random_seed", "Random_Seed", genNONE, specRANDOM_SEED) /* F90 */ DEFNAME ("RANGE", "range", "Range", genNONE, specRANGE) /* F90 */ DEFNAME ("REAL", "real", "Real", genNONE, specREAL) DEFNAME ("REPEAT", "repeat", "Repeat", genNONE, specREPEAT) /* F90 */ DEFNAME ("RESHAPE", "reshape", "Reshape", genNONE, specRESHAPE) /* F90 */ DEFNAME ("RRSPACING", "rrspacing", "RRSpacing", genNONE, specRRSPACING) /* F90 */ DEFNAME ("RSHIFT", "rshift", "RShift", genNONE, specRSHIFT) /* F2C */ DEFNAME ("SCALE", "scale", "Scale", genNONE, specSCALE) /* F90 */ DEFNAME ("SCAN", "scan", "Scan", genNONE, specSCAN) /* F90 */ DEFNAME ("SELECTED_INT_KIND", "selected_int_kind", "Selected_Int_Kind", genNONE, specSEL_INT_KIND) /* F90 */ DEFNAME ("SELECTED_REAL_KIND", "selected_real_kind", "Selected_Real_Kind", genNONE, specSEL_REAL_KIND) /* F90 */ DEFNAME ("SET_EXPONENT", "set_exponent", "Set_Exponent", genNONE, specSET_EXPONENT) /* F90 */ DEFNAME ("SHAPE", "shape", "Shape", genNONE, specSHAPE) /* F90 */ DEFNAME ("SIGN", "sign", "Sign", genNONE, specSIGN) DEFNAME ("SIGNAL", "signal", "Signal", genNONE, specSIGNAL) /* UNIX */ DEFNAME ("SIN", "sin", "Sin", genNONE, specSIN) DEFNAME ("SIND", "sind", "SinD", genNONE, specSIND) /* VXT */ DEFNAME ("SINH", "sinh", "SinH", genNONE, specSINH) DEFNAME ("SNGL", "sngl", "Sngl", genNONE, specSNGL) DEFNAME ("SNGLQ", "snglq", "SnglQ", genNONE, specSNGLQ) /* VXT */ DEFNAME ("SPACING", "spacing", "Spacing", genNONE, specSPACING) /* F90 */ DEFNAME ("SPREAD", "spread", "Spread", genNONE, specSPREAD) /* F90 */ DEFNAME ("SQRT", "sqrt", "SqRt", genNONE, specSQRT) DEFNAME ("SUM", "sum", "Sum", genNONE, specSUM) /* F90 */ DEFNAME ("SYSTEM", "system", "System", genNONE, specSYSTEM) /* UNIX */ DEFNAME ("SYSTEM_CLOCK", "system_clock", "System_Clock", genNONE, specSYSTEM_CLOCK) /* F90 */ DEFNAME ("TAN", "tan", "Tan", genNONE, specTAN) DEFNAME ("TAND", "tand", "TanD", genNONE, specTAND) /* VXT */ DEFNAME ("TANH", "tanh", "TanH", genNONE, specTANH) DEFNAME ("TINY", "tiny", "Tiny", genNONE, specTINY) /* F90 */ DEFNAME ("TRANSFER", "transfer", "Transfer", genNONE, specTRANSFER) /* F90 */ DEFNAME ("TRANSPOSE", "transpose", "Transpose", genNONE, specTRANSPOSE) /* F90 */ DEFNAME ("TRIM", "trim", "Trim", genNONE, specTRIM) /* F90 */ DEFNAME ("UBOUND", "ubound", "UBound", genNONE, specUBOUND) /* F90 */ DEFNAME ("UNPACK", "unpack", "Unpack", genNONE, specUNPACK) /* F90 */ DEFNAME ("VERIFY", "verify", "Verify", genNONE, specVERIFY) /* F90 */ DEFNAME ("XOR", "xor", "XOr", genNONE, specXOR) /* F2C */ DEFNAME ("ZABS", "zabs", "ZAbs", genNONE, specZABS) /* F2C */ DEFNAME ("ZCOS", "zcos", "ZCos", genNONE, specZCOS) /* F2C */ DEFNAME ("ZEXP", "zexp", "ZExp", genNONE, specZEXP) /* F2C */ DEFNAME ("ZEXT", "zext", "ZExt", genNONE, specZEXT) /* VXT */ DEFNAME ("ZLOG", "zlog", "ZLog", genNONE, specZLOG) /* F2C */ DEFNAME ("ZSIN", "zsin", "ZSin", genNONE, specZSIN) /* F2C */ DEFNAME ("ZSQRT", "zsqrt", "ZSqRt", genNONE, specZSQRT) /* F2C */ /* Internally generic intrinsics. Should properly be called "mapped" intrinsics. These are intrinsics that map to one or more generally different implementations -- e.g. that have differing interpretations depending on the Fortran dialect being used. Also, this includes the placeholder intrinsics that have no specific versions, but we want to reserve the names for now. */ DEFGEN (FFEINTRIN_genFPABSP, "FPABSP", /* F2C */ FFEINTRIN_specNONE, FFEINTRIN_specNONE ) DEFGEN (FFEINTRIN_genFPEXPN, "FPEXPN", /* F2C */ FFEINTRIN_specNONE, FFEINTRIN_specNONE ) DEFGEN (FFEINTRIN_genFPFRAC, "FPFRAC", /* F2C */ FFEINTRIN_specNONE, FFEINTRIN_specNONE ) DEFGEN (FFEINTRIN_genFPMAKE, "FPMAKE", /* F2C */ FFEINTRIN_specNONE, FFEINTRIN_specNONE ) DEFGEN (FFEINTRIN_genFPRRSP, "FPRRSP", /* F2C */ FFEINTRIN_specNONE, FFEINTRIN_specNONE ) DEFGEN (FFEINTRIN_genFPSCAL, "FPSCAL", /* F2C */ FFEINTRIN_specNONE, FFEINTRIN_specNONE ) DEFGEN (FFEINTRIN_genNONE, "none", FFEINTRIN_specNONE, FFEINTRIN_specNONE ) /* Specific intrinsic information. Currently this list starts with the list of F77-standard intrinsics in alphabetical order, then continues with the list of all other intrinsics. The second boolean argument specifies whether the intrinsic is allowed by the standard to be passed as an actual argument. */ DEFSPEC (FFEINTRIN_specABS, "ABS", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impABS ) DEFSPEC (FFEINTRIN_specACOS, "ACOS", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impACOS ) DEFSPEC (FFEINTRIN_specAIMAG, "AIMAG", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impAIMAG ) DEFSPEC (FFEINTRIN_specAINT, "AINT", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impAINT ) DEFSPEC (FFEINTRIN_specALOG, "ALOG", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impALOG ) DEFSPEC (FFEINTRIN_specALOG10, "ALOG10", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impALOG10 ) DEFSPEC (FFEINTRIN_specAMAX0, "AMAX0", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impAMAX0 ) DEFSPEC (FFEINTRIN_specAMAX1, "AMAX1", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impAMAX1 ) DEFSPEC (FFEINTRIN_specAMIN0, "AMIN0", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impAMIN0 ) DEFSPEC (FFEINTRIN_specAMIN1, "AMIN1", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impAMIN1 ) DEFSPEC (FFEINTRIN_specAMOD, "AMOD", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impAMOD ) DEFSPEC (FFEINTRIN_specANINT, "ANINT", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impANINT ) DEFSPEC (FFEINTRIN_specASIN, "ASIN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impASIN ) DEFSPEC (FFEINTRIN_specATAN, "ATAN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impATAN ) DEFSPEC (FFEINTRIN_specATAN2, "ATAN2", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impATAN2 ) DEFSPEC (FFEINTRIN_specCABS, "CABS", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impCABS ) DEFSPEC (FFEINTRIN_specCCOS, "CCOS", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impCCOS ) DEFSPEC (FFEINTRIN_specCEXP, "CEXP", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impCEXP ) DEFSPEC (FFEINTRIN_specCHAR, "CHAR", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impCHAR ) DEFSPEC (FFEINTRIN_specCLOG, "CLOG", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impCLOG ) DEFSPEC (FFEINTRIN_specCMPLX, "CMPLX", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impCMPLX ) DEFSPEC (FFEINTRIN_specCONJG, "CONJG", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impCONJG ) DEFSPEC (FFEINTRIN_specCOS, "COS", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impCOS ) DEFSPEC (FFEINTRIN_specCOSH, "COSH", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impCOSH ) DEFSPEC (FFEINTRIN_specCSIN, "CSIN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impCSIN ) DEFSPEC (FFEINTRIN_specCSQRT, "CSQRT", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impCSQRT ) DEFSPEC (FFEINTRIN_specDABS, "DABS", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDABS ) DEFSPEC (FFEINTRIN_specDACOS, "DACOS", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDACOS ) DEFSPEC (FFEINTRIN_specDASIN, "DASIN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDASIN ) DEFSPEC (FFEINTRIN_specDATAN, "DATAN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDATAN ) DEFSPEC (FFEINTRIN_specDATAN2, "DATAN2", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDATAN2 ) DEFSPEC (FFEINTRIN_specDBLE, "DBLE", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impDBLE ) DEFSPEC (FFEINTRIN_specDCOS, "DCOS", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDCOS ) DEFSPEC (FFEINTRIN_specDCOSH, "DCOSH", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDCOSH ) DEFSPEC (FFEINTRIN_specDDIM, "DDIM", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDDIM ) DEFSPEC (FFEINTRIN_specDEXP, "DEXP", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDEXP ) DEFSPEC (FFEINTRIN_specDIM, "DIM", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDIM ) DEFSPEC (FFEINTRIN_specDINT, "DINT", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDINT ) DEFSPEC (FFEINTRIN_specDLOG, "DLOG", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDLOG ) DEFSPEC (FFEINTRIN_specDLOG10, "DLOG10", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDLOG10 ) DEFSPEC (FFEINTRIN_specDMAX1, "DMAX1", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impDMAX1 ) DEFSPEC (FFEINTRIN_specDMIN1, "DMIN1", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impDMIN1 ) DEFSPEC (FFEINTRIN_specDMOD, "DMOD", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDMOD ) DEFSPEC (FFEINTRIN_specDNINT, "DNINT", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDNINT ) DEFSPEC (FFEINTRIN_specDPROD, "DPROD", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDPROD ) DEFSPEC (FFEINTRIN_specDSIGN, "DSIGN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDSIGN ) DEFSPEC (FFEINTRIN_specDSIN, "DSIN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDSIN ) DEFSPEC (FFEINTRIN_specDSINH, "DSINH", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDSINH ) DEFSPEC (FFEINTRIN_specDSQRT, "DSQRT", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDSQRT ) DEFSPEC (FFEINTRIN_specDTAN, "DTAN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDTAN ) DEFSPEC (FFEINTRIN_specDTANH, "DTANH", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impDTANH ) DEFSPEC (FFEINTRIN_specEXP, "EXP", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impEXP ) DEFSPEC (FFEINTRIN_specFLOAT, "FLOAT", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impREAL ) DEFSPEC (FFEINTRIN_specIABS, "IABS", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impIABS ) DEFSPEC (FFEINTRIN_specICHAR, "ICHAR", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impICHAR ) DEFSPEC (FFEINTRIN_specIDIM, "IDIM", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impIDIM ) DEFSPEC (FFEINTRIN_specIDINT, "IDINT", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impINT ) DEFSPEC (FFEINTRIN_specIDNINT, "IDNINT", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impIDNINT ) DEFSPEC (FFEINTRIN_specIFIX, "IFIX", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impINT ) DEFSPEC (FFEINTRIN_specINDEX, "INDEX", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impINDEX ) DEFSPEC (FFEINTRIN_specINT, "INT", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impINT ) DEFSPEC (FFEINTRIN_specISIGN, "ISIGN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impISIGN ) DEFSPEC (FFEINTRIN_specLEN, "LEN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impLEN ) DEFSPEC (FFEINTRIN_specLGE, "LGE", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impLGE ) DEFSPEC (FFEINTRIN_specLGT, "LGT", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impLGT ) DEFSPEC (FFEINTRIN_specLLE, "LLE", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impLLE ) DEFSPEC (FFEINTRIN_specLLT, "LLT", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impLLT ) DEFSPEC (FFEINTRIN_specLOG, "LOG", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impLOG ) DEFSPEC (FFEINTRIN_specLOG10, "LOG10", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impLOG10 ) DEFSPEC (FFEINTRIN_specMAX, "MAX", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impMAX ) DEFSPEC (FFEINTRIN_specMAX0, "MAX0", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impMAX0 ) DEFSPEC (FFEINTRIN_specMAX1, "MAX1", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impMAX1 ) DEFSPEC (FFEINTRIN_specMIN, "MIN", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impMIN ) DEFSPEC (FFEINTRIN_specMIN0, "MIN0", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impMIN0 ) DEFSPEC (FFEINTRIN_specMIN1, "MIN1", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impMIN1 ) DEFSPEC (FFEINTRIN_specMOD, "MOD", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impMOD ) DEFSPEC (FFEINTRIN_specNINT, "NINT", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impNINT ) DEFSPEC (FFEINTRIN_specREAL, "REAL", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impREAL ) DEFSPEC (FFEINTRIN_specSIGN, "SIGN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impSIGN ) DEFSPEC (FFEINTRIN_specSIN, "SIN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impSIN ) DEFSPEC (FFEINTRIN_specSINH, "SINH", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impSINH ) DEFSPEC (FFEINTRIN_specSNGL, "SNGL", FALSE, FFEINTRIN_familyF77, FFEINTRIN_impREAL ) DEFSPEC (FFEINTRIN_specSQRT, "SQRT", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impSQRT ) DEFSPEC (FFEINTRIN_specTAN, "TAN", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impTAN ) DEFSPEC (FFEINTRIN_specTANH, "TANH", TRUE, FFEINTRIN_familyF77, FFEINTRIN_impTANH ) DEFSPEC (FFEINTRIN_specABORT, "ABORT", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impABORT ) DEFSPEC (FFEINTRIN_specACHAR, "ACHAR", FALSE, FFEINTRIN_familyASC, FFEINTRIN_impACHAR ) DEFSPEC (FFEINTRIN_specACOSD, "ACOSD", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specADJUSTL, "ADJUSTL", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specADJUSTR, "ADJUSTR", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specAIMAX0, "AIMAX0", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specAIMIN0, "AIMIN0", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specAJMAX0, "AJMAX0", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impAMAX0 ) DEFSPEC (FFEINTRIN_specAJMIN0, "AJMIN0", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impAMIN0 ) DEFSPEC (FFEINTRIN_specALL, "ALL", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specALLOCATED, "ALLOCATED", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specAND, "AND", FALSE, FFEINTRIN_familyF2C, FFEINTRIN_impIAND ) DEFSPEC (FFEINTRIN_specANY, "ANY", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specASIND, "ASIND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specASSOCIATED, "ASSOCIATED", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specATAN2D, "ATAN2D", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specATAND, "ATAND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specBIT_SIZE, "BIT_SIZE", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impBIT_SIZE ) DEFSPEC (FFEINTRIN_specBITEST, "BITEST", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specBJTEST, "BJTEST", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impBTEST ) DEFSPEC (FFEINTRIN_specBTEST, "BTEST", FALSE, FFEINTRIN_familyMIL, FFEINTRIN_impBTEST ) DEFSPEC (FFEINTRIN_specCDABS, "CDABS", TRUE, FFEINTRIN_familyFVZ, FFEINTRIN_impCDABS ) DEFSPEC (FFEINTRIN_specCDCOS, "CDCOS", TRUE, FFEINTRIN_familyFVZ, FFEINTRIN_impCDCOS ) DEFSPEC (FFEINTRIN_specCDEXP, "CDEXP", TRUE, FFEINTRIN_familyFVZ, FFEINTRIN_impCDEXP ) DEFSPEC (FFEINTRIN_specCDLOG, "CDLOG", TRUE, FFEINTRIN_familyFVZ, FFEINTRIN_impCDLOG ) DEFSPEC (FFEINTRIN_specCDSIN, "CDSIN", TRUE, FFEINTRIN_familyFVZ, FFEINTRIN_impCDSIN ) DEFSPEC (FFEINTRIN_specCDSQRT, "CDSQRT", TRUE, FFEINTRIN_familyFVZ, FFEINTRIN_impCDSQRT ) DEFSPEC (FFEINTRIN_specCEILING, "CEILING", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specCOSD, "COSD", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specCOUNT, "COUNT", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specCSHIFT, "CSHIFT", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDACOSD, "DACOSD", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDASIND, "DASIND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDATAN2D, "DATAN2D", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDATAND, "DATAND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDATE_AND_TIME, "DATE_AND_TIME", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDBLEQ, "DBLEQ", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDCMPLX, "DCMPLX", FALSE, FFEINTRIN_familyDCP, FFEINTRIN_impDCMPLX ) DEFSPEC (FFEINTRIN_specDCONJG, "DCONJG", TRUE, FFEINTRIN_familyFVZ, FFEINTRIN_impDCONJG ) DEFSPEC (FFEINTRIN_specDCOSD, "DCOSD", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDERF, "DERF", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impDERF ) DEFSPEC (FFEINTRIN_specDERFC, "DERFC", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impDERFC ) DEFSPEC (FFEINTRIN_specDFLOAT, "DFLOAT", FALSE, FFEINTRIN_familyF2C, FFEINTRIN_impDBLE ) DEFSPEC (FFEINTRIN_specDFLOTI, "DFLOTI", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDFLOTJ, "DFLOTJ", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impDBLE ) DEFSPEC (FFEINTRIN_specDIGITS, "DIGITS", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDIMAG, "DIMAG", TRUE, FFEINTRIN_familyFVZ, FFEINTRIN_impDIMAG ) DEFSPEC (FFEINTRIN_specDOT_PRODUCT, "DOT_PRODUCT", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDREAL, "DREAL", FALSE, FFEINTRIN_familyFVZ, FFEINTRIN_impDBLE ) DEFSPEC (FFEINTRIN_specDSIND, "DSIND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specDTAND, "DTAND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specEOSHIFT, "EOSHIFT", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specEPSILON, "EPSILON", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specERF, "ERF", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impERF ) DEFSPEC (FFEINTRIN_specERFC, "ERFC", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impERFC ) DEFSPEC (FFEINTRIN_specEXIT, "EXIT", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impEXIT ) DEFSPEC (FFEINTRIN_specEXPONENT, "EXPONENT", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specFLOATI, "FLOATI", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specFLOATJ, "FLOATJ", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impREAL ) DEFSPEC (FFEINTRIN_specFLOOR, "FLOOR", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specFLUSH, "FLUSH", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impFLUSH ) DEFSPEC (FFEINTRIN_specFRACTION, "FRACTION", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specFSEEK, "FSEEK", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impFSEEK ) DEFSPEC (FFEINTRIN_specFTELL, "FTELL", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impFTELL ) DEFSPEC (FFEINTRIN_specGETARG, "GETARG", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impGETARG ) DEFSPEC (FFEINTRIN_specGETENV, "GETENV", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impGETENV ) DEFSPEC (FFEINTRIN_specHUGE, "HUGE", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIACHAR, "IACHAR", FALSE, FFEINTRIN_familyASC, FFEINTRIN_impIACHAR ) DEFSPEC (FFEINTRIN_specIAND, "IAND", FALSE, FFEINTRIN_familyMIL, FFEINTRIN_impIAND ) DEFSPEC (FFEINTRIN_specIARGC, "IARGC", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impIARGC ) DEFSPEC (FFEINTRIN_specIBCLR, "IBCLR", FALSE, FFEINTRIN_familyMIL, FFEINTRIN_impIBCLR ) DEFSPEC (FFEINTRIN_specIBITS, "IBITS", FALSE, FFEINTRIN_familyMIL, FFEINTRIN_impIBITS ) DEFSPEC (FFEINTRIN_specIBSET, "IBSET", FALSE, FFEINTRIN_familyMIL, FFEINTRIN_impIBSET ) DEFSPEC (FFEINTRIN_specIEOR, "IEOR", FALSE, FFEINTRIN_familyMIL, FFEINTRIN_impIEOR ) DEFSPEC (FFEINTRIN_specIIABS, "IIABS", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIAND, "IIAND", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIBCLR, "IIBCLR", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIBITS, "IIBITS", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIBSET, "IIBSET", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIDIM, "IIDIM", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIDINT, "IIDINT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIDNNT, "IIDNNT", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIEOR, "IIEOR", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIFIX, "IIFIX", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIINT, "IINT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIOR, "IIOR", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIQINT, "IIQINT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIIQNNT, "IIQNNT", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIISHFT, "IISHFT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIISHFTC, "IISHFTC", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIISIGN, "IISIGN", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIMAG, "IMAG", FALSE, FFEINTRIN_familyF2C, FFEINTRIN_impAIMAG ) DEFSPEC (FFEINTRIN_specIMAX0, "IMAX0", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIMAX1, "IMAX1", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIMIN0, "IMIN0", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIMIN1, "IMIN1", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIMOD, "IMOD", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specININT, "ININT", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specINOT, "INOT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specIOR, "IOR", FALSE, FFEINTRIN_familyMIL, FFEINTRIN_impIOR ) DEFSPEC (FFEINTRIN_specISHFT, "ISHFT", FALSE, FFEINTRIN_familyMIL, FFEINTRIN_impISHFT ) DEFSPEC (FFEINTRIN_specISHFTC, "ISHFTC", FALSE, FFEINTRIN_familyMIL, FFEINTRIN_impISHFTC ) DEFSPEC (FFEINTRIN_specIZEXT, "IZEXT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specJIABS, "JIABS", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impIABS ) DEFSPEC (FFEINTRIN_specJIAND, "JIAND", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impIAND ) DEFSPEC (FFEINTRIN_specJIBCLR, "JIBCLR", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impIBCLR ) DEFSPEC (FFEINTRIN_specJIBITS, "JIBITS", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impIBITS ) DEFSPEC (FFEINTRIN_specJIBSET, "JIBSET", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impIBSET ) DEFSPEC (FFEINTRIN_specJIDIM, "JIDIM", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impIDIM ) DEFSPEC (FFEINTRIN_specJIDINT, "JIDINT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impINT ) DEFSPEC (FFEINTRIN_specJIDNNT, "JIDNNT", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impIDNINT ) DEFSPEC (FFEINTRIN_specJIEOR, "JIEOR", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impIEOR ) DEFSPEC (FFEINTRIN_specJIFIX, "JIFIX", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impINT ) DEFSPEC (FFEINTRIN_specJINT, "JINT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impINT ) DEFSPEC (FFEINTRIN_specJIOR, "JIOR", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impIOR ) DEFSPEC (FFEINTRIN_specJIQINT, "JIQINT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specJIQNNT, "JIQNNT", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specJISHFT, "JISHFT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impISHFT ) DEFSPEC (FFEINTRIN_specJISHFTC, "JISHFTC", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impISHFTC ) DEFSPEC (FFEINTRIN_specJISIGN, "JISIGN", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impISIGN ) DEFSPEC (FFEINTRIN_specJMAX0, "JMAX0", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impMAX0 ) DEFSPEC (FFEINTRIN_specJMAX1, "JMAX1", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impMAX1 ) DEFSPEC (FFEINTRIN_specJMIN0, "JMIN0", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impMIN0 ) DEFSPEC (FFEINTRIN_specJMIN1, "JMIN1", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impMIN1 ) DEFSPEC (FFEINTRIN_specJMOD, "JMOD", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impMOD ) DEFSPEC (FFEINTRIN_specJNINT, "JNINT", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNINT ) DEFSPEC (FFEINTRIN_specJNOT, "JNOT", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNOT ) DEFSPEC (FFEINTRIN_specJZEXT, "JZEXT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specKIND, "KIND", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specLBOUND, "LBOUND", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specLEN_TRIM, "LEN_TRIM", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specLOC, "LOC", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impLOC ) DEFSPEC (FFEINTRIN_specLOGICAL, "LOGICAL", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specLSHIFT, "LSHIFT", FALSE, FFEINTRIN_familyF2C, FFEINTRIN_impLSHIFT ) DEFSPEC (FFEINTRIN_specMATMUL, "MATMUL", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specMAXEXPONENT, "MAXEXPONENT", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specMAXLOC, "MAXLOC", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specMAXVAL, "MAXVAL", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specMERGE, "MERGE", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specMINEXPONENT, "MINEXPONENT", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specMINLOC, "MINLOC", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specMINVAL, "MINVAL", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specMODULO, "MODULO", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specMVBITS, "MVBITS", FALSE, FFEINTRIN_familyMIL, FFEINTRIN_impMVBITS ) DEFSPEC (FFEINTRIN_specNEAREST, "NEAREST", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specNOT, "NOT", FALSE, FFEINTRIN_familyMIL, FFEINTRIN_impNOT ) DEFSPEC (FFEINTRIN_specOR, "OR", FALSE, FFEINTRIN_familyF2C, FFEINTRIN_impIOR ) DEFSPEC (FFEINTRIN_specPACK, "PACK", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specPRECISION, "PRECISION", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specPRESENT, "PRESENT", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specPRODUCT, "PRODUCT", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQABS, "QABS", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQACOS, "QACOS", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQACOSD, "QACOSD", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQASIN, "QASIN", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQASIND, "QASIND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQATAN, "QATAN", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQATAN2, "QATAN2", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQATAN2D, "QATAN2D", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQATAND, "QATAND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQCOS, "QCOS", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQCOSD, "QCOSD", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQCOSH, "QCOSH", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQDIM, "QDIM", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQEXP, "QEXP", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQEXT, "QEXT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQEXTD, "QEXTD", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQFLOAT, "QFLOAT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQINT, "QINT", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQLOG, "QLOG", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQLOG10, "QLOG10", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQMAX1, "QMAX1", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQMIN1, "QMIN1", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQMOD, "QMOD", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQNINT, "QNINT", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQSIGN, "QSIGN", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQSIN, "QSIN", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQSIND, "QSIND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQSINH, "QSINH", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQSQRT, "QSQRT", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQTAN, "QTAN", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQTAND, "QTAND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specQTANH, "QTANH", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specRADIX, "RADIX", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specRANDOM_NUMBER, "RANDOM_NUMBER", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specRANDOM_SEED, "RANDOM_SEED", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specRANGE, "RANGE", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specREPEAT, "REPEAT", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specRESHAPE, "RESHAPE", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specRRSPACING, "RRSPACING", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specRSHIFT, "RSHIFT", FALSE, FFEINTRIN_familyF2C, FFEINTRIN_impRSHIFT ) DEFSPEC (FFEINTRIN_specSCALE, "SCALE", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specSCAN, "SCAN", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specSEL_INT_KIND, "SEL_INT_KIND", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specSEL_REAL_KIND, "SEL_REAL_KIND", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specSET_EXPONENT, "SET_EXPONENT", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specSHAPE, "SHAPE", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specSIGNAL, "SIGNAL", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impSIGNAL ) DEFSPEC (FFEINTRIN_specSIND, "SIND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specSNGLQ, "SNGLQ", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specSPACING, "SPACING", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specSPREAD, "SPREAD", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specSUM, "SUM", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specSYSTEM, "SYSTEM", FALSE, FFEINTRIN_familyF2U, FFEINTRIN_impSYSTEM ) DEFSPEC (FFEINTRIN_specSYSTEM_CLOCK, "SYSTEM_CLOCK", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specTAND, "TAND", TRUE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specTINY, "TINY", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specTRANSFER, "TRANSFER", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specTRANSPOSE, "TRANSPOSE", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specTRIM, "TRIM", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specUBOUND, "UBOUND", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specUNPACK, "UNPACK", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specVERIFY, "VERIFY", FALSE, FFEINTRIN_familyF90, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specXOR, "XOR", FALSE, FFEINTRIN_familyF2C, FFEINTRIN_impIEOR ) DEFSPEC (FFEINTRIN_specZABS, "ZABS", TRUE, FFEINTRIN_familyF2Z, FFEINTRIN_impCDABS ) DEFSPEC (FFEINTRIN_specZCOS, "ZCOS", TRUE, FFEINTRIN_familyF2Z, FFEINTRIN_impCDCOS ) DEFSPEC (FFEINTRIN_specZEXP, "ZEXP", TRUE, FFEINTRIN_familyF2Z, FFEINTRIN_impCDEXP ) DEFSPEC (FFEINTRIN_specZEXT, "ZEXT", FALSE, FFEINTRIN_familyVXT, FFEINTRIN_impNONE ) DEFSPEC (FFEINTRIN_specZLOG, "ZLOG", TRUE, FFEINTRIN_familyF2Z, FFEINTRIN_impCDLOG ) DEFSPEC (FFEINTRIN_specZSIN, "ZSIN", TRUE, FFEINTRIN_familyF2Z, FFEINTRIN_impCDSIN ) DEFSPEC (FFEINTRIN_specZSQRT, "ZSQRT", TRUE, FFEINTRIN_familyF2Z, FFEINTRIN_impCDSQRT ) DEFSPEC (FFEINTRIN_specNONE, "none", FALSE, FFEINTRIN_familyNONE, FFEINTRIN_impNONE ) /* Intrinsic implementations ordered in two sections: F77, then extensions; secondarily, alphabetical ordering. This list corresponds to actual implementations of specific intrinsics, so there is no redundancy -- e.g. instead of FLOAT and REAL, there is only _REAL_I. We use this non- redundancy when determining which specific intrinsic is meant by a generic -- REAL(I) can match either specific REAL or FLOAT, but rather than complain about that, we see that the implementations are the same. This approach should allow lots of extensions in the form of possibly conflicting intrinsic sets with complaints arising only when those sets are enabled and the potentially conflicting intrinsics are actually referenced. DEFIMQ defines an implementation that, while it might be implemented differently at run time, is implemented by the same code at compile time, and that code handles checking various possible inputs. So, no need to complain about ambiguity if two different-typed intrinsic run-time implementations have the same compile-time implementation, as long as there's a straightforward way of determining which was meant (done by ffeintrin_fulfill_generic). */ /* The control string has the following format: ::[,...] is: is: - Subroutine A Character C Complex I Integer L Logical R Real B Boolean (I or L), decided by co-operand list (COL) F Floating-point (C or R), decided by COL N Numeric (C, I, or R), decided by co-operand list (COL) S Scalar numeric (I or R), decided by COL, which may be COMPLEX is: - Subroutine 0 Decided by COL 1 (Default) 2 (COMPLEX*16, INTEGER*1, LOGICAL*1, REAL*8) 3 (INTEGER*2, LOGICAL*2) C Like 1 (F77), except (F90), if COL is COMPLEX, uses kind type of COL is: is: - No COL * All arguments form COL 1 Argument 1 forms COL is: =[][] is the standard keyword name for the argument. is: ? Argument is optional ! Like ?, but argument must be omitted if previous arg was COMPLEX + One or more of these arguments must be specified * Zero or more of these arguments may be specified n Numbered names for arguments, one or more may be specified p Like n, but two or more may be specified is: - Any is valid (but see arg-kind-type) A Character C Complex I Integer L Logical R Real B Boolean (I or L) F Floating-point (C or R) N Numeric (C, I, or R) S Scalar numeric (I or R; C mapped to R) is: 0 Any is valid 1 (Default) 2 (COMPLEX*16, INTEGER*1, LOGICAL*1, REAL*8) 3 (INTEGER*2, LOGICAL*2) A Same as first argument g GOTO label (alternate-return form of CALL) s Signal handler (INTEGER FUNCTION, SUBROUTINE or dummy/global default INTEGER variable) (arg-base-type * only) is: (default) Arg is (scalar) variable or constant & Arg can have its address taken (LOC(), for example) g GOTO label (alternate-return form of CALL) s Signal handler (see ) w Arg is INTENT(OUT) x Arg is INTENT(INOUT) */ DEFIMP (ABS, "ABS", ABS, "S0:*:A=N0") DEFIMP (ACOS, "ACOS", ACOS, "R0:*:X=R0") DEFIMP (AIMAG, "AIMAG", AIMAG, "R0:*:Z=C0") DEFIMP (AINT, "AINT", AINT, "R0:*:A=R0") DEFIMQ (ALOG, "ALOG", ALOG, "R1:-:X=R1", LOG) DEFIMQ (ALOG10, "ALOG10", ALOG10, "R1:-:X=R1", LOG10) DEFIMQ (AMAX0, "AMAX0", , "R1:*:A=pI1", MAX) DEFIMQ (AMAX1, "AMAX1", , "R1:*:A=pR1", MAX) DEFIMQ (AMIN0, "AMIN0", , "R1:*:A=pI1", MIN) DEFIMQ (AMIN1, "AMIN1", , "R1:*:A=pR1", MIN) DEFIMQ (AMOD, "AMOD", AMOD, "R1:*:A=R1,P=R1", MOD) DEFIMP (ANINT, "ANINT", ANINT, "R0:*:A=R0") DEFIMP (ASIN, "ASIN", ASIN, "R0:*:X=R0") DEFIMP (ATAN, "ATAN", ATAN, "R0:*:X=R0") DEFIMP (ATAN2, "ATAN2", ATAN2, "R0:*:Y=R0,X=R0") DEFIMQ (CABS, "CABS", CABS, "R1:-:A=C1", ABS) DEFIMQ (CCOS, "CCOS", CCOS, "C1:-:X=C1", COS) DEFIMQ (CEXP, "CEXP", CEXP, "C1:-:X=C1", EXP) DEFIMP (CHAR, "CHAR", , "A1:-:I=I0") DEFIMQ (CLOG, "CLOG", CLOG, "C1:-:X=C1", LOG) DEFIMP (CMPLX, "CMPLX", , "C1:*:X=N0,Y=!S0") DEFIMP (CONJG, "CONJG", CONJG, "C0:*:Z=C0") DEFIMP (COS, "COS", COS, "F0:*:X=F0") DEFIMP (COSH, "COSH", COSH, "R0:*:X=R0") DEFIMQ (CSIN, "CSIN", CSIN, "C1:-:X=C1", SIN) DEFIMQ (CSQRT, "CSQRT", CSQRT, "C1:-:X=C1", SQRT) DEFIMQ (DABS, "DABS", DABS, "R2:-:A=R2", ABS) DEFIMQ (DACOS, "DACOS", DACOS, "R2:-:X=R2", ACOS) DEFIMQ (DASIN, "DASIN", DASIN, "R2:-:X=R2", ASIN) DEFIMQ (DATAN, "DATAN", DATAN, "R2:-:X=R2", ATAN) DEFIMQ (DATAN2, "DATAN2", DATAN2, "R2:*:Y=R2,X=R2", ATAN2) DEFIMP (DBLE, "DBLE", , "R2:-:A=N0") DEFIMQ (DCMPLX, "DCMPLX", , "C2:*:X=N0,Y=!S0", CMPLX) DEFIMQ (DCOS, "DCOS", DCOS, "R2:-:X=R2", COS) DEFIMQ (DCOSH, "DCOSH", DCOSH, "R2:-:X=R2", COSH) DEFIMQ (DDIM, "DDIM", DDIM, "R2:*:X=R2,Y=R2", DIM) DEFIMQ (DEXP, "DEXP", DEXP, "R2:-:X=R2", EXP) DEFIMP (DIM, "DIM", DIM, "S0:*:X=S0,Y=S0") DEFIMQ (DINT, "DINT", DINT, "R2:-:A=R2", AINT) DEFIMQ (DLOG, "DLOG", DLOG, "R2:-:X=R2", LOG) DEFIMQ (DLOG10, "DLOG10", DLOG10, "R2:-:X=R2", LOG10) DEFIMQ (DMAX1, "DMAX1", , "R2:*:A=pR2", MAX) DEFIMQ (DMIN1, "DMIN1", , "R2:*:A=pR2", MIN) DEFIMQ (DMOD, "DMOD", DMOD, "R2:*:A=R2,P=R2", MOD) DEFIMQ (DNINT, "DNINT", DNINT, "R2:-:A=R2", ANINT) DEFIMP (DPROD, "DPROD", DPROD, "R2:*:X=R1,Y=R1") DEFIMQ (DSIGN, "DSIGN", DSIGN, "R2:*:A=R2,B=R2", SIGN) DEFIMQ (DSIN, "DSIN", DSIN, "R2:-:X=R2", SIN) DEFIMQ (DSINH, "DSINH", DSINH, "R2:-:X=R2", SINH) DEFIMQ (DSQRT, "DSQRT", DSQRT, "R2:-:X=R2", SQRT) DEFIMQ (DTAN, "DTAN", DTAN, "R2:-:X=R2", TAN) DEFIMQ (DTANH, "DTANH", DTANH, "R2:-:X=R2", TANH) DEFIMP (EXP, "EXP", EXP, "F0:*:X=F0") DEFIMQ (IABS, "IABS", IABS, "I1:-:A=I1", ABS) DEFIMP (ICHAR, "ICHAR", , "I1:-:C=A0") DEFIMQ (IDIM, "IDIM", IDIM, "I1:*:X=I1,Y=I1", DIM) DEFIMQ (IDNINT, "IDNINT", IDNINT, "I1:-:A=R2", NINT) DEFIMP (INDEX, "INDEX", INDEX, "I1:*:String=A0,Substring=A0") DEFIMP (INT, "INT", , "I1:-:A=N0") DEFIMQ (ISIGN, "ISIGN", ISIGN, "I1:*:A=I1,B=I1", SIGN) DEFIMP (LEN, "LEN", LEN, "I1:-:String=A0") DEFIMP (LGE, "LGE", LGE, "L1:*:String_A=A1,String_B=A1") DEFIMP (LGT, "LGT", LGT, "L1:*:String_A=A1,String_B=A1") DEFIMP (LLE, "LLE", LLE, "L1:*:String_A=A1,String_B=A1") DEFIMP (LLT, "LLT", LLT, "L1:*:String_A=A1,String_B=A1") DEFIMP (LOG, "LOG", , "F0:*:X=F0") DEFIMP (LOG10, "LOG10", , "R0:*:X=R0") DEFIMP (MAX, "MAX", , "S0:*:A=pS0") DEFIMP (MIN, "MIN", , "S0:*:A=pS0") DEFIMQ (MAX0, "MAX0", , "I1:*:A=pI1", MAX) DEFIMQ (MAX1, "MAX1", , "I1:*:A=pR1", MAX) DEFIMQ (MIN0, "MIN0", , "I1:*:A=pI1", MIN) DEFIMQ (MIN1, "MIN1", , "I1:*:A=pR1", MIN) DEFIMP (MOD, "MOD", MOD, "S0:*:A=S0,P=S0") DEFIMP (NINT, "NINT", NINT, "I1:-:A=R0") DEFIMP (REAL, "REAL", , "RC:*:A=N0") DEFIMP (SIGN, "SIGN", SIGN, "S0:*:A=S0,B=S0") DEFIMP (SIN, "SIN", SIN, "F0:*:X=F0") DEFIMP (SINH, "SINH", SINH, "R0:*:X=R0") DEFIMP (SQRT, "SQRT", SQRT, "F0:*:X=F0") DEFIMP (TAN, "TAN", TAN, "R0:*:X=R0") DEFIMP (TANH, "TANH", TANH, "R0:*:X=R0") DEFIMP (ABORT, "ABORT", ABORT, "--:-:") DEFIMP (ACHAR, "ACHAR", , "A1:-:I=I0") DEFIMP (AND, "AND", , "B0:*:I=B0,J=B0") DEFIMP (BIT_SIZE, "BIT_SIZE", , "I0:*:I=I0") DEFIMP (BTEST, "BTEST", , "L1:*:I=I0,Pos=I0") DEFIMQ (CDABS, "CDABS", CDABS, "R2:-:A=C2", ABS) DEFIMQ (CDCOS, "CDCOS", CDCOS, "C2:-:X=C2", COS) DEFIMQ (CDEXP, "CDEXP", CDEXP, "C2:-:X=C2", EXP) DEFIMQ (CDLOG, "CDLOG", CDLOG, "C2:-:X=C2", LOG) DEFIMQ (CDSIN, "CDSIN", CDSIN, "C2:-:X=C2", SIN) DEFIMQ (CDSQRT, "CDSQRT", CDSQRT, "C2:-:X=C2", SQRT) DEFIMQ (DCONJG, "DCONJG", DCONJG, "C2:-:Z=C2", CONJG) DEFIMQ (DERF, "DERF", DERF, "R2:-:X=R2", ERF) DEFIMQ (DERFC, "DERFC", DERFC, "R2:-:X=R2", ERFC) DEFIMQ (DIMAG, "DIMAG", DIMAG, "R2:-:Z=C2", AIMAG) DEFIMP (ERF, "ERF", ERF, "R0:-:X=R0") DEFIMP (ERFC, "ERFC", ERFC, "R0:-:X=R0") DEFIMP (EXIT, "EXIT", EXIT, "--:-:Status=?I0") DEFIMP (FLUSH, "FLUSH", FLUSH, "--:-:Unit=?I0") DEFIMP (FSEEK, "FSEEK", FSEEK, "--:-:Unit=I0,Offset=I0,Whence=I0,ErrLab=?-gg") DEFIMP (FTELL, "FTELL", FTELL, "I1:-:Unit=?I0") DEFIMP (GETARG, "GETARG", GETARG, "--:-:Pos=I0,Value=A1w") DEFIMP (GETENV, "GETENV", GETENV, "--:-:Name=A1,Value=A1w") DEFIMP (IACHAR, "IACHAR", , "I1:-:C=A0") DEFIMP (IAND, "IAND", , "I0:*:I=I0,J=I0") DEFIMP (IARGC, "IARGC", IARGC, "I1:-:") DEFIMP (IBCLR, "IBCLR", , "I0:1:I=I0,Pos=I0") DEFIMP (IBITS, "IBITS", , "I0:1:I=I0,Pos=I0,Len=I0") DEFIMP (IBSET, "IBSET", , "I0:1:I=I0,Pos=I0") DEFIMP (IEOR, "IEOR", , "I0:*:I=I0,J=I0") DEFIMP (IOR, "IOR", , "I0:*:I=I0,J=I0") DEFIMP (ISHFT, "ISHFT", , "I0:1:I=I0,Shift=I0") DEFIMP (ISHFTC, "ISHFTC", , "I0:1:I=I0,Shift=I0,Size=I0") DEFIMP (LOC, "LOC", , "I1:-:Variable=-0&") DEFIMP (LSHIFT, "LSHIFT", , "I0:1:I=I0,Shift=I0") DEFIMP (MVBITS, "MVBITS", , "--:-:From=I0,FromPos=I0,Len=I0,TO=IAx,ToPos=I0") DEFIMP (NOT, "NOT", , "I0:*:I=I0") DEFIMP (OR, "OR", , "B0:*:I=B0,J=B0") DEFIMP (RSHIFT, "RSHIFT", , "I0:1:I=I0,Shift=I0") DEFIMP (SIGNAL, "SIGNAL", , "--:-:Number=I0,Handler=-ss") DEFIMP (SYSTEM, "SYSTEM", , "--:-:Command=A1,Status=?I1") DEFIMP (XOR, "XOR", , "B0:*:I=B0,J=B0") DEFIMP (NONE, "none", , "")