• Main Page
  • Modules
  • Data Types
  • Files

osprey/crayf90/fe90/s_asg_expr.h

Go to the documentation of this file.
00001 /*
00002  * Copyright 2005, 2006 PathScale, Inc.  All Rights Reserved.
00003  */
00004 
00005 /*
00006 
00007   Copyright (C) 2000, 2001 Silicon Graphics, Inc.  All Rights Reserved.
00008 
00009   This program is free software; you can redistribute it and/or modify it
00010   under the terms of version 2 of the GNU General Public License as
00011   published by the Free Software Foundation.
00012 
00013   This program is distributed in the hope that it would be useful, but
00014   WITHOUT ANY WARRANTY; without even the implied warranty of
00015   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
00016 
00017   Further, this software is distributed without any warranty that it is
00018   free of the rightful claim of any third person regarding infringement 
00019   or the like.  Any license provided herein, whether implied or 
00020   otherwise, applies only to this software file.  Patent licenses, if 
00021   any, provided herein do not apply to combinations of this program with 
00022   other software, or any other product whatsoever.  
00023 
00024   You should have received a copy of the GNU General Public License along
00025   with this program; if not, write the Free Software Foundation, Inc., 59
00026   Temple Place - Suite 330, Boston MA 02111-1307, USA.
00027 
00028   Contact information:  Silicon Graphics, Inc., 1600 Amphitheatre Pky,
00029   Mountain View, CA 94043, or:
00030 
00031   http://www.sgi.com
00032 
00033   For further information regarding this notice, see:
00034 
00035   http://oss.sgi.com/projects/GenInfo/NoticeExplan
00036 
00037 */
00038 
00039 
00040 
00041 /* USMID:  "\n@(#)5.0_pl/headers/s_asg_expr.h 5.3 05/25/99 17:45:47\n" */
00042 
00043 
00044 extern boolean  resolve_ext_opr(opnd_type *, boolean, boolean, boolean,
00045                                 boolean *,
00046                                 expr_arg_type *,
00047                                 expr_arg_type *);
00048 
00049 extern int      opr_to_str(operator_type, char *);
00050 
00051 exp_tbl_type  bin_add_tbl[Num_Linear_Types][Num_Linear_Types] = {
00052 /* Err_Res */   {
00053   /* Err_Res    */  {FALSE, Err_Res    },
00054   /* Short_Char_Const */  {FALSE, Err_Res    },
00055   /* Short_Typeless_Const */  {FALSE, Err_Res    },
00056   /* Typeless_1 */  {FALSE, Err_Res    },
00057   /* Typeless_2 */  {FALSE, Err_Res    },
00058   /* Typeless_4 */  {FALSE, Err_Res    },
00059   /* Typeless_8 */  {FALSE, Err_Res    },
00060   /* Long_Typeless */ {FALSE, Err_Res    },
00061   /* Integer_1      */  {FALSE, Err_Res    },
00062   /* Integer_2      */  {FALSE, Err_Res    },
00063   /* Integer_4      */  {FALSE, Err_Res    },
00064   /* Integer_8      */  {FALSE, Err_Res    },
00065   /* Real_4     */  {FALSE, Err_Res    },
00066   /* Real_8     */  {FALSE, Err_Res    },
00067   /* Real_16    */  {FALSE, Err_Res    },
00068   /* Complex_4     */ {FALSE, Err_Res    },
00069   /* Complex_8     */ {FALSE, Err_Res    },
00070   /* Complex_16    */ {FALSE, Err_Res    },
00071   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00072   /* Logical_1        */  {FALSE, Err_Res    },
00073   /* Logical_2        */  {FALSE, Err_Res    },
00074   /* Logical_4        */  {FALSE, Err_Res    },
00075   /* Logical_8        */  {FALSE, Err_Res    },
00076   /* Character_1       */ {FALSE, Err_Res    },
00077   /* Character_2       */ {FALSE, Err_Res    },
00078   /* Character_4       */ {FALSE, Err_Res    },
00079   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00080   /* Structure_Type      */ {FALSE, Err_Res    },
00081   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00082       },
00083 /* Short_Char_Const */  {
00084   /* Err_Res    */  {FALSE, Err_Res    },
00085   /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
00086   /* Short_Typeless_Const */  {TRUE , Short_Typeless_Const },
00087   /* Typeless_1 */  {TRUE , Typeless_1 },
00088   /* Typeless_2 */  {TRUE , Typeless_2 },
00089   /* Typeless_4 */  {TRUE , Typeless_4 },
00090   /* Typeless_8 */  {TRUE , Typeless_8 },
00091   /* Long_Typeless */ {FALSE, Err_Res    },
00092   /* Integer_1      */  {TRUE , Integer_1  },
00093   /* Integer_2      */  {TRUE , Integer_2  },
00094   /* Integer_4      */  {TRUE , Integer_4  },
00095   /* Integer_8      */  {TRUE , Integer_8      },
00096   /* Real_4     */  {TRUE , Real_4     },
00097   /* Real_8     */  {TRUE , Real_8     },
00098   /* Real_16    */  {TRUE , Real_16    },
00099   /* Complex_4     */ {TRUE , Complex_4  },
00100   /* Complex_8     */ {TRUE , Complex_8  },
00101   /* Complex_16    */ {TRUE , Complex_16 },
00102   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
00103   /* Logical_1        */  {FALSE, Err_Res    },
00104   /* Logical_2        */  {FALSE, Err_Res    },
00105   /* Logical_4        */  {FALSE, Err_Res    },
00106   /* Logical_8        */  {FALSE, Err_Res    },
00107   /* Character_1       */ {FALSE, Err_Res    },
00108   /* Character_2       */ {FALSE, Err_Res    },
00109   /* Character_4       */ {FALSE, Err_Res    },
00110 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00111   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00112 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00113   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00114 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00115   /* Structure_Type      */ {FALSE, Err_Res    },
00116   /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00117       },
00118 /* Short_Typeless_Const */  {
00119   /* Err_Res    */  {FALSE, Err_Res    },
00120   /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
00121   /* Short_Typeless_Const */  {TRUE , Short_Typeless_Const },
00122   /* Typeless_1 */  {TRUE , Typeless_1 },
00123   /* Typeless_2 */  {TRUE , Typeless_2 },
00124   /* Typeless_4 */  {TRUE , Typeless_4 },
00125   /* Typeless_8 */  {TRUE , Typeless_8 },
00126   /* Long_Typeless */ {FALSE, Err_Res    },
00127   /* Integer_1      */  {TRUE , Integer_1  },
00128   /* Integer_2      */  {TRUE , Integer_2  },
00129   /* Integer_4      */  {TRUE , Integer_4  },
00130   /* Integer_8      */  {TRUE , Integer_8  },
00131   /* Real_4     */  {TRUE , Real_4     },
00132         /* Real_8     */        {TRUE , Real_8     },
00133   /* Real_16    */  {TRUE , Real_16    },
00134   /* Complex_4     */ {TRUE , Complex_4  },
00135   /* Complex_8     */ {TRUE , Complex_8  },
00136   /* Complex_16    */ {TRUE , Complex_16 },
00137   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
00138   /* Logical_1        */  {FALSE, Err_Res    },
00139   /* Logical_2        */  {FALSE, Err_Res    },
00140   /* Logical_4        */  {FALSE, Err_Res    },
00141   /* Logical_8        */  {FALSE, Err_Res    },
00142   /* Character_1       */ {FALSE, Err_Res    },
00143   /* Character_2       */ {FALSE, Err_Res    },
00144   /* Character_4       */ {FALSE, Err_Res    },
00145 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00146   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00147 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00148   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00149 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00150   /* Structure_Type      */ {FALSE, Err_Res    },
00151   /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00152       },
00153 /* Typeless_1 */        {
00154         /* Err_Res    */        {FALSE, Err_Res    },
00155         /* Short_Char_Const */  {TRUE , Typeless_1 },
00156         /* Short_Typeless_Const */      {TRUE , Typeless_1 },
00157         /* Typeless_1 */        {TRUE , Typeless_1 },
00158         /* Typeless_2 */        {TRUE , Typeless_2 },
00159         /* Typeless_4 */        {TRUE , Typeless_4 },
00160         /* Typeless_8 */        {TRUE , Typeless_8 },
00161         /* Long_Typeless */     {FALSE, Err_Res    },
00162         /* Integer_1      */    {TRUE , Integer_1  },
00163         /* Integer_2      */    {TRUE , Integer_2  },
00164         /* Integer_4      */    {TRUE , Integer_4  },
00165         /* Integer_8      */    {TRUE , Integer_8  },
00166         /* Real_4     */        {FALSE, Err_Res    },
00167         /* Real_8     */        {FALSE, Err_Res    },
00168         /* Real_16    */        {FALSE, Err_Res    },
00169         /* Complex_4     */     {FALSE, Err_Res    },
00170         /* Complex_8     */     {FALSE, Err_Res    },
00171         /* Complex_16    */     {FALSE, Err_Res    },
00172         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00173         /* Logical_1        */  {FALSE, Err_Res    },
00174         /* Logical_2        */  {FALSE, Err_Res    },
00175         /* Logical_4        */  {FALSE, Err_Res    },
00176         /* Logical_8        */  {FALSE, Err_Res    },
00177         /* Character_1       */ {FALSE, Err_Res    },
00178         /* Character_2       */ {FALSE, Err_Res    },
00179         /* Character_4       */ {FALSE, Err_Res    },
00180 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00181   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00182 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00183         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00184 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00185         /* Structure_Type      */       {FALSE, Err_Res    },
00186         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00187                         },
00188 /* Typeless_2 */        {
00189         /* Err_Res    */        {FALSE, Err_Res    },
00190         /* Short_Char_Const */  {TRUE , Typeless_2 },
00191         /* Short_Typeless_Const */      {TRUE , Typeless_2 },
00192         /* Typeless_1 */        {TRUE , Typeless_2 },
00193         /* Typeless_2 */        {TRUE , Typeless_2 },
00194         /* Typeless_4 */        {TRUE , Typeless_4 },
00195         /* Typeless_8 */        {TRUE , Typeless_8 },
00196         /* Long_Typeless */     {FALSE, Err_Res    },
00197         /* Integer_1      */    {TRUE , Integer_1  },
00198         /* Integer_2      */    {TRUE , Integer_2  },
00199         /* Integer_4      */    {TRUE , Integer_4  },
00200         /* Integer_8      */    {TRUE , Integer_8  },
00201         /* Real_4     */        {FALSE, Err_Res    },
00202         /* Real_8     */        {FALSE, Err_Res    },
00203         /* Real_16    */        {FALSE, Err_Res    },
00204         /* Complex_4     */     {FALSE, Err_Res    },
00205         /* Complex_8     */     {FALSE, Err_Res    },
00206         /* Complex_16    */     {FALSE, Err_Res    },
00207         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00208         /* Logical_1        */  {FALSE, Err_Res    },
00209         /* Logical_2        */  {FALSE, Err_Res    },
00210         /* Logical_4        */  {FALSE, Err_Res    },
00211         /* Logical_8        */  {FALSE, Err_Res    },
00212         /* Character_1       */ {FALSE, Err_Res    },
00213         /* Character_2       */ {FALSE, Err_Res    },
00214         /* Character_4       */ {FALSE, Err_Res    },
00215 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00216   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00217 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00218         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00219 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00220         /* Structure_Type      */       {FALSE, Err_Res    },
00221         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00222                         },
00223 /* Typeless_4 */  {
00224   /* Err_Res    */  {FALSE, Err_Res    },
00225   /* Short_Char_Const */  {TRUE , Typeless_4 },
00226   /* Short_Typeless_Const */  {TRUE , Typeless_4 },
00227   /* Typeless_1 */  {TRUE , Typeless_4 },
00228   /* Typeless_2 */  {TRUE , Typeless_4 },
00229   /* Typeless_4 */  {TRUE , Typeless_4 },
00230   /* Typeless_8 */  {TRUE , Typeless_8 },
00231   /* Long_Typeless */ {FALSE, Err_Res    },
00232   /* Integer_1      */  {TRUE , Integer_1  },
00233   /* Integer_2      */  {TRUE , Integer_2  },
00234   /* Integer_4      */  {TRUE , Integer_4  },
00235   /* Integer_8      */  {TRUE , Integer_8  },
00236   /* Real_4     */  {TRUE , Real_4     },
00237         /* Real_8     */        {FALSE, Err_Res    },
00238         /* Real_16    */        {FALSE, Err_Res    },
00239         /* Complex_4     */     {FALSE, Err_Res    },
00240         /* Complex_8     */     {FALSE, Err_Res    },
00241         /* Complex_16    */     {FALSE, Err_Res    },
00242   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
00243   /* Logical_1        */  {FALSE, Err_Res    },
00244   /* Logical_2        */  {FALSE, Err_Res    },
00245   /* Logical_4        */  {FALSE, Err_Res    },
00246   /* Logical_8        */  {FALSE, Err_Res    },
00247   /* Character_1       */ {FALSE, Err_Res    },
00248   /* Character_2       */ {FALSE, Err_Res    },
00249   /* Character_4       */ {FALSE, Err_Res    },
00250 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00251   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00252 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00253   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00254 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00255   /* Structure_Type      */ {FALSE, Err_Res    },
00256   /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00257       },
00258 /* Typeless_8 */  {
00259   /* Err_Res    */  {FALSE, Err_Res    },
00260   /* Short_Char_Const */  {TRUE , Typeless_8 },
00261   /* Short_Typeless_Const */  {TRUE , Typeless_8 },
00262   /* Typeless_1 */  {TRUE , Typeless_8 },
00263   /* Typeless_2 */  {TRUE , Typeless_8 },
00264   /* Typeless_4 */  {TRUE , Typeless_8 },
00265   /* Typeless_8 */  {TRUE , Typeless_8 },
00266   /* Long_Typeless */ {FALSE, Err_Res    },
00267   /* Integer_1      */  {TRUE , Integer_1  },
00268   /* Integer_2      */  {TRUE , Integer_2  },
00269   /* Integer_4      */  {TRUE , Integer_4  },
00270   /* Integer_8      */  {TRUE , Integer_8  },
00271   /* Real_4     */  {TRUE , Real_4     },
00272         /* Real_8     */        {TRUE , Real_8     },
00273         /* Real_16    */        {FALSE, Err_Res    },
00274         /* Complex_4     */     {FALSE, Err_Res    },
00275         /* Complex_8     */     {FALSE, Err_Res    },
00276         /* Complex_16    */     {FALSE, Err_Res    },
00277   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
00278   /* Logical_1        */  {FALSE, Err_Res    },
00279   /* Logical_2        */  {FALSE, Err_Res    },
00280   /* Logical_4        */  {FALSE, Err_Res    },
00281   /* Logical_8        */  {FALSE, Err_Res    },
00282   /* Character_1       */ {FALSE, Err_Res    },
00283   /* Character_2       */ {FALSE, Err_Res    },
00284   /* Character_4       */ {FALSE, Err_Res    },
00285 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00286   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00287 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00288   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00289 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00290   /* Structure_Type      */ {FALSE, Err_Res    },
00291   /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00292       },
00293 /* Long_Typeless */ {
00294   /* Err_Res    */  {FALSE, Err_Res    },
00295   /* Short_Char_Const */  {FALSE, Err_Res    },
00296   /* Short_Typeless_Const */  {FALSE, Err_Res    },
00297   /* Typeless_1 */  {FALSE, Err_Res    },
00298   /* Typeless_2 */  {FALSE, Err_Res    },
00299   /* Typeless_4 */  {FALSE, Err_Res    },
00300   /* Typeless_8 */  {FALSE, Err_Res    },
00301   /* Long_Typeless */ {FALSE, Err_Res    },
00302   /* Integer_1      */  {FALSE, Err_Res    },
00303   /* Integer_2      */  {FALSE, Err_Res    },
00304   /* Integer_4      */  {FALSE, Err_Res    },
00305   /* Integer_8      */  {FALSE, Err_Res    },
00306   /* Real_4     */  {FALSE, Err_Res    },
00307   /* Real_8     */  {FALSE, Err_Res    },
00308   /* Real_16    */  {FALSE, Err_Res    },
00309   /* Complex_4     */ {FALSE, Err_Res    },
00310   /* Complex_8     */ {FALSE, Err_Res    },
00311   /* Complex_16    */ {FALSE, Err_Res    },
00312   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00313   /* Logical_1        */  {FALSE, Err_Res    },
00314   /* Logical_2        */  {FALSE, Err_Res    },
00315   /* Logical_4        */  {FALSE, Err_Res    },
00316   /* Logical_8        */  {FALSE, Err_Res    },
00317   /* Character_1       */ {FALSE, Err_Res    },
00318   /* Character_2       */ {FALSE, Err_Res    },
00319   /* Character_4       */ {FALSE, Err_Res    },
00320   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00321   /* Structure_Type      */ {FALSE, Err_Res    },
00322   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00323       },
00324 /* Integer_1 */         {
00325         /* Err_Res    */        {FALSE, Err_Res    },
00326         /* Short_Char_Const */  {TRUE , Integer_1  },
00327         /* Short_Typeless_Const */        {TRUE , Integer_1  },
00328         /* Typeless_1 */        {TRUE , Integer_1  },
00329         /* Typeless_2 */        {TRUE , Integer_1  },
00330         /* Typeless_4 */        {TRUE , Integer_1  },
00331         /* Typeless_8 */        {TRUE , Integer_1  },
00332         /* Long_Typeless */        {FALSE, Err_Res    },
00333         /* Integer_1      */    {FALSE, Integer_1      },
00334         /* Integer_2      */    {FALSE, Integer_2      },
00335         /* Integer_4      */    {FALSE, Integer_4      },
00336         /* Integer_8      */    {FALSE, Integer_8      },
00337         /* Real_4     */        {FALSE, Real_4     },
00338         /* Real_8     */        {FALSE, Real_8     },
00339         /* Real_16    */        {FALSE, Real_16    },
00340         /* Complex_4     */     {FALSE, Complex_4     },
00341         /* Complex_8     */     {FALSE, Complex_8     },
00342         /* Complex_16    */     {FALSE, Complex_16    },
00343         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00344         /* Logical_1        */  {FALSE, Err_Res    },
00345         /* Logical_2        */  {FALSE, Err_Res    },
00346         /* Logical_4        */  {FALSE, Err_Res    },
00347         /* Logical_8        */  {FALSE, Err_Res    },
00348         /* Character_1       */ {FALSE, Err_Res    },
00349         /* Character_2       */ {FALSE, Err_Res    },
00350         /* Character_4       */ {FALSE, Err_Res    },
00351 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00352   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00353 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00354         /* CRI_Ch_Ptr_8    */   {TRUE , CRI_Ch_Ptr_8    },
00355 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00356         /* Structure_Type      */        {FALSE, Err_Res    },
00357   /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00358                         },
00359 /* Integer_2 */   {
00360   /* Err_Res    */  {FALSE, Err_Res    },
00361   /* Short_Char_Const */  {TRUE , Integer_2  },
00362   /* Short_Typeless_Const */  {TRUE , Integer_2  },
00363   /* Typeless_1 */  {TRUE , Integer_2  },
00364   /* Typeless_2 */  {TRUE , Integer_2  },
00365   /* Typeless_4 */  {TRUE , Integer_2  },
00366   /* Typeless_8 */  {TRUE , Integer_2  },
00367   /* Long_Typeless */ {FALSE, Err_Res    },
00368   /* Integer_1      */  {FALSE, Integer_2      },
00369   /* Integer_2      */  {FALSE, Integer_2      },
00370   /* Integer_4      */  {FALSE, Integer_4      },
00371   /* Integer_8      */  {FALSE, Integer_8      },
00372   /* Real_4     */  {FALSE, Real_4     },
00373   /* Real_8     */  {FALSE, Real_8     },
00374   /* Real_16    */  {FALSE, Real_16    },
00375   /* Complex_4     */ {FALSE, Complex_4     },
00376   /* Complex_8     */ {FALSE, Complex_8     },
00377   /* Complex_16    */ {FALSE, Complex_16    },
00378   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
00379   /* Logical_1        */  {FALSE, Err_Res    },
00380   /* Logical_2        */  {FALSE, Err_Res    },
00381   /* Logical_4        */  {FALSE, Err_Res    },
00382   /* Logical_8        */  {FALSE, Err_Res    },
00383   /* Character_1       */ {FALSE, Err_Res    },
00384   /* Character_2       */ {FALSE, Err_Res    },
00385   /* Character_4       */ {FALSE, Err_Res    },
00386 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00387   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00388 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00389   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00390 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00391   /* Structure_Type      */ {FALSE, Err_Res    },
00392   /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00393       },
00394 /* Integer_4 */   {
00395   /* Err_Res    */  {FALSE, Err_Res    },
00396   /* Short_Char_Const */  {TRUE , Integer_4  },
00397   /* Short_Typeless_Const */  {TRUE , Integer_4  },
00398   /* Typeless_1 */  {TRUE , Integer_4  },
00399   /* Typeless_2 */  {TRUE , Integer_4  },
00400   /* Typeless_4 */  {TRUE , Integer_4  },
00401   /* Typeless_8 */  {TRUE , Integer_4  },
00402   /* Long_Typeless */ {FALSE, Err_Res    },
00403   /* Integer_1      */  {FALSE, Integer_4      },
00404   /* Integer_2      */  {FALSE, Integer_4      },
00405   /* Integer_4      */  {FALSE, Integer_4      },
00406   /* Integer_8      */  {FALSE, Integer_8      },
00407   /* Real_4     */  {FALSE, Real_4     },
00408   /* Real_8     */  {FALSE, Real_8     },
00409   /* Real_16    */  {FALSE, Real_16    },
00410   /* Complex_4     */ {FALSE, Complex_4     },
00411   /* Complex_8     */ {FALSE, Complex_8     },
00412   /* Complex_16    */ {FALSE, Complex_16    },
00413   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
00414   /* Logical_1        */  {FALSE, Err_Res    },
00415   /* Logical_2        */  {FALSE, Err_Res    },
00416   /* Logical_4        */  {FALSE, Err_Res    },
00417   /* Logical_8        */  {FALSE, Err_Res    },
00418   /* Character_1       */ {FALSE, Err_Res    },
00419   /* Character_2       */ {FALSE, Err_Res    },
00420   /* Character_4       */ {FALSE, Err_Res    },
00421 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00422   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00423 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00424   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00425 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00426   /* Structure_Type      */ {FALSE, Err_Res    },
00427   /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00428       },
00429 /* Integer_8 */   {
00430   /* Err_Res    */  {FALSE, Err_Res    },
00431   /* Short_Char_Const */  {TRUE , Integer_8      },
00432   /* Short_Typeless_Const */  {TRUE , Integer_8      },
00433   /* Typeless_1 */  {TRUE , Integer_8      },
00434   /* Typeless_2 */  {TRUE , Integer_8      },
00435   /* Typeless_4 */  {TRUE , Integer_8      },
00436   /* Typeless_8 */  {TRUE , Integer_8      },
00437   /* Long_Typeless */ {FALSE, Err_Res    },
00438   /* Integer_1      */  {FALSE, Integer_8      },
00439   /* Integer_2      */  {FALSE, Integer_8      },
00440   /* Integer_4      */  {FALSE, Integer_8      },
00441   /* Integer_8      */  {FALSE, Integer_8      },
00442   /* Real_4     */  {FALSE, Real_4     },
00443   /* Real_8     */  {FALSE, Real_8     },
00444   /* Real_16    */  {FALSE, Real_16    },
00445   /* Complex_4     */ {FALSE, Complex_4     },
00446   /* Complex_8     */ {FALSE, Complex_8     },
00447   /* Complex_16    */ {FALSE, Complex_16    },
00448   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
00449   /* Logical_1        */  {FALSE, Err_Res    },
00450   /* Logical_2        */  {FALSE, Err_Res    },
00451   /* Logical_4        */  {FALSE, Err_Res    },
00452   /* Logical_8        */  {FALSE, Err_Res    },
00453   /* Character_1       */ {FALSE, Err_Res    },
00454   /* Character_2       */ {FALSE, Err_Res    },
00455   /* Character_4       */ {FALSE, Err_Res    },
00456 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00457   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00458 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00459   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00460 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00461   /* Structure_Type      */ {FALSE, Err_Res    },
00462   /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00463       },
00464 /* Real_4 */    {
00465   /* Err_Res    */  {FALSE, Err_Res    },
00466   /* Short_Char_Const */  {TRUE , Real_4     },
00467   /* Short_Typeless_Const */  {TRUE , Real_4     },
00468   /* Typeless_1 */  {FALSE, Err_Res    },
00469   /* Typeless_2 */  {FALSE, Err_Res    },
00470   /* Typeless_4 */  {TRUE , Real_4     },
00471   /* Typeless_8 */  {TRUE , Real_4     },
00472   /* Long_Typeless */ {FALSE, Err_Res    },
00473   /* Integer_1      */  {FALSE, Real_4     },
00474   /* Integer_2      */  {FALSE, Real_4     },
00475   /* Integer_4      */  {FALSE, Real_4     },
00476   /* Integer_8      */  {FALSE, Real_4     },
00477   /* Real_4     */  {FALSE, Real_4     },
00478   /* Real_8     */  {FALSE, Real_8     },
00479   /* Real_16    */  {FALSE, Real_16    },
00480   /* Complex_4     */ {FALSE, Complex_4     },
00481   /* Complex_8     */ {FALSE, Complex_8     },
00482   /* Complex_16    */ {FALSE, Complex_16    },
00483   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00484   /* Logical_1        */  {FALSE, Err_Res    },
00485   /* Logical_2        */  {FALSE, Err_Res    },
00486   /* Logical_4        */  {FALSE, Err_Res    },
00487   /* Logical_8        */  {FALSE, Err_Res    },
00488   /* Character_1       */ {FALSE, Err_Res    },
00489   /* Character_2       */ {FALSE, Err_Res    },
00490   /* Character_4       */ {FALSE, Err_Res    },
00491   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00492   /* Structure_Type      */ {FALSE, Err_Res    },
00493   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00494       },
00495 /* Real_8 */    {
00496   /* Err_Res    */  {FALSE, Err_Res    },
00497   /* Short_Char_Const */  {TRUE , Real_8     },
00498   /* Short_Typeless_Const */  {TRUE , Real_8     },
00499         /* Typeless_1 */    {FALSE, Err_Res    },
00500         /* Typeless_2 */    {FALSE, Err_Res    },
00501         /* Typeless_4 */    {FALSE, Err_Res    },
00502         /* Typeless_8 */    {TRUE , Real_8     },
00503   /* Long_Typeless */ {FALSE, Err_Res    },
00504   /* Integer_1      */  {FALSE, Real_8     },
00505   /* Integer_2      */  {FALSE, Real_8     },
00506   /* Integer_4      */  {FALSE, Real_8     },
00507   /* Integer_8      */  {FALSE, Real_8     },
00508   /* Real_4     */  {FALSE, Real_8     },
00509   /* Real_8     */  {FALSE, Real_8     },
00510   /* Real_16    */  {FALSE, Real_16    },
00511   /* Complex_4     */ {FALSE, Complex_8     },
00512   /* Complex_8     */ {FALSE, Complex_8     },
00513   /* Complex_16    */ {FALSE, Complex_16    },
00514   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00515   /* Logical_1        */  {FALSE, Err_Res    },
00516   /* Logical_2        */  {FALSE, Err_Res    },
00517   /* Logical_4        */  {FALSE, Err_Res    },
00518   /* Logical_8        */  {FALSE, Err_Res    },
00519   /* Character_1       */ {FALSE, Err_Res    },
00520   /* Character_2       */ {FALSE, Err_Res    },
00521   /* Character_4       */ {FALSE, Err_Res    },
00522   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00523   /* Structure_Type      */ {FALSE, Err_Res    },
00524   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00525       },
00526 /* Real_16 */   {
00527   /* Err_Res    */  {FALSE, Err_Res    },
00528   /* Short_Char_Const */  {TRUE , Real_16    },
00529   /* Short_Typeless_Const */  {TRUE , Real_16    },
00530   /* Typeless_1 */  {FALSE, Err_Res    },
00531   /* Typeless_2 */  {FALSE, Err_Res    },
00532   /* Typeless_4 */  {FALSE, Err_Res    },
00533   /* Typeless_8 */  {FALSE, Err_Res    },
00534   /* Long_Typeless */ {FALSE, Err_Res    },
00535   /* Integer_1      */  {FALSE, Real_16    },
00536   /* Integer_2      */  {FALSE, Real_16    },
00537   /* Integer_4      */  {FALSE, Real_16    },
00538   /* Integer_8      */  {FALSE, Real_16    },
00539   /* Real_4     */  {FALSE, Real_16    },
00540   /* Real_8     */  {FALSE, Real_16    },
00541   /* Real_16    */  {FALSE, Real_16    },
00542   /* Complex_4     */ {FALSE, Complex_16    },
00543   /* Complex_8     */ {FALSE, Complex_16    },
00544   /* Complex_16    */ {FALSE, Complex_16    },
00545   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00546   /* Logical_1        */  {FALSE, Err_Res    },
00547   /* Logical_2        */  {FALSE, Err_Res    },
00548   /* Logical_4        */  {FALSE, Err_Res    },
00549   /* Logical_8        */  {FALSE, Err_Res    },
00550   /* Character_1       */ {FALSE, Err_Res    },
00551   /* Character_2       */ {FALSE, Err_Res    },
00552   /* Character_4       */ {FALSE, Err_Res    },
00553   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00554   /* Structure_Type      */ {FALSE, Err_Res    },
00555   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00556       },
00557 /* Complex_4 */   {
00558   /* Err_Res    */  {FALSE, Err_Res    },
00559   /* Short_Char_Const */  {TRUE , Complex_4  },
00560   /* Short_Typeless_Const */  {TRUE , Complex_4  },
00561   /* Typeless_1 */  {FALSE, Err_Res    },
00562   /* Typeless_2 */  {FALSE, Err_Res    },
00563   /* Typeless_4 */  {FALSE, Err_Res    },
00564   /* Typeless_8 */  {FALSE, Err_Res    },
00565   /* Long_Typeless */ {FALSE, Err_Res    },
00566   /* Integer_1      */  {FALSE, Complex_4     },
00567   /* Integer_2      */  {FALSE, Complex_4     },
00568   /* Integer_4      */  {FALSE, Complex_4     },
00569   /* Integer_8      */  {FALSE, Complex_4     },
00570   /* Real_4     */  {FALSE, Complex_4     },
00571   /* Real_8     */  {FALSE, Complex_8     },
00572   /* Real_16    */  {FALSE, Complex_16    },
00573   /* Complex_4     */ {FALSE, Complex_4     },
00574   /* Complex_8     */ {FALSE, Complex_8     },
00575   /* Complex_16    */ {FALSE, Complex_16    },
00576   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00577   /* Logical_1        */  {FALSE, Err_Res    },
00578   /* Logical_2        */  {FALSE, Err_Res    },
00579   /* Logical_4        */  {FALSE, Err_Res    },
00580   /* Logical_8        */  {FALSE, Err_Res    },
00581   /* Character_1       */ {FALSE, Err_Res    },
00582   /* Character_2       */ {FALSE, Err_Res    },
00583   /* Character_4       */ {FALSE, Err_Res    },
00584   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00585   /* Structure_Type      */ {FALSE, Err_Res    },
00586   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00587       },
00588 /* Complex_8 */   {
00589   /* Err_Res    */  {FALSE, Err_Res    },
00590   /* Short_Char_Const */  {TRUE , Complex_8  },
00591   /* Short_Typeless_Const */  {TRUE , Complex_8  },
00592         /* Typeless_1 */  {FALSE, Err_Res    },
00593         /* Typeless_2 */  {FALSE, Err_Res    },
00594         /* Typeless_4 */  {FALSE, Err_Res    },
00595         /* Typeless_8 */  {FALSE, Err_Res    },
00596   /* Long_Typeless */ {FALSE, Err_Res    },
00597   /* Integer_1      */  {FALSE, Complex_8     },
00598   /* Integer_2      */  {FALSE, Complex_8     },
00599   /* Integer_4      */  {FALSE, Complex_8     },
00600   /* Integer_8      */  {FALSE, Complex_8     },
00601   /* Real_4     */  {FALSE, Complex_8     },
00602   /* Real_8     */  {FALSE, Complex_8     },
00603   /* Real_16    */  {FALSE, Complex_16    },
00604   /* Complex_4     */ {FALSE, Complex_8     },
00605   /* Complex_8     */ {FALSE, Complex_8     },
00606   /* Complex_16    */ {FALSE, Complex_16    },
00607   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00608   /* Logical_1        */  {FALSE, Err_Res    },
00609   /* Logical_2        */  {FALSE, Err_Res    },
00610   /* Logical_4        */  {FALSE, Err_Res    },
00611   /* Logical_8        */  {FALSE, Err_Res    },
00612   /* Character_1       */ {FALSE, Err_Res    },
00613   /* Character_2       */ {FALSE, Err_Res    },
00614   /* Character_4       */ {FALSE, Err_Res    },
00615   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00616   /* Structure_Type      */ {FALSE, Err_Res    },
00617   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00618       },
00619 /* Complex_16 */    {
00620   /* Err_Res    */  {FALSE, Err_Res    },
00621   /* Short_Char_Const */  {TRUE , Complex_16 },
00622   /* Short_Typeless_Const */  {TRUE , Complex_16 },
00623         /* Typeless_1 */  {FALSE, Err_Res    },
00624         /* Typeless_2 */  {FALSE, Err_Res    },
00625         /* Typeless_4 */  {FALSE, Err_Res    },
00626         /* Typeless_8 */  {FALSE, Err_Res    },
00627   /* Long_Typeless */ {FALSE, Err_Res    },
00628   /* Integer_1      */  {FALSE, Complex_16    },
00629   /* Integer_2      */  {FALSE, Complex_16    },
00630   /* Integer_4      */  {FALSE, Complex_16    },
00631   /* Integer_8      */  {FALSE, Complex_16    },
00632   /* Real_4     */  {FALSE, Complex_16    },
00633   /* Real_8     */  {FALSE, Complex_16    },
00634   /* Real_16    */  {FALSE, Complex_16    },
00635   /* Complex_4     */ {FALSE, Complex_16    },
00636   /* Complex_8     */ {FALSE, Complex_16    },
00637   /* Complex_16    */ {FALSE, Complex_16    },
00638   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00639   /* Logical_1        */  {FALSE, Err_Res    },
00640   /* Logical_2        */  {FALSE, Err_Res    },
00641   /* Logical_4        */  {FALSE, Err_Res    },
00642   /* Logical_8        */  {FALSE, Err_Res    },
00643   /* Character_1       */ {FALSE, Err_Res    },
00644   /* Character_2       */ {FALSE, Err_Res    },
00645   /* Character_4       */ {FALSE, Err_Res    },
00646   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00647   /* Structure_Type      */ {FALSE, Err_Res    },
00648   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00649       },
00650 /* CRI_Ptr_8 */   {
00651   /* Err_Res    */  {FALSE, Err_Res    },
00652   /* Short_Char_Const */  {TRUE , CRI_Ptr_8   },
00653   /* Short_Typeless_Const */  {TRUE , CRI_Ptr_8   },
00654   /* Typeless_1 */  {TRUE , CRI_Ptr_8   },
00655   /* Typeless_2 */  {TRUE , CRI_Ptr_8   },
00656   /* Typeless_4 */  {TRUE , CRI_Ptr_8   },
00657   /* Typeless_8 */  {TRUE , CRI_Ptr_8   },
00658   /* Long_Typeless */ {FALSE, Err_Res    },
00659   /* Integer_1      */  {TRUE , CRI_Ptr_8   },
00660   /* Integer_2      */  {TRUE , CRI_Ptr_8   },
00661   /* Integer_4      */  {TRUE , CRI_Ptr_8   },
00662   /* Integer_8      */  {TRUE , CRI_Ptr_8   },
00663   /* Real_4     */  {FALSE, Err_Res    },
00664   /* Real_8     */  {FALSE, Err_Res    },
00665   /* Real_16    */  {FALSE, Err_Res    },
00666   /* Complex_4     */ {FALSE, Err_Res    },
00667   /* Complex_8     */ {FALSE, Err_Res    },
00668   /* Complex_16    */ {FALSE, Err_Res    },
00669   /* CRI_Ptr_8      */  {TRUE , INT_WORD   },
00670   /* Logical_1        */  {FALSE, Err_Res    },
00671   /* Logical_2        */  {FALSE, Err_Res    },
00672   /* Logical_4        */  {FALSE, Err_Res    },
00673   /* Logical_8        */  {FALSE, Err_Res    },
00674   /* Character_1       */ {FALSE, Err_Res    },
00675   /* Character_2       */ {FALSE, Err_Res    },
00676   /* Character_4       */ {FALSE, Err_Res    },
00677 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00678   /* CRI_Ch_Ptr_8    */ {TRUE , INT_WORD    },
00679 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00680   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00681 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00682   /* Structure_Type      */ {FALSE, Err_Res    },
00683   /* CRI_Parcel_Ptr_8  */ {TRUE , CRI_Ptr_8   }
00684       },
00685 /* Logical_1 */   {
00686         /* Err_Res    */        {FALSE, Err_Res    },
00687         /* Short_Char_Const */  {FALSE, Err_Res    },
00688         /* Short_Typeless_Const */        {FALSE, Err_Res    },
00689         /* Typeless_1 */  {FALSE, Err_Res    },
00690         /* Typeless_2 */  {FALSE, Err_Res    },
00691         /* Typeless_4 */  {FALSE, Err_Res    },
00692         /* Typeless_8 */  {FALSE, Err_Res    },
00693         /* Long_Typeless */        {FALSE, Err_Res    },
00694         /* Integer_1      */    {FALSE, Err_Res    },
00695         /* Integer_2      */    {FALSE, Err_Res    },
00696         /* Integer_4      */    {FALSE, Err_Res    },
00697         /* Integer_8      */    {FALSE, Err_Res    },
00698         /* Real_4     */        {FALSE, Err_Res    },
00699         /* Real_8     */        {FALSE, Err_Res    },
00700         /* Real_16    */        {FALSE, Err_Res    },
00701         /* Complex_4     */     {FALSE, Err_Res    },
00702         /* Complex_8     */     {FALSE, Err_Res    },
00703         /* Complex_16    */     {FALSE, Err_Res    },
00704         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00705         /* Logical_1        */  {FALSE, Err_Res    },
00706         /* Logical_2        */  {FALSE, Err_Res    },
00707         /* Logical_4        */  {FALSE, Err_Res    },
00708         /* Logical_8        */  {FALSE, Err_Res    },
00709         /* Character_1       */ {FALSE, Err_Res    },
00710         /* Character_2       */ {FALSE, Err_Res    },
00711         /* Character_4       */ {FALSE, Err_Res    },
00712         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00713         /* Structure_Type      */        {FALSE, Err_Res    },
00714   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00715                         },
00716 /* Logical_2 */   {
00717         /* Err_Res    */        {FALSE, Err_Res    },
00718         /* Short_Char_Const */  {FALSE, Err_Res    },
00719         /* Short_Typeless_Const */        {FALSE, Err_Res    },
00720         /* Typeless_1 */  {FALSE, Err_Res    },
00721         /* Typeless_2 */  {FALSE, Err_Res    },
00722         /* Typeless_4 */  {FALSE, Err_Res    },
00723         /* Typeless_8 */  {FALSE, Err_Res    },
00724         /* Long_Typeless */     {FALSE, Err_Res    },
00725         /* Integer_1      */    {FALSE, Err_Res    },
00726         /* Integer_2      */    {FALSE, Err_Res    },
00727         /* Integer_4      */    {FALSE, Err_Res    },
00728         /* Integer_8      */    {FALSE, Err_Res    },
00729         /* Real_4     */        {FALSE, Err_Res    },
00730         /* Real_8     */        {FALSE, Err_Res    },
00731         /* Real_16    */        {FALSE, Err_Res    },
00732         /* Complex_4     */     {FALSE, Err_Res    },
00733         /* Complex_8     */     {FALSE, Err_Res    },
00734         /* Complex_16    */     {FALSE, Err_Res    },
00735         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00736         /* Logical_1        */  {FALSE, Err_Res    },
00737         /* Logical_2        */  {FALSE, Err_Res    },
00738         /* Logical_4        */  {FALSE, Err_Res    },
00739         /* Logical_8        */  {FALSE, Err_Res    },
00740         /* Character_1       */ {FALSE, Err_Res    },
00741         /* Character_2       */ {FALSE, Err_Res    },
00742         /* Character_4       */ {FALSE, Err_Res    },
00743         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00744         /* Structure_Type      */        {FALSE, Err_Res    },
00745   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00746                         },
00747 /* Logical_4 */   {
00748         /* Err_Res    */        {FALSE, Err_Res    },
00749         /* Short_Char_Const */  {FALSE, Err_Res    },
00750         /* Short_Typeless_Const */        {FALSE, Err_Res    },
00751         /* Typeless_1 */  {FALSE, Err_Res    },
00752         /* Typeless_2 */  {FALSE, Err_Res    },
00753         /* Typeless_4 */  {FALSE, Err_Res    },
00754         /* Typeless_8 */  {FALSE, Err_Res    },
00755         /* Long_Typeless */        {FALSE, Err_Res    },
00756         /* Integer_1      */    {FALSE, Err_Res    },
00757         /* Integer_2      */    {FALSE, Err_Res    },
00758         /* Integer_4      */    {FALSE, Err_Res    },
00759         /* Integer_8      */    {FALSE, Err_Res    },
00760         /* Real_4     */        {FALSE, Err_Res    },
00761         /* Real_8     */        {FALSE, Err_Res    },
00762         /* Real_16    */        {FALSE, Err_Res    },
00763         /* Complex_4     */     {FALSE, Err_Res    },
00764         /* Complex_8     */     {FALSE, Err_Res    },
00765         /* Complex_16    */     {FALSE, Err_Res    },
00766         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00767         /* Logical_1        */  {FALSE, Err_Res    },
00768         /* Logical_2        */  {FALSE, Err_Res    },
00769         /* Logical_4        */  {FALSE, Err_Res    },
00770         /* Logical_8        */  {FALSE, Err_Res    },
00771         /* Character_1       */ {FALSE, Err_Res    },
00772         /* Character_2       */ {FALSE, Err_Res    },
00773         /* Character_4       */ {FALSE, Err_Res    },
00774         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00775         /* Structure_Type      */        {FALSE, Err_Res    },
00776   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00777                         },
00778 /* Logical_8 */   {
00779   /* Err_Res    */  {FALSE, Err_Res    },
00780   /* Short_Char_Const */  {FALSE, Err_Res    },
00781   /* Short_Typeless_Const */  {FALSE, Err_Res    },
00782         /* Typeless_1 */  {FALSE, Err_Res    },
00783         /* Typeless_2 */  {FALSE, Err_Res    },
00784         /* Typeless_4 */  {FALSE, Err_Res    },
00785         /* Typeless_8 */  {FALSE, Err_Res    },
00786   /* Long_Typeless */ {FALSE, Err_Res    },
00787   /* Integer_1      */  {FALSE, Err_Res    },
00788   /* Integer_2      */  {FALSE, Err_Res    },
00789   /* Integer_4      */  {FALSE, Err_Res    },
00790   /* Integer_8      */  {FALSE, Err_Res    },
00791   /* Real_4     */  {FALSE, Err_Res    },
00792   /* Real_8     */  {FALSE, Err_Res    },
00793   /* Real_16    */  {FALSE, Err_Res    },
00794   /* Complex_4     */ {FALSE, Err_Res    },
00795   /* Complex_8     */ {FALSE, Err_Res    },
00796   /* Complex_16    */ {FALSE, Err_Res    },
00797   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00798   /* Logical_1        */  {FALSE, Err_Res    },
00799   /* Logical_2        */  {FALSE, Err_Res    },
00800   /* Logical_4        */  {FALSE, Err_Res    },
00801   /* Logical_8        */  {FALSE, Err_Res    },
00802   /* Character_1       */ {FALSE, Err_Res    },
00803   /* Character_2       */ {FALSE, Err_Res    },
00804   /* Character_4       */ {FALSE, Err_Res    },
00805   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00806   /* Structure_Type      */ {FALSE, Err_Res    },
00807   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00808       },
00809 /* Character_1 */   {
00810   /* Err_Res    */  {FALSE, Err_Res    },
00811   /* Short_Char_Const */  {FALSE, Err_Res    },
00812   /* Short_Typeless_Const */  {FALSE, Err_Res    },
00813         /* Typeless_1 */  {FALSE, Err_Res    },
00814         /* Typeless_2 */  {FALSE, Err_Res    },
00815         /* Typeless_4 */  {FALSE, Err_Res    },
00816         /* Typeless_8 */  {FALSE, Err_Res    },
00817   /* Long_Typeless */ {FALSE, Err_Res    },
00818   /* Integer_1      */  {FALSE, Err_Res    },
00819   /* Integer_2      */  {FALSE, Err_Res    },
00820   /* Integer_4      */  {FALSE, Err_Res    },
00821   /* Integer_8      */  {FALSE, Err_Res    },
00822   /* Real_4     */  {FALSE, Err_Res    },
00823   /* Real_8     */  {FALSE, Err_Res    },
00824   /* Real_16    */  {FALSE, Err_Res    },
00825   /* Complex_4     */ {FALSE, Err_Res    },
00826   /* Complex_8     */ {FALSE, Err_Res    },
00827   /* Complex_16    */ {FALSE, Err_Res    },
00828   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00829   /* Logical_1        */  {FALSE, Err_Res    },
00830   /* Logical_2        */  {FALSE, Err_Res    },
00831   /* Logical_4        */  {FALSE, Err_Res    },
00832   /* Logical_8        */  {FALSE, Err_Res    },
00833   /* Character_1       */ {FALSE, Err_Res    },
00834   /* Character_2       */ {FALSE, Err_Res    },
00835   /* Character_4       */ {FALSE, Err_Res    },
00836   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00837   /* Structure_Type      */ {FALSE, Err_Res    },
00838   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00839       },
00840 /* Character_2 */   {
00841   /* Err_Res    */  {FALSE, Err_Res    },
00842   /* Short_Char_Const */  {FALSE, Err_Res    },
00843   /* Short_Typeless_Const */  {FALSE, Err_Res    },
00844         /* Typeless_1 */  {FALSE, Err_Res    },
00845         /* Typeless_2 */  {FALSE, Err_Res    },
00846         /* Typeless_4 */  {FALSE, Err_Res    },
00847         /* Typeless_8 */  {FALSE, Err_Res    },
00848   /* Long_Typeless */ {FALSE, Err_Res    },
00849   /* Integer_1      */  {FALSE, Err_Res    },
00850   /* Integer_2      */  {FALSE, Err_Res    },
00851   /* Integer_4      */  {FALSE, Err_Res    },
00852   /* Integer_8      */  {FALSE, Err_Res    },
00853   /* Real_4     */  {FALSE, Err_Res    },
00854   /* Real_8     */  {FALSE, Err_Res    },
00855   /* Real_16    */  {FALSE, Err_Res    },
00856   /* Complex_4     */ {FALSE, Err_Res    },
00857   /* Complex_8     */ {FALSE, Err_Res    },
00858   /* Complex_16    */ {FALSE, Err_Res    },
00859   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00860   /* Logical_1        */  {FALSE, Err_Res    },
00861   /* Logical_2        */  {FALSE, Err_Res    },
00862   /* Logical_4        */  {FALSE, Err_Res    },
00863   /* Logical_8        */  {FALSE, Err_Res    },
00864   /* Character_1       */ {FALSE, Err_Res    },
00865   /* Character_2       */ {FALSE, Err_Res    },
00866   /* Character_4       */ {FALSE, Err_Res    },
00867   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00868   /* Structure_Type      */ {FALSE, Err_Res    },
00869   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00870       },
00871 /* Character_4 */   {
00872   /* Err_Res    */  {FALSE, Err_Res    },
00873   /* Short_Char_Const */  {FALSE, Err_Res    },
00874   /* Short_Typeless_Const */  {FALSE, Err_Res    },
00875         /* Typeless_1 */  {FALSE, Err_Res    },
00876         /* Typeless_2 */  {FALSE, Err_Res    },
00877         /* Typeless_4 */  {FALSE, Err_Res    },
00878         /* Typeless_8 */  {FALSE, Err_Res    },
00879   /* Long_Typeless */ {FALSE, Err_Res    },
00880   /* Integer_1      */  {FALSE, Err_Res    },
00881   /* Integer_2      */  {FALSE, Err_Res    },
00882   /* Integer_4      */  {FALSE, Err_Res    },
00883   /* Integer_8      */  {FALSE, Err_Res    },
00884   /* Real_4     */  {FALSE, Err_Res    },
00885   /* Real_8     */  {FALSE, Err_Res    },
00886   /* Real_16    */  {FALSE, Err_Res    },
00887   /* Complex_4     */ {FALSE, Err_Res    },
00888   /* Complex_8     */ {FALSE, Err_Res    },
00889   /* Complex_16    */ {FALSE, Err_Res    },
00890   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00891   /* Logical_1        */  {FALSE, Err_Res    },
00892   /* Logical_2        */  {FALSE, Err_Res    },
00893   /* Logical_4        */  {FALSE, Err_Res    },
00894   /* Logical_8        */  {FALSE, Err_Res    },
00895   /* Character_1       */ {FALSE, Err_Res    },
00896   /* Character_2       */ {FALSE, Err_Res    },
00897   /* Character_4       */ {FALSE, Err_Res    },
00898   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00899   /* Structure_Type      */ {FALSE, Err_Res    },
00900   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00901       },
00902 /* CRI_Ch_Ptr_8 */    {
00903   /* Err_Res    */  {FALSE, Err_Res    },
00904   /* Short_Char_Const */  {FALSE, Err_Res    },
00905   /* Short_Typeless_Const */  {FALSE, Err_Res    },
00906         /* Typeless_1 */  {FALSE, Err_Res    },
00907         /* Typeless_2 */  {FALSE, Err_Res    },
00908         /* Typeless_4 */  {FALSE, Err_Res    },
00909         /* Typeless_8 */  {FALSE, Err_Res    },
00910   /* Long_Typeless */ {FALSE, Err_Res    },
00911   /* Integer_1      */  {TRUE , CRI_Ch_Ptr_8    },
00912   /* Integer_2      */  {TRUE , CRI_Ch_Ptr_8    },
00913   /* Integer_4      */  {TRUE , CRI_Ch_Ptr_8    },
00914   /* Integer_8      */  {TRUE , CRI_Ch_Ptr_8    },
00915   /* Real_4     */  {FALSE, Err_Res    },
00916   /* Real_8     */  {FALSE, Err_Res    },
00917   /* Real_16    */  {FALSE, Err_Res    },
00918   /* Complex_4     */ {FALSE, Err_Res    },
00919   /* Complex_8     */ {FALSE, Err_Res    },
00920   /* Complex_16    */ {FALSE, Err_Res    },
00921   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00922   /* Logical_1        */  {FALSE, Err_Res    },
00923   /* Logical_2        */  {FALSE, Err_Res    },
00924   /* Logical_4        */  {FALSE, Err_Res    },
00925   /* Logical_8        */  {FALSE, Err_Res    },
00926   /* Character_1       */ {FALSE, Err_Res    },
00927   /* Character_2       */ {FALSE, Err_Res    },
00928   /* Character_4       */ {FALSE, Err_Res    },
00929   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00930   /* Structure_Type      */ {FALSE, Err_Res    },
00931   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00932       },
00933 /* Structure_Type   */    {
00934   /* Err_Res    */  {FALSE, Err_Res    },
00935   /* Short_Char_Const */  {FALSE, Err_Res    },
00936   /* Short_Typeless_Const */  {FALSE, Err_Res    },
00937         /* Typeless_1 */  {FALSE, Err_Res    },
00938         /* Typeless_2 */  {FALSE, Err_Res    },
00939         /* Typeless_4 */  {FALSE, Err_Res    },
00940         /* Typeless_8 */  {FALSE, Err_Res    },
00941   /* Long_Typeless */ {FALSE, Err_Res    },
00942   /* Integer_1      */  {FALSE, Err_Res    },
00943   /* Integer_2      */  {FALSE, Err_Res    },
00944   /* Integer_4      */  {FALSE, Err_Res    },
00945   /* Integer_8      */  {FALSE, Err_Res    },
00946   /* Real_4     */  {FALSE, Err_Res    },
00947   /* Real_8     */  {FALSE, Err_Res    },
00948   /* Real_16    */  {FALSE, Err_Res    },
00949   /* Complex_4     */ {FALSE, Err_Res    },
00950   /* Complex_8     */ {FALSE, Err_Res    },
00951   /* Complex_16    */ {FALSE, Err_Res    },
00952   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
00953   /* Logical_1        */  {FALSE, Err_Res    },
00954   /* Logical_2        */  {FALSE, Err_Res    },
00955   /* Logical_4        */  {FALSE, Err_Res    },
00956   /* Logical_8        */  {FALSE, Err_Res    },
00957   /* Character_1       */ {FALSE, Err_Res    },
00958   /* Character_2       */ {FALSE, Err_Res    },
00959   /* Character_4       */ {FALSE, Err_Res    },
00960   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
00961   /* Structure_Type      */ {FALSE, Err_Res    },
00962   /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00963       },
00964 /* CRI_Parcel_Ptr_8   */          {
00965         /* Err_Res    */        {FALSE, Err_Res    },
00966         /* Short_Char_Const */  {TRUE , INT_WORD   },
00967         /* Short_Typeless_Const */    {TRUE , INT_WORD   },
00968         /* Typeless_1 */    {TRUE , INT_WORD   },
00969         /* Typeless_2 */    {TRUE , INT_WORD   },
00970         /* Typeless_4 */    {TRUE , INT_WORD   },
00971         /* Typeless_8 */    {TRUE , INT_WORD   },
00972         /* Long_Typeless */     {FALSE, Err_Res    },
00973         /* Integer_1      */    {TRUE , INT_WORD   },
00974         /* Integer_2      */    {TRUE , INT_WORD   },
00975         /* Integer_4      */    {TRUE , INT_WORD   },
00976         /* Integer_8      */    {TRUE , INT_WORD   },
00977         /* Real_4     */        {FALSE, Err_Res    },
00978         /* Real_8     */        {FALSE, Err_Res    },
00979         /* Real_16    */        {FALSE, Err_Res    },
00980         /* Complex_4     */     {FALSE, Err_Res    },
00981         /* Complex_8     */     {FALSE, Err_Res    },
00982         /* Complex_16    */     {FALSE, Err_Res    },
00983         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00984         /* Logical_1        */  {FALSE, Err_Res    },
00985         /* Logical_2        */  {FALSE, Err_Res    },
00986         /* Logical_4        */  {FALSE, Err_Res    },
00987         /* Logical_8        */  {FALSE, Err_Res    },
00988         /* Character_1       */ {FALSE, Err_Res    },
00989         /* Character_2       */ {FALSE, Err_Res    },
00990         /* Character_4       */ {FALSE, Err_Res    },
00991 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
00992   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
00993 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00994         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00995 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
00996         /* Structure_Type      */       {FALSE, Err_Res    },
00997         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00998                         }
00999     };
01000 
01001 
01002 exp_tbl_type  bin_sub_tbl[Num_Linear_Types][Num_Linear_Types] = {
01003 /* Err_Res */   {
01004   /* Err_Res    */  {FALSE, Err_Res    },
01005   /* Short_Char_Const */  {FALSE, Err_Res    },
01006   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01007         /* Typeless_1 */  {FALSE, Err_Res    },
01008         /* Typeless_2 */  {FALSE, Err_Res    },
01009         /* Typeless_4 */  {FALSE, Err_Res    },
01010         /* Typeless_8 */  {FALSE, Err_Res    },
01011   /* Long_Typeless */ {FALSE, Err_Res    },
01012   /* Integer_1      */  {FALSE, Err_Res    },
01013   /* Integer_2      */  {FALSE, Err_Res    },
01014   /* Integer_4      */  {FALSE, Err_Res    },
01015   /* Integer_8      */  {FALSE, Err_Res    },
01016   /* Real_4     */  {FALSE, Err_Res    },
01017   /* Real_8     */  {FALSE, Err_Res    },
01018   /* Real_16    */  {FALSE, Err_Res    },
01019   /* Complex_4     */ {FALSE, Err_Res    },
01020   /* Complex_8     */ {FALSE, Err_Res    },
01021   /* Complex_16    */ {FALSE, Err_Res    },
01022   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01023   /* Logical_1        */  {FALSE, Err_Res    },
01024   /* Logical_2        */  {FALSE, Err_Res    },
01025   /* Logical_4        */  {FALSE, Err_Res    },
01026   /* Logical_8        */  {FALSE, Err_Res    },
01027   /* Character_1       */ {FALSE, Err_Res    },
01028   /* Character_2       */ {FALSE, Err_Res    },
01029   /* Character_4       */ {FALSE, Err_Res    },
01030   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01031   /* Structure_Type      */ {FALSE, Err_Res    },
01032         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01033       },
01034 /* Short_Char_Const */  {
01035   /* Err_Res    */  {FALSE, Err_Res    },
01036   /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
01037   /* Short_Typeless_Const */  {TRUE , Short_Typeless_Const },
01038   /* Typeless_1 */  {TRUE , Typeless_1 },
01039   /* Typeless_2 */  {TRUE , Typeless_2 },
01040   /* Typeless_4 */  {TRUE , Typeless_4 },
01041   /* Typeless_8 */  {TRUE , Typeless_8 },
01042   /* Long_Typeless */ {FALSE, Err_Res    },
01043   /* Integer_1      */  {TRUE , Integer_1  },
01044   /* Integer_2      */  {TRUE , Integer_2  },
01045   /* Integer_4      */  {TRUE , Integer_4  },
01046   /* Integer_8      */  {TRUE , Integer_8  },
01047   /* Real_4     */  {TRUE , Real_4     },
01048   /* Real_8     */  {TRUE , Real_8     },
01049   /* Real_16    */  {TRUE , Real_16    },
01050   /* Complex_4     */ {TRUE , Complex_4  },
01051   /* Complex_8     */ {TRUE , Complex_8  },
01052   /* Complex_16    */ {TRUE , Complex_16 },
01053   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
01054   /* Logical_1        */  {FALSE, Err_Res    },
01055   /* Logical_2        */  {FALSE, Err_Res    },
01056   /* Logical_4        */  {FALSE, Err_Res    },
01057   /* Logical_8        */  {FALSE, Err_Res    },
01058   /* Character_1       */ {FALSE, Err_Res    },
01059   /* Character_2       */ {FALSE, Err_Res    },
01060   /* Character_4       */ {FALSE, Err_Res    },
01061 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01062   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
01063 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01064   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01065 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01066   /* Structure_Type      */ {FALSE, Err_Res    },
01067         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01068       },
01069 /* Short_Typeless_Const */  {
01070   /* Err_Res    */  {FALSE, Err_Res    },
01071   /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
01072   /* Short_Typeless_Const */  {TRUE , Short_Typeless_Const },
01073   /* Typeless_1 */  {TRUE , Typeless_1 },
01074   /* Typeless_2 */  {TRUE , Typeless_2 },
01075   /* Typeless_4 */  {TRUE , Typeless_4 },
01076   /* Typeless_8 */  {TRUE , Typeless_8 },
01077   /* Long_Typeless */ {FALSE, Err_Res    },
01078   /* Integer_1      */  {TRUE , Integer_1  },
01079   /* Integer_2      */  {TRUE , Integer_2  },
01080   /* Integer_4      */  {TRUE , Integer_4  },
01081   /* Integer_8      */  {TRUE , Integer_8      },
01082   /* Real_4     */  {TRUE , Real_4     },
01083         /* Real_8     */        {TRUE , Real_8     },
01084   /* Real_16    */  {TRUE , Real_16    },
01085   /* Complex_4     */ {TRUE , Complex_4  },
01086   /* Complex_8     */ {TRUE , Complex_8  },
01087   /* Complex_16    */ {TRUE , Complex_16 },
01088   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
01089   /* Logical_1        */  {FALSE, Err_Res    },
01090   /* Logical_2        */  {FALSE, Err_Res    },
01091   /* Logical_4        */  {FALSE, Err_Res    },
01092   /* Logical_8        */  {FALSE, Err_Res    },
01093   /* Character_1       */ {FALSE, Err_Res    },
01094   /* Character_2       */ {FALSE, Err_Res    },
01095   /* Character_4       */ {FALSE, Err_Res    },
01096 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01097   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
01098 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01099   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01100 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01101   /* Structure_Type      */ {FALSE, Err_Res    },
01102         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01103       },
01104 /* Typeless_1 */        {
01105         /* Err_Res    */        {FALSE, Err_Res    },
01106         /* Short_Char_Const */  {TRUE , Typeless_1 },
01107         /* Short_Typeless_Const */      {TRUE , Typeless_1 },
01108         /* Typeless_1 */        {TRUE , Typeless_1 },
01109         /* Typeless_2 */        {TRUE , Typeless_2 },
01110         /* Typeless_4 */        {TRUE , Typeless_4 },
01111         /* Typeless_8 */        {TRUE , Typeless_8 },
01112         /* Long_Typeless */     {FALSE, Err_Res    },
01113         /* Integer_1      */    {TRUE , Integer_1  },
01114         /* Integer_2      */    {TRUE , Integer_2  },
01115         /* Integer_4      */    {TRUE , Integer_4  },
01116         /* Integer_8      */    {TRUE , Integer_8      },
01117         /* Real_4     */        {FALSE, Err_Res    },
01118         /* Real_8     */        {FALSE, Err_Res    },
01119         /* Real_16    */        {FALSE, Err_Res    },
01120         /* Complex_4     */     {FALSE, Err_Res    },
01121         /* Complex_8     */     {FALSE, Err_Res    },
01122         /* Complex_16    */     {FALSE, Err_Res    },
01123         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01124         /* Logical_1        */  {FALSE, Err_Res    },
01125         /* Logical_2        */  {FALSE, Err_Res    },
01126         /* Logical_4        */  {FALSE, Err_Res    },
01127         /* Logical_8        */  {FALSE, Err_Res    },
01128         /* Character_1       */ {FALSE, Err_Res    },
01129         /* Character_2       */ {FALSE, Err_Res    },
01130         /* Character_4       */ {FALSE, Err_Res    },
01131 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01132   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
01133 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01134         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01135 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01136         /* Structure_Type      */       {FALSE, Err_Res    },
01137         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01138                         },
01139 /* Typeless_2 */        {
01140         /* Err_Res    */        {FALSE, Err_Res    },
01141         /* Short_Char_Const */  {TRUE , Typeless_2 },
01142         /* Short_Typeless_Const */      {TRUE , Typeless_2 },
01143         /* Typeless_1 */        {TRUE , Typeless_2 },
01144         /* Typeless_2 */        {TRUE , Typeless_2 },
01145         /* Typeless_4 */        {TRUE , Typeless_4 },
01146         /* Typeless_8 */        {TRUE , Typeless_8 },
01147         /* Long_Typeless */     {FALSE, Err_Res    },
01148         /* Integer_1      */    {TRUE , Integer_1  },
01149         /* Integer_2      */    {TRUE , Integer_2  },
01150         /* Integer_4      */    {TRUE , Integer_4  },
01151         /* Integer_8      */    {TRUE , Integer_8      },
01152         /* Real_4     */        {FALSE, Err_Res    },
01153         /* Real_8     */        {FALSE, Err_Res    },
01154         /* Real_16    */        {FALSE, Err_Res    },
01155         /* Complex_4     */     {FALSE, Err_Res    },
01156         /* Complex_8     */     {FALSE, Err_Res    },
01157         /* Complex_16    */     {FALSE, Err_Res    },
01158         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01159         /* Logical_1        */  {FALSE, Err_Res    },
01160         /* Logical_2        */  {FALSE, Err_Res    },
01161         /* Logical_4        */  {FALSE, Err_Res    },
01162         /* Logical_8        */  {FALSE, Err_Res    },
01163         /* Character_1       */ {FALSE, Err_Res    },
01164         /* Character_2       */ {FALSE, Err_Res    },
01165         /* Character_4       */ {FALSE, Err_Res    },
01166 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01167   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
01168 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01169         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01170 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01171         /* Structure_Type      */       {FALSE, Err_Res    },
01172         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01173                         },
01174 /* Typeless_4 */  {
01175   /* Err_Res    */  {FALSE, Err_Res    },
01176   /* Short_Char_Const */  {TRUE , Typeless_4 },
01177   /* Short_Typeless_Const */  {TRUE , Typeless_4 },
01178   /* Typeless_1 */  {TRUE , Typeless_4 },
01179   /* Typeless_2 */  {TRUE , Typeless_4 },
01180   /* Typeless_4 */  {TRUE , Typeless_4 },
01181   /* Typeless_8 */  {TRUE , Typeless_8 },
01182   /* Long_Typeless */ {FALSE, Err_Res    },
01183   /* Integer_1      */  {TRUE , Integer_1  },
01184   /* Integer_2      */  {TRUE , Integer_2  },
01185   /* Integer_4      */  {TRUE , Integer_4  },
01186   /* Integer_8      */  {TRUE , Integer_8      },
01187   /* Real_4     */  {TRUE , Real_4     },
01188         /* Real_8     */        {FALSE, Err_Res    },
01189         /* Real_16    */        {FALSE, Err_Res    },
01190         /* Complex_4     */     {FALSE, Err_Res    },
01191         /* Complex_8     */     {FALSE, Err_Res    },
01192         /* Complex_16    */     {FALSE, Err_Res    },
01193   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
01194   /* Logical_1        */  {FALSE, Err_Res    },
01195   /* Logical_2        */  {FALSE, Err_Res    },
01196   /* Logical_4        */  {FALSE, Err_Res    },
01197   /* Logical_8        */  {FALSE, Err_Res    },
01198   /* Character_1       */ {FALSE, Err_Res    },
01199   /* Character_2       */ {FALSE, Err_Res    },
01200   /* Character_4       */ {FALSE, Err_Res    },
01201 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01202   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
01203 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01204   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01205 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01206   /* Structure_Type      */ {FALSE, Err_Res    },
01207         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01208       },
01209 /* Typeless_8 */  {
01210   /* Err_Res    */  {FALSE, Err_Res    },
01211   /* Short_Char_Const */  {TRUE , Typeless_8 },
01212   /* Short_Typeless_Const */  {TRUE , Typeless_8 },
01213   /* Typeless_1 */  {TRUE , Typeless_8 },
01214   /* Typeless_2 */  {TRUE , Typeless_8 },
01215   /* Typeless_4 */  {TRUE , Typeless_8 },
01216   /* Typeless_8 */  {TRUE , Typeless_8 },
01217   /* Long_Typeless */ {FALSE, Err_Res    },
01218   /* Integer_1      */  {TRUE , Integer_1  },
01219   /* Integer_2      */  {TRUE , Integer_2  },
01220   /* Integer_4      */  {TRUE , Integer_4  },
01221   /* Integer_8      */  {TRUE , Integer_8      },
01222   /* Real_4     */  {TRUE , Real_4     },
01223         /* Real_8     */        {TRUE , Real_8     },
01224         /* Real_16    */        {FALSE, Err_Res    },
01225         /* Complex_4     */     {FALSE, Err_Res    },
01226         /* Complex_8     */     {FALSE, Err_Res    },
01227         /* Complex_16    */     {FALSE, Err_Res    },
01228   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
01229   /* Logical_1        */  {FALSE, Err_Res    },
01230   /* Logical_2        */  {FALSE, Err_Res    },
01231   /* Logical_4        */  {FALSE, Err_Res    },
01232   /* Logical_8        */  {FALSE, Err_Res    },
01233   /* Character_1       */ {FALSE, Err_Res    },
01234   /* Character_2       */ {FALSE, Err_Res    },
01235   /* Character_4       */ {FALSE, Err_Res    },
01236 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01237   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
01238 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01239   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01240 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01241   /* Structure_Type      */ {FALSE, Err_Res    },
01242         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01243       },
01244 /* Long_Typeless */ {
01245   /* Err_Res    */  {FALSE, Err_Res    },
01246   /* Short_Char_Const */  {FALSE, Err_Res    },
01247   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01248         /* Typeless_1 */  {FALSE, Err_Res    },
01249         /* Typeless_2 */  {FALSE, Err_Res    },
01250         /* Typeless_4 */  {FALSE, Err_Res    },
01251         /* Typeless_8 */  {FALSE, Err_Res    },
01252   /* Long_Typeless */ {FALSE, Err_Res    },
01253   /* Integer_1      */  {FALSE, Err_Res    },
01254   /* Integer_2      */  {FALSE, Err_Res    },
01255   /* Integer_4      */  {FALSE, Err_Res    },
01256   /* Integer_8      */  {FALSE, Err_Res    },
01257   /* Real_4     */  {FALSE, Err_Res    },
01258   /* Real_8     */  {FALSE, Err_Res    },
01259   /* Real_16    */  {FALSE, Err_Res    },
01260   /* Complex_4     */ {FALSE, Err_Res    },
01261   /* Complex_8     */ {FALSE, Err_Res    },
01262   /* Complex_16    */ {FALSE, Err_Res    },
01263   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01264   /* Logical_1        */  {FALSE, Err_Res    },
01265   /* Logical_2        */  {FALSE, Err_Res    },
01266   /* Logical_4        */  {FALSE, Err_Res    },
01267   /* Logical_8        */  {FALSE, Err_Res    },
01268   /* Character_1       */ {FALSE, Err_Res    },
01269   /* Character_2       */ {FALSE, Err_Res    },
01270   /* Character_4       */ {FALSE, Err_Res    },
01271   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01272   /* Structure_Type      */ {FALSE, Err_Res    },
01273         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01274       },
01275 /* Integer_1 */         {
01276         /* Err_Res    */        {FALSE, Err_Res    },
01277         /* Short_Char_Const */  {TRUE , Integer_1  },
01278         /* Short_Typeless_Const */        {TRUE , Integer_1  },
01279         /* Typeless_1 */        {TRUE , Integer_1  },
01280         /* Typeless_2 */        {TRUE , Integer_1  },
01281         /* Typeless_4 */        {TRUE , Integer_1  },
01282         /* Typeless_8 */        {TRUE , Integer_1  },
01283         /* Long_Typeless */        {FALSE, Err_Res    },
01284         /* Integer_1      */    {FALSE, Integer_1      },
01285         /* Integer_2      */    {FALSE, Integer_2      },
01286         /* Integer_4      */    {FALSE, Integer_4      },
01287         /* Integer_8      */    {FALSE, Integer_8      },
01288         /* Real_4     */        {FALSE, Real_4     },
01289         /* Real_8     */        {FALSE, Real_8     },
01290         /* Real_16    */        {FALSE, Real_16    },
01291         /* Complex_4     */     {FALSE, Complex_4     },
01292         /* Complex_8     */     {FALSE, Complex_8     },
01293         /* Complex_16    */     {FALSE, Complex_16    },
01294         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01295         /* Logical_1        */  {FALSE, Err_Res    },
01296         /* Logical_2        */  {FALSE, Err_Res    },
01297         /* Logical_4        */  {FALSE, Err_Res    },
01298         /* Logical_8        */  {FALSE, Err_Res    },
01299         /* Character_1       */ {FALSE, Err_Res    },
01300         /* Character_2       */ {FALSE, Err_Res    },
01301         /* Character_4       */ {FALSE, Err_Res    },
01302 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01303   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
01304 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01305         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01306 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01307         /* Structure_Type      */        {FALSE, Err_Res    },
01308         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01309                         },
01310 /* Integer_2 */   {
01311   /* Err_Res    */  {FALSE, Err_Res    },
01312   /* Short_Char_Const */  {TRUE , Integer_2  },
01313   /* Short_Typeless_Const */  {TRUE , Integer_2  },
01314   /* Typeless_1 */  {TRUE , Integer_2  },
01315   /* Typeless_2 */  {TRUE , Integer_2  },
01316   /* Typeless_4 */  {TRUE , Integer_2  },
01317   /* Typeless_8 */  {TRUE , Integer_2  },
01318   /* Long_Typeless */ {FALSE, Err_Res    },
01319   /* Integer_1      */  {FALSE, Integer_2      },
01320   /* Integer_2      */  {FALSE, Integer_2      },
01321   /* Integer_4      */  {FALSE, Integer_4      },
01322   /* Integer_8      */  {FALSE, Integer_8      },
01323   /* Real_4     */  {FALSE, Real_4     },
01324   /* Real_8     */  {FALSE, Real_8     },
01325   /* Real_16    */  {FALSE, Real_16    },
01326   /* Complex_4     */ {FALSE, Complex_4     },
01327   /* Complex_8     */ {FALSE, Complex_8     },
01328   /* Complex_16    */ {FALSE, Complex_16    },
01329   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
01330   /* Logical_1        */  {FALSE, Err_Res    },
01331   /* Logical_2        */  {FALSE, Err_Res    },
01332   /* Logical_4        */  {FALSE, Err_Res    },
01333   /* Logical_8        */  {FALSE, Err_Res    },
01334   /* Character_1       */ {FALSE, Err_Res    },
01335   /* Character_2       */ {FALSE, Err_Res    },
01336   /* Character_4       */ {FALSE, Err_Res    },
01337 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01338   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
01339 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01340   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01341 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01342   /* Structure_Type      */ {FALSE, Err_Res    },
01343         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01344       },
01345 /* Integer_4 */   {
01346   /* Err_Res    */  {FALSE, Err_Res    },
01347   /* Short_Char_Const */  {TRUE , Integer_4  },
01348   /* Short_Typeless_Const */  {TRUE , Integer_4  },
01349   /* Typeless_1 */  {TRUE , Integer_4  },
01350   /* Typeless_2 */  {TRUE , Integer_4  },
01351   /* Typeless_4 */  {TRUE , Integer_4  },
01352   /* Typeless_8 */  {TRUE , Integer_4  },
01353   /* Long_Typeless */ {FALSE, Err_Res    },
01354   /* Integer_1      */  {FALSE, Integer_4      },
01355   /* Integer_2      */  {FALSE, Integer_4      },
01356   /* Integer_4      */  {FALSE, Integer_4      },
01357   /* Integer_8      */  {FALSE, Integer_8      },
01358   /* Real_4     */  {FALSE, Real_4     },
01359   /* Real_8     */  {FALSE, Real_8     },
01360   /* Real_16    */  {FALSE, Real_16    },
01361   /* Complex_4     */ {FALSE, Complex_4     },
01362   /* Complex_8     */ {FALSE, Complex_8     },
01363   /* Complex_16    */ {FALSE, Complex_16    },
01364   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
01365   /* Logical_1        */  {FALSE, Err_Res    },
01366   /* Logical_2        */  {FALSE, Err_Res    },
01367   /* Logical_4        */  {FALSE, Err_Res    },
01368   /* Logical_8        */  {FALSE, Err_Res    },
01369   /* Character_1       */ {FALSE, Err_Res    },
01370   /* Character_2       */ {FALSE, Err_Res    },
01371   /* Character_4       */ {FALSE, Err_Res    },
01372 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01373   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
01374 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01375   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01376 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01377   /* Structure_Type      */ {FALSE, Err_Res    },
01378         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01379       },
01380 /* Integer_8 */   {
01381   /* Err_Res    */  {FALSE, Err_Res    },
01382   /* Short_Char_Const */  {TRUE , Integer_8      },
01383   /* Short_Typeless_Const */  {TRUE , Integer_8      },
01384   /* Typeless_1 */  {TRUE , Integer_8      },
01385   /* Typeless_2 */  {TRUE , Integer_8      },
01386   /* Typeless_4 */  {TRUE , Integer_8      },
01387   /* Typeless_8 */  {TRUE , Integer_8      },
01388   /* Long_Typeless */ {FALSE, Err_Res    },
01389   /* Integer_1      */  {FALSE, Integer_8      },
01390   /* Integer_2      */  {FALSE, Integer_8      },
01391   /* Integer_4      */  {FALSE, Integer_8      },
01392   /* Integer_8      */  {FALSE, Integer_8      },
01393   /* Real_4     */  {FALSE, Real_4     },
01394   /* Real_8     */  {FALSE, Real_8     },
01395   /* Real_16    */  {FALSE, Real_16    },
01396   /* Complex_4     */ {FALSE, Complex_4     },
01397   /* Complex_8     */ {FALSE, Complex_8     },
01398   /* Complex_16    */ {FALSE, Complex_16    },
01399   /* CRI_Ptr_8      */  {TRUE , CRI_Ptr_8   },
01400   /* Logical_1        */  {FALSE, Err_Res    },
01401   /* Logical_2        */  {FALSE, Err_Res    },
01402   /* Logical_4        */  {FALSE, Err_Res    },
01403   /* Logical_8        */  {FALSE, Err_Res    },
01404   /* Character_1       */ {FALSE, Err_Res    },
01405   /* Character_2       */ {FALSE, Err_Res    },
01406   /* Character_4       */ {FALSE, Err_Res    },
01407 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01408   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
01409 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01410   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01411 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01412   /* Structure_Type      */ {FALSE, Err_Res    },
01413         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01414       },
01415 /* Real_4 */    {
01416   /* Err_Res    */  {FALSE, Err_Res    },
01417   /* Short_Char_Const */  {TRUE , Real_4     },
01418   /* Short_Typeless_Const */  {TRUE , Real_4     },
01419   /* Typeless_1 */  {TRUE , Err_Res    },
01420   /* Typeless_2 */  {TRUE , Err_Res    },    
01421   /* Typeless_4 */  {TRUE , Real_4     },
01422   /* Typeless_8 */  {TRUE , Real_4     },
01423   /* Long_Typeless */ {FALSE, Err_Res    },
01424   /* Integer_1      */  {FALSE, Real_4     },
01425   /* Integer_2      */  {FALSE, Real_4     },
01426   /* Integer_4      */  {FALSE, Real_4     },
01427   /* Integer_8      */  {FALSE, Real_4     },
01428   /* Real_4     */  {FALSE, Real_4     },
01429   /* Real_8     */  {FALSE, Real_8     },
01430   /* Real_16    */  {FALSE, Real_16    },
01431   /* Complex_4     */ {FALSE, Complex_4     },
01432   /* Complex_8     */ {FALSE, Complex_8     },
01433   /* Complex_16    */ {FALSE, Complex_16    },
01434   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01435   /* Logical_1        */  {FALSE, Err_Res    },
01436   /* Logical_2        */  {FALSE, Err_Res    },
01437   /* Logical_4        */  {FALSE, Err_Res    },
01438   /* Logical_8        */  {FALSE, Err_Res    },
01439   /* Character_1       */ {FALSE, Err_Res    },
01440   /* Character_2       */ {FALSE, Err_Res    },
01441   /* Character_4       */ {FALSE, Err_Res    },
01442   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01443   /* Structure_Type      */ {FALSE, Err_Res    },
01444         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01445       },
01446 /* Real_8 */    {
01447   /* Err_Res    */  {FALSE, Err_Res    },
01448   /* Short_Char_Const */  {TRUE , Real_8     },
01449   /* Short_Typeless_Const */  {TRUE , Real_8     },
01450         /* Typeless_1 */    {FALSE, Err_Res    },
01451         /* Typeless_2 */    {FALSE, Err_Res    },
01452         /* Typeless_4 */    {FALSE, Err_Res    },
01453         /* Typeless_8 */    {TRUE , Real_8     },
01454   /* Long_Typeless */ {FALSE, Err_Res    },
01455   /* Integer_1      */  {FALSE, Real_8     },
01456   /* Integer_2      */  {FALSE, Real_8     },
01457   /* Integer_4      */  {FALSE, Real_8     },
01458   /* Integer_8      */  {FALSE, Real_8     },
01459   /* Real_4     */  {FALSE, Real_8     },
01460   /* Real_8     */  {FALSE, Real_8     },
01461   /* Real_16    */  {FALSE, Real_16    },
01462   /* Complex_4     */ {FALSE, Complex_8     },
01463   /* Complex_8     */ {FALSE, Complex_8     },
01464   /* Complex_16    */ {FALSE, Complex_16    },
01465   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01466   /* Logical_1        */  {FALSE, Err_Res    },
01467   /* Logical_2        */  {FALSE, Err_Res    },
01468   /* Logical_4        */  {FALSE, Err_Res    },
01469   /* Logical_8        */  {FALSE, Err_Res    },
01470   /* Character_1       */ {FALSE, Err_Res    },
01471   /* Character_2       */ {FALSE, Err_Res    },
01472   /* Character_4       */ {FALSE, Err_Res    },
01473   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01474   /* Structure_Type      */ {FALSE, Err_Res    },
01475         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01476       },
01477 /* Real_16 */   {
01478   /* Err_Res    */  {FALSE, Err_Res    },
01479   /* Short_Char_Const */  {TRUE , Real_16    },
01480   /* Short_Typeless_Const */  {TRUE , Real_16    },
01481         /* Typeless_1 */  {FALSE, Err_Res    },
01482         /* Typeless_2 */  {FALSE, Err_Res    },
01483         /* Typeless_4 */  {FALSE, Err_Res    },
01484         /* Typeless_8 */  {FALSE, Err_Res    },
01485   /* Long_Typeless */ {FALSE, Err_Res    },
01486   /* Integer_1      */  {FALSE, Real_16    },
01487   /* Integer_2      */  {FALSE, Real_16    },
01488   /* Integer_4      */  {FALSE, Real_16    },
01489   /* Integer_8      */  {FALSE, Real_16    },
01490   /* Real_4     */  {FALSE, Real_16    },
01491   /* Real_8     */  {FALSE, Real_16    },
01492   /* Real_16    */  {FALSE, Real_16    },
01493   /* Complex_4     */ {FALSE, Complex_16    },
01494   /* Complex_8     */ {FALSE, Complex_16    },
01495   /* Complex_16    */ {FALSE, Complex_16    },
01496   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01497   /* Logical_1        */  {FALSE, Err_Res    },
01498   /* Logical_2        */  {FALSE, Err_Res    },
01499   /* Logical_4        */  {FALSE, Err_Res    },
01500   /* Logical_8        */  {FALSE, Err_Res    },
01501   /* Character_1       */ {FALSE, Err_Res    },
01502   /* Character_2       */ {FALSE, Err_Res    },
01503   /* Character_4       */ {FALSE, Err_Res    },
01504   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01505   /* Structure_Type      */ {FALSE, Err_Res    },
01506         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01507       },
01508 /* Complex_4 */   {
01509   /* Err_Res    */  {FALSE, Err_Res    },
01510   /* Short_Char_Const */  {TRUE , Complex_4  },
01511   /* Short_Typeless_Const */  {TRUE , Complex_4  },
01512         /* Typeless_1 */  {FALSE, Err_Res    },
01513         /* Typeless_2 */  {FALSE, Err_Res    },
01514         /* Typeless_4 */  {FALSE, Err_Res    },
01515         /* Typeless_8 */  {FALSE, Err_Res    },
01516   /* Long_Typeless */ {FALSE, Err_Res    },
01517   /* Integer_1      */  {FALSE, Complex_4     },
01518   /* Integer_2      */  {FALSE, Complex_4     },
01519   /* Integer_4      */  {FALSE, Complex_4     },
01520   /* Integer_8      */  {FALSE, Complex_4     },
01521   /* Real_4     */  {FALSE, Complex_4     },
01522   /* Real_8     */  {FALSE, Complex_8     },
01523   /* Real_16    */  {FALSE, Complex_16    },
01524   /* Complex_4     */ {FALSE, Complex_4     },
01525   /* Complex_8     */ {FALSE, Complex_8     },
01526   /* Complex_16    */ {FALSE, Complex_16    },
01527   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01528   /* Logical_1        */  {FALSE, Err_Res    },
01529   /* Logical_2        */  {FALSE, Err_Res    },
01530   /* Logical_4        */  {FALSE, Err_Res    },
01531   /* Logical_8        */  {FALSE, Err_Res    },
01532   /* Character_1       */ {FALSE, Err_Res    },
01533   /* Character_2       */ {FALSE, Err_Res    },
01534   /* Character_4       */ {FALSE, Err_Res    },
01535   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01536   /* Structure_Type      */ {FALSE, Err_Res    },
01537         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01538       },
01539 /* Complex_8 */   {
01540   /* Err_Res    */  {FALSE, Err_Res    },
01541   /* Short_Char_Const */  {TRUE , Complex_8  },
01542   /* Short_Typeless_Const */  {TRUE , Complex_8  },
01543         /* Typeless_1 */  {FALSE, Err_Res    },
01544         /* Typeless_2 */  {FALSE, Err_Res    },
01545         /* Typeless_4 */  {FALSE, Err_Res    },
01546         /* Typeless_8 */  {FALSE, Err_Res    },
01547   /* Long_Typeless */ {FALSE, Err_Res    },
01548   /* Integer_1      */  {FALSE, Complex_8     },
01549   /* Integer_2      */  {FALSE, Complex_8     },
01550   /* Integer_4      */  {FALSE, Complex_8     },
01551   /* Integer_8      */  {FALSE, Complex_8     },
01552   /* Real_4     */  {FALSE, Complex_8     },
01553   /* Real_8     */  {FALSE, Complex_8     },
01554   /* Real_16    */  {FALSE, Complex_16    },
01555   /* Complex_4     */ {FALSE, Complex_8     },
01556   /* Complex_8     */ {FALSE, Complex_8     },
01557   /* Complex_16    */ {FALSE, Complex_16    },
01558   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01559   /* Logical_1        */  {FALSE, Err_Res    },
01560   /* Logical_2        */  {FALSE, Err_Res    },
01561   /* Logical_4        */  {FALSE, Err_Res    },
01562   /* Logical_8        */  {FALSE, Err_Res    },
01563   /* Character_1       */ {FALSE, Err_Res    },
01564   /* Character_2       */ {FALSE, Err_Res    },
01565   /* Character_4       */ {FALSE, Err_Res    },
01566   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01567   /* Structure_Type      */ {FALSE, Err_Res    },
01568         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01569       },
01570 /* Complex_16 */    {
01571   /* Err_Res    */  {FALSE, Err_Res    },
01572   /* Short_Char_Const */  {TRUE , Complex_16 },
01573   /* Short_Typeless_Const */  {TRUE , Complex_16 },
01574         /* Typeless_1 */  {FALSE, Err_Res    },
01575         /* Typeless_2 */  {FALSE, Err_Res    },
01576         /* Typeless_4 */  {FALSE, Err_Res    },
01577         /* Typeless_8 */  {FALSE, Err_Res    },
01578   /* Long_Typeless */ {FALSE, Err_Res    },
01579   /* Integer_1      */  {FALSE, Complex_16    },
01580   /* Integer_2      */  {FALSE, Complex_16    },
01581   /* Integer_4      */  {FALSE, Complex_16    },
01582   /* Integer_8      */  {FALSE, Complex_16    },
01583   /* Real_4     */  {FALSE, Complex_16    },
01584   /* Real_8     */  {FALSE, Complex_16    },
01585   /* Real_16    */  {FALSE, Complex_16    },
01586   /* Complex_4     */ {FALSE, Complex_16    },
01587   /* Complex_8     */ {FALSE, Complex_16    },
01588   /* Complex_16    */ {FALSE, Complex_16    },
01589   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01590   /* Logical_1        */  {FALSE, Err_Res    },
01591   /* Logical_2        */  {FALSE, Err_Res    },
01592   /* Logical_4        */  {FALSE, Err_Res    },
01593   /* Logical_8        */  {FALSE, Err_Res    },
01594   /* Character_1       */ {FALSE, Err_Res    },
01595   /* Character_2       */ {FALSE, Err_Res    },
01596   /* Character_4       */ {FALSE, Err_Res    },
01597   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01598   /* Structure_Type      */ {FALSE, Err_Res    },
01599         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01600       },
01601 /* CRI_Ptr_8 */   {
01602   /* Err_Res    */  {FALSE, Err_Res    },
01603   /* Short_Char_Const */  {TRUE , CRI_Ptr_8   },
01604   /* Short_Typeless_Const */  {TRUE , CRI_Ptr_8   },
01605   /* Typeless_1 */  {TRUE , CRI_Ptr_8   },
01606   /* Typeless_2 */  {TRUE , CRI_Ptr_8   },
01607   /* Typeless_4 */  {TRUE , CRI_Ptr_8   },
01608   /* Typeless_8 */  {TRUE , CRI_Ptr_8   },
01609   /* Long_Typeless */ {FALSE, Err_Res    },
01610   /* Integer_1      */  {TRUE , CRI_Ptr_8   },
01611   /* Integer_2      */  {TRUE , CRI_Ptr_8   },
01612   /* Integer_4      */  {TRUE , CRI_Ptr_8   },
01613   /* Integer_8      */  {TRUE , CRI_Ptr_8   },
01614   /* Real_4     */  {FALSE, Err_Res    },
01615   /* Real_8     */  {FALSE, Err_Res    },
01616   /* Real_16    */  {FALSE, Err_Res    },
01617   /* Complex_4     */ {FALSE, Err_Res    },
01618   /* Complex_8     */ {FALSE, Err_Res    },
01619   /* Complex_16    */ {FALSE, Err_Res    },
01620   /* CRI_Ptr_8      */  {TRUE , INT_WORD   },
01621   /* Logical_1        */  {FALSE, Err_Res    },
01622   /* Logical_2        */  {FALSE, Err_Res    },
01623   /* Logical_4        */  {FALSE, Err_Res    },
01624   /* Logical_8        */  {FALSE, Err_Res    },
01625   /* Character_1       */ {FALSE, Err_Res    },
01626   /* Character_2       */ {FALSE, Err_Res    },
01627   /* Character_4       */ {FALSE, Err_Res    },
01628 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01629   /* CRI_Ch_Ptr_8    */ {TRUE , INT_WORD    },
01630 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01631   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01632 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01633   /* Structure_Type      */ {FALSE, Err_Res    },
01634         /* CRI_Parcel_Ptr_8  */   {TRUE , CRI_Ptr_8   }
01635       },
01636 /* Logical_1 */   {
01637   /* Err_Res    */  {FALSE, Err_Res    },
01638   /* Short_Char_Const */  {FALSE, Err_Res    },
01639   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01640         /* Typeless_1 */  {FALSE, Err_Res    },
01641         /* Typeless_2 */  {FALSE, Err_Res    },
01642         /* Typeless_4 */  {FALSE, Err_Res    },
01643         /* Typeless_8 */  {FALSE, Err_Res    },
01644   /* Long_Typeless */ {FALSE, Err_Res    },
01645   /* Integer_1      */  {FALSE, Err_Res    },
01646   /* Integer_2      */  {FALSE, Err_Res    },
01647   /* Integer_4      */  {FALSE, Err_Res    },
01648   /* Integer_8      */  {FALSE, Err_Res    },
01649   /* Real_4     */  {FALSE, Err_Res    },
01650   /* Real_8     */  {FALSE, Err_Res    },
01651   /* Real_16    */  {FALSE, Err_Res    },
01652   /* Complex_4     */ {FALSE, Err_Res    },
01653   /* Complex_8     */ {FALSE, Err_Res    },
01654   /* Complex_16    */ {FALSE, Err_Res    },
01655   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01656   /* Logical_1        */  {FALSE, Err_Res    },
01657   /* Logical_2        */  {FALSE, Err_Res    },
01658   /* Logical_4        */  {FALSE, Err_Res    },
01659   /* Logical_8        */  {FALSE, Err_Res    },
01660   /* Character_1       */ {FALSE, Err_Res    },
01661   /* Character_2       */ {FALSE, Err_Res    },
01662   /* Character_4       */ {FALSE, Err_Res    },
01663   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01664   /* Structure_Type      */ {FALSE, Err_Res    },
01665         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01666       },
01667 /* Logical_2 */   {
01668   /* Err_Res    */  {FALSE, Err_Res    },
01669   /* Short_Char_Const */  {FALSE, Err_Res    },
01670   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01671         /* Typeless_1 */  {FALSE, Err_Res    },
01672         /* Typeless_2 */  {FALSE, Err_Res    },
01673         /* Typeless_4 */  {FALSE, Err_Res    },
01674         /* Typeless_8 */  {FALSE, Err_Res    },
01675   /* Long_Typeless */ {FALSE, Err_Res    },
01676   /* Integer_1      */  {FALSE, Err_Res    },
01677   /* Integer_2      */  {FALSE, Err_Res    },
01678   /* Integer_4      */  {FALSE, Err_Res    },
01679   /* Integer_8      */  {FALSE, Err_Res    },
01680   /* Real_4     */  {FALSE, Err_Res    },
01681   /* Real_8     */  {FALSE, Err_Res    },
01682   /* Real_16    */  {FALSE, Err_Res    },
01683   /* Complex_4     */ {FALSE, Err_Res    },
01684   /* Complex_8     */ {FALSE, Err_Res    },
01685   /* Complex_16    */ {FALSE, Err_Res    },
01686   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01687   /* Logical_1        */  {FALSE, Err_Res    },
01688   /* Logical_2        */  {FALSE, Err_Res    },
01689   /* Logical_4        */  {FALSE, Err_Res    },
01690   /* Logical_8        */  {FALSE, Err_Res    },
01691   /* Character_1       */ {FALSE, Err_Res    },
01692   /* Character_2       */ {FALSE, Err_Res    },
01693   /* Character_4       */ {FALSE, Err_Res    },
01694   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01695   /* Structure_Type      */ {FALSE, Err_Res    },
01696         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01697       },
01698 /* Logical_4 */   {
01699   /* Err_Res    */  {FALSE, Err_Res    },
01700   /* Short_Char_Const */  {FALSE, Err_Res    },
01701   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01702         /* Typeless_1 */  {FALSE, Err_Res    },
01703         /* Typeless_2 */  {FALSE, Err_Res    },
01704         /* Typeless_4 */  {FALSE, Err_Res    },
01705         /* Typeless_8 */  {FALSE, Err_Res    },
01706   /* Long_Typeless */ {FALSE, Err_Res    },
01707   /* Integer_1      */  {FALSE, Err_Res    },
01708   /* Integer_2      */  {FALSE, Err_Res    },
01709   /* Integer_4      */  {FALSE, Err_Res    },
01710   /* Integer_8      */  {FALSE, Err_Res    },
01711   /* Real_4     */  {FALSE, Err_Res    },
01712   /* Real_8     */  {FALSE, Err_Res    },
01713   /* Real_16    */  {FALSE, Err_Res    },
01714   /* Complex_4     */ {FALSE, Err_Res    },
01715   /* Complex_8     */ {FALSE, Err_Res    },
01716   /* Complex_16    */ {FALSE, Err_Res    },
01717   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01718   /* Logical_1        */  {FALSE, Err_Res    },
01719   /* Logical_2        */  {FALSE, Err_Res    },
01720   /* Logical_4        */  {FALSE, Err_Res    },
01721   /* Logical_8        */  {FALSE, Err_Res    },
01722   /* Character_1       */ {FALSE, Err_Res    },
01723   /* Character_2       */ {FALSE, Err_Res    },
01724   /* Character_4       */ {FALSE, Err_Res    },
01725   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01726   /* Structure_Type      */ {FALSE, Err_Res    },
01727         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01728       },
01729 /* Logical_8 */   {
01730   /* Err_Res    */  {FALSE, Err_Res    },
01731   /* Short_Char_Const */  {FALSE, Err_Res    },
01732   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01733         /* Typeless_1 */  {FALSE, Err_Res    },
01734         /* Typeless_2 */  {FALSE, Err_Res    },
01735         /* Typeless_4 */  {FALSE, Err_Res    },
01736         /* Typeless_8 */  {FALSE, Err_Res    },
01737   /* Long_Typeless */ {FALSE, Err_Res    },
01738   /* Integer_1      */  {FALSE, Err_Res    },
01739   /* Integer_2      */  {FALSE, Err_Res    },
01740   /* Integer_4      */  {FALSE, Err_Res    },
01741   /* Integer_8      */  {FALSE, Err_Res    },
01742   /* Real_4     */  {FALSE, Err_Res    },
01743   /* Real_8     */  {FALSE, Err_Res    },
01744   /* Real_16    */  {FALSE, Err_Res    },
01745   /* Complex_4     */ {FALSE, Err_Res    },
01746   /* Complex_8     */ {FALSE, Err_Res    },
01747   /* Complex_16    */ {FALSE, Err_Res    },
01748   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01749   /* Logical_1        */  {FALSE, Err_Res    },
01750   /* Logical_2        */  {FALSE, Err_Res    },
01751   /* Logical_4        */  {FALSE, Err_Res    },
01752   /* Logical_8        */  {FALSE, Err_Res    },
01753   /* Character_1       */ {FALSE, Err_Res    },
01754   /* Character_2       */ {FALSE, Err_Res    },
01755   /* Character_4       */ {FALSE, Err_Res    },
01756   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01757   /* Structure_Type      */ {FALSE, Err_Res    },
01758         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01759       },
01760 /* Character_1 */   {
01761   /* Err_Res    */  {FALSE, Err_Res    },
01762   /* Short_Char_Const */  {FALSE, Err_Res    },
01763   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01764         /* Typeless_1 */  {FALSE, Err_Res    },
01765         /* Typeless_2 */  {FALSE, Err_Res    },
01766         /* Typeless_4 */  {FALSE, Err_Res    },
01767         /* Typeless_8 */  {FALSE, Err_Res    },
01768   /* Long_Typeless */ {FALSE, Err_Res    },
01769   /* Integer_1      */  {FALSE, Err_Res    },
01770   /* Integer_2      */  {FALSE, Err_Res    },
01771   /* Integer_4      */  {FALSE, Err_Res    },
01772   /* Integer_8      */  {FALSE, Err_Res    },
01773   /* Real_4     */  {FALSE, Err_Res    },
01774   /* Real_8     */  {FALSE, Err_Res    },
01775   /* Real_16    */  {FALSE, Err_Res    },
01776   /* Complex_4     */ {FALSE, Err_Res    },
01777   /* Complex_8     */ {FALSE, Err_Res    },
01778   /* Complex_16    */ {FALSE, Err_Res    },
01779   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01780   /* Logical_1        */  {FALSE, Err_Res    },
01781   /* Logical_2        */  {FALSE, Err_Res    },
01782   /* Logical_4        */  {FALSE, Err_Res    },
01783   /* Logical_8        */  {FALSE, Err_Res    },
01784   /* Character_1       */ {FALSE, Err_Res    },
01785   /* Character_2       */ {FALSE, Err_Res    },
01786   /* Character_4       */ {FALSE, Err_Res    },
01787   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01788   /* Structure_Type      */ {FALSE, Err_Res    },
01789         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01790       },
01791 /* Character_2 */   {
01792   /* Err_Res    */  {FALSE, Err_Res    },
01793   /* Short_Char_Const */  {FALSE, Err_Res    },
01794   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01795         /* Typeless_1 */  {FALSE, Err_Res    },
01796         /* Typeless_2 */  {FALSE, Err_Res    },
01797         /* Typeless_4 */  {FALSE, Err_Res    },
01798         /* Typeless_8 */  {FALSE, Err_Res    },
01799   /* Long_Typeless */ {FALSE, Err_Res    },
01800   /* Integer_1      */  {FALSE, Err_Res    },
01801   /* Integer_2      */  {FALSE, Err_Res    },
01802   /* Integer_4      */  {FALSE, Err_Res    },
01803   /* Integer_8      */  {FALSE, Err_Res    },
01804   /* Real_4     */  {FALSE, Err_Res    },
01805   /* Real_8     */  {FALSE, Err_Res    },
01806   /* Real_16    */  {FALSE, Err_Res    },
01807   /* Complex_4     */ {FALSE, Err_Res    },
01808   /* Complex_8     */ {FALSE, Err_Res    },
01809   /* Complex_16    */ {FALSE, Err_Res    },
01810   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01811   /* Logical_1        */  {FALSE, Err_Res    },
01812   /* Logical_2        */  {FALSE, Err_Res    },
01813   /* Logical_4        */  {FALSE, Err_Res    },
01814   /* Logical_8        */  {FALSE, Err_Res    },
01815   /* Character_1       */ {FALSE, Err_Res    },
01816   /* Character_2       */ {FALSE, Err_Res    },
01817   /* Character_4       */ {FALSE, Err_Res    },
01818   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01819   /* Structure_Type      */ {FALSE, Err_Res    },
01820         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01821       },
01822 /* Character_4 */   {
01823   /* Err_Res    */  {FALSE, Err_Res    },
01824   /* Short_Char_Const */  {FALSE, Err_Res    },
01825   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01826         /* Typeless_1 */  {FALSE, Err_Res    },
01827         /* Typeless_2 */  {FALSE, Err_Res    },
01828         /* Typeless_4 */  {FALSE, Err_Res    },
01829         /* Typeless_8 */  {FALSE, Err_Res    },
01830   /* Long_Typeless */ {FALSE, Err_Res    },
01831   /* Integer_1      */  {FALSE, Err_Res    },
01832   /* Integer_2      */  {FALSE, Err_Res    },
01833   /* Integer_4      */  {FALSE, Err_Res    },
01834   /* Integer_8      */  {FALSE, Err_Res    },
01835   /* Real_4     */  {FALSE, Err_Res    },
01836   /* Real_8     */  {FALSE, Err_Res    },
01837   /* Real_16    */  {FALSE, Err_Res    },
01838   /* Complex_4     */ {FALSE, Err_Res    },
01839   /* Complex_8     */ {FALSE, Err_Res    },
01840   /* Complex_16    */ {FALSE, Err_Res    },
01841   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01842   /* Logical_1        */  {FALSE, Err_Res    },
01843   /* Logical_2        */  {FALSE, Err_Res    },
01844   /* Logical_4        */  {FALSE, Err_Res    },
01845   /* Logical_8        */  {FALSE, Err_Res    },
01846   /* Character_1       */ {FALSE, Err_Res    },
01847   /* Character_2       */ {FALSE, Err_Res    },
01848   /* Character_4       */ {FALSE, Err_Res    },
01849   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01850   /* Structure_Type      */ {FALSE, Err_Res    },
01851         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01852       },
01853 /* CRI_Ch_Ptr_8 */    {
01854   /* Err_Res    */  {FALSE, Err_Res    },
01855   /* Short_Char_Const */  {FALSE, Err_Res    },
01856   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01857         /* Typeless_1 */  {FALSE, Err_Res    },
01858         /* Typeless_2 */  {FALSE, Err_Res    },
01859         /* Typeless_4 */  {FALSE, Err_Res    },
01860         /* Typeless_8 */  {FALSE, Err_Res    },
01861   /* Long_Typeless */ {FALSE, Err_Res    },
01862   /* Integer_1      */  {TRUE , CRI_Ch_Ptr_8    },
01863   /* Integer_2      */  {TRUE , CRI_Ch_Ptr_8    },
01864   /* Integer_4      */  {TRUE , CRI_Ch_Ptr_8    },
01865   /* Integer_8      */  {TRUE , CRI_Ch_Ptr_8    },
01866   /* Real_4     */  {FALSE, Err_Res    },
01867   /* Real_8     */  {FALSE, Err_Res    },
01868   /* Real_16    */  {FALSE, Err_Res    },
01869   /* Complex_4     */ {FALSE, Err_Res    },
01870   /* Complex_8     */ {FALSE, Err_Res    },
01871   /* Complex_16    */ {FALSE, Err_Res    },
01872 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01873   /* CRI_Ptr_8    */  {TRUE , INT_WORD    },
01874 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01875   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01876 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01877   /* Logical_1        */  {FALSE, Err_Res    },
01878   /* Logical_2        */  {FALSE, Err_Res    },
01879   /* Logical_4        */  {FALSE, Err_Res    },
01880   /* Logical_8        */  {FALSE, Err_Res    },
01881   /* Character_1       */ {FALSE, Err_Res    },
01882   /* Character_2       */ {FALSE, Err_Res    },
01883   /* Character_4       */ {FALSE, Err_Res    },
01884 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01885   /* CRI_Ch_Ptr_8    */ {TRUE , INT_WORD    },
01886 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01887   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01888 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01889   /* Structure_Type      */ {FALSE, Err_Res    },
01890         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01891       },
01892 /* Structure_Type   */    {
01893   /* Err_Res    */  {FALSE, Err_Res    },
01894   /* Short_Char_Const */  {FALSE, Err_Res    },
01895   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01896         /* Typeless_1 */  {FALSE, Err_Res    },
01897         /* Typeless_2 */  {FALSE, Err_Res    },
01898         /* Typeless_4 */  {FALSE, Err_Res    },
01899         /* Typeless_8 */  {FALSE, Err_Res    },
01900   /* Long_Typeless */ {FALSE, Err_Res    },
01901   /* Integer_1      */  {FALSE, Err_Res    },
01902   /* Integer_2      */  {FALSE, Err_Res    },
01903   /* Integer_4      */  {FALSE, Err_Res    },
01904   /* Integer_8      */  {FALSE, Err_Res    },
01905   /* Real_4     */  {FALSE, Err_Res    },
01906   /* Real_8     */  {FALSE, Err_Res    },
01907   /* Real_16    */  {FALSE, Err_Res    },
01908   /* Complex_4     */ {FALSE, Err_Res    },
01909   /* Complex_8     */ {FALSE, Err_Res    },
01910   /* Complex_16    */ {FALSE, Err_Res    },
01911   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01912   /* Logical_1        */  {FALSE, Err_Res    },
01913   /* Logical_2        */  {FALSE, Err_Res    },
01914   /* Logical_4        */  {FALSE, Err_Res    },
01915   /* Logical_8        */  {FALSE, Err_Res    },
01916   /* Character_1       */ {FALSE, Err_Res    },
01917   /* Character_2       */ {FALSE, Err_Res    },
01918   /* Character_4       */ {FALSE, Err_Res    },
01919   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01920   /* Structure_Type      */ {FALSE, Err_Res    },
01921         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01922       },
01923 /* CRI_Parcel_Ptr_8   */          {
01924         /* Err_Res    */        {FALSE, Err_Res    },
01925         /* Short_Char_Const */  {TRUE , INT_WORD   },
01926         /* Short_Typeless_Const */    {TRUE , INT_WORD   },
01927         /* Typeless_1 */    {TRUE , INT_WORD   },
01928         /* Typeless_2 */    {TRUE , INT_WORD   },
01929         /* Typeless_4 */    {TRUE , INT_WORD   },
01930         /* Typeless_8 */    {TRUE , INT_WORD   },
01931         /* Long_Typeless */     {FALSE, Err_Res    },
01932         /* Integer_1      */    {TRUE , INT_WORD   },
01933         /* Integer_2      */    {TRUE , INT_WORD   },
01934         /* Integer_4      */    {TRUE , INT_WORD   },
01935         /* Integer_8      */    {TRUE , INT_WORD   },
01936         /* Real_4     */        {FALSE, Err_Res    },
01937         /* Real_8     */        {FALSE, Err_Res    },
01938         /* Real_16    */        {FALSE, Err_Res    },
01939         /* Complex_4     */     {FALSE, Err_Res    },
01940         /* Complex_8     */     {FALSE, Err_Res    },
01941         /* Complex_16    */     {FALSE, Err_Res    },
01942         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01943         /* Logical_1        */  {FALSE, Err_Res    },
01944         /* Logical_2        */  {FALSE, Err_Res    },
01945         /* Logical_4        */  {FALSE, Err_Res    },
01946         /* Logical_8        */  {FALSE, Err_Res    },
01947         /* Character_1       */ {FALSE, Err_Res    },
01948         /* Character_2       */ {FALSE, Err_Res    },
01949         /* Character_4       */ {FALSE, Err_Res    },
01950 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 5892 */
01951   /* CRI_Ch_Ptr_8    */ {TRUE , CRI_Ch_Ptr_8    },
01952 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01953         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01954 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 5892 */
01955         /* Structure_Type      */       {FALSE, Err_Res    },
01956         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01957                         }
01958     };
01959 
01960 
01961 exp_tbl_type  mult_div_tbl[Num_Linear_Types][Num_Linear_Types] = {
01962 /* Err_Res */   {
01963   /* Err_Res    */  {FALSE, Err_Res    },
01964   /* Short_Char_Const */  {FALSE, Err_Res    },
01965   /* Short_Typeless_Const */  {FALSE, Err_Res    },
01966         /* Typeless_1 */  {FALSE, Err_Res    },
01967         /* Typeless_2 */  {FALSE, Err_Res    },
01968         /* Typeless_4 */  {FALSE, Err_Res    },
01969         /* Typeless_8 */  {FALSE, Err_Res    },
01970   /* Long_Typeless */ {FALSE, Err_Res    },
01971   /* Integer_1      */  {FALSE, Err_Res    },
01972   /* Integer_2      */  {FALSE, Err_Res    },
01973   /* Integer_4      */  {FALSE, Err_Res    },
01974   /* Integer_8      */  {FALSE, Err_Res    },
01975   /* Real_4     */  {FALSE, Err_Res    },
01976   /* Real_8     */  {FALSE, Err_Res    },
01977   /* Real_16    */  {FALSE, Err_Res    },
01978   /* Complex_4     */ {FALSE, Err_Res    },
01979   /* Complex_8     */ {FALSE, Err_Res    },
01980   /* Complex_16    */ {FALSE, Err_Res    },
01981   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
01982   /* Logical_1        */  {FALSE, Err_Res    },
01983   /* Logical_2        */  {FALSE, Err_Res    },
01984   /* Logical_4        */  {FALSE, Err_Res    },
01985   /* Logical_8        */  {FALSE, Err_Res    },
01986   /* Character_1       */ {FALSE, Err_Res    },
01987   /* Character_2       */ {FALSE, Err_Res    },
01988   /* Character_4       */ {FALSE, Err_Res    },
01989   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
01990   /* Structure_Type      */ {FALSE, Err_Res    },
01991         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01992       },
01993 /* Short_Char_Const */  {
01994   /* Err_Res    */  {FALSE, Err_Res    },
01995   /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
01996   /* Short_Typeless_Const */  {TRUE , Short_Typeless_Const },
01997   /* Typeless_1 */  {TRUE , Typeless_1 },
01998   /* Typeless_2 */  {TRUE , Typeless_2 },
01999   /* Typeless_4 */  {TRUE , Typeless_4 },
02000   /* Typeless_8 */  {TRUE , Typeless_8 },
02001   /* Long_Typeless */ {FALSE, Err_Res    },
02002   /* Integer_1      */  {TRUE , Integer_1  },
02003   /* Integer_2      */  {TRUE , Integer_2  },
02004   /* Integer_4      */  {TRUE , Integer_4  },
02005   /* Integer_8      */  {TRUE , Integer_8      },
02006   /* Real_4     */  {TRUE , Real_4     },
02007         /* Real_8     */        {TRUE , Real_8     },
02008         /* Real_16    */        {TRUE , Real_16    },
02009   /* Complex_4     */ {TRUE , Complex_4  },
02010   /* Complex_8     */ {TRUE , Complex_8  },
02011   /* Complex_16    */ {TRUE , Complex_16 },
02012   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02013   /* Logical_1        */  {FALSE, Err_Res    },
02014   /* Logical_2        */  {FALSE, Err_Res    },
02015   /* Logical_4        */  {FALSE, Err_Res    },
02016   /* Logical_8        */  {FALSE, Err_Res    },
02017   /* Character_1       */ {FALSE, Err_Res    },
02018   /* Character_2       */ {FALSE, Err_Res    },
02019   /* Character_4       */ {FALSE, Err_Res    },
02020   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02021   /* Structure_Type      */ {FALSE, Err_Res    },
02022         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02023       },
02024 /* Short_Typeless_Const */  {
02025   /* Err_Res    */  {FALSE, Err_Res    },
02026   /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
02027   /* Short_Typeless_Const */  {TRUE , Short_Typeless_Const },
02028   /* Typeless_1 */  {TRUE , Typeless_1 },
02029   /* Typeless_2 */  {TRUE , Typeless_2 },
02030   /* Typeless_4 */  {TRUE , Typeless_4 },
02031   /* Typeless_8 */  {TRUE , Typeless_8 },
02032   /* Long_Typeless */ {FALSE, Err_Res    },
02033   /* Integer_1      */  {TRUE , Integer_1  },
02034   /* Integer_2      */  {TRUE , Integer_2  },
02035   /* Integer_4      */  {TRUE , Integer_4  },
02036   /* Integer_8      */  {TRUE , Integer_8      },
02037   /* Real_4     */  {TRUE , Real_4     },
02038         /* Real_8     */        {TRUE , Real_8     },
02039         /* Real_16    */        {TRUE , Real_16    },
02040   /* Complex_4     */ {TRUE , Complex_4  },
02041   /* Complex_8     */ {TRUE , Complex_8  },
02042   /* Complex_16    */ {TRUE , Complex_16 },
02043   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02044   /* Logical_1        */  {FALSE, Err_Res    },
02045   /* Logical_2        */  {FALSE, Err_Res    },
02046   /* Logical_4        */  {FALSE, Err_Res    },
02047   /* Logical_8        */  {FALSE, Err_Res    },
02048   /* Character_1       */ {FALSE, Err_Res    },
02049   /* Character_2       */ {FALSE, Err_Res    },
02050   /* Character_4       */ {FALSE, Err_Res    },
02051   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02052   /* Structure_Type      */ {FALSE, Err_Res    },
02053         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02054       },
02055 /* Typeless_1 */        {
02056         /* Err_Res    */        {FALSE, Err_Res    },
02057         /* Short_Char_Const */  {TRUE , Typeless_1 },
02058         /* Short_Typeless_Const */      {TRUE , Typeless_1 },
02059         /* Typeless_1 */        {TRUE , Typeless_1 },
02060         /* Typeless_2 */        {TRUE , Typeless_2 },
02061         /* Typeless_4 */        {TRUE , Typeless_4 },
02062         /* Typeless_8 */        {TRUE , Typeless_8 },
02063         /* Long_Typeless */     {FALSE, Err_Res    },
02064         /* Integer_1      */    {TRUE , Integer_1  },
02065         /* Integer_2      */    {TRUE , Integer_2  },
02066         /* Integer_4      */    {TRUE , Integer_4  },
02067         /* Integer_8      */    {TRUE , Integer_8  },
02068         /* Real_4     */        {FALSE, Err_Res    },
02069         /* Real_8     */        {FALSE, Err_Res    },
02070         /* Real_16    */        {FALSE, Err_Res    },
02071         /* Complex_4     */     {FALSE, Err_Res    },
02072         /* Complex_8     */     {FALSE, Err_Res    },
02073         /* Complex_16    */     {FALSE, Err_Res    },
02074         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02075         /* Logical_1        */  {FALSE, Err_Res    },
02076         /* Logical_2        */  {FALSE, Err_Res    },
02077         /* Logical_4        */  {FALSE, Err_Res    },
02078         /* Logical_8        */  {FALSE, Err_Res    },
02079         /* Character_1       */ {FALSE, Err_Res    },
02080         /* Character_2       */ {FALSE, Err_Res    },
02081         /* Character_4       */ {FALSE, Err_Res    },
02082         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02083         /* Structure_Type      */       {FALSE, Err_Res    },
02084         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02085                         },
02086 /* Typeless_2 */        {
02087         /* Err_Res    */        {FALSE, Err_Res    },
02088         /* Short_Char_Const */  {TRUE , Typeless_2 },
02089         /* Short_Typeless_Const */      {TRUE , Typeless_2 },
02090         /* Typeless_1 */        {TRUE , Typeless_2 },
02091         /* Typeless_2 */        {TRUE , Typeless_2 },
02092         /* Typeless_4 */        {TRUE , Typeless_4 },
02093         /* Typeless_8 */        {TRUE , Typeless_8 },
02094         /* Long_Typeless */     {FALSE, Err_Res    },
02095         /* Integer_1      */    {TRUE , Integer_1  },
02096         /* Integer_2      */    {TRUE , Integer_2  },
02097         /* Integer_4      */    {TRUE , Integer_4  },
02098         /* Integer_8      */    {TRUE , Integer_8      },
02099         /* Real_4     */        {FALSE, Err_Res    },
02100         /* Real_8     */        {FALSE, Err_Res    },
02101         /* Real_16    */        {FALSE, Err_Res    },
02102         /* Complex_4     */     {FALSE, Err_Res    },
02103         /* Complex_8     */     {FALSE, Err_Res    },
02104         /* Complex_16    */     {FALSE, Err_Res    },
02105         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02106         /* Logical_1        */  {FALSE, Err_Res    },
02107         /* Logical_2        */  {FALSE, Err_Res    },
02108         /* Logical_4        */  {FALSE, Err_Res    },
02109         /* Logical_8        */  {FALSE, Err_Res    },
02110         /* Character_1       */ {FALSE, Err_Res    },
02111         /* Character_2       */ {FALSE, Err_Res    },
02112         /* Character_4       */ {FALSE, Err_Res    },
02113         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02114         /* Structure_Type      */       {FALSE, Err_Res    },
02115         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02116                         },
02117 /* Typeless_4 */  {
02118   /* Err_Res    */  {FALSE, Err_Res    },
02119   /* Short_Char_Const */  {TRUE , Typeless_4 },
02120   /* Short_Typeless_Const */  {TRUE , Typeless_4 },
02121   /* Typeless_1 */  {TRUE , Typeless_4 },
02122   /* Typeless_2 */  {TRUE , Typeless_4 },
02123   /* Typeless_4 */  {TRUE , Typeless_4 },
02124   /* Typeless_8 */  {TRUE , Typeless_8 },
02125   /* Long_Typeless */ {FALSE, Err_Res    },
02126   /* Integer_1      */  {TRUE , Integer_1  },
02127   /* Integer_2      */  {TRUE , Integer_2  },
02128   /* Integer_4      */  {TRUE , Integer_4  },
02129   /* Integer_8      */  {TRUE , Integer_8      },
02130   /* Real_4     */  {TRUE , Real_4     },
02131         /* Real_8     */        {FALSE, Err_Res    },
02132         /* Real_16    */        {FALSE, Err_Res    },
02133         /* Complex_4     */     {FALSE, Err_Res    },
02134         /* Complex_8     */     {FALSE, Err_Res    },
02135         /* Complex_16    */     {FALSE, Err_Res    },
02136   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02137   /* Logical_1        */  {FALSE, Err_Res    },
02138   /* Logical_2        */  {FALSE, Err_Res    },
02139   /* Logical_4        */  {FALSE, Err_Res    },
02140   /* Logical_8        */  {FALSE, Err_Res    },
02141   /* Character_1       */ {FALSE, Err_Res    },
02142   /* Character_2       */ {FALSE, Err_Res    },
02143   /* Character_4       */ {FALSE, Err_Res    },
02144   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02145   /* Structure_Type      */ {FALSE, Err_Res    },
02146         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02147       },
02148 /* Typeless_8 */  {
02149   /* Err_Res    */  {FALSE, Err_Res    },
02150   /* Short_Char_Const */  {TRUE , Typeless_8 },
02151   /* Short_Typeless_Const */  {TRUE , Typeless_8 },
02152   /* Typeless_1 */  {TRUE , Typeless_8 },
02153   /* Typeless_2 */  {TRUE , Typeless_8 },
02154   /* Typeless_4 */  {TRUE , Typeless_8 },
02155   /* Typeless_8 */  {TRUE , Typeless_8 },
02156   /* Long_Typeless */ {FALSE, Err_Res    },
02157   /* Integer_1      */  {TRUE , Integer_1  },
02158   /* Integer_2      */  {TRUE , Integer_2  },
02159   /* Integer_4      */  {TRUE , Integer_4  },
02160   /* Integer_8      */  {TRUE , Integer_8      },
02161   /* Real_4     */  {TRUE , Real_4     },
02162         /* Real_8     */        {TRUE , Real_8     },
02163         /* Real_16    */        {FALSE, Err_Res    },
02164         /* Complex_4     */     {FALSE, Err_Res    },
02165         /* Complex_8     */     {FALSE, Err_Res    },
02166         /* Complex_16    */     {FALSE, Err_Res    },
02167   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02168   /* Logical_1        */  {FALSE, Err_Res    },
02169   /* Logical_2        */  {FALSE, Err_Res    },
02170   /* Logical_4        */  {FALSE, Err_Res    },
02171   /* Logical_8        */  {FALSE, Err_Res    },
02172   /* Character_1       */ {FALSE, Err_Res    },
02173   /* Character_2       */ {FALSE, Err_Res    },
02174   /* Character_4       */ {FALSE, Err_Res    },
02175   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02176   /* Structure_Type      */ {FALSE, Err_Res    },
02177         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02178       },
02179 /* Long_Typeless */ {
02180   /* Err_Res    */  {FALSE, Err_Res    },
02181   /* Short_Char_Const */  {FALSE, Err_Res    },
02182   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02183         /* Typeless_1 */  {FALSE, Err_Res    },
02184         /* Typeless_2 */  {FALSE, Err_Res    },
02185         /* Typeless_4 */  {FALSE, Err_Res    },
02186         /* Typeless_8 */  {FALSE, Err_Res    },
02187   /* Long_Typeless */ {FALSE, Err_Res    },
02188   /* Integer_1      */  {FALSE, Err_Res    },
02189   /* Integer_2      */  {FALSE, Err_Res    },
02190   /* Integer_4      */  {FALSE, Err_Res    },
02191   /* Integer_8      */  {FALSE, Err_Res    },
02192   /* Real_4     */  {FALSE, Err_Res    },
02193   /* Real_8     */  {FALSE, Err_Res    },
02194   /* Real_16    */  {FALSE, Err_Res    },
02195   /* Complex_4     */ {FALSE, Err_Res    },
02196   /* Complex_8     */ {FALSE, Err_Res    },
02197   /* Complex_16    */ {FALSE, Err_Res    },
02198   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02199   /* Logical_1        */  {FALSE, Err_Res    },
02200   /* Logical_2        */  {FALSE, Err_Res    },
02201   /* Logical_4        */  {FALSE, Err_Res    },
02202   /* Logical_8        */  {FALSE, Err_Res    },
02203   /* Character_1       */ {FALSE, Err_Res    },
02204   /* Character_2       */ {FALSE, Err_Res    },
02205   /* Character_4       */ {FALSE, Err_Res    },
02206   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02207   /* Structure_Type      */ {FALSE, Err_Res    },
02208         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02209       },
02210 /* Integer_1 */   {
02211   /* Err_Res    */  {FALSE, Err_Res    },
02212   /* Short_Char_Const */  {TRUE , Integer_1  },
02213   /* Short_Typeless_Const */  {TRUE , Integer_1  },
02214   /* Typeless_1 */  {TRUE , Integer_1  },
02215   /* Typeless_2 */  {TRUE , Integer_1  },
02216   /* Typeless_4 */  {TRUE , Integer_1  },
02217   /* Typeless_8 */  {TRUE , Integer_1  },
02218   /* Long_Typeless */ {FALSE, Err_Res    },
02219   /* Integer_1      */  {FALSE, Integer_1      },
02220   /* Integer_2      */  {FALSE, Integer_2      },
02221   /* Integer_4      */  {FALSE, Integer_4      },
02222   /* Integer_8      */  {FALSE, Integer_8      },
02223   /* Real_4     */  {FALSE, Real_4     },
02224   /* Real_8     */  {FALSE, Real_8     },
02225   /* Real_16    */  {FALSE, Real_16    },
02226   /* Complex_4     */ {FALSE, Complex_4     },
02227   /* Complex_8     */ {FALSE, Complex_8     },
02228   /* Complex_16    */ {FALSE, Complex_16    },
02229 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 87 */
02230   /* CRI_Ptr_8    */  {TRUE , INT_WORD    },
02231 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02232   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02233 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02234   /* Logical_1        */  {FALSE, Err_Res    },
02235   /* Logical_2        */  {FALSE, Err_Res    },
02236   /* Logical_4        */  {FALSE, Err_Res    },
02237   /* Logical_8        */  {FALSE, Err_Res    },
02238   /* Character_1       */ {FALSE, Err_Res    },
02239   /* Character_2       */ {FALSE, Err_Res    },
02240   /* Character_4       */ {FALSE, Err_Res    },
02241 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 87 */
02242   /* CRI_Ch_Ptr_8    */ {TRUE , INT_WORD    },
02243 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02244   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02245 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02246   /* Structure_Type      */ {FALSE, Err_Res    },
02247         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02248       },
02249 /* Integer_2 */   {
02250   /* Err_Res    */  {FALSE, Err_Res    },
02251   /* Short_Char_Const */  {TRUE , Integer_2  },
02252   /* Short_Typeless_Const */  {TRUE , Integer_2  },
02253   /* Typeless_1 */  {TRUE , Integer_2  },
02254   /* Typeless_2 */  {TRUE , Integer_2  },
02255   /* Typeless_4 */  {TRUE , Integer_2  },
02256   /* Typeless_8 */  {TRUE , Integer_2  },
02257   /* Long_Typeless */ {FALSE, Err_Res    },
02258   /* Integer_1      */  {FALSE, Integer_2      },
02259   /* Integer_2      */  {FALSE, Integer_2      },
02260   /* Integer_4      */  {FALSE, Integer_4      },
02261   /* Integer_8      */  {FALSE, Integer_8      },
02262   /* Real_4     */  {FALSE, Real_4     },
02263   /* Real_8     */  {FALSE, Real_8     },
02264   /* Real_16    */  {FALSE, Real_16    },
02265   /* Complex_4     */ {FALSE, Complex_4     },
02266   /* Complex_8     */ {FALSE, Complex_8     },
02267   /* Complex_16    */ {FALSE, Complex_16    },
02268 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 87 */
02269   /* CRI_Ptr_8    */  {TRUE , INT_WORD    },
02270 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02271   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02272 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02273   /* Logical_1        */  {FALSE, Err_Res    },
02274   /* Logical_2        */  {FALSE, Err_Res    },
02275   /* Logical_4        */  {FALSE, Err_Res    },
02276   /* Logical_8        */  {FALSE, Err_Res    },
02277   /* Character_1       */ {FALSE, Err_Res    },
02278   /* Character_2       */ {FALSE, Err_Res    },
02279   /* Character_4       */ {FALSE, Err_Res    },
02280 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 87 */
02281   /* CRI_Ch_Ptr_8    */ {TRUE , INT_WORD    },
02282 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02283   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02284 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02285   /* Structure_Type      */ {FALSE, Err_Res    },
02286         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02287       },
02288 /* Integer_4 */   {
02289   /* Err_Res    */  {FALSE, Err_Res    },
02290   /* Short_Char_Const */  {TRUE , Integer_4  },
02291   /* Short_Typeless_Const */  {TRUE , Integer_4  },
02292   /* Typeless_1 */  {TRUE , Integer_4  },
02293   /* Typeless_2 */  {TRUE , Integer_4  },
02294   /* Typeless_4 */  {TRUE , Integer_4  },
02295   /* Typeless_8 */  {TRUE , Integer_4  },
02296   /* Long_Typeless */ {FALSE, Err_Res    },
02297   /* Integer_1      */  {FALSE, Integer_4      },
02298   /* Integer_2      */  {FALSE, Integer_4      },
02299   /* Integer_4      */  {FALSE, Integer_4      },
02300   /* Integer_8      */  {FALSE, Integer_8      },
02301   /* Real_4     */  {FALSE, Real_4     },
02302   /* Real_8     */  {FALSE, Real_8     },
02303   /* Real_16    */  {FALSE, Real_16    },
02304   /* Complex_4     */ {FALSE, Complex_4     },
02305   /* Complex_8     */ {FALSE, Complex_8     },
02306   /* Complex_16    */ {FALSE, Complex_16    },
02307 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 87 */
02308   /* CRI_Ptr_8    */  {TRUE , INT_WORD    },
02309 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02310   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02311 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02312   /* Logical_1        */  {FALSE, Err_Res    },
02313   /* Logical_2        */  {FALSE, Err_Res    },
02314   /* Logical_4        */  {FALSE, Err_Res    },
02315   /* Logical_8        */  {FALSE, Err_Res    },
02316   /* Character_1       */ {FALSE, Err_Res    },
02317   /* Character_2       */ {FALSE, Err_Res    },
02318   /* Character_4       */ {FALSE, Err_Res    },
02319 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 87 */
02320   /* CRI_Ch_Ptr_8    */ {TRUE , INT_WORD    },
02321 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02322   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02323 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02324   /* Structure_Type      */ {FALSE, Err_Res    },
02325         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02326       },
02327 /* Integer_8 */   {
02328   /* Err_Res    */  {FALSE, Err_Res    },
02329   /* Short_Char_Const */  {TRUE , Integer_8      },
02330   /* Short_Typeless_Const */  {TRUE , Integer_8      },
02331   /* Typeless_1 */  {TRUE , Integer_8      },
02332   /* Typeless_2 */  {TRUE , Integer_8      },
02333   /* Typeless_4 */  {TRUE , Integer_8      },
02334   /* Typeless_8 */  {TRUE , Integer_8      },
02335   /* Long_Typeless */ {FALSE, Err_Res    },
02336   /* Integer_1      */  {FALSE, Integer_8      },
02337   /* Integer_2      */  {FALSE, Integer_8      },
02338   /* Integer_4      */  {FALSE, Integer_8      },
02339   /* Integer_8      */  {FALSE, Integer_8      },
02340   /* Real_4     */  {FALSE, Real_4     },
02341   /* Real_8     */  {FALSE, Real_8     },
02342   /* Real_16    */  {FALSE, Real_16    },
02343   /* Complex_4     */ {FALSE, Complex_4     },
02344   /* Complex_8     */ {FALSE, Complex_8     },
02345   /* Complex_16    */ {FALSE, Complex_16    },
02346 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 87 */
02347   /* CRI_Ptr_8    */  {TRUE , Integer_8    },
02348 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02349   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02350 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02351   /* Logical_1        */  {FALSE, Err_Res    },
02352   /* Logical_2        */  {FALSE, Err_Res    },
02353   /* Logical_4        */  {FALSE, Err_Res    },
02354   /* Logical_8        */  {FALSE, Err_Res    },
02355   /* Character_1       */ {FALSE, Err_Res    },
02356   /* Character_2       */ {FALSE, Err_Res    },
02357   /* Character_4       */ {FALSE, Err_Res    },
02358 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 87 */
02359   /* CRI_Ch_Ptr_8    */ {TRUE , Integer_8    },
02360 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02361   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02362 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02363   /* Structure_Type      */ {FALSE, Err_Res    },
02364         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02365       },
02366 /* Real_4 */    {
02367   /* Err_Res    */  {FALSE, Err_Res    },
02368   /* Short_Char_Const */  {TRUE , Real_4     },
02369   /* Short_Typeless_Const */  {TRUE , Real_4     },
02370   /* Typeless_1 */  {FALSE, Err_Res    },
02371   /* Typeless_2 */  {FALSE, Err_Res    },
02372   /* Typeless_4 */  {TRUE , Real_4     },
02373   /* Typeless_8 */  {TRUE , Real_4     },
02374   /* Long_Typeless */ {FALSE, Err_Res    },
02375   /* Integer_1      */  {FALSE, Real_4     },
02376   /* Integer_2      */  {FALSE, Real_4     },
02377   /* Integer_4      */  {FALSE, Real_4     },
02378   /* Integer_8      */  {FALSE, Real_4     },
02379   /* Real_4     */  {FALSE, Real_4     },
02380   /* Real_8     */  {FALSE, Real_8     },
02381   /* Real_16    */  {FALSE, Real_16    },
02382   /* Complex_4     */ {FALSE, Complex_4     },
02383   /* Complex_8     */ {FALSE, Complex_8     },
02384   /* Complex_16    */ {FALSE, Complex_16    },
02385   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02386   /* Logical_1        */  {FALSE, Err_Res    },
02387   /* Logical_2        */  {FALSE, Err_Res    },
02388   /* Logical_4        */  {FALSE, Err_Res    },
02389   /* Logical_8        */  {FALSE, Err_Res    },
02390   /* Character_1       */ {FALSE, Err_Res    },
02391   /* Character_2       */ {FALSE, Err_Res    },
02392   /* Character_4       */ {FALSE, Err_Res    },
02393   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02394   /* Structure_Type      */ {FALSE, Err_Res    },
02395         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02396       },
02397 /* Real_8 */    {
02398   /* Err_Res    */  {FALSE, Err_Res    },
02399         /* Short_Char_Const */        {TRUE , Real_8     },
02400         /* Short_Typeless_Const */        {TRUE , Real_8     },
02401         /* Typeless_1 */        {FALSE, Err_Res    },
02402         /* Typeless_2 */        {FALSE, Err_Res    },
02403         /* Typeless_4 */        {FALSE, Err_Res    },
02404         /* Typeless_8 */        {TRUE , Real_8     },
02405   /* Long_Typeless */ {FALSE, Err_Res    },
02406   /* Integer_1      */  {FALSE, Real_8     },
02407   /* Integer_2      */  {FALSE, Real_8     },
02408   /* Integer_4      */  {FALSE, Real_8     },
02409   /* Integer_8      */  {FALSE, Real_8     },
02410   /* Real_4     */  {FALSE, Real_8     },
02411   /* Real_8     */  {FALSE, Real_8     },
02412   /* Real_16    */  {FALSE, Real_16    },
02413   /* Complex_4     */ {FALSE, Complex_8     },
02414   /* Complex_8     */ {FALSE, Complex_8     },
02415   /* Complex_16    */ {FALSE, Complex_16    },
02416   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02417   /* Logical_1        */  {FALSE, Err_Res    },
02418   /* Logical_2        */  {FALSE, Err_Res    },
02419   /* Logical_4        */  {FALSE, Err_Res    },
02420   /* Logical_8        */  {FALSE, Err_Res    },
02421   /* Character_1       */ {FALSE, Err_Res    },
02422   /* Character_2       */ {FALSE, Err_Res    },
02423   /* Character_4       */ {FALSE, Err_Res    },
02424   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02425   /* Structure_Type      */ {FALSE, Err_Res    },
02426         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02427       },
02428 /* Real_16 */   {
02429   /* Err_Res    */  {FALSE, Err_Res    },
02430   /* Short_Char_Const */  {TRUE , Real_16    },
02431   /* Short_Typeless_Const */  {TRUE , Real_16    },
02432         /* Typeless_1 */  {FALSE, Err_Res    },
02433         /* Typeless_2 */  {FALSE, Err_Res    },
02434         /* Typeless_4 */  {FALSE, Err_Res    },
02435         /* Typeless_8 */  {FALSE, Err_Res    },
02436   /* Long_Typeless */ {FALSE, Err_Res    },
02437   /* Integer_1      */  {FALSE, Real_16    },
02438   /* Integer_2      */  {FALSE, Real_16    },
02439   /* Integer_4      */  {FALSE, Real_16    },
02440   /* Integer_8      */  {FALSE, Real_16    },
02441   /* Real_4     */  {FALSE, Real_16    },
02442   /* Real_8     */  {FALSE, Real_16    },
02443   /* Real_16    */  {FALSE, Real_16    },
02444   /* Complex_4     */ {FALSE, Complex_16    },
02445   /* Complex_8     */ {FALSE, Complex_16    },
02446   /* Complex_16    */ {FALSE, Complex_16    },
02447   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02448   /* Logical_1        */  {FALSE, Err_Res    },
02449   /* Logical_2        */  {FALSE, Err_Res    },
02450   /* Logical_4        */  {FALSE, Err_Res    },
02451   /* Logical_8        */  {FALSE, Err_Res    },
02452   /* Character_1       */ {FALSE, Err_Res    },
02453   /* Character_2       */ {FALSE, Err_Res    },
02454   /* Character_4       */ {FALSE, Err_Res    },
02455   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02456   /* Structure_Type      */ {FALSE, Err_Res    },
02457         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02458       },
02459 /* Complex_4 */   {
02460   /* Err_Res    */  {FALSE, Err_Res    },
02461   /* Short_Char_Const */  {TRUE , Complex_4  },
02462   /* Short_Typeless_Const */  {TRUE , Complex_4  },
02463         /* Typeless_1 */  {FALSE, Err_Res    },
02464         /* Typeless_2 */  {FALSE, Err_Res    },
02465         /* Typeless_4 */  {FALSE, Err_Res    },
02466         /* Typeless_8 */  {FALSE, Err_Res    },
02467   /* Long_Typeless */ {FALSE, Err_Res    },
02468   /* Integer_1      */  {FALSE, Complex_4     },
02469   /* Integer_2      */  {FALSE, Complex_4     },
02470   /* Integer_4      */  {FALSE, Complex_4     },
02471   /* Integer_8      */  {FALSE, Complex_4     },
02472   /* Real_4     */  {FALSE, Complex_4     },
02473   /* Real_8     */  {FALSE, Complex_8     },
02474   /* Real_16    */  {FALSE, Complex_16    },
02475   /* Complex_4     */ {FALSE, Complex_4     },
02476   /* Complex_8     */ {FALSE, Complex_8     },
02477   /* Complex_16    */ {FALSE, Complex_16    },
02478   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02479   /* Logical_1        */  {FALSE, Err_Res    },
02480   /* Logical_2        */  {FALSE, Err_Res    },
02481   /* Logical_4        */  {FALSE, Err_Res    },
02482   /* Logical_8        */  {FALSE, Err_Res    },
02483   /* Character_1       */ {FALSE, Err_Res    },
02484   /* Character_2       */ {FALSE, Err_Res    },
02485   /* Character_4       */ {FALSE, Err_Res    },
02486   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02487   /* Structure_Type      */ {FALSE, Err_Res    },
02488         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02489       },
02490 /* Complex_8 */   {
02491   /* Err_Res    */  {FALSE, Err_Res    },
02492   /* Short_Char_Const */  {TRUE , Complex_8  },
02493   /* Short_Typeless_Const */  {TRUE , Complex_8  },
02494         /* Typeless_1 */  {FALSE, Err_Res    },
02495         /* Typeless_2 */  {FALSE, Err_Res    },
02496         /* Typeless_4 */  {FALSE, Err_Res    },
02497         /* Typeless_8 */  {FALSE, Err_Res    },
02498   /* Long_Typeless */ {FALSE, Err_Res    },
02499   /* Integer_1      */  {FALSE, Complex_8     },
02500   /* Integer_2      */  {FALSE, Complex_8     },
02501   /* Integer_4      */  {FALSE, Complex_8     },
02502   /* Integer_8      */  {FALSE, Complex_8     },
02503   /* Real_4     */  {FALSE, Complex_8     },
02504   /* Real_8     */  {FALSE, Complex_8     },
02505   /* Real_16    */  {FALSE, Complex_16    },
02506   /* Complex_4     */ {FALSE, Complex_8     },
02507   /* Complex_8     */ {FALSE, Complex_8     },
02508   /* Complex_16    */ {FALSE, Complex_16    },
02509   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02510   /* Logical_1        */  {FALSE, Err_Res    },
02511   /* Logical_2        */  {FALSE, Err_Res    },
02512   /* Logical_4        */  {FALSE, Err_Res    },
02513   /* Logical_8        */  {FALSE, Err_Res    },
02514   /* Character_1       */ {FALSE, Err_Res    },
02515   /* Character_2       */ {FALSE, Err_Res    },
02516   /* Character_4       */ {FALSE, Err_Res    },
02517   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02518   /* Structure_Type      */ {FALSE, Err_Res    },
02519         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02520       },
02521 /* Complex_16 */    {
02522   /* Err_Res    */  {FALSE, Err_Res    },
02523   /* Short_Char_Const */  {TRUE , Complex_16 },
02524   /* Short_Typeless_Const */  {TRUE , Complex_16 },
02525         /* Typeless_1 */  {FALSE, Err_Res    },
02526         /* Typeless_2 */  {FALSE, Err_Res    },
02527         /* Typeless_4 */  {FALSE, Err_Res    },
02528         /* Typeless_8 */  {FALSE, Err_Res    },
02529   /* Long_Typeless */ {FALSE, Err_Res    },
02530   /* Integer_1      */  {FALSE, Complex_16    },
02531   /* Integer_2      */  {FALSE, Complex_16    },
02532   /* Integer_4      */  {FALSE, Complex_16    },
02533   /* Integer_8      */  {FALSE, Complex_16    },
02534   /* Real_4     */  {FALSE, Complex_16    },
02535   /* Real_8     */  {FALSE, Complex_16    },
02536   /* Real_16    */  {FALSE, Complex_16    },
02537   /* Complex_4     */ {FALSE, Complex_16    },
02538   /* Complex_8     */ {FALSE, Complex_16    },
02539   /* Complex_16    */ {FALSE, Complex_16    },
02540   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02541   /* Logical_1        */  {FALSE, Err_Res    },
02542   /* Logical_2        */  {FALSE, Err_Res    },
02543   /* Logical_4        */  {FALSE, Err_Res    },
02544   /* Logical_8        */  {FALSE, Err_Res    },
02545   /* Character_1       */ {FALSE, Err_Res    },
02546   /* Character_2       */ {FALSE, Err_Res    },
02547   /* Character_4       */ {FALSE, Err_Res    },
02548   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02549   /* Structure_Type      */ {FALSE, Err_Res    },
02550         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02551       },
02552 /* CRI_Ptr_8 */   {
02553   /* Err_Res    */  {FALSE, Err_Res    },
02554   /* Short_Char_Const */  {FALSE, Err_Res    },
02555   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02556         /* Typeless_1 */  {FALSE, Err_Res    },
02557         /* Typeless_2 */  {FALSE, Err_Res    },
02558         /* Typeless_4 */  {FALSE, Err_Res    },
02559         /* Typeless_8 */  {FALSE, Err_Res    },
02560   /* Long_Typeless */ {FALSE, Err_Res    },
02561 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 87 */
02562   /* Integer_1      */  {TRUE , INT_WORD  },
02563   /* Integer_2      */  {TRUE , INT_WORD  },
02564   /* Integer_4      */  {TRUE , INT_WORD  },
02565   /* Integer_8      */  {TRUE , Integer_8  },
02566 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02567   /* Integer_1      */  {FALSE, Err_Res    },
02568   /* Integer_2      */  {FALSE, Err_Res    },
02569   /* Integer_4      */  {FALSE, Err_Res    },
02570   /* Integer_8      */  {FALSE, Err_Res    },
02571 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02572   /* Real_4     */  {FALSE, Err_Res    },
02573   /* Real_8     */  {FALSE, Err_Res    },
02574   /* Real_16    */  {FALSE, Err_Res    },
02575   /* Complex_4     */ {FALSE, Err_Res    },
02576   /* Complex_8     */ {FALSE, Err_Res    },
02577   /* Complex_16    */ {FALSE, Err_Res    },
02578   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02579   /* Logical_1        */  {FALSE, Err_Res    },
02580   /* Logical_2        */  {FALSE, Err_Res    },
02581   /* Logical_4        */  {FALSE, Err_Res    },
02582   /* Logical_8        */  {FALSE, Err_Res    },
02583   /* Character_1       */ {FALSE, Err_Res    },
02584   /* Character_2       */ {FALSE, Err_Res    },
02585   /* Character_4       */ {FALSE, Err_Res    },
02586   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02587   /* Structure_Type      */ {FALSE, Err_Res    },
02588         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02589       },
02590 /* Logical_1 */   {
02591   /* Err_Res    */  {FALSE, Err_Res    },
02592   /* Short_Char_Const */  {FALSE, Err_Res    },
02593   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02594         /* Typeless_1 */  {FALSE, Err_Res    },
02595         /* Typeless_2 */  {FALSE, Err_Res    },
02596         /* Typeless_4 */  {FALSE, Err_Res    },
02597         /* Typeless_8 */  {FALSE, Err_Res    },
02598   /* Long_Typeless */ {FALSE, Err_Res    },
02599   /* Integer_1      */  {FALSE, Err_Res    },
02600   /* Integer_2      */  {FALSE, Err_Res    },
02601   /* Integer_4      */  {FALSE, Err_Res    },
02602   /* Integer_8      */  {FALSE, Err_Res    },
02603   /* Real_4     */  {FALSE, Err_Res    },
02604   /* Real_8     */  {FALSE, Err_Res    },
02605   /* Real_16    */  {FALSE, Err_Res    },
02606   /* Complex_4     */ {FALSE, Err_Res    },
02607   /* Complex_8     */ {FALSE, Err_Res    },
02608   /* Complex_16    */ {FALSE, Err_Res    },
02609   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02610   /* Logical_1        */  {FALSE, Err_Res    },
02611   /* Logical_2        */  {FALSE, Err_Res    },
02612   /* Logical_4        */  {FALSE, Err_Res    },
02613   /* Logical_8        */  {FALSE, Err_Res    },
02614   /* Character_1       */ {FALSE, Err_Res    },
02615   /* Character_2       */ {FALSE, Err_Res    },
02616   /* Character_4       */ {FALSE, Err_Res    },
02617   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02618   /* Structure_Type      */ {FALSE, Err_Res    },
02619         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02620       },
02621 /* Logical_2 */   {
02622   /* Err_Res    */  {FALSE, Err_Res    },
02623   /* Short_Char_Const */  {FALSE, Err_Res    },
02624   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02625         /* Typeless_1 */  {FALSE, Err_Res    },
02626         /* Typeless_2 */  {FALSE, Err_Res    },
02627         /* Typeless_4 */  {FALSE, Err_Res    },
02628         /* Typeless_8 */  {FALSE, Err_Res    },
02629   /* Long_Typeless */ {FALSE, Err_Res    },
02630   /* Integer_1      */  {FALSE, Err_Res    },
02631   /* Integer_2      */  {FALSE, Err_Res    },
02632   /* Integer_4      */  {FALSE, Err_Res    },
02633   /* Integer_8      */  {FALSE, Err_Res    },
02634   /* Real_4     */  {FALSE, Err_Res    },
02635   /* Real_8     */  {FALSE, Err_Res    },
02636   /* Real_16    */  {FALSE, Err_Res    },
02637   /* Complex_4     */ {FALSE, Err_Res    },
02638   /* Complex_8     */ {FALSE, Err_Res    },
02639   /* Complex_16    */ {FALSE, Err_Res    },
02640   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02641   /* Logical_1        */  {FALSE, Err_Res    },
02642   /* Logical_2        */  {FALSE, Err_Res    },
02643   /* Logical_4        */  {FALSE, Err_Res    },
02644   /* Logical_8        */  {FALSE, Err_Res    },
02645   /* Character_1       */ {FALSE, Err_Res    },
02646   /* Character_2       */ {FALSE, Err_Res    },
02647   /* Character_4       */ {FALSE, Err_Res    },
02648   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02649   /* Structure_Type      */ {FALSE, Err_Res    },
02650         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02651       },
02652 /* Logical_4 */   {
02653   /* Err_Res    */  {FALSE, Err_Res    },
02654   /* Short_Char_Const */  {FALSE, Err_Res    },
02655   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02656         /* Typeless_1 */  {FALSE, Err_Res    },
02657         /* Typeless_2 */  {FALSE, Err_Res    },
02658         /* Typeless_4 */  {FALSE, Err_Res    },
02659         /* Typeless_8 */  {FALSE, Err_Res    },
02660   /* Long_Typeless */ {FALSE, Err_Res    },
02661   /* Integer_1      */  {FALSE, Err_Res    },
02662   /* Integer_2      */  {FALSE, Err_Res    },
02663   /* Integer_4      */  {FALSE, Err_Res    },
02664   /* Integer_8      */  {FALSE, Err_Res    },
02665   /* Real_4     */  {FALSE, Err_Res    },
02666   /* Real_8     */  {FALSE, Err_Res    },
02667   /* Real_16    */  {FALSE, Err_Res    },
02668   /* Complex_4     */ {FALSE, Err_Res    },
02669   /* Complex_8     */ {FALSE, Err_Res    },
02670   /* Complex_16    */ {FALSE, Err_Res    },
02671   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02672   /* Logical_1        */  {FALSE, Err_Res    },
02673   /* Logical_2        */  {FALSE, Err_Res    },
02674   /* Logical_4        */  {FALSE, Err_Res    },
02675   /* Logical_8        */  {FALSE, Err_Res    },
02676   /* Character_1       */ {FALSE, Err_Res    },
02677   /* Character_2       */ {FALSE, Err_Res    },
02678   /* Character_4       */ {FALSE, Err_Res    },
02679   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02680   /* Structure_Type      */ {FALSE, Err_Res    },
02681         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02682       },
02683 /* Logical_8 */   {
02684   /* Err_Res    */  {FALSE, Err_Res    },
02685   /* Short_Char_Const */  {FALSE, Err_Res    },
02686   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02687         /* Typeless_1 */  {FALSE, Err_Res    },
02688         /* Typeless_2 */  {FALSE, Err_Res    },
02689         /* Typeless_4 */  {FALSE, Err_Res    },
02690         /* Typeless_8 */  {FALSE, Err_Res    },
02691   /* Long_Typeless */ {FALSE, Err_Res    },
02692   /* Integer_1      */  {FALSE, Err_Res    },
02693   /* Integer_2      */  {FALSE, Err_Res    },
02694   /* Integer_4      */  {FALSE, Err_Res    },
02695   /* Integer_8      */  {FALSE, Err_Res    },
02696   /* Real_4     */  {FALSE, Err_Res    },
02697   /* Real_8     */  {FALSE, Err_Res    },
02698   /* Real_16    */  {FALSE, Err_Res    },
02699   /* Complex_4     */ {FALSE, Err_Res    },
02700   /* Complex_8     */ {FALSE, Err_Res    },
02701   /* Complex_16    */ {FALSE, Err_Res    },
02702   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02703   /* Logical_1        */  {FALSE, Err_Res    },
02704   /* Logical_2        */  {FALSE, Err_Res    },
02705   /* Logical_4        */  {FALSE, Err_Res    },
02706   /* Logical_8        */  {FALSE, Err_Res    },
02707   /* Character_1       */ {FALSE, Err_Res    },
02708   /* Character_2       */ {FALSE, Err_Res    },
02709   /* Character_4       */ {FALSE, Err_Res    },
02710   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02711   /* Structure_Type      */ {FALSE, Err_Res    },
02712         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02713       },
02714 /* Character_1 */   {
02715   /* Err_Res    */  {FALSE, Err_Res    },
02716   /* Short_Char_Const */  {FALSE, Err_Res    },
02717   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02718         /* Typeless_1 */  {FALSE, Err_Res    },
02719         /* Typeless_2 */  {FALSE, Err_Res    },
02720         /* Typeless_4 */  {FALSE, Err_Res    },
02721         /* Typeless_8 */  {FALSE, Err_Res    },
02722   /* Long_Typeless */ {FALSE, Err_Res    },
02723   /* Integer_1      */  {FALSE, Err_Res    },
02724   /* Integer_2      */  {FALSE, Err_Res    },
02725   /* Integer_4      */  {FALSE, Err_Res    },
02726   /* Integer_8      */  {FALSE, Err_Res    },
02727   /* Real_4     */  {FALSE, Err_Res    },
02728   /* Real_8     */  {FALSE, Err_Res    },
02729   /* Real_16    */  {FALSE, Err_Res    },
02730   /* Complex_4     */ {FALSE, Err_Res    },
02731   /* Complex_8     */ {FALSE, Err_Res    },
02732   /* Complex_16    */ {FALSE, Err_Res    },
02733   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02734   /* Logical_1        */  {FALSE, Err_Res    },
02735   /* Logical_2        */  {FALSE, Err_Res    },
02736   /* Logical_4        */  {FALSE, Err_Res    },
02737   /* Logical_8        */  {FALSE, Err_Res    },
02738   /* Character_1       */ {FALSE, Err_Res    },
02739   /* Character_2       */ {FALSE, Err_Res    },
02740   /* Character_4       */ {FALSE, Err_Res    },
02741   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02742   /* Structure_Type      */ {FALSE, Err_Res    },
02743         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02744       },
02745 /* Character_2 */   {
02746   /* Err_Res    */  {FALSE, Err_Res    },
02747   /* Short_Char_Const */  {FALSE, Err_Res    },
02748   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02749         /* Typeless_1 */  {FALSE, Err_Res    },
02750         /* Typeless_2 */  {FALSE, Err_Res    },
02751         /* Typeless_4 */  {FALSE, Err_Res    },
02752         /* Typeless_8 */  {FALSE, Err_Res    },
02753   /* Long_Typeless */ {FALSE, Err_Res    },
02754   /* Integer_1      */  {FALSE, Err_Res    },
02755   /* Integer_2      */  {FALSE, Err_Res    },
02756   /* Integer_4      */  {FALSE, Err_Res    },
02757   /* Integer_8      */  {FALSE, Err_Res    },
02758   /* Real_4     */  {FALSE, Err_Res    },
02759   /* Real_8     */  {FALSE, Err_Res    },
02760   /* Real_16    */  {FALSE, Err_Res    },
02761   /* Complex_4     */ {FALSE, Err_Res    },
02762   /* Complex_8     */ {FALSE, Err_Res    },
02763   /* Complex_16    */ {FALSE, Err_Res    },
02764   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02765   /* Logical_1        */  {FALSE, Err_Res    },
02766   /* Logical_2        */  {FALSE, Err_Res    },
02767   /* Logical_4        */  {FALSE, Err_Res    },
02768   /* Logical_8        */  {FALSE, Err_Res    },
02769   /* Character_1       */ {FALSE, Err_Res    },
02770   /* Character_2       */ {FALSE, Err_Res    },
02771   /* Character_4       */ {FALSE, Err_Res    },
02772   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02773   /* Structure_Type      */ {FALSE, Err_Res    },
02774         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02775       },
02776 /* Character_4 */   {
02777   /* Err_Res    */  {FALSE, Err_Res    },
02778   /* Short_Char_Const */  {FALSE, Err_Res    },
02779   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02780         /* Typeless_1 */  {FALSE, Err_Res    },
02781         /* Typeless_2 */  {FALSE, Err_Res    },
02782         /* Typeless_4 */  {FALSE, Err_Res    },
02783         /* Typeless_8 */  {FALSE, Err_Res    },
02784   /* Long_Typeless */ {FALSE, Err_Res    },
02785   /* Integer_1      */  {FALSE, Err_Res    },
02786   /* Integer_2      */  {FALSE, Err_Res    },
02787   /* Integer_4      */  {FALSE, Err_Res    },
02788   /* Integer_8      */  {FALSE, Err_Res    },
02789   /* Real_4     */  {FALSE, Err_Res    },
02790   /* Real_8     */  {FALSE, Err_Res    },
02791   /* Real_16    */  {FALSE, Err_Res    },
02792   /* Complex_4     */ {FALSE, Err_Res    },
02793   /* Complex_8     */ {FALSE, Err_Res    },
02794   /* Complex_16    */ {FALSE, Err_Res    },
02795   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02796   /* Logical_1        */  {FALSE, Err_Res    },
02797   /* Logical_2        */  {FALSE, Err_Res    },
02798   /* Logical_4        */  {FALSE, Err_Res    },
02799   /* Logical_8        */  {FALSE, Err_Res    },
02800   /* Character_1       */ {FALSE, Err_Res    },
02801   /* Character_2       */ {FALSE, Err_Res    },
02802   /* Character_4       */ {FALSE, Err_Res    },
02803   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02804   /* Structure_Type      */ {FALSE, Err_Res    },
02805         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02806       },
02807 /* CRI_Ch_Ptr_8 */    {
02808   /* Err_Res    */  {FALSE, Err_Res    },
02809   /* Short_Char_Const */  {FALSE, Err_Res    },
02810   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02811         /* Typeless_1 */  {FALSE, Err_Res    },
02812         /* Typeless_2 */  {FALSE, Err_Res    },
02813         /* Typeless_4 */  {FALSE, Err_Res    },
02814         /* Typeless_8 */  {FALSE, Err_Res    },
02815   /* Long_Typeless */ {FALSE, Err_Res    },
02816 # if defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) /* Bug 87 */
02817   /* Integer_1      */  {TRUE , INT_WORD  },
02818   /* Integer_2      */  {TRUE , INT_WORD  },
02819   /* Integer_4      */  {TRUE , INT_WORD  },
02820   /* Integer_8      */  {TRUE , Integer_8  },
02821 #else /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02822   /* Integer_1      */  {FALSE, Err_Res    },
02823   /* Integer_2      */  {FALSE, Err_Res    },
02824   /* Integer_4      */  {FALSE, Err_Res    },
02825   /* Integer_8      */  {FALSE, Err_Res    },
02826 #endif /* defined(KEY) && defined(_EXTENDED_CRI_CHAR_POINTER) Bug 87 */
02827   /* Real_4     */  {FALSE, Err_Res    },
02828   /* Real_8     */  {FALSE, Err_Res    },
02829   /* Real_16    */  {FALSE, Err_Res    },
02830   /* Complex_4     */ {FALSE, Err_Res    },
02831   /* Complex_8     */ {FALSE, Err_Res    },
02832   /* Complex_16    */ {FALSE, Err_Res    },
02833   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02834   /* Logical_1        */  {FALSE, Err_Res    },
02835   /* Logical_2        */  {FALSE, Err_Res    },
02836   /* Logical_4        */  {FALSE, Err_Res    },
02837   /* Logical_8        */  {FALSE, Err_Res    },
02838   /* Character_1       */ {FALSE, Err_Res    },
02839   /* Character_2       */ {FALSE, Err_Res    },
02840   /* Character_4       */ {FALSE, Err_Res    },
02841   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02842   /* Structure_Type      */ {FALSE, Err_Res    },
02843         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02844       },
02845 /* Structure_Type   */    {
02846   /* Err_Res    */  {FALSE, Err_Res    },
02847   /* Short_Char_Const */  {FALSE, Err_Res    },
02848   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02849         /* Typeless_1 */  {FALSE, Err_Res    },
02850         /* Typeless_2 */  {FALSE, Err_Res    },
02851         /* Typeless_4 */  {FALSE, Err_Res    },
02852         /* Typeless_8 */  {FALSE, Err_Res    },
02853   /* Long_Typeless */ {FALSE, Err_Res    },
02854   /* Integer_1      */  {FALSE, Err_Res    },
02855   /* Integer_2      */  {FALSE, Err_Res    },
02856   /* Integer_4      */  {FALSE, Err_Res    },
02857   /* Integer_8      */  {FALSE, Err_Res    },
02858   /* Real_4     */  {FALSE, Err_Res    },
02859   /* Real_8     */  {FALSE, Err_Res    },
02860   /* Real_16    */  {FALSE, Err_Res    },
02861   /* Complex_4     */ {FALSE, Err_Res    },
02862   /* Complex_8     */ {FALSE, Err_Res    },
02863   /* Complex_16    */ {FALSE, Err_Res    },
02864   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02865   /* Logical_1        */  {FALSE, Err_Res    },
02866   /* Logical_2        */  {FALSE, Err_Res    },
02867   /* Logical_4        */  {FALSE, Err_Res    },
02868   /* Logical_8        */  {FALSE, Err_Res    },
02869   /* Character_1       */ {FALSE, Err_Res    },
02870   /* Character_2       */ {FALSE, Err_Res    },
02871   /* Character_4       */ {FALSE, Err_Res    },
02872   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02873   /* Structure_Type      */ {FALSE, Err_Res    },
02874         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02875       },
02876 /* CRI_Parcel_Ptr_8   */          {
02877         /* Err_Res    */        {FALSE, Err_Res    },
02878         /* Short_Char_Const */  {FALSE, Err_Res    },
02879         /* Short_Typeless_Const */    {FALSE, Err_Res    },
02880         /* Typeless_1 */  {FALSE, Err_Res    },
02881         /* Typeless_2 */  {FALSE, Err_Res    },
02882         /* Typeless_4 */  {FALSE, Err_Res    },
02883         /* Typeless_8 */  {FALSE, Err_Res    },
02884         /* Long_Typeless */     {FALSE, Err_Res    },
02885         /* Integer_1      */    {FALSE, Err_Res    },
02886         /* Integer_2      */    {FALSE, Err_Res    },
02887         /* Integer_4      */    {FALSE, Err_Res    },
02888         /* Integer_8      */    {FALSE, Err_Res    },
02889         /* Real_4     */        {FALSE, Err_Res    },
02890         /* Real_8     */        {FALSE, Err_Res    },
02891         /* Real_16    */        {FALSE, Err_Res    },
02892         /* Complex_4     */     {FALSE, Err_Res    },
02893         /* Complex_8     */     {FALSE, Err_Res    },
02894         /* Complex_16    */     {FALSE, Err_Res    },
02895         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02896         /* Logical_1        */  {FALSE, Err_Res    },
02897         /* Logical_2        */  {FALSE, Err_Res    },
02898         /* Logical_4        */  {FALSE, Err_Res    },
02899         /* Logical_8        */  {FALSE, Err_Res    },
02900         /* Character_1       */ {FALSE, Err_Res    },
02901         /* Character_2       */ {FALSE, Err_Res    },
02902         /* Character_4       */ {FALSE, Err_Res    },
02903         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02904         /* Structure_Type      */       {FALSE, Err_Res    },
02905         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02906                         }
02907     };
02908 
02909 exp_tbl_type  power_tbl[Num_Linear_Types][Num_Linear_Types] = {
02910 /* Err_Res */   {
02911   /* Err_Res    */  {FALSE, Err_Res    },
02912   /* Short_Char_Const */  {FALSE, Err_Res    },
02913   /* Short_Typeless_Const */  {FALSE, Err_Res    },
02914         /* Typeless_1 */  {FALSE, Err_Res    },
02915         /* Typeless_2 */  {FALSE, Err_Res    },
02916         /* Typeless_4 */  {FALSE, Err_Res    },
02917         /* Typeless_8 */  {FALSE, Err_Res    },
02918   /* Long_Typeless */ {FALSE, Err_Res    },
02919   /* Integer_1      */  {FALSE, Err_Res    },
02920   /* Integer_2      */  {FALSE, Err_Res    },
02921   /* Integer_4      */  {FALSE, Err_Res    },
02922   /* Integer_8      */  {FALSE, Err_Res    },
02923   /* Real_4     */  {FALSE, Err_Res    },
02924   /* Real_8     */  {FALSE, Err_Res    },
02925   /* Real_16    */  {FALSE, Err_Res    },
02926   /* Complex_4     */ {FALSE, Err_Res    },
02927   /* Complex_8     */ {FALSE, Err_Res    },
02928   /* Complex_16    */ {FALSE, Err_Res    },
02929   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02930   /* Logical_1        */  {FALSE, Err_Res    },
02931   /* Logical_2        */  {FALSE, Err_Res    },
02932   /* Logical_4        */  {FALSE, Err_Res    },
02933   /* Logical_8        */  {FALSE, Err_Res    },
02934   /* Character_1       */ {FALSE, Err_Res    },
02935   /* Character_2       */ {FALSE, Err_Res    },
02936   /* Character_4       */ {FALSE, Err_Res    },
02937   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02938   /* Structure_Type      */ {FALSE, Err_Res    },
02939         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02940       },
02941 /* Short_Char_Const */  {
02942   /* Err_Res    */  {FALSE, Err_Res    },
02943   /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
02944   /* Short_Typeless_Const */  {TRUE , Short_Typeless_Const },
02945   /* Typeless_1 */  {TRUE , Typeless_1 },
02946   /* Typeless_2 */  {TRUE , Typeless_2 },
02947   /* Typeless_4 */  {TRUE , Typeless_4 },
02948   /* Typeless_8 */  {TRUE , Typeless_8 },
02949   /* Long_Typeless */ {FALSE, Err_Res    },
02950   /* Integer_1      */  {TRUE , Integer_1  },
02951   /* Integer_2      */  {TRUE , Integer_2  },
02952   /* Integer_4      */  {TRUE , Integer_4  },
02953   /* Integer_8      */  {TRUE , Integer_8  },
02954   /* Real_4     */  {TRUE , Real_4     },
02955   /* Real_8     */  {TRUE , Real_8     },
02956   /* Real_16    */  {TRUE , Real_16    },
02957   /* Complex_4     */ {TRUE , Complex_4  },
02958   /* Complex_8     */ {TRUE , Complex_8  },
02959   /* Complex_16    */ {TRUE , Complex_16 },
02960   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02961   /* Logical_1        */  {FALSE, Err_Res    },
02962   /* Logical_2        */  {FALSE, Err_Res    },
02963   /* Logical_4        */  {FALSE, Err_Res    },
02964   /* Logical_8        */  {FALSE, Err_Res    },
02965   /* Character_1       */ {FALSE, Err_Res    },
02966   /* Character_2       */ {FALSE, Err_Res    },
02967   /* Character_4       */ {FALSE, Err_Res    },
02968   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
02969   /* Structure_Type      */ {FALSE, Err_Res    },
02970         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02971       },
02972 /* Short_Typeless_Const */  {
02973   /* Err_Res    */  {FALSE, Err_Res    },
02974   /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
02975   /* Short_Typeless_Const */  {TRUE , Short_Typeless_Const },
02976   /* Typeless_1 */  {TRUE , Typeless_1 },
02977   /* Typeless_2 */  {TRUE , Typeless_2 },
02978   /* Typeless_4 */  {TRUE , Typeless_4 },
02979   /* Typeless_8 */  {TRUE , Typeless_8 },
02980   /* Long_Typeless */ {FALSE, Err_Res    },
02981   /* Integer_1      */  {TRUE , Integer_1  },
02982   /* Integer_2      */  {TRUE , Integer_2  },
02983   /* Integer_4      */  {TRUE , Integer_4  },
02984   /* Integer_8      */  {TRUE , Integer_8  },
02985   /* Real_4     */  {TRUE , Real_4     },
02986   /* Real_8     */  {TRUE , Real_8     },
02987   /* Real_16    */  {TRUE , Real_16    },
02988   /* Complex_4     */ {TRUE , Complex_4  },
02989   /* Complex_8     */ {TRUE , Complex_8  },
02990   /* Complex_16    */ {TRUE , Complex_16 },
02991   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
02992   /* Logical_1        */  {FALSE, Err_Res    },
02993   /* Logical_2        */  {FALSE, Err_Res    },
02994   /* Logical_4        */  {FALSE, Err_Res    },
02995   /* Logical_8        */  {FALSE, Err_Res    },
02996   /* Character_1       */ {FALSE, Err_Res    },
02997   /* Character_2       */ {FALSE, Err_Res    },
02998   /* Character_4       */ {FALSE, Err_Res    },
02999   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
03000   /* Structure_Type      */ {FALSE, Err_Res    },
03001         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03002       },
03003 /* Typeless_1 */        {
03004         /* Err_Res    */        {FALSE, Err_Res    },
03005         /* Short_Char_Const */  {FALSE, Err_Res       },
03006         /* Short_Typeless_Const */      {FALSE, Err_Res       },
03007         /* Typeless_1 */  {FALSE, Err_Res    },
03008         /* Typeless_2 */  {FALSE, Err_Res    },
03009         /* Typeless_4 */  {FALSE, Err_Res    },
03010         /* Typeless_8 */  {FALSE, Err_Res    },
03011         /* Long_Typeless */     {FALSE, Err_Res    },
03012         /* Integer_1      */    {FALSE, Err_Res    },
03013         /* Integer_2      */    {FALSE, Err_Res    },
03014         /* Integer_4      */    {FALSE, Err_Res    },
03015         /* Integer_8      */    {FALSE, Err_Res    },
03016         /* Real_4     */        {FALSE, Err_Res    },
03017         /* Real_8     */        {FALSE, Err_Res    },
03018         /* Real_16    */        {FALSE, Err_Res    },
03019         /* Complex_4     */     {FALSE, Err_Res    },
03020         /* Complex_8     */     {FALSE, Err_Res    },
03021         /* Complex_16    */     {FALSE, Err_Res    },
03022         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
03023         /* Logical_1        */  {FALSE, Err_Res    },
03024         /* Logical_2        */  {FALSE, Err_Res    },
03025         /* Logical_4        */  {FALSE, Err_Res    },
03026         /* Logical_8        */  {FALSE, Err_Res    },
03027         /* Character_1       */ {FALSE, Err_Res    },
03028         /* Character_2       */ {FALSE, Err_Res    },
03029         /* Character_4       */ {FALSE, Err_Res    },
03030         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
03031         /* Structure_Type      */       {FALSE, Err_Res    },
03032         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03033                         },
03034 /* Typeless_2 */        {
03035         /* Err_Res    */        {FALSE, Err_Res    },
03036         /* Short_Char_Const */  {FALSE, Err_Res       },
03037         /* Short_Typeless_Const */      {FALSE, Err_Res       },
03038         /* Typeless_1 */  {FALSE, Err_Res    },
03039         /* Typeless_2 */  {FALSE, Err_Res    },
03040         /* Typeless_4 */  {FALSE, Err_Res    },
03041         /* Typeless_8 */  {FALSE, Err_Res    },
03042         /* Long_Typeless */     {FALSE, Err_Res    },
03043         /* Integer_1      */    {FALSE, Err_Res    },
03044         /* Integer_2      */    {FALSE, Err_Res    },
03045         /* Integer_4      */    {FALSE, Err_Res    },
03046         /* Integer_8      */    {FALSE, Err_Res    },
03047         /* Real_4     */        {FALSE, Err_Res    },
03048         /* Real_8     */        {FALSE, Err_Res    },
03049         /* Real_16    */        {FALSE, Err_Res    },
03050         /* Complex_4     */     {FALSE, Err_Res    },
03051         /* Complex_8     */     {FALSE, Err_Res    },
03052         /* Complex_16    */     {FALSE, Err_Res    },
03053         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
03054         /* Logical_1        */  {FALSE, Err_Res    },
03055         /* Logical_2        */  {FALSE, Err_Res    },
03056         /* Logical_4        */  {FALSE, Err_Res    },
03057         /* Logical_8        */  {FALSE, Err_Res    },
03058         /* Character_1       */ {FALSE, Err_Res    },
03059         /* Character_2       */ {FALSE, Err_Res    },
03060         /* Character_4       */ {FALSE, Err_Res    },
03061         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
03062         /* Structure_Type      */       {FALSE, Err_Res    },
03063         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03064                         },
03065 /* Typeless_4 */  {
03066   /* Err_Res    */  {FALSE, Err_Res    },
03067   /* Short_Char_Const */  {FALSE, Err_Res       },
03068   /* Short_Typeless_Const */  {FALSE, Err_Res       },
03069         /* Typeless_1 */  {FALSE, Err_Res    },
03070         /* Typeless_2 */  {FALSE, Err_Res    },
03071         /* Typeless_4 */  {FALSE, Err_Res    },
03072         /* Typeless_8 */  {FALSE, Err_Res    },
03073   /* Long_Typeless */ {FALSE, Err_Res    },
03074   /* Integer_1      */  {FALSE, Err_Res    },
03075   /* Integer_2      */  {FALSE, Err_Res    },
03076   /* Integer_4      */  {FALSE, Err_Res    },
03077   /* Integer_8      */  {FALSE, Err_Res    },
03078   /* Real_4     */  {FALSE, Err_Res    },
03079   /* Real_8     */  {FALSE, Err_Res    },
03080   /* Real_16    */  {FALSE, Err_Res    },
03081   /* Complex_4     */ {FALSE, Err_Res    },
03082   /* Complex_8     */ {FALSE, Err_Res    },
03083   /* Complex_16    */ {FALSE, Err_Res    },
03084   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
03085   /* Logical_1        */  {FALSE, Err_Res    },
03086   /* Logical_2        */  {FALSE, Err_Res    },
03087   /* Logical_4        */  {FALSE, Err_Res    },
03088   /* Logical_8        */  {FALSE, Err_Res    },
03089   /* Character_1       */ {FALSE, Err_Res    },
03090   /* Character_2       */ {FALSE, Err_Res    },
03091   /* Character_4       */ {FALSE, Err_Res    },
03092   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
03093   /* Structure_Type      */ {FALSE, Err_Res    },
03094         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03095       },
03096 /* Typeless_8 */  {
03097   /* Err_Res    */  {FALSE, Err_Res    },
03098   /* Short_Char_Const */  {FALSE, Err_Res       },
03099   /* Short_Typeless_Const */  {FALSE, Err_Res       },
03100         /* Typeless_1 */  {FALSE, Err_Res    },
03101         /* Typeless_2 */  {FALSE, Err_Res    },
03102         /* Typeless_4 */  {FALSE, Err_Res    },
03103         /* Typeless_8 */  {FALSE, Err_Res    },
03104   /* Long_Typeless */ {FALSE, Err_Res    },
03105   /* Integer_1      */  {FALSE, Err_Res    },
03106   /* Integer_2      */  {FALSE, Err_Res    },
03107   /* Integer_4      */  {FALSE, Err_Res    },
03108   /* Integer_8      */  {FALSE, Err_Res    },
03109   /* Real_4     */  {FALSE, Err_Res    },
03110   /* Real_8     */  {FALSE, Err_Res    },
03111   /* Real_16    */  {FALSE, Err_Res    },
03112   /* Complex_4     */ {FALSE, Err_Res    },
03113   /* Complex_8     */ {FALSE, Err_Res    },
03114   /* Complex_16    */ {FALSE, Err_Res    },
03115   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
03116   /* Logical_1        */  {FALSE, Err_Res    },
03117   /* Logical_2        */  {FALSE, Err_Res    },
03118   /* Logical_4        */  {FALSE, Err_Res    },
03119   /* Logical_8        */  {FALSE, Err_Res    },
03120   /* Character_1       */ {FALSE, Err_Res    },
03121   /* Character_2       */ {FALSE, Err_Res    },
03122   /* Character_4       */ {FALSE, Err_Res    },
03123   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
03124   /* Structure_Type      */ {FALSE, Err_Res    },
03125         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03126       },
03127 /* Long_Typeless */ {
03128   /* Err_Res    */  {FALSE, Err_Res    },
03129   /* Short_Char_Const */  {FALSE, Err_Res    },
03130   /* Short_Typeless_Const */  {FALSE, Err_Res    },
03131         /* Typeless_1 */  {FALSE, Err_Res    },
03132         /* Typeless_2 */  {FALSE, Err_Res    },
03133         /* Typeless_4 */  {FALSE, Err_Res    },
03134         /* Typeless_8 */  {FALSE, Err_Res    },
03135   /* Long_Typeless */ {FALSE, Err_Res    },
03136   /* Integer_1      */  {FALSE, Err_Res    },
03137   /* Integer_2      */  {FALSE, Err_Res    },
03138   /* Integer_4      */  {FALSE, Err_Res    },
03139   /* Integer_8      */  {FALSE, Err_Res    },
03140   /* Real_4     */  {FALSE, Err_Res    },
03141   /* Real_8     */  {FALSE, Err_Res    },
03142   /* Real_16    */  {FALSE, Err_Res    },
03143   /* Complex_4     */ {FALSE, Err_Res    },
03144   /* Complex_8     */ {FALSE, Err_Res    },
03145   /* Complex_16    */ {FALSE, Err_Res    },
03146   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
03147   /* Logical_1        */  {FALSE, Err_Res    },
03148   /* Logical_2        */  {FALSE, Err_Res    },
03149   /* Logical_4        */  {FALSE, Err_Res    },
03150   /* Logical_8        */  {FALSE, Err_Res    },
03151   /* Character_1       */ {FALSE, Err_Res    },
03152   /* Character_2       */ {FALSE, Err_Res    },
03153   /* Character_4       */ {FALSE, Err_Res    },
03154   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
03155   /* Structure_Type      */ {FALSE, Err_Res    },
03156         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03157       },
03158 /* Integer_1 */         {
03159         /* Err_Res    */        {FALSE, Err_Res    },
03160         /* Short_Char_Const */  {TRUE , Integer_1 },
03161         /* Short_Typeless_Const */        {TRUE , Integer_1 },
03162         /* Typeless_1 */  {FALSE, Err_Res    },
03163         /* Typeless_2 */  {FALSE, Err_Res    },
03164         /* Typeless_4 */  {FALSE, Err_Res    },
03165         /* Typeless_8 */  {FALSE, Err_Res    },
03166         /* Long_Typeless */        {FALSE, Err_Res    },
03167         /* Integer_1      */    {FALSE, Integer_1      },
03168         /* Integer_2      */    {FALSE, Integer_2      },
03169         /* Integer_4      */    {FALSE, Integer_4      },
03170         /* Integer_8      */    {FALSE, Integer_8      },
03171         /* Real_4     */        {FALSE, Real_4     },
03172         /* Real_8     */        {FALSE, Real_8     },
03173         /* Real_16    */        {FALSE, Real_16    },
03174         /* Complex_4     */     {FALSE, Complex_4     },
03175         /* Complex_8     */     {FALSE, Complex_8     },
03176         /* Complex_16    */     {FALSE, Complex_16    },
03177         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
03178         /* Logical_1        */  {FALSE, Err_Res    },
03179         /* Logical_2        */  {FALSE, Err_Res    },
03180         /* Logical_4        */  {FALSE, Err_Res    },
03181         /* Logical_8        */  {FALSE, Err_Res    },
03182         /* Character_1       */ {FALSE, Err_Res    },
03183         /* Character_2       */ {FALSE, Err_Res    },
03184         /* Character_4       */ {FALSE, Err_Res    },
03185         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
03186         /* Structure_Type      */        {FALSE, Err_Res    },
03187         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03188                         },
03189 /* Integer_2 */   {
03190   /* Err_Res    */  {FALSE, Err_Res    },
03191   /* Short_Char_Const */  {TRUE , Integer_2 },
03192   /* Short_Typeless_Const */  {TRUE , Integer_2 },
03193         /* Typeless_1 */  {FALSE, Err_Res    },
03194         /* Typeless_2 */  {FALSE, Err_Res    },
03195         /* Typeless_4 */  {FALSE, Err_Res    },
03196         /* Typeless_8 */  {FALSE, Err_Res    },
03197   /* Long_Typeless */ {FALSE, Err_Res    },
03198   /* Integer_1      */  {FALSE, Integer_2      },
03199   /* Integer_2      */  {FALSE, Integer_2      },
03200   /* Integer_4      */  {FALSE, Integer_4      },
03201   /* Integer_8      */  {FALSE, Integer_8      },
03202   /* Real_4     */  {FALSE, Real_4     },
03203   /* Real_8     */  {FALSE, Real_8     },
03204   /* Real_16    */  {FALSE, Real_16    },
03205   /* Complex_4     */ {FALSE, Complex_4     },
03206   /* Complex_8     */ {FALSE, Complex_8     },
03207   /* Complex_16    */ {FALSE, Complex_16    },
03208   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
03209   /* Logical_1        */  {FALSE, Err_Res    },
03210   /* Logical_2        */  {FALSE, Err_Res    },
03211   /* Logical_4        */  {FALSE, Err_Res    },
03212   /* Logical_8        */  {FALSE, Err_Res    },
03213   /* Character_1       */ {FALSE, Err_Res    },
03214   /* Character_2       */ {FALSE, Err_Res    },
03215   /* Character_4       */ {FALSE, Err_Res    },
03216   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
03217   /* Structure_Type      */ {FALSE, Err_Res    },
03218         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03219       },
03220 /* Integer_4 */   {
03221   /* Err_Res    */  {FALSE, Err_Res    },
03222   /* Short_Char_Const */  {TRUE , Integer_4 },
03223   /* Short_Typeless_Const */  {TRUE , Integer_4 },
03224         /* Typeless_1 */  {FALSE, Err_Res    },
03225         /* Typeless_2 */  {FALSE, Err_Res    },
03226         /* Typeless_4 */  {FALSE, Err_Res    },
03227         /* Typeless_8 */  {FALSE, Err_Res    },
03228   /* Long_Typeless */ {FALSE, Err_Res    },
03229   /* Integer_1      */  {FALSE, Integer_4      },
03230   /* Integer_2      */  {FALSE, Integer_4      },
03231   /* Integer_4      */  {FALSE, Integer_4      },
03232   /* Integer_8      */  {FALSE, Integer_8      },
03233   /* Real_4     */  {FALSE, Real_4     },
03234   /* Real_8     */  {FALSE, Real_8     },
03235   /* Real_16    */  {FALSE, Real_16    },
03236   /* Complex_4     */ {FALSE, Complex_4     },
03237   /* Complex_8     */ {FALSE, Complex_8     },
03238   /* Complex_16    */ {FALSE, Complex_16    },
03239   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
03240   /* Logical_1        */  {FALSE, Err_Res    },
03241   /* Logical_2        */  {FALSE, Err_Res    },
03242   /* Logical_4        */  {FALSE, Err_Res    },
03243   /* Logical_8        */  {FALSE, Err_Res    },
03244   /* Character_1       */ {FALSE, Err_Res    },
03245   /* Character_2       */ {FALSE, Err_Res    },
03246   /* Character_4       */ {FALSE, Err_Res    },
03247   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
03248   /* Structure_Type      */ {FALSE, Err_Res    },
03249         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03250       },
03251 /* Integer_8 */   {
03252   /* Err_Res    */  {FALSE, Err_Res    },
03253   /* Short_Char_Const */  {TRUE , Integer_8 },
03254   /* Short_Typeless_Const */  {TRUE , Integer_8 },
03255         /* Typeless_1 */  {FALSE, Err_Res    },
03256         /* Typeless_2 */  {FALSE, Err_Res    },
03257         /* Typeless_4 */  {FALSE, Err_Res    },
03258         /* Typeless_8 */  {FALSE, Err_Res    },
03259   /* Long_Typeless */ {FALSE, Err_Res    },
03260   /* Integer_1      */  {FALSE, Integer_8      },
03261   /* Integer_2      */  {FALSE, Integer_8      },
03262   /* Integer_4      */  {FALSE, Integer_8      },
03263   /* Integer_8      */  {FALSE, Integer_8      },
03264   /* Real_4     */  {FALSE, Real_4     },
03265   /* Real_8     */  {FALSE, Real_8     },
03266   /* Real_16    */  {FALSE, Real_16    },
03267   /* Complex_4     */ {FALSE, Complex_4     },
03268   /* Complex_8     */ {FALSE, Complex_8     },
03269   /* Complex_16    */ {FALSE, Complex_16    },
03270   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
03271   /* Logical_1        */  {FALSE, Err_Res    },
03272   /* Logical_2        */  {FALSE, Err_Res    },
03273   /* Logical_4        */  {FALSE, Err_Res    },
03274   /* Logical_8        */  {FALSE, Err_Res    },
03275   /* Character_1       */ {FALSE, Err_Res    },
03276   /* Character_2       */ {FALSE, Err_Res    },
03277   /* Character_4       */ {FALSE, Err_Res    },
03278   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
03279   /* Structure_Type      */ {FALSE, Err_Res    },
03280         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03281       },
03282 /* Real_4 */    {
03283   /* Err_Res    */  {FALSE, Err_Res    },
03284   /* Short_Char_Const */  {TRUE , Real_4 },
03285   /* Short_Typeless_Const */  {TRUE , Real_4 },
03286         /* Typeless_1 */  {FALSE, Err_Res    },
03287         /* Typeless_2 */  {FALSE, Err_Res    },
03288         /* Typeless_4 */  {FALSE, Err_Res    },
03289         /* Typeless_8 */  {FALSE, Err_Res    },
03290   /* Long_Typeless */ {FALSE, Err_Res    },
03291   /* Integer_1      */  {FALSE, Real_4     },
03292   /* Integer_2      */  {FALSE, Real_4     },
03293   /* Integer_4      */  {FALSE, Real_4     },
03294   /* Integer_8      */  {FALSE, Real_4     },
03295   /* Real_4     */  {FALSE, Real_4     },
03296   /* Real_8     */  {FALSE, Real_8     },
03297   /* Real_16    */  {FALSE, Real_16    },
03298   /* Complex_4     */ {FALSE, Complex_4     },
03299   /* Complex_8     */ {FALSE, Complex_8     },
03300   /* Complex_16    */ {FALSE, Complex_16    },
03301   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
03302   /* Logical_1        */  {FALSE, Err_Res    },
03303   /* Logical_2        */  {FALSE, Err_Res    },
03304   /* Logical_4        */  {FALSE, Err_Res    },
03305   /* Logical_8        */  {FALSE, Err_Res    },
03306   /* Character_1       */ {FALSE, Err_Res    },
03307   /* Character_2       */ {FALSE, Err_Res    },
03308   /* Character_4       */ {FALSE, Err_Res    },
03309   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
03310   /* Structure_Type      */ {FALSE, Err_Res    },
03311         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03312       },
03313 /* Real_8 */    {
03314   /* Err_Res    */  {FALSE, Err_Res    },
03315   /* Short_Char_Const */  {TRUE , Real_8 },
03316   /* Short_Typeless_Const */  {TRUE , Real_8 },
03317         /* Typeless_1 */  {FALSE, Err_Res    },
03318         /* Typeless_2 */  {FALSE, Err_Res    },
03319         /* Typeless_4 */  {FALSE, Err_Res    },
03320         /* Typeless_8 */  {FALSE, Err_Res    },
03321   /* Long_Typeless */ {FALSE, Err_Res    },
03322   /* Integer_1      */  {FALSE, Real_8     },
03323   /* Integer_2      */  {FALSE, Real_8     },
03324   /* Integer_4      */  {FALSE, Real_8     },
03325   /* Integer_8      */  {FALSE, Real_8     },
03326   /* Real_4     */  {FALSE, Real_8     },
03327   /* Real_8     */  {FALSE, Real_8     },
03328   /* Real_16    */  {FALSE, Real_16    },
03329   /* Complex_4     */ {FALSE, Complex_8     },
03330   /* Complex_8     */ {FALSE, Complex_8     },
03331   /* Complex_16    */ {FALSE, Complex_16    },
03332   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
03333   /* Logical_1        */  {FALSE, Err_Res    },
03334   /* Logical_2        */  {FALSE, Err_Res    },
03335   /* Logical_4        */  {FALSE, Err_Res    },
03336   /* Logical_8        */  {FALSE, Err_Res    },
03337   /* Character_1       */ {FALSE, Err_Res    },
03338   /* Character_2       */ {FALSE, Err_Res    },
03339   /* Character_4       */ {FALSE, Err_Res    },
03340   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
03341   /* Structure_Type      */ {FALSE, Err_Res    },
03342         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03343       },
03344 /* Real_16 */   {
03345   /* Err_Res    */  {FALSE, Err_Res    },
03346   /* Short_Char_Const */  {TRUE , Real_16    },
03347   /* Short_Typeless_Const */  {TRUE , Real_16    },
03348         /* Typeless_1 */  {FALSE, Err_Res    },
03349         /* Typeless_2 */  {FALSE, Err_Res    },
03350         /* Typeless_4 */  {FALSE, Err_Res    },
03351         /* Typeless_8 */  {FALSE, Err_Res    },
03352   /* Long_Typeless */ {FALSE, Err_Res    },
03353   /* Integer_1      */  {FALSE, Real_16    },
03354   /* Integer_2      */  {FALSE, Real_16    },
03355   /* Integer_4      */  {FALSE, Real_16    },
03356   /* Integer_8      */  {FALSE, Real_16    },
03357   /* Real_4     */  {FALSE, Real_16    },
03358   /* Real_8     */  {FALSE, Real_16    },
03359   /* Real_16    */  {FALSE, Real_16    },
03360   /* Complex_4     */ {FALSE, Complex_16    },
03361   /* Complex_8     */ {FALSE, Complex_16    },
03362   /* Complex_16    */ {FALSE, Complex_16    },
03363   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
03364   /* Logical_1        */  {FALSE, Err_Res    },
03365   /* Logical_2        */  {FALSE, Err_Res    },
03366   /* Logical_4        */  {FALSE, Err_Res    },
03367   /* Logical_8        */  {FALSE, Err_Res    },
03368   /* Character_1       */ {FALSE, Err_Res    },
03369   /* Character_2       */ {FALSE, Err_Res    },
03370   /* Character_4       */ {FALSE, Err_Res    },
03371   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
03372   /* Structure_Type      */ {FALSE, Err_Res    },
03373         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03374       },
03375 /* Complex_4 */   {
03376   /* Err_Res    */  {FALSE, Err_Res    },
03377   /* Short_Char_Const */  {TRUE , Complex_4  },
03378   /* Short_Typeless_Const */  {TRUE , Complex_4  },
03379         /* Typeless_1 */  {FALSE, Err_Res    },
03380         /* Typeless_2 */  {FALSE, Err_Res    },
03381         /* Typeless_4 */  {FALSE, Err_Res    },
03382         /* Typeless_8 */  {FALSE, Err_Res    },
03383   /* Long_Typeless */ {FALSE, Err_Res    },
03384   /* Integer_1      */  {FALSE, Complex_4     },
03385   /* Integer_2      */  {FALSE, Complex_4     },
03386   /* Integer_4      */  {FALSE, Complex_4     },
03387   /* Integer_8      */  {FALSE, Complex_4     },
03388   /* Real_4     */  {FALSE, Complex_4     },
03389   /* Real_8     */  {FALSE, Complex_8     },
03390   /* Real_16    */  {FALSE, Complex_16    },
03391   /* Complex_4     */ {FALSE, Complex_4     },
03392   /* Complex_8     */ {FALSE, Complex_8     },
03393   /* Complex_16    */ {FALSE, Complex_16    },
03394   /* CRI_Ptr_8      */  {FALSE, Err_Res    },
03395   /* Logical_1        */  {FALSE, Err_Res    },
03396   /* Logical_2        */  {FALSE, Err_Res    },
03397   /* Logical_4        */  {FALSE, Err_Res    },
03398   /* Logical_8        */  {FALSE, Err_Res    },
03399   /* Character_1       */ {FALSE, Err_Res    },
03400   /* Character_2       */ {FALSE, Err_Res    },
03401   /* Character_4       */ {FALSE, Err_Res    },
03402   /* CRI_Ch_Ptr_8    */ {FALSE, Err_Res    },
03403   /* Structure_Type      */ {FALSE, Err_Res    },
03404         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
03405       },
03406 /* Complex_8 */   {
03407   /* Err_Res    */  {FALSE, Err_Res    },
03408   /* Short_Char_Const */  {TRUE , Complex_8  },
03409   /* Short_Typeless_Const */  {TRUE , Complex_8  },
03410         /* Typeless_1 */  {FALSE, Err_Res    },
03411         /* Typeless_2 */  {FALSE, Err_Res    },
03412         /* Typeless_4 */  {FALSE, Err_Res    },
03413         /* Typeless_8 */  {FALSE, Err_Res    },
03414   /* Long_Typeless */ {FALSE,