Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
00001 /* 00002 00003 Copyright (C) 2000, 2001 Silicon Graphics, Inc. All Rights Reserved. 00004 00005 This program is free software; you can redistribute it and/or modify it 00006 under the terms of version 2 of the GNU General Public License as 00007 published by the Free Software Foundation. 00008 00009 This program is distributed in the hope that it would be useful, but 00010 WITHOUT ANY WARRANTY; without even the implied warranty of 00011 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 00012 00013 Further, this software is distributed without any warranty that it is 00014 free of the rightful claim of any third person regarding infringement 00015 or the like. Any license provided herein, whether implied or 00016 otherwise, applies only to this software file. Patent licenses, if 00017 any, provided herein do not apply to combinations of this program with 00018 other software, or any other product whatsoever. 00019 00020 You should have received a copy of the GNU General Public License along 00021 with this program; if not, write the Free Software Foundation, Inc., 59 00022 Temple Place - Suite 330, Boston MA 02111-1307, USA. 00023 00024 Contact information: Silicon Graphics, Inc., 1600 Amphitheatre Pky, 00025 Mountain View, CA 94043, or: 00026 00027 http://www.sgi.com 00028 00029 For further information regarding this notice, see: 00030 00031 http://oss.sgi.com/projects/GenInfo/NoticeExplan 00032 00033 */ 00034 00035 00036 /* This file was automatically generated by f90generate.pl */ 00037 00038 INTRN_F4EXPONENT = INTRN_FIRST_F90_INTRINSIC + 0, 00039 INTRN_F8EXPONENT = INTRN_FIRST_F90_INTRINSIC + 1, 00040 INTRN_FQEXPONENT = INTRN_FIRST_F90_INTRINSIC + 2, 00041 INTRN_F4FRACTION = INTRN_FIRST_F90_INTRINSIC + 3, 00042 INTRN_F8FRACTION = INTRN_FIRST_F90_INTRINSIC + 4, 00043 INTRN_FQFRACTION = INTRN_FIRST_F90_INTRINSIC + 5, 00044 INTRN_F4MODULO = INTRN_FIRST_F90_INTRINSIC + 6, 00045 INTRN_F8MODULO = INTRN_FIRST_F90_INTRINSIC + 7, 00046 INTRN_FQMODULO = INTRN_FIRST_F90_INTRINSIC + 8, 00047 INTRN_F4NEAREST = INTRN_FIRST_F90_INTRINSIC + 9, 00048 INTRN_F8NEAREST = INTRN_FIRST_F90_INTRINSIC + 10, 00049 INTRN_FQNEAREST = INTRN_FIRST_F90_INTRINSIC + 11, 00050 INTRN_F4RRSPACING = INTRN_FIRST_F90_INTRINSIC + 12, 00051 INTRN_F8RRSPACING = INTRN_FIRST_F90_INTRINSIC + 13, 00052 INTRN_FQRRSPACING = INTRN_FIRST_F90_INTRINSIC + 14, 00053 INTRN_F4SCALE = INTRN_FIRST_F90_INTRINSIC + 15, 00054 INTRN_F8SCALE = INTRN_FIRST_F90_INTRINSIC + 16, 00055 INTRN_FQSCALE = INTRN_FIRST_F90_INTRINSIC + 17, 00056 INTRN_F4SET_EXPONENT = INTRN_FIRST_F90_INTRINSIC + 18, 00057 INTRN_F8SET_EXPONENT = INTRN_FIRST_F90_INTRINSIC + 19, 00058 INTRN_FQSET_EXPONENT = INTRN_FIRST_F90_INTRINSIC + 20, 00059 INTRN_F4SPACING = INTRN_FIRST_F90_INTRINSIC + 21, 00060 INTRN_F8SPACING = INTRN_FIRST_F90_INTRINSIC + 22, 00061 INTRN_FQSPACING = INTRN_FIRST_F90_INTRINSIC + 23, 00062 INTRN_F4NEXTAFTER = INTRN_FIRST_F90_INTRINSIC + 24, 00063 INTRN_F8NEXTAFTER = INTRN_FIRST_F90_INTRINSIC + 25, 00064 INTRN_FQNEXTAFTER = INTRN_FIRST_F90_INTRINSIC + 26, 00065 INTRN_F4ISNAN = INTRN_FIRST_F90_INTRINSIC + 27, 00066 INTRN_F8ISNAN = INTRN_FIRST_F90_INTRINSIC + 28, 00067 INTRN_FQISNAN = INTRN_FIRST_F90_INTRINSIC + 29, 00068 INTRN_F4SCALB = INTRN_FIRST_F90_INTRINSIC + 30, 00069 INTRN_F8SCALB = INTRN_FIRST_F90_INTRINSIC + 31, 00070 INTRN_FQSCALB = INTRN_FIRST_F90_INTRINSIC + 32, 00071 INTRN_F4IEEE_REMAINDER = INTRN_FIRST_F90_INTRINSIC + 33, 00072 INTRN_F8IEEE_REMAINDER = INTRN_FIRST_F90_INTRINSIC + 34, 00073 INTRN_FQIEEE_REMAINDER = INTRN_FIRST_F90_INTRINSIC + 35, 00074 INTRN_F4LOGB = INTRN_FIRST_F90_INTRINSIC + 36, 00075 INTRN_F8LOGB = INTRN_FIRST_F90_INTRINSIC + 37, 00076 INTRN_FQLOGB = INTRN_FIRST_F90_INTRINSIC + 38, 00077 INTRN_F4ILOGB = INTRN_FIRST_F90_INTRINSIC + 39, 00078 INTRN_F8ILOGB = INTRN_FIRST_F90_INTRINSIC + 40, 00079 INTRN_FQILOGB = INTRN_FIRST_F90_INTRINSIC + 41, 00080 INTRN_F4FPCLASS = INTRN_FIRST_F90_INTRINSIC + 42, 00081 INTRN_F8FPCLASS = INTRN_FIRST_F90_INTRINSIC + 43, 00082 INTRN_FQFPCLASS = INTRN_FIRST_F90_INTRINSIC + 44, 00083 INTRN_F4FINITE = INTRN_FIRST_F90_INTRINSIC + 45, 00084 INTRN_F8FINITE = INTRN_FIRST_F90_INTRINSIC + 46, 00085 INTRN_FQFINITE = INTRN_FIRST_F90_INTRINSIC + 47, 00086 INTRN_F4UNORDERED = INTRN_FIRST_F90_INTRINSIC + 48, 00087 INTRN_F8UNORDERED = INTRN_FIRST_F90_INTRINSIC + 49, 00088 INTRN_FQUNORDERED = INTRN_FIRST_F90_INTRINSIC + 50, 00089 INTRN_I1POPCNT = INTRN_FIRST_F90_INTRINSIC + 51, 00090 INTRN_I2POPCNT = INTRN_FIRST_F90_INTRINSIC + 52, 00091 INTRN_I4POPCNT = INTRN_FIRST_F90_INTRINSIC + 53, 00092 INTRN_I8POPCNT = INTRN_FIRST_F90_INTRINSIC + 54, 00093 INTRN_I1LEADZ = INTRN_FIRST_F90_INTRINSIC + 55, 00094 INTRN_I2LEADZ = INTRN_FIRST_F90_INTRINSIC + 56, 00095 INTRN_I4LEADZ = INTRN_FIRST_F90_INTRINSIC + 57, 00096 INTRN_I8LEADZ = INTRN_FIRST_F90_INTRINSIC + 58, 00097 INTRN_LENTRIM = INTRN_FIRST_F90_INTRINSIC + 59, 00098 INTRN_F90INDEX = INTRN_FIRST_F90_INTRINSIC + 60, 00099 INTRN_SCAN = INTRN_FIRST_F90_INTRINSIC + 61, 00100 INTRN_VERIFY = INTRN_FIRST_F90_INTRINSIC + 62, 00101 INTRN_ADJUSTL = INTRN_FIRST_F90_INTRINSIC + 63, 00102 INTRN_ADJUSTR = INTRN_FIRST_F90_INTRINSIC + 64, 00103 INTRN_GET_IEEE_EXCEPTIONS = INTRN_FIRST_F90_INTRINSIC + 65, 00104 INTRN_GET_IEEE_INTERRUPTS = INTRN_FIRST_F90_INTRINSIC + 66, 00105 INTRN_GET_IEEE_ROUNDING_MODE = INTRN_FIRST_F90_INTRINSIC + 67, 00106 INTRN_GET_IEEE_STATUS = INTRN_FIRST_F90_INTRINSIC + 68, 00107 INTRN_SET_IEEE_EXCEPTIONS = INTRN_FIRST_F90_INTRINSIC + 69, 00108 INTRN_SET_IEEE_EXCEPTION = INTRN_FIRST_F90_INTRINSIC + 70, 00109 INTRN_SET_IEEE_INTERRUPTS = INTRN_FIRST_F90_INTRINSIC + 71, 00110 INTRN_SET_IEEE_ROUNDING_MODE = INTRN_FIRST_F90_INTRINSIC + 72, 00111 INTRN_SET_IEEE_STATUS = INTRN_FIRST_F90_INTRINSIC + 73, 00112 INTRN_ENABLE_IEEE_INTERRUPT = INTRN_FIRST_F90_INTRINSIC + 74, 00113 INTRN_DISABLE_IEEE_INTERRUPT = INTRN_FIRST_F90_INTRINSIC + 75, 00114 INTRN_TEST_IEEE_EXCEPTION = INTRN_FIRST_F90_INTRINSIC + 76, 00115 INTRN_TEST_IEEE_INTERRUPT = INTRN_FIRST_F90_INTRINSIC + 77, 00116 INTRN_MATMUL = INTRN_FIRST_F90_INTRINSIC + 78, 00117 INTRN_SPREAD = INTRN_FIRST_F90_INTRINSIC + 79, 00118 INTRN_RESHAPE = INTRN_FIRST_F90_INTRINSIC + 80, 00119 INTRN_TRANSPOSE = INTRN_FIRST_F90_INTRINSIC + 81, 00120 INTRN_ALL = INTRN_FIRST_F90_INTRINSIC + 82, 00121 INTRN_ANY = INTRN_FIRST_F90_INTRINSIC + 83, 00122 INTRN_COUNT = INTRN_FIRST_F90_INTRINSIC + 84, 00123 INTRN_PRODUCT = INTRN_FIRST_F90_INTRINSIC + 85, 00124 INTRN_SUM = INTRN_FIRST_F90_INTRINSIC + 86, 00125 INTRN_EOSHIFT = INTRN_FIRST_F90_INTRINSIC + 87, 00126 INTRN_MAXVAL = INTRN_FIRST_F90_INTRINSIC + 88, 00127 INTRN_MINVAL = INTRN_FIRST_F90_INTRINSIC + 89, 00128 INTRN_MAXLOC = INTRN_FIRST_F90_INTRINSIC + 90, 00129 INTRN_MINLOC = INTRN_FIRST_F90_INTRINSIC + 91, 00130 INTRN_CSHIFT = INTRN_FIRST_F90_INTRINSIC + 92, 00131 INTRN_DOT_PRODUCT = INTRN_FIRST_F90_INTRINSIC + 93, 00132 INTRN_PACK = INTRN_FIRST_F90_INTRINSIC + 94, 00133 INTRN_UNPACK = INTRN_FIRST_F90_INTRINSIC + 95, 00134 INTRN_MERGE = INTRN_FIRST_F90_INTRINSIC + 96, 00135 INTRN_CHAR = INTRN_FIRST_F90_INTRINSIC + 97, 00136 00137 INTRN_LAST_F90_INTRINSIC = INTRN_FIRST_F90_INTRINSIC + 97,