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