1 /* 2 * Copyright (c) 1995-2019, NVIDIA CORPORATION. All rights reserved. 3 * 4 * Licensed under the Apache License, Version 2.0 (the "License"); 5 * you may not use this file except in compliance with the License. 6 * You may obtain a copy of the License at 7 * 8 * http://www.apache.org/licenses/LICENSE-2.0 9 * 10 * Unless required by applicable law or agreed to in writing, software 11 * distributed under the License is distributed on an "AS IS" BASIS, 12 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 13 * See the License for the specific language governing permissions and 14 * limitations under the License. 15 * 16 */ 17 18 /** \file 19 * \brief Definitions for FORTRAN edit descriptor symbolics 20 * 21 * If contents are changed, changes must also be applied to the run-time 22 * document file (fio.n) and this file must copied to the io source rte 23 * directory. 24 */ 25 26 #define FED_END -1 27 #define FED_LPAREN -2 28 #define FED_RPAREN -3 29 #define FED_P -4 30 #define FED_STR -5 31 #define FED_T -6 32 #define FED_TL -7 33 #define FED_TR -8 34 #define FED_X -9 35 #define FED_S -10 36 #define FED_SP -11 37 #define FED_SS -12 38 #define FED_BN -13 39 #define FED_BZ -14 40 #define FED_SLASH -15 41 #define FED_COLON -16 42 #define FED_Q -17 43 #define FED_DOLLAR -18 44 #define FED_Aw -19 45 #define FED_Lw -20 46 #define FED_Iw_m -21 47 #define FED_Fw_d -22 48 #define FED_Ee -23 49 #define FED_Ew_d -24 50 #define FED_ENw_d -25 51 #define FED_ESw_d -26 52 #define FED_Gw_d -27 53 #define FED_Dw_d -28 54 #define FED_Ow_m -29 55 #define FED_Zw_m -30 56 #define FED_A -31 57 #define FED_L -32 58 #define FED_I -33 59 #define FED_F -34 60 #define FED_E -35 61 #define FED_G -36 62 #define FED_D -37 63 #define FED_O -38 64 #define FED_Z -39 65 #define FED_KANJI_STRING -40 66 #define FED_Nw -41 67 #define FED_N -42 68 #define FED_Bw_m -43 69 #define FED_ERROR -44 70 #define FED_DC -45 71 #define FED_DP -46 72 #define FED_RU -47 73 #define FED_RD -48 74 #define FED_RZ -49 75 #define FED_RN -50 76 #define FED_RC -51 77 #define FED_RP -52 78 #define FED_DT -53 79 #define FED_G0 -54 80 #define FED_G0_d -55 81 82 void I8(get_vlist_desc)(F90_Desc *sd, __INT_T ubnd); 83