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 EnumToStr_t(INTRN_F4EXPONENT, "F4EXPONENT"), 00039 EnumToStr_t(INTRN_F8EXPONENT, "F8EXPONENT"), 00040 EnumToStr_t(INTRN_FQEXPONENT, "FQEXPONENT"), 00041 EnumToStr_t(INTRN_F4FRACTION, "F4FRACTION"), 00042 EnumToStr_t(INTRN_F8FRACTION, "F8FRACTION"), 00043 EnumToStr_t(INTRN_FQFRACTION, "FQFRACTION"), 00044 EnumToStr_t(INTRN_F4MODULO, "F4MODULO"), 00045 EnumToStr_t(INTRN_F8MODULO, "F8MODULO"), 00046 EnumToStr_t(INTRN_FQMODULO, "FQMODULO"), 00047 EnumToStr_t(INTRN_F4NEAREST, "F4NEAREST"), 00048 EnumToStr_t(INTRN_F8NEAREST, "F8NEAREST"), 00049 EnumToStr_t(INTRN_FQNEAREST, "FQNEAREST"), 00050 EnumToStr_t(INTRN_F4RRSPACING, "F4RRSPACING"), 00051 EnumToStr_t(INTRN_F8RRSPACING, "F8RRSPACING"), 00052 EnumToStr_t(INTRN_FQRRSPACING, "FQRRSPACING"), 00053 EnumToStr_t(INTRN_F4SCALE, "F4SCALE"), 00054 EnumToStr_t(INTRN_F8SCALE, "F8SCALE"), 00055 EnumToStr_t(INTRN_FQSCALE, "FQSCALE"), 00056 EnumToStr_t(INTRN_F4SET_EXPONENT, "F4SET_EXPONENT"), 00057 EnumToStr_t(INTRN_F8SET_EXPONENT, "F8SET_EXPONENT"), 00058 EnumToStr_t(INTRN_FQSET_EXPONENT, "FQSET_EXPONENT"), 00059 EnumToStr_t(INTRN_F4SPACING, "F4SPACING"), 00060 EnumToStr_t(INTRN_F8SPACING, "F8SPACING"), 00061 EnumToStr_t(INTRN_FQSPACING, "FQSPACING"), 00062 EnumToStr_t(INTRN_F4NEXTAFTER, "F4NEXTAFTER"), 00063 EnumToStr_t(INTRN_F8NEXTAFTER, "F8NEXTAFTER"), 00064 EnumToStr_t(INTRN_FQNEXTAFTER, "FQNEXTAFTER"), 00065 EnumToStr_t(INTRN_F4ISNAN, "F4ISNAN"), 00066 EnumToStr_t(INTRN_F8ISNAN, "F8ISNAN"), 00067 EnumToStr_t(INTRN_FQISNAN, "FQISNAN"), 00068 EnumToStr_t(INTRN_F4SCALB, "F4SCALB"), 00069 EnumToStr_t(INTRN_F8SCALB, "F8SCALB"), 00070 EnumToStr_t(INTRN_FQSCALB, "FQSCALB"), 00071 EnumToStr_t(INTRN_F4IEEE_REMAINDER, "F4IEEE_REMAINDER"), 00072 EnumToStr_t(INTRN_F8IEEE_REMAINDER, "F8IEEE_REMAINDER"), 00073 EnumToStr_t(INTRN_FQIEEE_REMAINDER, "FQIEEE_REMAINDER"), 00074 EnumToStr_t(INTRN_F4LOGB, "F4LOGB"), 00075 EnumToStr_t(INTRN_F8LOGB, "F8LOGB"), 00076 EnumToStr_t(INTRN_FQLOGB, "FQLOGB"), 00077 EnumToStr_t(INTRN_F4ILOGB, "F4ILOGB"), 00078 EnumToStr_t(INTRN_F8ILOGB, "F8ILOGB"), 00079 EnumToStr_t(INTRN_FQILOGB, "FQILOGB"), 00080 EnumToStr_t(INTRN_F4FPCLASS, "F4FPCLASS"), 00081 EnumToStr_t(INTRN_F8FPCLASS, "F8FPCLASS"), 00082 EnumToStr_t(INTRN_FQFPCLASS, "FQFPCLASS"), 00083 EnumToStr_t(INTRN_F4FINITE, "F4FINITE"), 00084 EnumToStr_t(INTRN_F8FINITE, "F8FINITE"), 00085 EnumToStr_t(INTRN_FQFINITE, "FQFINITE"), 00086 EnumToStr_t(INTRN_F4UNORDERED, "F4UNORDERED"), 00087 EnumToStr_t(INTRN_F8UNORDERED, "F8UNORDERED"), 00088 EnumToStr_t(INTRN_FQUNORDERED, "FQUNORDERED"), 00089 EnumToStr_t(INTRN_I1POPCNT, "I1POPCNT"), 00090 EnumToStr_t(INTRN_I2POPCNT, "I2POPCNT"), 00091 EnumToStr_t(INTRN_I4POPCNT, "I4POPCNT"), 00092 EnumToStr_t(INTRN_I8POPCNT, "I8POPCNT"), 00093 EnumToStr_t(INTRN_I1LEADZ, "I1LEADZ"), 00094 EnumToStr_t(INTRN_I2LEADZ, "I2LEADZ"), 00095 EnumToStr_t(INTRN_I4LEADZ, "I4LEADZ"), 00096 EnumToStr_t(INTRN_I8LEADZ, "I8LEADZ"), 00097 EnumToStr_t(INTRN_LENTRIM, "LEN_TRIM"), 00098 EnumToStr_t(INTRN_F90INDEX, "F90INDEX"), 00099 EnumToStr_t(INTRN_SCAN, "SCAN"), 00100 EnumToStr_t(INTRN_VERIFY, "VERIFY"), 00101 EnumToStr_t(INTRN_ADJUSTL, "ADJUSTL"), 00102 EnumToStr_t(INTRN_ADJUSTR, "ADJUSTR"), 00103 EnumToStr_t(INTRN_GET_IEEE_EXCEPTIONS, "GET_IEEE_EXCEPTIONS"), 00104 EnumToStr_t(INTRN_GET_IEEE_INTERRUPTS, "GET_IEEE_INTERRUPTS"), 00105 EnumToStr_t(INTRN_GET_IEEE_ROUNDING_MODE, "GET_IEEE_ROUNDING_MODE"), 00106 EnumToStr_t(INTRN_GET_IEEE_STATUS, "GET_IEEE_STATUS"), 00107 EnumToStr_t(INTRN_SET_IEEE_EXCEPTIONS, "SET_IEEE_EXCEPTIONS"), 00108 EnumToStr_t(INTRN_SET_IEEE_EXCEPTION, "SET_IEEE_EXCEPTION"), 00109 EnumToStr_t(INTRN_SET_IEEE_INTERRUPTS, "SET_IEEE_INTERRUPTS"), 00110 EnumToStr_t(INTRN_SET_IEEE_ROUNDING_MODE, "SET_IEEE_ROUNDING_MODE"), 00111 EnumToStr_t(INTRN_SET_IEEE_STATUS, "SET_IEEE_STATUS"), 00112 EnumToStr_t(INTRN_ENABLE_IEEE_INTERRUPT, "ENABLE_IEEE_INTERRUPT"), 00113 EnumToStr_t(INTRN_DISABLE_IEEE_INTERRUPT, "DISABLE_IEEE_INTERRUPT"), 00114 EnumToStr_t(INTRN_TEST_IEEE_EXCEPTION, "TEST_IEEE_EXCEPTION"), 00115 EnumToStr_t(INTRN_TEST_IEEE_INTERRUPT, "TEST_IEEE_INTERRUPT"), 00116 EnumToStr_t(INTRN_MATMUL, "MATMUL"), 00117 EnumToStr_t(INTRN_SPREAD, "SPREAD"), 00118 EnumToStr_t(INTRN_RESHAPE, "RESHAPE"), 00119 EnumToStr_t(INTRN_TRANSPOSE, "TRANSPOSE"), 00120 EnumToStr_t(INTRN_ALL, "ALL"), 00121 EnumToStr_t(INTRN_ANY, "ANY"), 00122 EnumToStr_t(INTRN_COUNT, "COUNT"), 00123 EnumToStr_t(INTRN_PRODUCT, "PRODUCT"), 00124 EnumToStr_t(INTRN_SUM, "SUM"), 00125 EnumToStr_t(INTRN_EOSHIFT, "EOSHIFT"), 00126 EnumToStr_t(INTRN_MAXVAL, "MAXVAL"), 00127 EnumToStr_t(INTRN_MINVAL, "MINVAL"), 00128 EnumToStr_t(INTRN_MAXLOC, "MAXLOC"), 00129 EnumToStr_t(INTRN_MINLOC, "MINLOC"), 00130 EnumToStr_t(INTRN_CSHIFT, "CSHIFT"), 00131 EnumToStr_t(INTRN_DOT_PRODUCT, "DOT_PRODUCT"), 00132 EnumToStr_t(INTRN_PACK, "PACK"), 00133 EnumToStr_t(INTRN_UNPACK, "UNPACK"), 00134 EnumToStr_t(INTRN_MERGE, "MERGE"), 00135 EnumToStr_t(INTRN_CHAR, "CHAR"),