1 /* intrin.def -- Public #include File (module.h template V1.0)
2 The Free Software Foundation has released this file into the
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. */
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 */
395 /* Internally generic intrinsics.
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. */
403 DEFGEN (CTIME, "CTIME", /* UNIX */
404 FFEINTRIN_specCTIME_subr,
405 FFEINTRIN_specCTIME_func
407 DEFGEN (CHDIR, "CHDIR", /* UNIX */
408 FFEINTRIN_specCHDIR_subr,
409 FFEINTRIN_specCHDIR_func
411 DEFGEN (CHMOD, "CHMOD", /* UNIX */
412 FFEINTRIN_specCHMOD_subr,
413 FFEINTRIN_specCHMOD_func
415 DEFGEN (DTIME, "DTIME", /* UNIX */
416 FFEINTRIN_specDTIME_subr,
417 FFEINTRIN_specDTIME_func
419 DEFGEN (ETIME, "ETIME", /* UNIX */
420 FFEINTRIN_specETIME_subr,
421 FFEINTRIN_specETIME_func
423 DEFGEN (FDATE, "FDATE", /* UNIX */
424 FFEINTRIN_specFDATE_subr,
425 FFEINTRIN_specFDATE_func
427 DEFGEN (FGET, "FGET", /* UNIX */
428 FFEINTRIN_specFGET_subr,
429 FFEINTRIN_specFGET_func
431 DEFGEN (FGETC, "FGETC", /* UNIX */
432 FFEINTRIN_specFGETC_subr,
433 FFEINTRIN_specFGETC_func
435 DEFGEN (FPABSP, "FPABSP", /* F2C */
439 DEFGEN (FPEXPN, "FPEXPN", /* F2C */
443 DEFGEN (FPFRAC, "FPFRAC", /* F2C */
447 DEFGEN (FPMAKE, "FPMAKE", /* F2C */
451 DEFGEN (FPRRSP, "FPRRSP", /* F2C */
455 DEFGEN (FPSCAL, "FPSCAL", /* F2C */
459 DEFGEN (FPUT, "FPUT", /* UNIX */
460 FFEINTRIN_specFPUT_subr,
461 FFEINTRIN_specFPUT_func
463 DEFGEN (FPUTC, "FPUTC", /* UNIX */
464 FFEINTRIN_specFPUTC_subr,
465 FFEINTRIN_specFPUTC_func
467 DEFGEN (FSTAT, "FSTAT", /* UNIX */
468 FFEINTRIN_specFSTAT_subr,
469 FFEINTRIN_specFSTAT_func
471 DEFGEN (FTELL, "FTELL", /* UNIX */
472 FFEINTRIN_specFTELL_subr,
473 FFEINTRIN_specFTELL_func
475 DEFGEN (GETCWD, "GETCWD", /* UNIX */
476 FFEINTRIN_specGETCWD_subr,
477 FFEINTRIN_specGETCWD_func
479 DEFGEN (HOSTNM, "HOSTNM", /* UNIX */
480 FFEINTRIN_specHOSTNM_subr,
481 FFEINTRIN_specHOSTNM_func
483 DEFGEN (IDATE, "IDATE", /* UNIX/VXT */
484 FFEINTRIN_specIDATE_unix,
485 FFEINTRIN_specIDATE_vxt
487 DEFGEN (KILL, "KILL", /* UNIX */
488 FFEINTRIN_specKILL_subr,
489 FFEINTRIN_specKILL_func
491 DEFGEN (LINK, "LINK", /* UNIX */
492 FFEINTRIN_specLINK_subr,
493 FFEINTRIN_specLINK_func
495 DEFGEN (LSTAT, "LSTAT", /* UNIX */
496 FFEINTRIN_specLSTAT_subr,
497 FFEINTRIN_specLSTAT_func
499 DEFGEN (RENAME, "RENAME", /* UNIX */
500 FFEINTRIN_specRENAME_subr,
501 FFEINTRIN_specRENAME_func
503 DEFGEN (SECOND, "SECOND", /* UNIX/CRAY */
504 FFEINTRIN_specSECOND_func,
505 FFEINTRIN_specSECOND_subr
507 DEFGEN (SIGNAL, "SIGNAL", /* UNIX */
508 FFEINTRIN_specSIGNAL_subr,
509 FFEINTRIN_specSIGNAL_func
511 DEFGEN (STAT, "STAT", /* UNIX */
512 FFEINTRIN_specSTAT_subr,
513 FFEINTRIN_specSTAT_func
515 DEFGEN (SYMLNK, "SYMLNK", /* UNIX */
516 FFEINTRIN_specSYMLNK_subr,
517 FFEINTRIN_specSYMLNK_func
519 DEFGEN (SYSTEM, "SYSTEM", /* UNIX */
520 FFEINTRIN_specSYSTEM_subr,
521 FFEINTRIN_specSYSTEM_func
523 DEFGEN (TIME, "TIME", /* UNIX/VXT */
524 FFEINTRIN_specTIME_unix,
525 FFEINTRIN_specTIME_vxt
527 DEFGEN (TTYNAM, "TTYNAM", /* UNIX/VXT */
528 FFEINTRIN_specTTYNAM_subr,
529 FFEINTRIN_specTTYNAM_func
531 DEFGEN (UMASK, "UMASK", /* UNIX */
532 FFEINTRIN_specUMASK_subr,
533 FFEINTRIN_specUMASK_func
535 DEFGEN (UNLINK, "UNLINK", /* UNIX */
536 FFEINTRIN_specUNLINK_subr,
537 FFEINTRIN_specUNLINK_func
539 DEFGEN (NONE, "none",
544 /* Specific intrinsic information.
546 Currently this list starts with the list of F77-standard intrinsics
547 in alphabetical order, then continues with the list of all other
550 The second boolean argument specifies whether the intrinsic is
551 allowed by the standard to be passed as an actual argument. */
1000 FFEINTRIN_familyF77,
1006 FFEINTRIN_familyF77,
1012 FFEINTRIN_familyF77,
1018 FFEINTRIN_familyF77,
1024 FFEINTRIN_familyF77,
1030 FFEINTRIN_familyF77,
1036 FFEINTRIN_familyF77,
1042 FFEINTRIN_familyF77,
1048 FFEINTRIN_familyF77,
1054 FFEINTRIN_familyF77,
1060 FFEINTRIN_familyF77,
1067 FFEINTRIN_familyF2U,
1073 FFEINTRIN_familyF2U,
1079 FFEINTRIN_familyASC,
1085 FFEINTRIN_familyVXT,
1091 FFEINTRIN_familyF90,
1097 FFEINTRIN_familyF90,
1103 FFEINTRIN_familyVXT,
1109 FFEINTRIN_familyVXT,
1115 FFEINTRIN_familyVXT,
1121 FFEINTRIN_familyVXT,
1127 FFEINTRIN_familyF2U,
1133 FFEINTRIN_familyF90,
1139 FFEINTRIN_familyF90,
1145 FFEINTRIN_familyF2C,
1151 FFEINTRIN_familyF90,
1157 FFEINTRIN_familyVXT,
1160 DEFSPEC (ASSOCIATED,
1163 FFEINTRIN_familyF90,
1169 FFEINTRIN_familyVXT,
1175 FFEINTRIN_familyVXT,
1181 FFEINTRIN_familyF2U,
1187 FFEINTRIN_familyF2U,
1193 FFEINTRIN_familyF2U,
1199 FFEINTRIN_familyF2U,
1205 FFEINTRIN_familyF2U,
1211 FFEINTRIN_familyF2U,
1217 FFEINTRIN_familyF90,
1218 FFEINTRIN_impBIT_SIZE
1223 FFEINTRIN_familyVXT,
1229 FFEINTRIN_familyVXT,
1235 FFEINTRIN_familyMIL,
1241 FFEINTRIN_familyFVZ,
1247 FFEINTRIN_familyFVZ,
1253 FFEINTRIN_familyFVZ,
1259 FFEINTRIN_familyFVZ,
1265 FFEINTRIN_familyFVZ,
1271 FFEINTRIN_familyFVZ,
1277 FFEINTRIN_familyF90,
1280 DEFSPEC (CHDIR_func,
1283 FFEINTRIN_familyBADU77,
1284 FFEINTRIN_impCHDIR_func
1286 DEFSPEC (CHDIR_subr,
1289 FFEINTRIN_familyF2U,
1290 FFEINTRIN_impCHDIR_subr
1292 DEFSPEC (CHMOD_func,
1295 FFEINTRIN_familyBADU77,
1296 FFEINTRIN_impCHMOD_func
1298 DEFSPEC (CHMOD_subr,
1301 FFEINTRIN_familyF2U,
1302 FFEINTRIN_impCHMOD_subr
1307 FFEINTRIN_familyGNU,
1308 FFEINTRIN_impCOMPLEX
1313 FFEINTRIN_familyVXT,
1319 FFEINTRIN_familyF90,
1325 FFEINTRIN_familyF90,
1331 FFEINTRIN_familyF95,
1332 FFEINTRIN_impCPU_TIME
1334 DEFSPEC (CTIME_func,
1337 FFEINTRIN_familyF2U,
1338 FFEINTRIN_impCTIME_func
1340 DEFSPEC (CTIME_subr,
1343 FFEINTRIN_familyF2U,
1344 FFEINTRIN_impCTIME_subr
1349 FFEINTRIN_familyVXT,
1355 FFEINTRIN_familyVXT,
1361 FFEINTRIN_familyVXT,
1367 FFEINTRIN_familyVXT,
1373 FFEINTRIN_familyVXT,
1376 DEFSPEC (DATE_AND_TIME,
1379 FFEINTRIN_familyF90,
1380 FFEINTRIN_impDATE_AND_TIME
1385 FFEINTRIN_familyF2U,
1391 FFEINTRIN_familyF2U,
1397 FFEINTRIN_familyF2U,
1403 FFEINTRIN_familyF2U,
1409 FFEINTRIN_familyF2U,
1415 FFEINTRIN_familyF2U,
1421 FFEINTRIN_familyVXT,
1427 FFEINTRIN_familyFVZ,
1433 FFEINTRIN_familyFVZ,
1439 FFEINTRIN_familyVXT,
1445 FFEINTRIN_familyF2U,
1451 FFEINTRIN_familyF2U,
1457 FFEINTRIN_familyFVZ,
1463 FFEINTRIN_familyVXT,
1469 FFEINTRIN_familyVXT,
1475 FFEINTRIN_familyF90,
1481 FFEINTRIN_familyFVZ,
1484 DEFSPEC (DOT_PRODUCT,
1487 FFEINTRIN_familyF90,
1493 FFEINTRIN_familyVXT,
1499 FFEINTRIN_familyVXT,
1505 FFEINTRIN_familyVXT,
1508 DEFSPEC (DTIME_func,
1511 FFEINTRIN_familyBADU77,
1512 FFEINTRIN_impDTIME_func
1514 DEFSPEC (DTIME_subr,
1517 FFEINTRIN_familyF2U,
1518 FFEINTRIN_impDTIME_subr
1523 FFEINTRIN_familyF90,
1529 FFEINTRIN_familyF90,
1535 FFEINTRIN_familyF2U,
1541 FFEINTRIN_familyF2U,
1544 DEFSPEC (ETIME_func,
1547 FFEINTRIN_familyF2U,
1548 FFEINTRIN_impETIME_func
1550 DEFSPEC (ETIME_subr,
1553 FFEINTRIN_familyF2U,
1554 FFEINTRIN_impETIME_subr
1559 FFEINTRIN_familyF2U,
1565 FFEINTRIN_familyF90,
1568 DEFSPEC (FDATE_func,
1571 FFEINTRIN_familyF2U,
1572 FFEINTRIN_impFDATE_func
1574 DEFSPEC (FDATE_subr,
1577 FFEINTRIN_familyF2U,
1578 FFEINTRIN_impFDATE_subr
1583 FFEINTRIN_familyBADU77,
1584 FFEINTRIN_impFGET_func
1589 FFEINTRIN_familyF2U,
1590 FFEINTRIN_impFGET_subr
1592 DEFSPEC (FGETC_func,
1595 FFEINTRIN_familyBADU77,
1596 FFEINTRIN_impFGETC_func
1598 DEFSPEC (FGETC_subr,
1601 FFEINTRIN_familyF2U,
1602 FFEINTRIN_impFGETC_subr
1607 FFEINTRIN_familyVXT,
1613 FFEINTRIN_familyVXT,
1619 FFEINTRIN_familyF90,
1625 FFEINTRIN_familyF2U,
1631 FFEINTRIN_familyF2U,
1637 FFEINTRIN_familyBADU77,
1638 FFEINTRIN_impFPUT_func
1643 FFEINTRIN_familyF2U,
1644 FFEINTRIN_impFPUT_subr
1646 DEFSPEC (FPUTC_func,
1649 FFEINTRIN_familyBADU77,
1650 FFEINTRIN_impFPUTC_func
1652 DEFSPEC (FPUTC_subr,
1655 FFEINTRIN_familyF2U,
1656 FFEINTRIN_impFPUTC_subr
1661 FFEINTRIN_familyF90,
1667 FFEINTRIN_familyF2U,
1670 DEFSPEC (FSTAT_func,
1673 FFEINTRIN_familyF2U,
1674 FFEINTRIN_impFSTAT_func
1676 DEFSPEC (FSTAT_subr,
1679 FFEINTRIN_familyF2U,
1680 FFEINTRIN_impFSTAT_subr
1682 DEFSPEC (FTELL_func,
1685 FFEINTRIN_familyF2U,
1686 FFEINTRIN_impFTELL_func
1688 DEFSPEC (FTELL_subr,
1691 FFEINTRIN_familyF2U,
1692 FFEINTRIN_impFTELL_subr
1697 FFEINTRIN_familyF2U,
1703 FFEINTRIN_familyF2U,
1706 DEFSPEC (GETCWD_func,
1709 FFEINTRIN_familyF2U,
1710 FFEINTRIN_impGETCWD_func
1712 DEFSPEC (GETCWD_subr,
1715 FFEINTRIN_familyF2U,
1716 FFEINTRIN_impGETCWD_subr
1721 FFEINTRIN_familyF2U,
1727 FFEINTRIN_familyF2U,
1733 FFEINTRIN_familyF2U,
1739 FFEINTRIN_familyF2U,
1745 FFEINTRIN_familyF2U,
1751 FFEINTRIN_familyF2U,
1754 DEFSPEC (HOSTNM_func,
1757 FFEINTRIN_familyF2U,
1758 FFEINTRIN_impHOSTNM_func
1760 DEFSPEC (HOSTNM_subr,
1763 FFEINTRIN_familyF2U,
1764 FFEINTRIN_impHOSTNM_subr
1769 FFEINTRIN_familyF90,
1775 FFEINTRIN_familyASC,
1781 FFEINTRIN_familyMIL,
1787 FFEINTRIN_familyF2U,
1793 FFEINTRIN_familyMIL,
1799 FFEINTRIN_familyMIL,
1805 FFEINTRIN_familyMIL,
1808 DEFSPEC (IDATE_unix,
1811 FFEINTRIN_familyF2U,
1812 FFEINTRIN_impIDATE_unix
1817 FFEINTRIN_familyVXT,
1818 FFEINTRIN_impIDATE_vxt
1823 FFEINTRIN_familyMIL,
1829 FFEINTRIN_familyF2U,
1835 FFEINTRIN_familyVXT,
1841 FFEINTRIN_familyVXT,
1847 FFEINTRIN_familyVXT,
1853 FFEINTRIN_familyVXT,
1859 FFEINTRIN_familyVXT,
1865 FFEINTRIN_familyVXT,
1871 FFEINTRIN_familyVXT,
1877 FFEINTRIN_familyVXT,
1883 FFEINTRIN_familyVXT,
1889 FFEINTRIN_familyVXT,
1895 FFEINTRIN_familyVXT,
1901 FFEINTRIN_familyVXT,
1907 FFEINTRIN_familyVXT,
1913 FFEINTRIN_familyVXT,
1919 FFEINTRIN_familyVXT,
1925 FFEINTRIN_familyVXT,
1931 FFEINTRIN_familyVXT,
1937 FFEINTRIN_familyF2C,
1938 FFEINTRIN_impIMAGPART
1943 FFEINTRIN_familyGNU,
1944 FFEINTRIN_impIMAGPART
1949 FFEINTRIN_familyVXT,
1955 FFEINTRIN_familyVXT,
1961 FFEINTRIN_familyVXT,
1967 FFEINTRIN_familyVXT,
1973 FFEINTRIN_familyVXT,
1979 FFEINTRIN_familyVXT,
1985 FFEINTRIN_familyVXT,
1991 FFEINTRIN_familyGNU,
1997 FFEINTRIN_familyGNU,
2003 FFEINTRIN_familyMIL,
2009 FFEINTRIN_familyF2U,
2015 FFEINTRIN_familyF2U,
2021 FFEINTRIN_familyMIL,
2027 FFEINTRIN_familyMIL,
2033 FFEINTRIN_familyF2U,
2039 FFEINTRIN_familyVXT,
2045 FFEINTRIN_familyVXT,
2051 FFEINTRIN_familyVXT,
2057 FFEINTRIN_familyVXT,
2063 FFEINTRIN_familyVXT,
2069 FFEINTRIN_familyVXT,
2075 FFEINTRIN_familyVXT,
2081 FFEINTRIN_familyVXT,
2087 FFEINTRIN_familyVXT,
2093 FFEINTRIN_familyVXT,
2099 FFEINTRIN_familyVXT,
2105 FFEINTRIN_familyVXT,
2111 FFEINTRIN_familyVXT,
2117 FFEINTRIN_familyVXT,
2123 FFEINTRIN_familyVXT,
2129 FFEINTRIN_familyVXT,
2135 FFEINTRIN_familyVXT,
2141 FFEINTRIN_familyVXT,
2147 FFEINTRIN_familyVXT,
2153 FFEINTRIN_familyVXT,
2159 FFEINTRIN_familyVXT,
2165 FFEINTRIN_familyVXT,
2171 FFEINTRIN_familyVXT,
2177 FFEINTRIN_familyVXT,
2183 FFEINTRIN_familyVXT,
2189 FFEINTRIN_familyVXT,
2195 FFEINTRIN_familyBADU77,
2196 FFEINTRIN_impKILL_func
2201 FFEINTRIN_familyF2U,
2202 FFEINTRIN_impKILL_subr
2207 FFEINTRIN_familyF90,
2213 FFEINTRIN_familyF90,
2219 FFEINTRIN_familyBADU77,
2220 FFEINTRIN_impLINK_func
2225 FFEINTRIN_familyF2U,
2226 FFEINTRIN_impLINK_subr
2231 FFEINTRIN_familyF90,
2237 FFEINTRIN_familyF2U,
2243 FFEINTRIN_familyF2U,
2249 FFEINTRIN_familyF90,
2255 FFEINTRIN_familyF2U,
2261 FFEINTRIN_familyF2C,
2264 DEFSPEC (LSTAT_func,
2267 FFEINTRIN_familyF2U,
2268 FFEINTRIN_impLSTAT_func
2270 DEFSPEC (LSTAT_subr,
2273 FFEINTRIN_familyF2U,
2274 FFEINTRIN_impLSTAT_subr
2279 FFEINTRIN_familyF2U,
2285 FFEINTRIN_familyF90,
2288 DEFSPEC (MAXEXPONENT,
2291 FFEINTRIN_familyF90,
2297 FFEINTRIN_familyF90,
2303 FFEINTRIN_familyF90,
2309 FFEINTRIN_familyF2U,
2315 FFEINTRIN_familyF2U,
2316 FFEINTRIN_impMCLOCK8
2321 FFEINTRIN_familyF90,
2324 DEFSPEC (MINEXPONENT,
2327 FFEINTRIN_familyF90,
2333 FFEINTRIN_familyF90,
2339 FFEINTRIN_familyF90,
2345 FFEINTRIN_familyF90,
2351 FFEINTRIN_familyMIL,
2357 FFEINTRIN_familyF90,
2363 FFEINTRIN_familyMIL,
2369 FFEINTRIN_familyF2C,
2375 FFEINTRIN_familyF90,
2381 FFEINTRIN_familyF2U,
2387 FFEINTRIN_familyF90,
2393 FFEINTRIN_familyF90,
2399 FFEINTRIN_familyF90,
2405 FFEINTRIN_familyVXT,
2411 FFEINTRIN_familyVXT,
2417 FFEINTRIN_familyVXT,
2423 FFEINTRIN_familyVXT,
2429 FFEINTRIN_familyVXT,
2435 FFEINTRIN_familyVXT,
2441 FFEINTRIN_familyVXT,
2447 FFEINTRIN_familyVXT,
2453 FFEINTRIN_familyVXT,
2459 FFEINTRIN_familyVXT,
2465 FFEINTRIN_familyVXT,
2471 FFEINTRIN_familyVXT,
2477 FFEINTRIN_familyVXT,
2483 FFEINTRIN_familyVXT,
2489 FFEINTRIN_familyVXT,
2495 FFEINTRIN_familyVXT,
2501 FFEINTRIN_familyVXT,
2507 FFEINTRIN_familyVXT,
2513 FFEINTRIN_familyVXT,
2519 FFEINTRIN_familyVXT,
2525 FFEINTRIN_familyVXT,
2531 FFEINTRIN_familyVXT,
2537 FFEINTRIN_familyVXT,
2543 FFEINTRIN_familyVXT,
2549 FFEINTRIN_familyVXT,
2555 FFEINTRIN_familyVXT,
2561 FFEINTRIN_familyVXT,
2567 FFEINTRIN_familyVXT,
2573 FFEINTRIN_familyVXT,
2579 FFEINTRIN_familyVXT,
2585 FFEINTRIN_familyVXT,
2591 FFEINTRIN_familyVXT,
2597 FFEINTRIN_familyF90,
2603 FFEINTRIN_familyF2U,
2606 DEFSPEC (RANDOM_NUMBER,
2609 FFEINTRIN_familyF90,
2612 DEFSPEC (RANDOM_SEED,
2615 FFEINTRIN_familyF90,
2621 FFEINTRIN_familyF90,
2627 FFEINTRIN_familyGNU,
2628 FFEINTRIN_impREALPART
2630 DEFSPEC (RENAME_func,
2633 FFEINTRIN_familyBADU77,
2634 FFEINTRIN_impRENAME_func
2636 DEFSPEC (RENAME_subr,
2639 FFEINTRIN_familyF2U,
2640 FFEINTRIN_impRENAME_subr
2645 FFEINTRIN_familyF90,
2651 FFEINTRIN_familyF90,
2657 FFEINTRIN_familyF90,
2663 FFEINTRIN_familyF2C,
2669 FFEINTRIN_familyF90,
2675 FFEINTRIN_familyF90,
2681 FFEINTRIN_familyVXT,
2684 DEFSPEC (SECOND_func,
2687 FFEINTRIN_familyF2U,
2688 FFEINTRIN_impSECOND_func
2690 DEFSPEC (SECOND_subr,
2693 FFEINTRIN_familyF2U,
2694 FFEINTRIN_impSECOND_subr
2696 DEFSPEC (SEL_INT_KIND,
2699 FFEINTRIN_familyF90,
2702 DEFSPEC (SEL_REAL_KIND,
2705 FFEINTRIN_familyF90,
2708 DEFSPEC (SET_EXPONENT,
2711 FFEINTRIN_familyF90,
2717 FFEINTRIN_familyF90,
2723 FFEINTRIN_familyF2U,
2726 DEFSPEC (SIGNAL_func,
2729 FFEINTRIN_familyBADU77,
2730 FFEINTRIN_impSIGNAL_func
2732 DEFSPEC (SIGNAL_subr,
2735 FFEINTRIN_familyF2U,
2736 FFEINTRIN_impSIGNAL_subr
2741 FFEINTRIN_familyVXT,
2747 FFEINTRIN_familyF2U,
2753 FFEINTRIN_familyVXT,
2759 FFEINTRIN_familyF90,
2765 FFEINTRIN_familyF90,
2771 FFEINTRIN_familyF2U,
2777 FFEINTRIN_familyF2U,
2778 FFEINTRIN_impSTAT_func
2783 FFEINTRIN_familyF2U,
2784 FFEINTRIN_impSTAT_subr
2789 FFEINTRIN_familyF90,
2792 DEFSPEC (SYMLNK_func,
2795 FFEINTRIN_familyBADU77,
2796 FFEINTRIN_impSYMLNK_func
2798 DEFSPEC (SYMLNK_subr,
2801 FFEINTRIN_familyF2U,
2802 FFEINTRIN_impSYMLNK_subr
2804 DEFSPEC (SYSTEM_func,
2807 FFEINTRIN_familyBADU77,
2808 FFEINTRIN_impSYSTEM_func
2810 DEFSPEC (SYSTEM_subr,
2813 FFEINTRIN_familyF2U,
2814 FFEINTRIN_impSYSTEM_subr
2816 DEFSPEC (SYSTEM_CLOCK,
2819 FFEINTRIN_familyF90,
2820 FFEINTRIN_impSYSTEM_CLOCK
2825 FFEINTRIN_familyVXT,
2831 FFEINTRIN_familyF2U,
2837 FFEINTRIN_familyF2U,
2838 FFEINTRIN_impTIME_unix
2843 FFEINTRIN_familyVXT,
2844 FFEINTRIN_impTIME_vxt
2849 FFEINTRIN_familyF90,
2855 FFEINTRIN_familyF90,
2861 FFEINTRIN_familyF90,
2867 FFEINTRIN_familyF90,
2870 DEFSPEC (TTYNAM_func,
2873 FFEINTRIN_familyF2U,
2874 FFEINTRIN_impTTYNAM_func
2876 DEFSPEC (TTYNAM_subr,
2879 FFEINTRIN_familyF2U,
2880 FFEINTRIN_impTTYNAM_subr
2885 FFEINTRIN_familyF90,
2888 DEFSPEC (UMASK_func,
2891 FFEINTRIN_familyBADU77,
2892 FFEINTRIN_impUMASK_func
2894 DEFSPEC (UMASK_subr,
2897 FFEINTRIN_familyF2U,
2898 FFEINTRIN_impUMASK_subr
2900 DEFSPEC (UNLINK_func,
2903 FFEINTRIN_familyBADU77,
2904 FFEINTRIN_impUNLINK_func
2906 DEFSPEC (UNLINK_subr,
2909 FFEINTRIN_familyF2U,
2910 FFEINTRIN_impUNLINK_subr
2915 FFEINTRIN_familyF90,
2921 FFEINTRIN_familyF90,
2927 FFEINTRIN_familyF2C,
2933 FFEINTRIN_familyF2C,
2939 FFEINTRIN_familyF2C,
2945 FFEINTRIN_familyF2C,
2951 FFEINTRIN_familyVXT,
2957 FFEINTRIN_familyF2C,
2963 FFEINTRIN_familyF2C,
2969 FFEINTRIN_familyF2C,
2975 FFEINTRIN_familyNONE,
2979 /* Intrinsic implementations ordered in two sections:
2980 F77, then extensions; secondarily, alphabetical
2983 /* The DEFIMP macro specifies the following fields for an intrinsic:
2985 CODE -- The internal name for this intrinsic; `FFEINTRIN_imp'
2986 prepends this to form the `enum' name.
2988 NAME -- The textual name to use when printing information on
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)').
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).
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).
3007 CONTROL -- A control string, described below.
3009 The DEFIMPY macro specifies the above, plus:
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.)
3017 /* The control string has the following format:
3019 <return-type>:<arglist-info>:[<argitem-info>,...]
3023 <return-base-type><return-kind-type>[<return-modifier>]
3025 <return-base-type> is:
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
3038 <return-kind-type> is:
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
3050 <return-modifier> is:
3052 * Valid for <return-base-type> of `A' only, means program may
3053 declare any length for return value, default being (*)
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
3067 <name>=[<optionality>]<arg-base-type><arg-kind-type>[<arg-len>][<arg-rank>][<arg-extra>]
3069 <name> is the standard keyword name for the argument.
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
3082 - Any is valid (arg-kind-type is 0)
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)
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
3109 (Default) CHARACTER*(*)
3114 (default) Rank-0 (variable or array element)
3115 (n) Rank-1 array n elements long
3116 & Any (arg-extra is &)
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)
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*")
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", ,,, "")