s_asg_expr.h

Go to the documentation of this file.
00001 /*
00002 
00003   Copyright (C) 2000, 2001 Silicon Graphics, Inc.  All Rights Reserved.
00004 
00005   This program is free software; you can redistribute it and/or modify it
00006   under the terms of version 2 of the GNU General Public License as
00007   published by the Free Software Foundation.
00008 
00009   This program is distributed in the hope that it would be useful, but
00010   WITHOUT ANY WARRANTY; without even the implied warranty of
00011   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
00012 
00013   Further, this software is distributed without any warranty that it is
00014   free of the rightful claim of any third person regarding infringement 
00015   or the like.  Any license provided herein, whether implied or 
00016   otherwise, applies only to this software file.  Patent licenses, if 
00017   any, provided herein do not apply to combinations of this program with 
00018   other software, or any other product whatsoever.  
00019 
00020   You should have received a copy of the GNU General Public License along
00021   with this program; if not, write the Free Software Foundation, Inc., 59
00022   Temple Place - Suite 330, Boston MA 02111-1307, USA.
00023 
00024   Contact information:  Silicon Graphics, Inc., 1600 Amphitheatre Pky,
00025   Mountain View, CA 94043, or:
00026 
00027   http://www.sgi.com
00028 
00029   For further information regarding this notice, see:
00030 
00031   http://oss.sgi.com/projects/GenInfo/NoticeExplan
00032 
00033 */
00034 
00035 
00036 
00037 /* USMID:  "\n@(#)5.0_pl/headers/s_asg_expr.h   5.3     05/25/99 17:45:47\n" */
00038 
00039 
00040 extern boolean  resolve_ext_opr(opnd_type *, boolean, boolean, boolean,
00041                                 boolean *,
00042                                 expr_arg_type *,
00043                                 expr_arg_type *);
00044 
00045 extern int      opr_to_str(operator_type, char *);
00046 
00047 exp_tbl_type    bin_add_tbl[Num_Linear_Types][Num_Linear_Types] = {
00048 /* Err_Res */           {
00049         /* Err_Res    */        {FALSE, Err_Res    },
00050         /* Short_Char_Const */  {FALSE, Err_Res    },
00051         /* Short_Typeless_Const */      {FALSE, Err_Res    },
00052         /* Typeless_1 */        {FALSE, Err_Res    },
00053         /* Typeless_2 */        {FALSE, Err_Res    },
00054         /* Typeless_4 */        {FALSE, Err_Res    },
00055         /* Typeless_8 */        {FALSE, Err_Res    },
00056         /* Long_Typeless */     {FALSE, Err_Res    },
00057         /* Integer_1      */    {FALSE, Err_Res    },
00058         /* Integer_2      */    {FALSE, Err_Res    },
00059         /* Integer_4      */    {FALSE, Err_Res    },
00060         /* Integer_8      */    {FALSE, Err_Res    },
00061         /* Real_4     */        {FALSE, Err_Res    },
00062         /* Real_8     */        {FALSE, Err_Res    },
00063         /* Real_16    */        {FALSE, Err_Res    },
00064         /* Complex_4     */     {FALSE, Err_Res    },
00065         /* Complex_8     */     {FALSE, Err_Res    },
00066         /* Complex_16    */     {FALSE, Err_Res    },
00067         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00068         /* Logical_1        */  {FALSE, Err_Res    },
00069         /* Logical_2        */  {FALSE, Err_Res    },
00070         /* Logical_4        */  {FALSE, Err_Res    },
00071         /* Logical_8        */  {FALSE, Err_Res    },
00072         /* Character_1       */ {FALSE, Err_Res    },
00073         /* Character_2       */ {FALSE, Err_Res    },
00074         /* Character_4       */ {FALSE, Err_Res    },
00075         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00076         /* Structure_Type      */       {FALSE, Err_Res    },
00077         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00078                         },
00079 /* Short_Char_Const */  {
00080         /* Err_Res    */        {FALSE, Err_Res    },
00081         /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
00082         /* Short_Typeless_Const */      {TRUE , Short_Typeless_Const },
00083         /* Typeless_1 */        {TRUE , Typeless_1 },
00084         /* Typeless_2 */        {TRUE , Typeless_2 },
00085         /* Typeless_4 */        {TRUE , Typeless_4 },
00086         /* Typeless_8 */        {TRUE , Typeless_8 },
00087         /* Long_Typeless */     {FALSE, Err_Res    },
00088         /* Integer_1      */    {TRUE , Integer_1  },
00089         /* Integer_2      */    {TRUE , Integer_2  },
00090         /* Integer_4      */    {TRUE , Integer_4  },
00091         /* Integer_8      */    {TRUE , Integer_8      },
00092         /* Real_4     */        {TRUE , Real_4     },
00093         /* Real_8     */        {TRUE , Real_8     },
00094         /* Real_16    */        {TRUE , Real_16    },
00095         /* Complex_4     */     {TRUE , Complex_4  },
00096         /* Complex_8     */     {TRUE , Complex_8  },
00097         /* Complex_16    */     {TRUE , Complex_16 },
00098         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00099         /* Logical_1        */  {FALSE, Err_Res    },
00100         /* Logical_2        */  {FALSE, Err_Res    },
00101         /* Logical_4        */  {FALSE, Err_Res    },
00102         /* Logical_8        */  {FALSE, Err_Res    },
00103         /* Character_1       */ {FALSE, Err_Res    },
00104         /* Character_2       */ {FALSE, Err_Res    },
00105         /* Character_4       */ {FALSE, Err_Res    },
00106         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00107         /* Structure_Type      */       {FALSE, Err_Res    },
00108         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00109                         },
00110 /* Short_Typeless_Const */      {
00111         /* Err_Res    */        {FALSE, Err_Res    },
00112         /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
00113         /* Short_Typeless_Const */      {TRUE , Short_Typeless_Const },
00114         /* Typeless_1 */        {TRUE , Typeless_1 },
00115         /* Typeless_2 */        {TRUE , Typeless_2 },
00116         /* Typeless_4 */        {TRUE , Typeless_4 },
00117         /* Typeless_8 */        {TRUE , Typeless_8 },
00118         /* Long_Typeless */     {FALSE, Err_Res    },
00119         /* Integer_1      */    {TRUE , Integer_1  },
00120         /* Integer_2      */    {TRUE , Integer_2  },
00121         /* Integer_4      */    {TRUE , Integer_4  },
00122         /* Integer_8      */    {TRUE , Integer_8  },
00123         /* Real_4     */        {TRUE , Real_4     },
00124         /* Real_8     */        {TRUE , Real_8     },
00125         /* Real_16    */        {TRUE , Real_16    },
00126         /* Complex_4     */     {TRUE , Complex_4  },
00127         /* Complex_8     */     {TRUE , Complex_8  },
00128         /* Complex_16    */     {TRUE , Complex_16 },
00129         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00130         /* Logical_1        */  {FALSE, Err_Res    },
00131         /* Logical_2        */  {FALSE, Err_Res    },
00132         /* Logical_4        */  {FALSE, Err_Res    },
00133         /* Logical_8        */  {FALSE, Err_Res    },
00134         /* Character_1       */ {FALSE, Err_Res    },
00135         /* Character_2       */ {FALSE, Err_Res    },
00136         /* Character_4       */ {FALSE, Err_Res    },
00137         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00138         /* Structure_Type      */       {FALSE, Err_Res    },
00139         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00140                         },
00141 /* Typeless_1 */        {
00142         /* Err_Res    */        {FALSE, Err_Res    },
00143         /* Short_Char_Const */  {TRUE , Typeless_1 },
00144         /* Short_Typeless_Const */      {TRUE , Typeless_1 },
00145         /* Typeless_1 */        {TRUE , Typeless_1 },
00146         /* Typeless_2 */        {TRUE , Typeless_2 },
00147         /* Typeless_4 */        {TRUE , Typeless_4 },
00148         /* Typeless_8 */        {TRUE , Typeless_8 },
00149         /* Long_Typeless */     {FALSE, Err_Res    },
00150         /* Integer_1      */    {TRUE , Integer_1  },
00151         /* Integer_2      */    {TRUE , Integer_2  },
00152         /* Integer_4      */    {TRUE , Integer_4  },
00153         /* Integer_8      */    {TRUE , Integer_8  },
00154         /* Real_4     */        {FALSE, Err_Res    },
00155         /* Real_8     */        {FALSE, Err_Res    },
00156         /* Real_16    */        {FALSE, Err_Res    },
00157         /* Complex_4     */     {FALSE, Err_Res    },
00158         /* Complex_8     */     {FALSE, Err_Res    },
00159         /* Complex_16    */     {FALSE, Err_Res    },
00160         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00161         /* Logical_1        */  {FALSE, Err_Res    },
00162         /* Logical_2        */  {FALSE, Err_Res    },
00163         /* Logical_4        */  {FALSE, Err_Res    },
00164         /* Logical_8        */  {FALSE, Err_Res    },
00165         /* Character_1       */ {FALSE, Err_Res    },
00166         /* Character_2       */ {FALSE, Err_Res    },
00167         /* Character_4       */ {FALSE, Err_Res    },
00168         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00169         /* Structure_Type      */       {FALSE, Err_Res    },
00170         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00171                         },
00172 /* Typeless_2 */        {
00173         /* Err_Res    */        {FALSE, Err_Res    },
00174         /* Short_Char_Const */  {TRUE , Typeless_2 },
00175         /* Short_Typeless_Const */      {TRUE , Typeless_2 },
00176         /* Typeless_1 */        {TRUE , Typeless_2 },
00177         /* Typeless_2 */        {TRUE , Typeless_2 },
00178         /* Typeless_4 */        {TRUE , Typeless_4 },
00179         /* Typeless_8 */        {TRUE , Typeless_8 },
00180         /* Long_Typeless */     {FALSE, Err_Res    },
00181         /* Integer_1      */    {TRUE , Integer_1  },
00182         /* Integer_2      */    {TRUE , Integer_2  },
00183         /* Integer_4      */    {TRUE , Integer_4  },
00184         /* Integer_8      */    {TRUE , Integer_8  },
00185         /* Real_4     */        {FALSE, Err_Res    },
00186         /* Real_8     */        {FALSE, Err_Res    },
00187         /* Real_16    */        {FALSE, Err_Res    },
00188         /* Complex_4     */     {FALSE, Err_Res    },
00189         /* Complex_8     */     {FALSE, Err_Res    },
00190         /* Complex_16    */     {FALSE, Err_Res    },
00191         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00192         /* Logical_1        */  {FALSE, Err_Res    },
00193         /* Logical_2        */  {FALSE, Err_Res    },
00194         /* Logical_4        */  {FALSE, Err_Res    },
00195         /* Logical_8        */  {FALSE, Err_Res    },
00196         /* Character_1       */ {FALSE, Err_Res    },
00197         /* Character_2       */ {FALSE, Err_Res    },
00198         /* Character_4       */ {FALSE, Err_Res    },
00199         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00200         /* Structure_Type      */       {FALSE, Err_Res    },
00201         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00202                         },
00203 /* Typeless_4 */        {
00204         /* Err_Res    */        {FALSE, Err_Res    },
00205         /* Short_Char_Const */  {TRUE , Typeless_4 },
00206         /* Short_Typeless_Const */      {TRUE , Typeless_4 },
00207         /* Typeless_1 */        {TRUE , Typeless_4 },
00208         /* Typeless_2 */        {TRUE , Typeless_4 },
00209         /* Typeless_4 */        {TRUE , Typeless_4 },
00210         /* Typeless_8 */        {TRUE , Typeless_8 },
00211         /* Long_Typeless */     {FALSE, Err_Res    },
00212         /* Integer_1      */    {TRUE , Integer_1  },
00213         /* Integer_2      */    {TRUE , Integer_2  },
00214         /* Integer_4      */    {TRUE , Integer_4  },
00215         /* Integer_8      */    {TRUE , Integer_8  },
00216         /* Real_4     */        {TRUE , Real_4     },
00217         /* Real_8     */        {FALSE, Err_Res    },
00218         /* Real_16    */        {FALSE, Err_Res    },
00219         /* Complex_4     */     {FALSE, Err_Res    },
00220         /* Complex_8     */     {FALSE, Err_Res    },
00221         /* Complex_16    */     {FALSE, Err_Res    },
00222         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00223         /* Logical_1        */  {FALSE, Err_Res    },
00224         /* Logical_2        */  {FALSE, Err_Res    },
00225         /* Logical_4        */  {FALSE, Err_Res    },
00226         /* Logical_8        */  {FALSE, Err_Res    },
00227         /* Character_1       */ {FALSE, Err_Res    },
00228         /* Character_2       */ {FALSE, Err_Res    },
00229         /* Character_4       */ {FALSE, Err_Res    },
00230         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00231         /* Structure_Type      */       {FALSE, Err_Res    },
00232         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00233                         },
00234 /* Typeless_8 */        {
00235         /* Err_Res    */        {FALSE, Err_Res    },
00236         /* Short_Char_Const */  {TRUE , Typeless_8 },
00237         /* Short_Typeless_Const */      {TRUE , Typeless_8 },
00238         /* Typeless_1 */        {TRUE , Typeless_8 },
00239         /* Typeless_2 */        {TRUE , Typeless_8 },
00240         /* Typeless_4 */        {TRUE , Typeless_8 },
00241         /* Typeless_8 */        {TRUE , Typeless_8 },
00242         /* Long_Typeless */     {FALSE, Err_Res    },
00243         /* Integer_1      */    {TRUE , Integer_1  },
00244         /* Integer_2      */    {TRUE , Integer_2  },
00245         /* Integer_4      */    {TRUE , Integer_4  },
00246         /* Integer_8      */    {TRUE , Integer_8  },
00247         /* Real_4     */        {TRUE , Real_4     },
00248         /* Real_8     */        {TRUE , Real_8     },
00249         /* Real_16    */        {FALSE, Err_Res    },
00250         /* Complex_4     */     {FALSE, Err_Res    },
00251         /* Complex_8     */     {FALSE, Err_Res    },
00252         /* Complex_16    */     {FALSE, Err_Res    },
00253         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00254         /* Logical_1        */  {FALSE, Err_Res    },
00255         /* Logical_2        */  {FALSE, Err_Res    },
00256         /* Logical_4        */  {FALSE, Err_Res    },
00257         /* Logical_8        */  {FALSE, Err_Res    },
00258         /* Character_1       */ {FALSE, Err_Res    },
00259         /* Character_2       */ {FALSE, Err_Res    },
00260         /* Character_4       */ {FALSE, Err_Res    },
00261         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00262         /* Structure_Type      */       {FALSE, Err_Res    },
00263         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00264                         },
00265 /* Long_Typeless */     {
00266         /* Err_Res    */        {FALSE, Err_Res    },
00267         /* Short_Char_Const */  {FALSE, Err_Res    },
00268         /* Short_Typeless_Const */      {FALSE, Err_Res    },
00269         /* Typeless_1 */        {FALSE, Err_Res    },
00270         /* Typeless_2 */        {FALSE, Err_Res    },
00271         /* Typeless_4 */        {FALSE, Err_Res    },
00272         /* Typeless_8 */        {FALSE, Err_Res    },
00273         /* Long_Typeless */     {FALSE, Err_Res    },
00274         /* Integer_1      */    {FALSE, Err_Res    },
00275         /* Integer_2      */    {FALSE, Err_Res    },
00276         /* Integer_4      */    {FALSE, Err_Res    },
00277         /* Integer_8      */    {FALSE, Err_Res    },
00278         /* Real_4     */        {FALSE, Err_Res    },
00279         /* Real_8     */        {FALSE, Err_Res    },
00280         /* Real_16    */        {FALSE, Err_Res    },
00281         /* Complex_4     */     {FALSE, Err_Res    },
00282         /* Complex_8     */     {FALSE, Err_Res    },
00283         /* Complex_16    */     {FALSE, Err_Res    },
00284         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00285         /* Logical_1        */  {FALSE, Err_Res    },
00286         /* Logical_2        */  {FALSE, Err_Res    },
00287         /* Logical_4        */  {FALSE, Err_Res    },
00288         /* Logical_8        */  {FALSE, Err_Res    },
00289         /* Character_1       */ {FALSE, Err_Res    },
00290         /* Character_2       */ {FALSE, Err_Res    },
00291         /* Character_4       */ {FALSE, Err_Res    },
00292         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00293         /* Structure_Type      */       {FALSE, Err_Res    },
00294         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00295                         },
00296 /* Integer_1 */         {
00297         /* Err_Res    */        {FALSE, Err_Res    },
00298         /* Short_Char_Const */  {TRUE , Integer_1  },
00299         /* Short_Typeless_Const */        {TRUE , Integer_1  },
00300         /* Typeless_1 */        {TRUE , Integer_1  },
00301         /* Typeless_2 */        {TRUE , Integer_1  },
00302         /* Typeless_4 */        {TRUE , Integer_1  },
00303         /* Typeless_8 */        {TRUE , Integer_1  },
00304         /* Long_Typeless */        {FALSE, Err_Res    },
00305         /* Integer_1      */    {FALSE, Integer_1      },
00306         /* Integer_2      */    {FALSE, Integer_2      },
00307         /* Integer_4      */    {FALSE, Integer_4      },
00308         /* Integer_8      */    {FALSE, Integer_8      },
00309         /* Real_4     */        {FALSE, Real_4     },
00310         /* Real_8     */        {FALSE, Real_8     },
00311         /* Real_16    */        {FALSE, Real_16    },
00312         /* Complex_4     */     {FALSE, Complex_4     },
00313         /* Complex_8     */     {FALSE, Complex_8     },
00314         /* Complex_16    */     {FALSE, Complex_16    },
00315         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00316         /* Logical_1        */  {FALSE, Err_Res    },
00317         /* Logical_2        */  {FALSE, Err_Res    },
00318         /* Logical_4        */  {FALSE, Err_Res    },
00319         /* Logical_8        */  {FALSE, Err_Res    },
00320         /* Character_1       */ {FALSE, Err_Res    },
00321         /* Character_2       */ {FALSE, Err_Res    },
00322         /* Character_4       */ {FALSE, Err_Res    },
00323         /* CRI_Ch_Ptr_8    */   {TRUE , CRI_Ch_Ptr_8    },
00324         /* Structure_Type      */        {FALSE, Err_Res    },
00325         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00326                         },
00327 /* Integer_2 */         {
00328         /* Err_Res    */        {FALSE, Err_Res    },
00329         /* Short_Char_Const */  {TRUE , Integer_2  },
00330         /* Short_Typeless_Const */      {TRUE , Integer_2  },
00331         /* Typeless_1 */        {TRUE , Integer_2  },
00332         /* Typeless_2 */        {TRUE , Integer_2  },
00333         /* Typeless_4 */        {TRUE , Integer_2  },
00334         /* Typeless_8 */        {TRUE , Integer_2  },
00335         /* Long_Typeless */     {FALSE, Err_Res    },
00336         /* Integer_1      */    {FALSE, Integer_2      },
00337         /* Integer_2      */    {FALSE, Integer_2      },
00338         /* Integer_4      */    {FALSE, Integer_4      },
00339         /* Integer_8      */    {FALSE, Integer_8      },
00340         /* Real_4     */        {FALSE, Real_4     },
00341         /* Real_8     */        {FALSE, Real_8     },
00342         /* Real_16    */        {FALSE, Real_16    },
00343         /* Complex_4     */     {FALSE, Complex_4     },
00344         /* Complex_8     */     {FALSE, Complex_8     },
00345         /* Complex_16    */     {FALSE, Complex_16    },
00346         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00347         /* Logical_1        */  {FALSE, Err_Res    },
00348         /* Logical_2        */  {FALSE, Err_Res    },
00349         /* Logical_4        */  {FALSE, Err_Res    },
00350         /* Logical_8        */  {FALSE, Err_Res    },
00351         /* Character_1       */ {FALSE, Err_Res    },
00352         /* Character_2       */ {FALSE, Err_Res    },
00353         /* Character_4       */ {FALSE, Err_Res    },
00354         /* CRI_Ch_Ptr_8    */   {TRUE , CRI_Ch_Ptr_8    },
00355         /* Structure_Type      */       {FALSE, Err_Res    },
00356         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00357                         },
00358 /* Integer_4 */         {
00359         /* Err_Res    */        {FALSE, Err_Res    },
00360         /* Short_Char_Const */  {TRUE , Integer_4  },
00361         /* Short_Typeless_Const */      {TRUE , Integer_4  },
00362         /* Typeless_1 */        {TRUE , Integer_4  },
00363         /* Typeless_2 */        {TRUE , Integer_4  },
00364         /* Typeless_4 */        {TRUE , Integer_4  },
00365         /* Typeless_8 */        {TRUE , Integer_4  },
00366         /* Long_Typeless */     {FALSE, Err_Res    },
00367         /* Integer_1      */    {FALSE, Integer_4      },
00368         /* Integer_2      */    {FALSE, Integer_4      },
00369         /* Integer_4      */    {FALSE, Integer_4      },
00370         /* Integer_8      */    {FALSE, Integer_8      },
00371         /* Real_4     */        {FALSE, Real_4     },
00372         /* Real_8     */        {FALSE, Real_8     },
00373         /* Real_16    */        {FALSE, Real_16    },
00374         /* Complex_4     */     {FALSE, Complex_4     },
00375         /* Complex_8     */     {FALSE, Complex_8     },
00376         /* Complex_16    */     {FALSE, Complex_16    },
00377         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00378         /* Logical_1        */  {FALSE, Err_Res    },
00379         /* Logical_2        */  {FALSE, Err_Res    },
00380         /* Logical_4        */  {FALSE, Err_Res    },
00381         /* Logical_8        */  {FALSE, Err_Res    },
00382         /* Character_1       */ {FALSE, Err_Res    },
00383         /* Character_2       */ {FALSE, Err_Res    },
00384         /* Character_4       */ {FALSE, Err_Res    },
00385         /* CRI_Ch_Ptr_8    */   {TRUE , CRI_Ch_Ptr_8    },
00386         /* Structure_Type      */       {FALSE, Err_Res    },
00387         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00388                         },
00389 /* Integer_8 */         {
00390         /* Err_Res    */        {FALSE, Err_Res    },
00391         /* Short_Char_Const */  {TRUE , Integer_8      },
00392         /* Short_Typeless_Const */      {TRUE , Integer_8      },
00393         /* Typeless_1 */        {TRUE , Integer_8      },
00394         /* Typeless_2 */        {TRUE , Integer_8      },
00395         /* Typeless_4 */        {TRUE , Integer_8      },
00396         /* Typeless_8 */        {TRUE , Integer_8      },
00397         /* Long_Typeless */     {FALSE, Err_Res    },
00398         /* Integer_1      */    {FALSE, Integer_8      },
00399         /* Integer_2      */    {FALSE, Integer_8      },
00400         /* Integer_4      */    {FALSE, Integer_8      },
00401         /* Integer_8      */    {FALSE, Integer_8      },
00402         /* Real_4     */        {FALSE, Real_4     },
00403         /* Real_8     */        {FALSE, Real_8     },
00404         /* Real_16    */        {FALSE, Real_16    },
00405         /* Complex_4     */     {FALSE, Complex_4     },
00406         /* Complex_8     */     {FALSE, Complex_8     },
00407         /* Complex_16    */     {FALSE, Complex_16    },
00408         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00409         /* Logical_1        */  {FALSE, Err_Res    },
00410         /* Logical_2        */  {FALSE, Err_Res    },
00411         /* Logical_4        */  {FALSE, Err_Res    },
00412         /* Logical_8        */  {FALSE, Err_Res    },
00413         /* Character_1       */ {FALSE, Err_Res    },
00414         /* Character_2       */ {FALSE, Err_Res    },
00415         /* Character_4       */ {FALSE, Err_Res    },
00416         /* CRI_Ch_Ptr_8    */   {TRUE , CRI_Ch_Ptr_8    },
00417         /* Structure_Type      */       {FALSE, Err_Res    },
00418         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00419                         },
00420 /* Real_4 */            {
00421         /* Err_Res    */        {FALSE, Err_Res    },
00422         /* Short_Char_Const */  {TRUE , Real_4     },
00423         /* Short_Typeless_Const */      {TRUE , Real_4     },
00424         /* Typeless_1 */        {FALSE, Err_Res    },
00425         /* Typeless_2 */        {FALSE, Err_Res    },
00426         /* Typeless_4 */        {TRUE , Real_4     },
00427         /* Typeless_8 */        {TRUE , Real_4     },
00428         /* Long_Typeless */     {FALSE, Err_Res    },
00429         /* Integer_1      */    {FALSE, Real_4     },
00430         /* Integer_2      */    {FALSE, Real_4     },
00431         /* Integer_4      */    {FALSE, Real_4     },
00432         /* Integer_8      */    {FALSE, Real_4     },
00433         /* Real_4     */        {FALSE, Real_4     },
00434         /* Real_8     */        {FALSE, Real_8     },
00435         /* Real_16    */        {FALSE, Real_16    },
00436         /* Complex_4     */     {FALSE, Complex_4     },
00437         /* Complex_8     */     {FALSE, Complex_8     },
00438         /* Complex_16    */     {FALSE, Complex_16    },
00439         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00440         /* Logical_1        */  {FALSE, Err_Res    },
00441         /* Logical_2        */  {FALSE, Err_Res    },
00442         /* Logical_4        */  {FALSE, Err_Res    },
00443         /* Logical_8        */  {FALSE, Err_Res    },
00444         /* Character_1       */ {FALSE, Err_Res    },
00445         /* Character_2       */ {FALSE, Err_Res    },
00446         /* Character_4       */ {FALSE, Err_Res    },
00447         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00448         /* Structure_Type      */       {FALSE, Err_Res    },
00449         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00450                         },
00451 /* Real_8 */            {
00452         /* Err_Res    */        {FALSE, Err_Res    },
00453         /* Short_Char_Const */  {TRUE , Real_8     },
00454         /* Short_Typeless_Const */      {TRUE , Real_8     },
00455         /* Typeless_1 */    {FALSE, Err_Res    },
00456         /* Typeless_2 */    {FALSE, Err_Res    },
00457         /* Typeless_4 */    {FALSE, Err_Res    },
00458         /* Typeless_8 */    {TRUE , Real_8     },
00459         /* Long_Typeless */     {FALSE, Err_Res    },
00460         /* Integer_1      */    {FALSE, Real_8     },
00461         /* Integer_2      */    {FALSE, Real_8     },
00462         /* Integer_4      */    {FALSE, Real_8     },
00463         /* Integer_8      */    {FALSE, Real_8     },
00464         /* Real_4     */        {FALSE, Real_8     },
00465         /* Real_8     */        {FALSE, Real_8     },
00466         /* Real_16    */        {FALSE, Real_16    },
00467         /* Complex_4     */     {FALSE, Complex_8     },
00468         /* Complex_8     */     {FALSE, Complex_8     },
00469         /* Complex_16    */     {FALSE, Complex_16    },
00470         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00471         /* Logical_1        */  {FALSE, Err_Res    },
00472         /* Logical_2        */  {FALSE, Err_Res    },
00473         /* Logical_4        */  {FALSE, Err_Res    },
00474         /* Logical_8        */  {FALSE, Err_Res    },
00475         /* Character_1       */ {FALSE, Err_Res    },
00476         /* Character_2       */ {FALSE, Err_Res    },
00477         /* Character_4       */ {FALSE, Err_Res    },
00478         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00479         /* Structure_Type      */       {FALSE, Err_Res    },
00480         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00481                         },
00482 /* Real_16 */           {
00483         /* Err_Res    */        {FALSE, Err_Res    },
00484         /* Short_Char_Const */  {TRUE , Real_16    },
00485         /* Short_Typeless_Const */      {TRUE , Real_16    },
00486         /* Typeless_1 */        {FALSE, Err_Res    },
00487         /* Typeless_2 */        {FALSE, Err_Res    },
00488         /* Typeless_4 */        {FALSE, Err_Res    },
00489         /* Typeless_8 */        {FALSE, Err_Res    },
00490         /* Long_Typeless */     {FALSE, Err_Res    },
00491         /* Integer_1      */    {FALSE, Real_16    },
00492         /* Integer_2      */    {FALSE, Real_16    },
00493         /* Integer_4      */    {FALSE, Real_16    },
00494         /* Integer_8      */    {FALSE, Real_16    },
00495         /* Real_4     */        {FALSE, Real_16    },
00496         /* Real_8     */        {FALSE, Real_16    },
00497         /* Real_16    */        {FALSE, Real_16    },
00498         /* Complex_4     */     {FALSE, Complex_16    },
00499         /* Complex_8     */     {FALSE, Complex_16    },
00500         /* Complex_16    */     {FALSE, Complex_16    },
00501         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00502         /* Logical_1        */  {FALSE, Err_Res    },
00503         /* Logical_2        */  {FALSE, Err_Res    },
00504         /* Logical_4        */  {FALSE, Err_Res    },
00505         /* Logical_8        */  {FALSE, Err_Res    },
00506         /* Character_1       */ {FALSE, Err_Res    },
00507         /* Character_2       */ {FALSE, Err_Res    },
00508         /* Character_4       */ {FALSE, Err_Res    },
00509         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00510         /* Structure_Type      */       {FALSE, Err_Res    },
00511         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00512                         },
00513 /* Complex_4 */         {
00514         /* Err_Res    */        {FALSE, Err_Res    },
00515         /* Short_Char_Const */  {TRUE , Complex_4  },
00516         /* Short_Typeless_Const */      {TRUE , Complex_4  },
00517         /* Typeless_1 */        {FALSE, Err_Res    },
00518         /* Typeless_2 */        {FALSE, Err_Res    },
00519         /* Typeless_4 */        {FALSE, Err_Res    },
00520         /* Typeless_8 */        {FALSE, Err_Res    },
00521         /* Long_Typeless */     {FALSE, Err_Res    },
00522         /* Integer_1      */    {FALSE, Complex_4     },
00523         /* Integer_2      */    {FALSE, Complex_4     },
00524         /* Integer_4      */    {FALSE, Complex_4     },
00525         /* Integer_8      */    {FALSE, Complex_4     },
00526         /* Real_4     */        {FALSE, Complex_4     },
00527         /* Real_8     */        {FALSE, Complex_8     },
00528         /* Real_16    */        {FALSE, Complex_16    },
00529         /* Complex_4     */     {FALSE, Complex_4     },
00530         /* Complex_8     */     {FALSE, Complex_8     },
00531         /* Complex_16    */     {FALSE, Complex_16    },
00532         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00533         /* Logical_1        */  {FALSE, Err_Res    },
00534         /* Logical_2        */  {FALSE, Err_Res    },
00535         /* Logical_4        */  {FALSE, Err_Res    },
00536         /* Logical_8        */  {FALSE, Err_Res    },
00537         /* Character_1       */ {FALSE, Err_Res    },
00538         /* Character_2       */ {FALSE, Err_Res    },
00539         /* Character_4       */ {FALSE, Err_Res    },
00540         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00541         /* Structure_Type      */       {FALSE, Err_Res    },
00542         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00543                         },
00544 /* Complex_8 */         {
00545         /* Err_Res    */        {FALSE, Err_Res    },
00546         /* Short_Char_Const */  {TRUE , Complex_8  },
00547         /* Short_Typeless_Const */      {TRUE , Complex_8  },
00548         /* Typeless_1 */  {FALSE, Err_Res    },
00549         /* Typeless_2 */  {FALSE, Err_Res    },
00550         /* Typeless_4 */  {FALSE, Err_Res    },
00551         /* Typeless_8 */  {FALSE, Err_Res    },
00552         /* Long_Typeless */     {FALSE, Err_Res    },
00553         /* Integer_1      */    {FALSE, Complex_8     },
00554         /* Integer_2      */    {FALSE, Complex_8     },
00555         /* Integer_4      */    {FALSE, Complex_8     },
00556         /* Integer_8      */    {FALSE, Complex_8     },
00557         /* Real_4     */        {FALSE, Complex_8     },
00558         /* Real_8     */        {FALSE, Complex_8     },
00559         /* Real_16    */        {FALSE, Complex_16    },
00560         /* Complex_4     */     {FALSE, Complex_8     },
00561         /* Complex_8     */     {FALSE, Complex_8     },
00562         /* Complex_16    */     {FALSE, Complex_16    },
00563         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00564         /* Logical_1        */  {FALSE, Err_Res    },
00565         /* Logical_2        */  {FALSE, Err_Res    },
00566         /* Logical_4        */  {FALSE, Err_Res    },
00567         /* Logical_8        */  {FALSE, Err_Res    },
00568         /* Character_1       */ {FALSE, Err_Res    },
00569         /* Character_2       */ {FALSE, Err_Res    },
00570         /* Character_4       */ {FALSE, Err_Res    },
00571         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00572         /* Structure_Type      */       {FALSE, Err_Res    },
00573         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00574                         },
00575 /* Complex_16 */                {
00576         /* Err_Res    */        {FALSE, Err_Res    },
00577         /* Short_Char_Const */  {TRUE , Complex_16 },
00578         /* Short_Typeless_Const */      {TRUE , Complex_16 },
00579         /* Typeless_1 */  {FALSE, Err_Res    },
00580         /* Typeless_2 */  {FALSE, Err_Res    },
00581         /* Typeless_4 */  {FALSE, Err_Res    },
00582         /* Typeless_8 */  {FALSE, Err_Res    },
00583         /* Long_Typeless */     {FALSE, Err_Res    },
00584         /* Integer_1      */    {FALSE, Complex_16    },
00585         /* Integer_2      */    {FALSE, Complex_16    },
00586         /* Integer_4      */    {FALSE, Complex_16    },
00587         /* Integer_8      */    {FALSE, Complex_16    },
00588         /* Real_4     */        {FALSE, Complex_16    },
00589         /* Real_8     */        {FALSE, Complex_16    },
00590         /* Real_16    */        {FALSE, Complex_16    },
00591         /* Complex_4     */     {FALSE, Complex_16    },
00592         /* Complex_8     */     {FALSE, Complex_16    },
00593         /* Complex_16    */     {FALSE, Complex_16    },
00594         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00595         /* Logical_1        */  {FALSE, Err_Res    },
00596         /* Logical_2        */  {FALSE, Err_Res    },
00597         /* Logical_4        */  {FALSE, Err_Res    },
00598         /* Logical_8        */  {FALSE, Err_Res    },
00599         /* Character_1       */ {FALSE, Err_Res    },
00600         /* Character_2       */ {FALSE, Err_Res    },
00601         /* Character_4       */ {FALSE, Err_Res    },
00602         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00603         /* Structure_Type      */       {FALSE, Err_Res    },
00604         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00605                         },
00606 /* CRI_Ptr_8 */         {
00607         /* Err_Res    */        {FALSE, Err_Res    },
00608         /* Short_Char_Const */  {TRUE , CRI_Ptr_8   },
00609         /* Short_Typeless_Const */      {TRUE , CRI_Ptr_8   },
00610         /* Typeless_1 */        {TRUE , CRI_Ptr_8   },
00611         /* Typeless_2 */        {TRUE , CRI_Ptr_8   },
00612         /* Typeless_4 */        {TRUE , CRI_Ptr_8   },
00613         /* Typeless_8 */        {TRUE , CRI_Ptr_8   },
00614         /* Long_Typeless */     {FALSE, Err_Res    },
00615         /* Integer_1      */    {TRUE , CRI_Ptr_8   },
00616         /* Integer_2      */    {TRUE , CRI_Ptr_8   },
00617         /* Integer_4      */    {TRUE , CRI_Ptr_8   },
00618         /* Integer_8      */    {TRUE , CRI_Ptr_8   },
00619         /* Real_4     */        {FALSE, Err_Res    },
00620         /* Real_8     */        {FALSE, Err_Res    },
00621         /* Real_16    */        {FALSE, Err_Res    },
00622         /* Complex_4     */     {FALSE, Err_Res    },
00623         /* Complex_8     */     {FALSE, Err_Res    },
00624         /* Complex_16    */     {FALSE, Err_Res    },
00625         /* CRI_Ptr_8      */    {TRUE , INT_WORD   },
00626         /* Logical_1        */  {FALSE, Err_Res    },
00627         /* Logical_2        */  {FALSE, Err_Res    },
00628         /* Logical_4        */  {FALSE, Err_Res    },
00629         /* Logical_8        */  {FALSE, Err_Res    },
00630         /* Character_1       */ {FALSE, Err_Res    },
00631         /* Character_2       */ {FALSE, Err_Res    },
00632         /* Character_4       */ {FALSE, Err_Res    },
00633         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00634         /* Structure_Type      */       {FALSE, Err_Res    },
00635         /* CRI_Parcel_Ptr_8  */ {TRUE , CRI_Ptr_8   }
00636                         },
00637 /* Logical_1 */         {
00638         /* Err_Res    */        {FALSE, Err_Res    },
00639         /* Short_Char_Const */  {FALSE, Err_Res    },
00640         /* Short_Typeless_Const */        {FALSE, Err_Res    },
00641         /* Typeless_1 */  {FALSE, Err_Res    },
00642         /* Typeless_2 */  {FALSE, Err_Res    },
00643         /* Typeless_4 */  {FALSE, Err_Res    },
00644         /* Typeless_8 */  {FALSE, Err_Res    },
00645         /* Long_Typeless */        {FALSE, Err_Res    },
00646         /* Integer_1      */    {FALSE, Err_Res    },
00647         /* Integer_2      */    {FALSE, Err_Res    },
00648         /* Integer_4      */    {FALSE, Err_Res    },
00649         /* Integer_8      */    {FALSE, Err_Res    },
00650         /* Real_4     */        {FALSE, Err_Res    },
00651         /* Real_8     */        {FALSE, Err_Res    },
00652         /* Real_16    */        {FALSE, Err_Res    },
00653         /* Complex_4     */     {FALSE, Err_Res    },
00654         /* Complex_8     */     {FALSE, Err_Res    },
00655         /* Complex_16    */     {FALSE, Err_Res    },
00656         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00657         /* Logical_1        */  {FALSE, Err_Res    },
00658         /* Logical_2        */  {FALSE, Err_Res    },
00659         /* Logical_4        */  {FALSE, Err_Res    },
00660         /* Logical_8        */  {FALSE, Err_Res    },
00661         /* Character_1       */ {FALSE, Err_Res    },
00662         /* Character_2       */ {FALSE, Err_Res    },
00663         /* Character_4       */ {FALSE, Err_Res    },
00664         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00665         /* Structure_Type      */        {FALSE, Err_Res    },
00666         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00667                         },
00668 /* Logical_2 */         {
00669         /* Err_Res    */        {FALSE, Err_Res    },
00670         /* Short_Char_Const */  {FALSE, Err_Res    },
00671         /* Short_Typeless_Const */        {FALSE, Err_Res    },
00672         /* Typeless_1 */  {FALSE, Err_Res    },
00673         /* Typeless_2 */  {FALSE, Err_Res    },
00674         /* Typeless_4 */  {FALSE, Err_Res    },
00675         /* Typeless_8 */  {FALSE, Err_Res    },
00676         /* Long_Typeless */     {FALSE, Err_Res    },
00677         /* Integer_1      */    {FALSE, Err_Res    },
00678         /* Integer_2      */    {FALSE, Err_Res    },
00679         /* Integer_4      */    {FALSE, Err_Res    },
00680         /* Integer_8      */    {FALSE, Err_Res    },
00681         /* Real_4     */        {FALSE, Err_Res    },
00682         /* Real_8     */        {FALSE, Err_Res    },
00683         /* Real_16    */        {FALSE, Err_Res    },
00684         /* Complex_4     */     {FALSE, Err_Res    },
00685         /* Complex_8     */     {FALSE, Err_Res    },
00686         /* Complex_16    */     {FALSE, Err_Res    },
00687         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00688         /* Logical_1        */  {FALSE, Err_Res    },
00689         /* Logical_2        */  {FALSE, Err_Res    },
00690         /* Logical_4        */  {FALSE, Err_Res    },
00691         /* Logical_8        */  {FALSE, Err_Res    },
00692         /* Character_1       */ {FALSE, Err_Res    },
00693         /* Character_2       */ {FALSE, Err_Res    },
00694         /* Character_4       */ {FALSE, Err_Res    },
00695         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00696         /* Structure_Type      */        {FALSE, Err_Res    },
00697         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00698                         },
00699 /* Logical_4 */         {
00700         /* Err_Res    */        {FALSE, Err_Res    },
00701         /* Short_Char_Const */  {FALSE, Err_Res    },
00702         /* Short_Typeless_Const */        {FALSE, Err_Res    },
00703         /* Typeless_1 */  {FALSE, Err_Res    },
00704         /* Typeless_2 */  {FALSE, Err_Res    },
00705         /* Typeless_4 */  {FALSE, Err_Res    },
00706         /* Typeless_8 */  {FALSE, Err_Res    },
00707         /* Long_Typeless */        {FALSE, Err_Res    },
00708         /* Integer_1      */    {FALSE, Err_Res    },
00709         /* Integer_2      */    {FALSE, Err_Res    },
00710         /* Integer_4      */    {FALSE, Err_Res    },
00711         /* Integer_8      */    {FALSE, Err_Res    },
00712         /* Real_4     */        {FALSE, Err_Res    },
00713         /* Real_8     */        {FALSE, Err_Res    },
00714         /* Real_16    */        {FALSE, Err_Res    },
00715         /* Complex_4     */     {FALSE, Err_Res    },
00716         /* Complex_8     */     {FALSE, Err_Res    },
00717         /* Complex_16    */     {FALSE, Err_Res    },
00718         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00719         /* Logical_1        */  {FALSE, Err_Res    },
00720         /* Logical_2        */  {FALSE, Err_Res    },
00721         /* Logical_4        */  {FALSE, Err_Res    },
00722         /* Logical_8        */  {FALSE, Err_Res    },
00723         /* Character_1       */ {FALSE, Err_Res    },
00724         /* Character_2       */ {FALSE, Err_Res    },
00725         /* Character_4       */ {FALSE, Err_Res    },
00726         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00727         /* Structure_Type      */        {FALSE, Err_Res    },
00728         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00729                         },
00730 /* Logical_8 */         {
00731         /* Err_Res    */        {FALSE, Err_Res    },
00732         /* Short_Char_Const */  {FALSE, Err_Res    },
00733         /* Short_Typeless_Const */      {FALSE, Err_Res    },
00734         /* Typeless_1 */  {FALSE, Err_Res    },
00735         /* Typeless_2 */  {FALSE, Err_Res    },
00736         /* Typeless_4 */  {FALSE, Err_Res    },
00737         /* Typeless_8 */  {FALSE, Err_Res    },
00738         /* Long_Typeless */     {FALSE, Err_Res    },
00739         /* Integer_1      */    {FALSE, Err_Res    },
00740         /* Integer_2      */    {FALSE, Err_Res    },
00741         /* Integer_4      */    {FALSE, Err_Res    },
00742         /* Integer_8      */    {FALSE, Err_Res    },
00743         /* Real_4     */        {FALSE, Err_Res    },
00744         /* Real_8     */        {FALSE, Err_Res    },
00745         /* Real_16    */        {FALSE, Err_Res    },
00746         /* Complex_4     */     {FALSE, Err_Res    },
00747         /* Complex_8     */     {FALSE, Err_Res    },
00748         /* Complex_16    */     {FALSE, Err_Res    },
00749         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00750         /* Logical_1        */  {FALSE, Err_Res    },
00751         /* Logical_2        */  {FALSE, Err_Res    },
00752         /* Logical_4        */  {FALSE, Err_Res    },
00753         /* Logical_8        */  {FALSE, Err_Res    },
00754         /* Character_1       */ {FALSE, Err_Res    },
00755         /* Character_2       */ {FALSE, Err_Res    },
00756         /* Character_4       */ {FALSE, Err_Res    },
00757         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00758         /* Structure_Type      */       {FALSE, Err_Res    },
00759         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00760                         },
00761 /* Character_1 */               {
00762         /* Err_Res    */        {FALSE, Err_Res    },
00763         /* Short_Char_Const */  {FALSE, Err_Res    },
00764         /* Short_Typeless_Const */      {FALSE, Err_Res    },
00765         /* Typeless_1 */  {FALSE, Err_Res    },
00766         /* Typeless_2 */  {FALSE, Err_Res    },
00767         /* Typeless_4 */  {FALSE, Err_Res    },
00768         /* Typeless_8 */  {FALSE, Err_Res    },
00769         /* Long_Typeless */     {FALSE, Err_Res    },
00770         /* Integer_1      */    {FALSE, Err_Res    },
00771         /* Integer_2      */    {FALSE, Err_Res    },
00772         /* Integer_4      */    {FALSE, Err_Res    },
00773         /* Integer_8      */    {FALSE, Err_Res    },
00774         /* Real_4     */        {FALSE, Err_Res    },
00775         /* Real_8     */        {FALSE, Err_Res    },
00776         /* Real_16    */        {FALSE, Err_Res    },
00777         /* Complex_4     */     {FALSE, Err_Res    },
00778         /* Complex_8     */     {FALSE, Err_Res    },
00779         /* Complex_16    */     {FALSE, Err_Res    },
00780         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00781         /* Logical_1        */  {FALSE, Err_Res    },
00782         /* Logical_2        */  {FALSE, Err_Res    },
00783         /* Logical_4        */  {FALSE, Err_Res    },
00784         /* Logical_8        */  {FALSE, Err_Res    },
00785         /* Character_1       */ {FALSE, Err_Res    },
00786         /* Character_2       */ {FALSE, Err_Res    },
00787         /* Character_4       */ {FALSE, Err_Res    },
00788         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00789         /* Structure_Type      */       {FALSE, Err_Res    },
00790         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00791                         },
00792 /* Character_2 */               {
00793         /* Err_Res    */        {FALSE, Err_Res    },
00794         /* Short_Char_Const */  {FALSE, Err_Res    },
00795         /* Short_Typeless_Const */      {FALSE, Err_Res    },
00796         /* Typeless_1 */  {FALSE, Err_Res    },
00797         /* Typeless_2 */  {FALSE, Err_Res    },
00798         /* Typeless_4 */  {FALSE, Err_Res    },
00799         /* Typeless_8 */  {FALSE, Err_Res    },
00800         /* Long_Typeless */     {FALSE, Err_Res    },
00801         /* Integer_1      */    {FALSE, Err_Res    },
00802         /* Integer_2      */    {FALSE, Err_Res    },
00803         /* Integer_4      */    {FALSE, Err_Res    },
00804         /* Integer_8      */    {FALSE, Err_Res    },
00805         /* Real_4     */        {FALSE, Err_Res    },
00806         /* Real_8     */        {FALSE, Err_Res    },
00807         /* Real_16    */        {FALSE, Err_Res    },
00808         /* Complex_4     */     {FALSE, Err_Res    },
00809         /* Complex_8     */     {FALSE, Err_Res    },
00810         /* Complex_16    */     {FALSE, Err_Res    },
00811         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00812         /* Logical_1        */  {FALSE, Err_Res    },
00813         /* Logical_2        */  {FALSE, Err_Res    },
00814         /* Logical_4        */  {FALSE, Err_Res    },
00815         /* Logical_8        */  {FALSE, Err_Res    },
00816         /* Character_1       */ {FALSE, Err_Res    },
00817         /* Character_2       */ {FALSE, Err_Res    },
00818         /* Character_4       */ {FALSE, Err_Res    },
00819         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00820         /* Structure_Type      */       {FALSE, Err_Res    },
00821         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00822                         },
00823 /* Character_4 */               {
00824         /* Err_Res    */        {FALSE, Err_Res    },
00825         /* Short_Char_Const */  {FALSE, Err_Res    },
00826         /* Short_Typeless_Const */      {FALSE, Err_Res    },
00827         /* Typeless_1 */  {FALSE, Err_Res    },
00828         /* Typeless_2 */  {FALSE, Err_Res    },
00829         /* Typeless_4 */  {FALSE, Err_Res    },
00830         /* Typeless_8 */  {FALSE, Err_Res    },
00831         /* Long_Typeless */     {FALSE, Err_Res    },
00832         /* Integer_1      */    {FALSE, Err_Res    },
00833         /* Integer_2      */    {FALSE, Err_Res    },
00834         /* Integer_4      */    {FALSE, Err_Res    },
00835         /* Integer_8      */    {FALSE, Err_Res    },
00836         /* Real_4     */        {FALSE, Err_Res    },
00837         /* Real_8     */        {FALSE, Err_Res    },
00838         /* Real_16    */        {FALSE, Err_Res    },
00839         /* Complex_4     */     {FALSE, Err_Res    },
00840         /* Complex_8     */     {FALSE, Err_Res    },
00841         /* Complex_16    */     {FALSE, Err_Res    },
00842         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00843         /* Logical_1        */  {FALSE, Err_Res    },
00844         /* Logical_2        */  {FALSE, Err_Res    },
00845         /* Logical_4        */  {FALSE, Err_Res    },
00846         /* Logical_8        */  {FALSE, Err_Res    },
00847         /* Character_1       */ {FALSE, Err_Res    },
00848         /* Character_2       */ {FALSE, Err_Res    },
00849         /* Character_4       */ {FALSE, Err_Res    },
00850         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00851         /* Structure_Type      */       {FALSE, Err_Res    },
00852         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00853                         },
00854 /* CRI_Ch_Ptr_8 */              {
00855         /* Err_Res    */        {FALSE, Err_Res    },
00856         /* Short_Char_Const */  {FALSE, Err_Res    },
00857         /* Short_Typeless_Const */      {FALSE, Err_Res    },
00858         /* Typeless_1 */  {FALSE, Err_Res    },
00859         /* Typeless_2 */  {FALSE, Err_Res    },
00860         /* Typeless_4 */  {FALSE, Err_Res    },
00861         /* Typeless_8 */  {FALSE, Err_Res    },
00862         /* Long_Typeless */     {FALSE, Err_Res    },
00863         /* Integer_1      */    {TRUE , CRI_Ch_Ptr_8    },
00864         /* Integer_2      */    {TRUE , CRI_Ch_Ptr_8    },
00865         /* Integer_4      */    {TRUE , CRI_Ch_Ptr_8    },
00866         /* Integer_8      */    {TRUE , CRI_Ch_Ptr_8    },
00867         /* Real_4     */        {FALSE, Err_Res    },
00868         /* Real_8     */        {FALSE, Err_Res    },
00869         /* Real_16    */        {FALSE, Err_Res    },
00870         /* Complex_4     */     {FALSE, Err_Res    },
00871         /* Complex_8     */     {FALSE, Err_Res    },
00872         /* Complex_16    */     {FALSE, Err_Res    },
00873         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00874         /* Logical_1        */  {FALSE, Err_Res    },
00875         /* Logical_2        */  {FALSE, Err_Res    },
00876         /* Logical_4        */  {FALSE, Err_Res    },
00877         /* Logical_8        */  {FALSE, Err_Res    },
00878         /* Character_1       */ {FALSE, Err_Res    },
00879         /* Character_2       */ {FALSE, Err_Res    },
00880         /* Character_4       */ {FALSE, Err_Res    },
00881         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00882         /* Structure_Type      */       {FALSE, Err_Res    },
00883         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00884                         },
00885 /* Structure_Type   */          {
00886         /* Err_Res    */        {FALSE, Err_Res    },
00887         /* Short_Char_Const */  {FALSE, Err_Res    },
00888         /* Short_Typeless_Const */      {FALSE, Err_Res    },
00889         /* Typeless_1 */  {FALSE, Err_Res    },
00890         /* Typeless_2 */  {FALSE, Err_Res    },
00891         /* Typeless_4 */  {FALSE, Err_Res    },
00892         /* Typeless_8 */  {FALSE, Err_Res    },
00893         /* Long_Typeless */     {FALSE, Err_Res    },
00894         /* Integer_1      */    {FALSE, Err_Res    },
00895         /* Integer_2      */    {FALSE, Err_Res    },
00896         /* Integer_4      */    {FALSE, Err_Res    },
00897         /* Integer_8      */    {FALSE, Err_Res    },
00898         /* Real_4     */        {FALSE, Err_Res    },
00899         /* Real_8     */        {FALSE, Err_Res    },
00900         /* Real_16    */        {FALSE, Err_Res    },
00901         /* Complex_4     */     {FALSE, Err_Res    },
00902         /* Complex_8     */     {FALSE, Err_Res    },
00903         /* Complex_16    */     {FALSE, Err_Res    },
00904         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00905         /* Logical_1        */  {FALSE, Err_Res    },
00906         /* Logical_2        */  {FALSE, Err_Res    },
00907         /* Logical_4        */  {FALSE, Err_Res    },
00908         /* Logical_8        */  {FALSE, Err_Res    },
00909         /* Character_1       */ {FALSE, Err_Res    },
00910         /* Character_2       */ {FALSE, Err_Res    },
00911         /* Character_4       */ {FALSE, Err_Res    },
00912         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00913         /* Structure_Type      */       {FALSE, Err_Res    },
00914         /* CRI_Parcel_Ptr_8  */ {FALSE, Err_Res    }
00915                         },
00916 /* CRI_Parcel_Ptr_8   */          {
00917         /* Err_Res    */        {FALSE, Err_Res    },
00918         /* Short_Char_Const */  {TRUE , INT_WORD   },
00919         /* Short_Typeless_Const */    {TRUE , INT_WORD   },
00920         /* Typeless_1 */    {TRUE , INT_WORD   },
00921         /* Typeless_2 */    {TRUE , INT_WORD   },
00922         /* Typeless_4 */    {TRUE , INT_WORD   },
00923         /* Typeless_8 */    {TRUE , INT_WORD   },
00924         /* Long_Typeless */     {FALSE, Err_Res    },
00925         /* Integer_1      */    {TRUE , INT_WORD   },
00926         /* Integer_2      */    {TRUE , INT_WORD   },
00927         /* Integer_4      */    {TRUE , INT_WORD   },
00928         /* Integer_8      */    {TRUE , INT_WORD   },
00929         /* Real_4     */        {FALSE, Err_Res    },
00930         /* Real_8     */        {FALSE, Err_Res    },
00931         /* Real_16    */        {FALSE, Err_Res    },
00932         /* Complex_4     */     {FALSE, Err_Res    },
00933         /* Complex_8     */     {FALSE, Err_Res    },
00934         /* Complex_16    */     {FALSE, Err_Res    },
00935         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
00936         /* Logical_1        */  {FALSE, Err_Res    },
00937         /* Logical_2        */  {FALSE, Err_Res    },
00938         /* Logical_4        */  {FALSE, Err_Res    },
00939         /* Logical_8        */  {FALSE, Err_Res    },
00940         /* Character_1       */ {FALSE, Err_Res    },
00941         /* Character_2       */ {FALSE, Err_Res    },
00942         /* Character_4       */ {FALSE, Err_Res    },
00943         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00944         /* Structure_Type      */       {FALSE, Err_Res    },
00945         /* CRI_Parcel_Ptr_8  */ {TRUE , INT_WORD   }
00946                         }
00947                 };
00948 
00949 
00950 exp_tbl_type    bin_sub_tbl[Num_Linear_Types][Num_Linear_Types] = {
00951 /* Err_Res */           {
00952         /* Err_Res    */        {FALSE, Err_Res    },
00953         /* Short_Char_Const */  {FALSE, Err_Res    },
00954         /* Short_Typeless_Const */      {FALSE, Err_Res    },
00955         /* Typeless_1 */  {FALSE, Err_Res    },
00956         /* Typeless_2 */  {FALSE, Err_Res    },
00957         /* Typeless_4 */  {FALSE, Err_Res    },
00958         /* Typeless_8 */  {FALSE, Err_Res    },
00959         /* Long_Typeless */     {FALSE, Err_Res    },
00960         /* Integer_1      */    {FALSE, Err_Res    },
00961         /* Integer_2      */    {FALSE, Err_Res    },
00962         /* Integer_4      */    {FALSE, Err_Res    },
00963         /* Integer_8      */    {FALSE, Err_Res    },
00964         /* Real_4     */        {FALSE, Err_Res    },
00965         /* Real_8     */        {FALSE, Err_Res    },
00966         /* Real_16    */        {FALSE, Err_Res    },
00967         /* Complex_4     */     {FALSE, Err_Res    },
00968         /* Complex_8     */     {FALSE, Err_Res    },
00969         /* Complex_16    */     {FALSE, Err_Res    },
00970         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
00971         /* Logical_1        */  {FALSE, Err_Res    },
00972         /* Logical_2        */  {FALSE, Err_Res    },
00973         /* Logical_4        */  {FALSE, Err_Res    },
00974         /* Logical_8        */  {FALSE, Err_Res    },
00975         /* Character_1       */ {FALSE, Err_Res    },
00976         /* Character_2       */ {FALSE, Err_Res    },
00977         /* Character_4       */ {FALSE, Err_Res    },
00978         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
00979         /* Structure_Type      */       {FALSE, Err_Res    },
00980         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
00981                         },
00982 /* Short_Char_Const */  {
00983         /* Err_Res    */        {FALSE, Err_Res    },
00984         /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
00985         /* Short_Typeless_Const */      {TRUE , Short_Typeless_Const },
00986         /* Typeless_1 */        {TRUE , Typeless_1 },
00987         /* Typeless_2 */        {TRUE , Typeless_2 },
00988         /* Typeless_4 */        {TRUE , Typeless_4 },
00989         /* Typeless_8 */        {TRUE , Typeless_8 },
00990         /* Long_Typeless */     {FALSE, Err_Res    },
00991         /* Integer_1      */    {TRUE , Integer_1  },
00992         /* Integer_2      */    {TRUE , Integer_2  },
00993         /* Integer_4      */    {TRUE , Integer_4  },
00994         /* Integer_8      */    {TRUE , Integer_8  },
00995         /* Real_4     */        {TRUE , Real_4     },
00996         /* Real_8     */        {TRUE , Real_8     },
00997         /* Real_16    */        {TRUE , Real_16    },
00998         /* Complex_4     */     {TRUE , Complex_4  },
00999         /* Complex_8     */     {TRUE , Complex_8  },
01000         /* Complex_16    */     {TRUE , Complex_16 },
01001         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01002         /* Logical_1        */  {FALSE, Err_Res    },
01003         /* Logical_2        */  {FALSE, Err_Res    },
01004         /* Logical_4        */  {FALSE, Err_Res    },
01005         /* Logical_8        */  {FALSE, Err_Res    },
01006         /* Character_1       */ {FALSE, Err_Res    },
01007         /* Character_2       */ {FALSE, Err_Res    },
01008         /* Character_4       */ {FALSE, Err_Res    },
01009         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01010         /* Structure_Type      */       {FALSE, Err_Res    },
01011         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01012                         },
01013 /* Short_Typeless_Const */      {
01014         /* Err_Res    */        {FALSE, Err_Res    },
01015         /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
01016         /* Short_Typeless_Const */      {TRUE , Short_Typeless_Const },
01017         /* Typeless_1 */        {TRUE , Typeless_1 },
01018         /* Typeless_2 */        {TRUE , Typeless_2 },
01019         /* Typeless_4 */        {TRUE , Typeless_4 },
01020         /* Typeless_8 */        {TRUE , Typeless_8 },
01021         /* Long_Typeless */     {FALSE, Err_Res    },
01022         /* Integer_1      */    {TRUE , Integer_1  },
01023         /* Integer_2      */    {TRUE , Integer_2  },
01024         /* Integer_4      */    {TRUE , Integer_4  },
01025         /* Integer_8      */    {TRUE , Integer_8      },
01026         /* Real_4     */        {TRUE , Real_4     },
01027         /* Real_8     */        {TRUE , Real_8     },
01028         /* Real_16    */        {TRUE , Real_16    },
01029         /* Complex_4     */     {TRUE , Complex_4  },
01030         /* Complex_8     */     {TRUE , Complex_8  },
01031         /* Complex_16    */     {TRUE , Complex_16 },
01032         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01033         /* Logical_1        */  {FALSE, Err_Res    },
01034         /* Logical_2        */  {FALSE, Err_Res    },
01035         /* Logical_4        */  {FALSE, Err_Res    },
01036         /* Logical_8        */  {FALSE, Err_Res    },
01037         /* Character_1       */ {FALSE, Err_Res    },
01038         /* Character_2       */ {FALSE, Err_Res    },
01039         /* Character_4       */ {FALSE, Err_Res    },
01040         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01041         /* Structure_Type      */       {FALSE, Err_Res    },
01042         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01043                         },
01044 /* Typeless_1 */        {
01045         /* Err_Res    */        {FALSE, Err_Res    },
01046         /* Short_Char_Const */  {TRUE , Typeless_1 },
01047         /* Short_Typeless_Const */      {TRUE , Typeless_1 },
01048         /* Typeless_1 */        {TRUE , Typeless_1 },
01049         /* Typeless_2 */        {TRUE , Typeless_2 },
01050         /* Typeless_4 */        {TRUE , Typeless_4 },
01051         /* Typeless_8 */        {TRUE , Typeless_8 },
01052         /* Long_Typeless */     {FALSE, Err_Res    },
01053         /* Integer_1      */    {TRUE , Integer_1  },
01054         /* Integer_2      */    {TRUE , Integer_2  },
01055         /* Integer_4      */    {TRUE , Integer_4  },
01056         /* Integer_8      */    {TRUE , Integer_8      },
01057         /* Real_4     */        {FALSE, Err_Res    },
01058         /* Real_8     */        {FALSE, Err_Res    },
01059         /* Real_16    */        {FALSE, Err_Res    },
01060         /* Complex_4     */     {FALSE, Err_Res    },
01061         /* Complex_8     */     {FALSE, Err_Res    },
01062         /* Complex_16    */     {FALSE, Err_Res    },
01063         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01064         /* Logical_1        */  {FALSE, Err_Res    },
01065         /* Logical_2        */  {FALSE, Err_Res    },
01066         /* Logical_4        */  {FALSE, Err_Res    },
01067         /* Logical_8        */  {FALSE, Err_Res    },
01068         /* Character_1       */ {FALSE, Err_Res    },
01069         /* Character_2       */ {FALSE, Err_Res    },
01070         /* Character_4       */ {FALSE, Err_Res    },
01071         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01072         /* Structure_Type      */       {FALSE, Err_Res    },
01073         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01074                         },
01075 /* Typeless_2 */        {
01076         /* Err_Res    */        {FALSE, Err_Res    },
01077         /* Short_Char_Const */  {TRUE , Typeless_2 },
01078         /* Short_Typeless_Const */      {TRUE , Typeless_2 },
01079         /* Typeless_1 */        {TRUE , Typeless_2 },
01080         /* Typeless_2 */        {TRUE , Typeless_2 },
01081         /* Typeless_4 */        {TRUE , Typeless_4 },
01082         /* Typeless_8 */        {TRUE , Typeless_8 },
01083         /* Long_Typeless */     {FALSE, Err_Res    },
01084         /* Integer_1      */    {TRUE , Integer_1  },
01085         /* Integer_2      */    {TRUE , Integer_2  },
01086         /* Integer_4      */    {TRUE , Integer_4  },
01087         /* Integer_8      */    {TRUE , Integer_8      },
01088         /* Real_4     */        {FALSE, Err_Res    },
01089         /* Real_8     */        {FALSE, Err_Res    },
01090         /* Real_16    */        {FALSE, Err_Res    },
01091         /* Complex_4     */     {FALSE, Err_Res    },
01092         /* Complex_8     */     {FALSE, Err_Res    },
01093         /* Complex_16    */     {FALSE, Err_Res    },
01094         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01095         /* Logical_1        */  {FALSE, Err_Res    },
01096         /* Logical_2        */  {FALSE, Err_Res    },
01097         /* Logical_4        */  {FALSE, Err_Res    },
01098         /* Logical_8        */  {FALSE, Err_Res    },
01099         /* Character_1       */ {FALSE, Err_Res    },
01100         /* Character_2       */ {FALSE, Err_Res    },
01101         /* Character_4       */ {FALSE, Err_Res    },
01102         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01103         /* Structure_Type      */       {FALSE, Err_Res    },
01104         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01105                         },
01106 /* Typeless_4 */        {
01107         /* Err_Res    */        {FALSE, Err_Res    },
01108         /* Short_Char_Const */  {TRUE , Typeless_4 },
01109         /* Short_Typeless_Const */      {TRUE , Typeless_4 },
01110         /* Typeless_1 */        {TRUE , Typeless_4 },
01111         /* Typeless_2 */        {TRUE , Typeless_4 },
01112         /* Typeless_4 */        {TRUE , Typeless_4 },
01113         /* Typeless_8 */        {TRUE , Typeless_8 },
01114         /* Long_Typeless */     {FALSE, Err_Res    },
01115         /* Integer_1      */    {TRUE , Integer_1  },
01116         /* Integer_2      */    {TRUE , Integer_2  },
01117         /* Integer_4      */    {TRUE , Integer_4  },
01118         /* Integer_8      */    {TRUE , Integer_8      },
01119         /* Real_4     */        {TRUE , Real_4     },
01120         /* Real_8     */        {FALSE, Err_Res    },
01121         /* Real_16    */        {FALSE, Err_Res    },
01122         /* Complex_4     */     {FALSE, Err_Res    },
01123         /* Complex_8     */     {FALSE, Err_Res    },
01124         /* Complex_16    */     {FALSE, Err_Res    },
01125         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01126         /* Logical_1        */  {FALSE, Err_Res    },
01127         /* Logical_2        */  {FALSE, Err_Res    },
01128         /* Logical_4        */  {FALSE, Err_Res    },
01129         /* Logical_8        */  {FALSE, Err_Res    },
01130         /* Character_1       */ {FALSE, Err_Res    },
01131         /* Character_2       */ {FALSE, Err_Res    },
01132         /* Character_4       */ {FALSE, Err_Res    },
01133         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01134         /* Structure_Type      */       {FALSE, Err_Res    },
01135         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01136                         },
01137 /* Typeless_8 */        {
01138         /* Err_Res    */        {FALSE, Err_Res    },
01139         /* Short_Char_Const */  {TRUE , Typeless_8 },
01140         /* Short_Typeless_Const */      {TRUE , Typeless_8 },
01141         /* Typeless_1 */        {TRUE , Typeless_8 },
01142         /* Typeless_2 */        {TRUE , Typeless_8 },
01143         /* Typeless_4 */        {TRUE , Typeless_8 },
01144         /* Typeless_8 */        {TRUE , Typeless_8 },
01145         /* Long_Typeless */     {FALSE, Err_Res    },
01146         /* Integer_1      */    {TRUE , Integer_1  },
01147         /* Integer_2      */    {TRUE , Integer_2  },
01148         /* Integer_4      */    {TRUE , Integer_4  },
01149         /* Integer_8      */    {TRUE , Integer_8      },
01150         /* Real_4     */        {TRUE , Real_4     },
01151         /* Real_8     */        {TRUE , Real_8     },
01152         /* Real_16    */        {FALSE, Err_Res    },
01153         /* Complex_4     */     {FALSE, Err_Res    },
01154         /* Complex_8     */     {FALSE, Err_Res    },
01155         /* Complex_16    */     {FALSE, Err_Res    },
01156         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01157         /* Logical_1        */  {FALSE, Err_Res    },
01158         /* Logical_2        */  {FALSE, Err_Res    },
01159         /* Logical_4        */  {FALSE, Err_Res    },
01160         /* Logical_8        */  {FALSE, Err_Res    },
01161         /* Character_1       */ {FALSE, Err_Res    },
01162         /* Character_2       */ {FALSE, Err_Res    },
01163         /* Character_4       */ {FALSE, Err_Res    },
01164         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01165         /* Structure_Type      */       {FALSE, Err_Res    },
01166         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01167                         },
01168 /* Long_Typeless */     {
01169         /* Err_Res    */        {FALSE, Err_Res    },
01170         /* Short_Char_Const */  {FALSE, Err_Res    },
01171         /* Short_Typeless_Const */      {FALSE, Err_Res    },
01172         /* Typeless_1 */  {FALSE, Err_Res    },
01173         /* Typeless_2 */  {FALSE, Err_Res    },
01174         /* Typeless_4 */  {FALSE, Err_Res    },
01175         /* Typeless_8 */  {FALSE, Err_Res    },
01176         /* Long_Typeless */     {FALSE, Err_Res    },
01177         /* Integer_1      */    {FALSE, Err_Res    },
01178         /* Integer_2      */    {FALSE, Err_Res    },
01179         /* Integer_4      */    {FALSE, Err_Res    },
01180         /* Integer_8      */    {FALSE, Err_Res    },
01181         /* Real_4     */        {FALSE, Err_Res    },
01182         /* Real_8     */        {FALSE, Err_Res    },
01183         /* Real_16    */        {FALSE, Err_Res    },
01184         /* Complex_4     */     {FALSE, Err_Res    },
01185         /* Complex_8     */     {FALSE, Err_Res    },
01186         /* Complex_16    */     {FALSE, Err_Res    },
01187         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01188         /* Logical_1        */  {FALSE, Err_Res    },
01189         /* Logical_2        */  {FALSE, Err_Res    },
01190         /* Logical_4        */  {FALSE, Err_Res    },
01191         /* Logical_8        */  {FALSE, Err_Res    },
01192         /* Character_1       */ {FALSE, Err_Res    },
01193         /* Character_2       */ {FALSE, Err_Res    },
01194         /* Character_4       */ {FALSE, Err_Res    },
01195         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01196         /* Structure_Type      */       {FALSE, Err_Res    },
01197         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01198                         },
01199 /* Integer_1 */         {
01200         /* Err_Res    */        {FALSE, Err_Res    },
01201         /* Short_Char_Const */  {TRUE , Integer_1  },
01202         /* Short_Typeless_Const */        {TRUE , Integer_1  },
01203         /* Typeless_1 */        {TRUE , Integer_1  },
01204         /* Typeless_2 */        {TRUE , Integer_1  },
01205         /* Typeless_4 */        {TRUE , Integer_1  },
01206         /* Typeless_8 */        {TRUE , Integer_1  },
01207         /* Long_Typeless */        {FALSE, Err_Res    },
01208         /* Integer_1      */    {FALSE, Integer_1      },
01209         /* Integer_2      */    {FALSE, Integer_2      },
01210         /* Integer_4      */    {FALSE, Integer_4      },
01211         /* Integer_8      */    {FALSE, Integer_8      },
01212         /* Real_4     */        {FALSE, Real_4     },
01213         /* Real_8     */        {FALSE, Real_8     },
01214         /* Real_16    */        {FALSE, Real_16    },
01215         /* Complex_4     */     {FALSE, Complex_4     },
01216         /* Complex_8     */     {FALSE, Complex_8     },
01217         /* Complex_16    */     {FALSE, Complex_16    },
01218         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01219         /* Logical_1        */  {FALSE, Err_Res    },
01220         /* Logical_2        */  {FALSE, Err_Res    },
01221         /* Logical_4        */  {FALSE, Err_Res    },
01222         /* Logical_8        */  {FALSE, Err_Res    },
01223         /* Character_1       */ {FALSE, Err_Res    },
01224         /* Character_2       */ {FALSE, Err_Res    },
01225         /* Character_4       */ {FALSE, Err_Res    },
01226         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01227         /* Structure_Type      */        {FALSE, Err_Res    },
01228         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01229                         },
01230 /* Integer_2 */         {
01231         /* Err_Res    */        {FALSE, Err_Res    },
01232         /* Short_Char_Const */  {TRUE , Integer_2  },
01233         /* Short_Typeless_Const */      {TRUE , Integer_2  },
01234         /* Typeless_1 */        {TRUE , Integer_2  },
01235         /* Typeless_2 */        {TRUE , Integer_2  },
01236         /* Typeless_4 */        {TRUE , Integer_2  },
01237         /* Typeless_8 */        {TRUE , Integer_2  },
01238         /* Long_Typeless */     {FALSE, Err_Res    },
01239         /* Integer_1      */    {FALSE, Integer_2      },
01240         /* Integer_2      */    {FALSE, Integer_2      },
01241         /* Integer_4      */    {FALSE, Integer_4      },
01242         /* Integer_8      */    {FALSE, Integer_8      },
01243         /* Real_4     */        {FALSE, Real_4     },
01244         /* Real_8     */        {FALSE, Real_8     },
01245         /* Real_16    */        {FALSE, Real_16    },
01246         /* Complex_4     */     {FALSE, Complex_4     },
01247         /* Complex_8     */     {FALSE, Complex_8     },
01248         /* Complex_16    */     {FALSE, Complex_16    },
01249         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01250         /* Logical_1        */  {FALSE, Err_Res    },
01251         /* Logical_2        */  {FALSE, Err_Res    },
01252         /* Logical_4        */  {FALSE, Err_Res    },
01253         /* Logical_8        */  {FALSE, Err_Res    },
01254         /* Character_1       */ {FALSE, Err_Res    },
01255         /* Character_2       */ {FALSE, Err_Res    },
01256         /* Character_4       */ {FALSE, Err_Res    },
01257         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01258         /* Structure_Type      */       {FALSE, Err_Res    },
01259         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01260                         },
01261 /* Integer_4 */         {
01262         /* Err_Res    */        {FALSE, Err_Res    },
01263         /* Short_Char_Const */  {TRUE , Integer_4  },
01264         /* Short_Typeless_Const */      {TRUE , Integer_4  },
01265         /* Typeless_1 */        {TRUE , Integer_4  },
01266         /* Typeless_2 */        {TRUE , Integer_4  },
01267         /* Typeless_4 */        {TRUE , Integer_4  },
01268         /* Typeless_8 */        {TRUE , Integer_4  },
01269         /* Long_Typeless */     {FALSE, Err_Res    },
01270         /* Integer_1      */    {FALSE, Integer_4      },
01271         /* Integer_2      */    {FALSE, Integer_4      },
01272         /* Integer_4      */    {FALSE, Integer_4      },
01273         /* Integer_8      */    {FALSE, Integer_8      },
01274         /* Real_4     */        {FALSE, Real_4     },
01275         /* Real_8     */        {FALSE, Real_8     },
01276         /* Real_16    */        {FALSE, Real_16    },
01277         /* Complex_4     */     {FALSE, Complex_4     },
01278         /* Complex_8     */     {FALSE, Complex_8     },
01279         /* Complex_16    */     {FALSE, Complex_16    },
01280         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01281         /* Logical_1        */  {FALSE, Err_Res    },
01282         /* Logical_2        */  {FALSE, Err_Res    },
01283         /* Logical_4        */  {FALSE, Err_Res    },
01284         /* Logical_8        */  {FALSE, Err_Res    },
01285         /* Character_1       */ {FALSE, Err_Res    },
01286         /* Character_2       */ {FALSE, Err_Res    },
01287         /* Character_4       */ {FALSE, Err_Res    },
01288         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01289         /* Structure_Type      */       {FALSE, Err_Res    },
01290         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01291                         },
01292 /* Integer_8 */         {
01293         /* Err_Res    */        {FALSE, Err_Res    },
01294         /* Short_Char_Const */  {TRUE , Integer_8      },
01295         /* Short_Typeless_Const */      {TRUE , Integer_8      },
01296         /* Typeless_1 */        {TRUE , Integer_8      },
01297         /* Typeless_2 */        {TRUE , Integer_8      },
01298         /* Typeless_4 */        {TRUE , Integer_8      },
01299         /* Typeless_8 */        {TRUE , Integer_8      },
01300         /* Long_Typeless */     {FALSE, Err_Res    },
01301         /* Integer_1      */    {FALSE, Integer_8      },
01302         /* Integer_2      */    {FALSE, Integer_8      },
01303         /* Integer_4      */    {FALSE, Integer_8      },
01304         /* Integer_8      */    {FALSE, Integer_8      },
01305         /* Real_4     */        {FALSE, Real_4     },
01306         /* Real_8     */        {FALSE, Real_8     },
01307         /* Real_16    */        {FALSE, Real_16    },
01308         /* Complex_4     */     {FALSE, Complex_4     },
01309         /* Complex_8     */     {FALSE, Complex_8     },
01310         /* Complex_16    */     {FALSE, Complex_16    },
01311         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01312         /* Logical_1        */  {FALSE, Err_Res    },
01313         /* Logical_2        */  {FALSE, Err_Res    },
01314         /* Logical_4        */  {FALSE, Err_Res    },
01315         /* Logical_8        */  {FALSE, Err_Res    },
01316         /* Character_1       */ {FALSE, Err_Res    },
01317         /* Character_2       */ {FALSE, Err_Res    },
01318         /* Character_4       */ {FALSE, Err_Res    },
01319         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01320         /* Structure_Type      */       {FALSE, Err_Res    },
01321         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01322                         },
01323 /* Real_4 */            {
01324         /* Err_Res    */        {FALSE, Err_Res    },
01325         /* Short_Char_Const */  {TRUE , Real_4     },
01326         /* Short_Typeless_Const */      {TRUE , Real_4     },
01327         /* Typeless_1 */        {TRUE , Err_Res    },
01328         /* Typeless_2 */        {TRUE , Err_Res    },    
01329         /* Typeless_4 */        {TRUE , Real_4     },
01330         /* Typeless_8 */        {TRUE , Real_4     },
01331         /* Long_Typeless */     {FALSE, Err_Res    },
01332         /* Integer_1      */    {FALSE, Real_4     },
01333         /* Integer_2      */    {FALSE, Real_4     },
01334         /* Integer_4      */    {FALSE, Real_4     },
01335         /* Integer_8      */    {FALSE, Real_4     },
01336         /* Real_4     */        {FALSE, Real_4     },
01337         /* Real_8     */        {FALSE, Real_8     },
01338         /* Real_16    */        {FALSE, Real_16    },
01339         /* Complex_4     */     {FALSE, Complex_4     },
01340         /* Complex_8     */     {FALSE, Complex_8     },
01341         /* Complex_16    */     {FALSE, Complex_16    },
01342         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01343         /* Logical_1        */  {FALSE, Err_Res    },
01344         /* Logical_2        */  {FALSE, Err_Res    },
01345         /* Logical_4        */  {FALSE, Err_Res    },
01346         /* Logical_8        */  {FALSE, Err_Res    },
01347         /* Character_1       */ {FALSE, Err_Res    },
01348         /* Character_2       */ {FALSE, Err_Res    },
01349         /* Character_4       */ {FALSE, Err_Res    },
01350         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01351         /* Structure_Type      */       {FALSE, Err_Res    },
01352         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01353                         },
01354 /* Real_8 */            {
01355         /* Err_Res    */        {FALSE, Err_Res    },
01356         /* Short_Char_Const */  {TRUE , Real_8     },
01357         /* Short_Typeless_Const */      {TRUE , Real_8     },
01358         /* Typeless_1 */    {FALSE, Err_Res    },
01359         /* Typeless_2 */    {FALSE, Err_Res    },
01360         /* Typeless_4 */    {FALSE, Err_Res    },
01361         /* Typeless_8 */    {TRUE , Real_8     },
01362         /* Long_Typeless */     {FALSE, Err_Res    },
01363         /* Integer_1      */    {FALSE, Real_8     },
01364         /* Integer_2      */    {FALSE, Real_8     },
01365         /* Integer_4      */    {FALSE, Real_8     },
01366         /* Integer_8      */    {FALSE, Real_8     },
01367         /* Real_4     */        {FALSE, Real_8     },
01368         /* Real_8     */        {FALSE, Real_8     },
01369         /* Real_16    */        {FALSE, Real_16    },
01370         /* Complex_4     */     {FALSE, Complex_8     },
01371         /* Complex_8     */     {FALSE, Complex_8     },
01372         /* Complex_16    */     {FALSE, Complex_16    },
01373         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01374         /* Logical_1        */  {FALSE, Err_Res    },
01375         /* Logical_2        */  {FALSE, Err_Res    },
01376         /* Logical_4        */  {FALSE, Err_Res    },
01377         /* Logical_8        */  {FALSE, Err_Res    },
01378         /* Character_1       */ {FALSE, Err_Res    },
01379         /* Character_2       */ {FALSE, Err_Res    },
01380         /* Character_4       */ {FALSE, Err_Res    },
01381         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01382         /* Structure_Type      */       {FALSE, Err_Res    },
01383         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01384                         },
01385 /* Real_16 */           {
01386         /* Err_Res    */        {FALSE, Err_Res    },
01387         /* Short_Char_Const */  {TRUE , Real_16    },
01388         /* Short_Typeless_Const */      {TRUE , Real_16    },
01389         /* Typeless_1 */  {FALSE, Err_Res    },
01390         /* Typeless_2 */  {FALSE, Err_Res    },
01391         /* Typeless_4 */  {FALSE, Err_Res    },
01392         /* Typeless_8 */  {FALSE, Err_Res    },
01393         /* Long_Typeless */     {FALSE, Err_Res    },
01394         /* Integer_1      */    {FALSE, Real_16    },
01395         /* Integer_2      */    {FALSE, Real_16    },
01396         /* Integer_4      */    {FALSE, Real_16    },
01397         /* Integer_8      */    {FALSE, Real_16    },
01398         /* Real_4     */        {FALSE, Real_16    },
01399         /* Real_8     */        {FALSE, Real_16    },
01400         /* Real_16    */        {FALSE, Real_16    },
01401         /* Complex_4     */     {FALSE, Complex_16    },
01402         /* Complex_8     */     {FALSE, Complex_16    },
01403         /* Complex_16    */     {FALSE, Complex_16    },
01404         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01405         /* Logical_1        */  {FALSE, Err_Res    },
01406         /* Logical_2        */  {FALSE, Err_Res    },
01407         /* Logical_4        */  {FALSE, Err_Res    },
01408         /* Logical_8        */  {FALSE, Err_Res    },
01409         /* Character_1       */ {FALSE, Err_Res    },
01410         /* Character_2       */ {FALSE, Err_Res    },
01411         /* Character_4       */ {FALSE, Err_Res    },
01412         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01413         /* Structure_Type      */       {FALSE, Err_Res    },
01414         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01415                         },
01416 /* Complex_4 */         {
01417         /* Err_Res    */        {FALSE, Err_Res    },
01418         /* Short_Char_Const */  {TRUE , Complex_4  },
01419         /* Short_Typeless_Const */      {TRUE , Complex_4  },
01420         /* Typeless_1 */  {FALSE, Err_Res    },
01421         /* Typeless_2 */  {FALSE, Err_Res    },
01422         /* Typeless_4 */  {FALSE, Err_Res    },
01423         /* Typeless_8 */  {FALSE, Err_Res    },
01424         /* Long_Typeless */     {FALSE, Err_Res    },
01425         /* Integer_1      */    {FALSE, Complex_4     },
01426         /* Integer_2      */    {FALSE, Complex_4     },
01427         /* Integer_4      */    {FALSE, Complex_4     },
01428         /* Integer_8      */    {FALSE, Complex_4     },
01429         /* Real_4     */        {FALSE, Complex_4     },
01430         /* Real_8     */        {FALSE, Complex_8     },
01431         /* Real_16    */        {FALSE, Complex_16    },
01432         /* Complex_4     */     {FALSE, Complex_4     },
01433         /* Complex_8     */     {FALSE, Complex_8     },
01434         /* Complex_16    */     {FALSE, Complex_16    },
01435         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01436         /* Logical_1        */  {FALSE, Err_Res    },
01437         /* Logical_2        */  {FALSE, Err_Res    },
01438         /* Logical_4        */  {FALSE, Err_Res    },
01439         /* Logical_8        */  {FALSE, Err_Res    },
01440         /* Character_1       */ {FALSE, Err_Res    },
01441         /* Character_2       */ {FALSE, Err_Res    },
01442         /* Character_4       */ {FALSE, Err_Res    },
01443         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01444         /* Structure_Type      */       {FALSE, Err_Res    },
01445         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01446                         },
01447 /* Complex_8 */         {
01448         /* Err_Res    */        {FALSE, Err_Res    },
01449         /* Short_Char_Const */  {TRUE , Complex_8  },
01450         /* Short_Typeless_Const */      {TRUE , Complex_8  },
01451         /* Typeless_1 */  {FALSE, Err_Res    },
01452         /* Typeless_2 */  {FALSE, Err_Res    },
01453         /* Typeless_4 */  {FALSE, Err_Res    },
01454         /* Typeless_8 */  {FALSE, Err_Res    },
01455         /* Long_Typeless */     {FALSE, Err_Res    },
01456         /* Integer_1      */    {FALSE, Complex_8     },
01457         /* Integer_2      */    {FALSE, Complex_8     },
01458         /* Integer_4      */    {FALSE, Complex_8     },
01459         /* Integer_8      */    {FALSE, Complex_8     },
01460         /* Real_4     */        {FALSE, Complex_8     },
01461         /* Real_8     */        {FALSE, Complex_8     },
01462         /* Real_16    */        {FALSE, Complex_16    },
01463         /* Complex_4     */     {FALSE, Complex_8     },
01464         /* Complex_8     */     {FALSE, Complex_8     },
01465         /* Complex_16    */     {FALSE, Complex_16    },
01466         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01467         /* Logical_1        */  {FALSE, Err_Res    },
01468         /* Logical_2        */  {FALSE, Err_Res    },
01469         /* Logical_4        */  {FALSE, Err_Res    },
01470         /* Logical_8        */  {FALSE, Err_Res    },
01471         /* Character_1       */ {FALSE, Err_Res    },
01472         /* Character_2       */ {FALSE, Err_Res    },
01473         /* Character_4       */ {FALSE, Err_Res    },
01474         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01475         /* Structure_Type      */       {FALSE, Err_Res    },
01476         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01477                         },
01478 /* Complex_16 */                {
01479         /* Err_Res    */        {FALSE, Err_Res    },
01480         /* Short_Char_Const */  {TRUE , Complex_16 },
01481         /* Short_Typeless_Const */      {TRUE , Complex_16 },
01482         /* Typeless_1 */  {FALSE, Err_Res    },
01483         /* Typeless_2 */  {FALSE, Err_Res    },
01484         /* Typeless_4 */  {FALSE, Err_Res    },
01485         /* Typeless_8 */  {FALSE, Err_Res    },
01486         /* Long_Typeless */     {FALSE, Err_Res    },
01487         /* Integer_1      */    {FALSE, Complex_16    },
01488         /* Integer_2      */    {FALSE, Complex_16    },
01489         /* Integer_4      */    {FALSE, Complex_16    },
01490         /* Integer_8      */    {FALSE, Complex_16    },
01491         /* Real_4     */        {FALSE, Complex_16    },
01492         /* Real_8     */        {FALSE, Complex_16    },
01493         /* Real_16    */        {FALSE, Complex_16    },
01494         /* Complex_4     */     {FALSE, Complex_16    },
01495         /* Complex_8     */     {FALSE, Complex_16    },
01496         /* Complex_16    */     {FALSE, Complex_16    },
01497         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01498         /* Logical_1        */  {FALSE, Err_Res    },
01499         /* Logical_2        */  {FALSE, Err_Res    },
01500         /* Logical_4        */  {FALSE, Err_Res    },
01501         /* Logical_8        */  {FALSE, Err_Res    },
01502         /* Character_1       */ {FALSE, Err_Res    },
01503         /* Character_2       */ {FALSE, Err_Res    },
01504         /* Character_4       */ {FALSE, Err_Res    },
01505         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01506         /* Structure_Type      */       {FALSE, Err_Res    },
01507         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01508                         },
01509 /* CRI_Ptr_8 */         {
01510         /* Err_Res    */        {FALSE, Err_Res    },
01511         /* Short_Char_Const */  {TRUE , CRI_Ptr_8   },
01512         /* Short_Typeless_Const */      {TRUE , CRI_Ptr_8   },
01513         /* Typeless_1 */        {TRUE , CRI_Ptr_8   },
01514         /* Typeless_2 */        {TRUE , CRI_Ptr_8   },
01515         /* Typeless_4 */        {TRUE , CRI_Ptr_8   },
01516         /* Typeless_8 */        {TRUE , CRI_Ptr_8   },
01517         /* Long_Typeless */     {FALSE, Err_Res    },
01518         /* Integer_1      */    {TRUE , CRI_Ptr_8   },
01519         /* Integer_2      */    {TRUE , CRI_Ptr_8   },
01520         /* Integer_4      */    {TRUE , CRI_Ptr_8   },
01521         /* Integer_8      */    {TRUE , CRI_Ptr_8   },
01522         /* Real_4     */        {FALSE, Err_Res    },
01523         /* Real_8     */        {FALSE, Err_Res    },
01524         /* Real_16    */        {FALSE, Err_Res    },
01525         /* Complex_4     */     {FALSE, Err_Res    },
01526         /* Complex_8     */     {FALSE, Err_Res    },
01527         /* Complex_16    */     {FALSE, Err_Res    },
01528         /* CRI_Ptr_8      */    {TRUE , INT_WORD   },
01529         /* Logical_1        */  {FALSE, Err_Res    },
01530         /* Logical_2        */  {FALSE, Err_Res    },
01531         /* Logical_4        */  {FALSE, Err_Res    },
01532         /* Logical_8        */  {FALSE, Err_Res    },
01533         /* Character_1       */ {FALSE, Err_Res    },
01534         /* Character_2       */ {FALSE, Err_Res    },
01535         /* Character_4       */ {FALSE, Err_Res    },
01536         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01537         /* Structure_Type      */       {FALSE, Err_Res    },
01538         /* CRI_Parcel_Ptr_8  */   {TRUE , CRI_Ptr_8   }
01539                         },
01540 /* Logical_1 */         {
01541         /* Err_Res    */        {FALSE, Err_Res    },
01542         /* Short_Char_Const */  {FALSE, Err_Res    },
01543         /* Short_Typeless_Const */      {FALSE, Err_Res    },
01544         /* Typeless_1 */  {FALSE, Err_Res    },
01545         /* Typeless_2 */  {FALSE, Err_Res    },
01546         /* Typeless_4 */  {FALSE, Err_Res    },
01547         /* Typeless_8 */  {FALSE, Err_Res    },
01548         /* Long_Typeless */     {FALSE, Err_Res    },
01549         /* Integer_1      */    {FALSE, Err_Res    },
01550         /* Integer_2      */    {FALSE, Err_Res    },
01551         /* Integer_4      */    {FALSE, Err_Res    },
01552         /* Integer_8      */    {FALSE, Err_Res    },
01553         /* Real_4     */        {FALSE, Err_Res    },
01554         /* Real_8     */        {FALSE, Err_Res    },
01555         /* Real_16    */        {FALSE, Err_Res    },
01556         /* Complex_4     */     {FALSE, Err_Res    },
01557         /* Complex_8     */     {FALSE, Err_Res    },
01558         /* Complex_16    */     {FALSE, Err_Res    },
01559         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01560         /* Logical_1        */  {FALSE, Err_Res    },
01561         /* Logical_2        */  {FALSE, Err_Res    },
01562         /* Logical_4        */  {FALSE, Err_Res    },
01563         /* Logical_8        */  {FALSE, Err_Res    },
01564         /* Character_1       */ {FALSE, Err_Res    },
01565         /* Character_2       */ {FALSE, Err_Res    },
01566         /* Character_4       */ {FALSE, Err_Res    },
01567         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01568         /* Structure_Type      */       {FALSE, Err_Res    },
01569         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01570                         },
01571 /* Logical_2 */         {
01572         /* Err_Res    */        {FALSE, Err_Res    },
01573         /* Short_Char_Const */  {FALSE, Err_Res    },
01574         /* Short_Typeless_Const */      {FALSE, Err_Res    },
01575         /* Typeless_1 */  {FALSE, Err_Res    },
01576         /* Typeless_2 */  {FALSE, Err_Res    },
01577         /* Typeless_4 */  {FALSE, Err_Res    },
01578         /* Typeless_8 */  {FALSE, Err_Res    },
01579         /* Long_Typeless */     {FALSE, Err_Res    },
01580         /* Integer_1      */    {FALSE, Err_Res    },
01581         /* Integer_2      */    {FALSE, Err_Res    },
01582         /* Integer_4      */    {FALSE, Err_Res    },
01583         /* Integer_8      */    {FALSE, Err_Res    },
01584         /* Real_4     */        {FALSE, Err_Res    },
01585         /* Real_8     */        {FALSE, Err_Res    },
01586         /* Real_16    */        {FALSE, Err_Res    },
01587         /* Complex_4     */     {FALSE, Err_Res    },
01588         /* Complex_8     */     {FALSE, Err_Res    },
01589         /* Complex_16    */     {FALSE, Err_Res    },
01590         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01591         /* Logical_1        */  {FALSE, Err_Res    },
01592         /* Logical_2        */  {FALSE, Err_Res    },
01593         /* Logical_4        */  {FALSE, Err_Res    },
01594         /* Logical_8        */  {FALSE, Err_Res    },
01595         /* Character_1       */ {FALSE, Err_Res    },
01596         /* Character_2       */ {FALSE, Err_Res    },
01597         /* Character_4       */ {FALSE, Err_Res    },
01598         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01599         /* Structure_Type      */       {FALSE, Err_Res    },
01600         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01601                         },
01602 /* Logical_4 */         {
01603         /* Err_Res    */        {FALSE, Err_Res    },
01604         /* Short_Char_Const */  {FALSE, Err_Res    },
01605         /* Short_Typeless_Const */      {FALSE, Err_Res    },
01606         /* Typeless_1 */  {FALSE, Err_Res    },
01607         /* Typeless_2 */  {FALSE, Err_Res    },
01608         /* Typeless_4 */  {FALSE, Err_Res    },
01609         /* Typeless_8 */  {FALSE, Err_Res    },
01610         /* Long_Typeless */     {FALSE, Err_Res    },
01611         /* Integer_1      */    {FALSE, Err_Res    },
01612         /* Integer_2      */    {FALSE, Err_Res    },
01613         /* Integer_4      */    {FALSE, Err_Res    },
01614         /* Integer_8      */    {FALSE, Err_Res    },
01615         /* Real_4     */        {FALSE, Err_Res    },
01616         /* Real_8     */        {FALSE, Err_Res    },
01617         /* Real_16    */        {FALSE, Err_Res    },
01618         /* Complex_4     */     {FALSE, Err_Res    },
01619         /* Complex_8     */     {FALSE, Err_Res    },
01620         /* Complex_16    */     {FALSE, Err_Res    },
01621         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01622         /* Logical_1        */  {FALSE, Err_Res    },
01623         /* Logical_2        */  {FALSE, Err_Res    },
01624         /* Logical_4        */  {FALSE, Err_Res    },
01625         /* Logical_8        */  {FALSE, Err_Res    },
01626         /* Character_1       */ {FALSE, Err_Res    },
01627         /* Character_2       */ {FALSE, Err_Res    },
01628         /* Character_4       */ {FALSE, Err_Res    },
01629         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01630         /* Structure_Type      */       {FALSE, Err_Res    },
01631         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01632                         },
01633 /* Logical_8 */         {
01634         /* Err_Res    */        {FALSE, Err_Res    },
01635         /* Short_Char_Const */  {FALSE, Err_Res    },
01636         /* Short_Typeless_Const */      {FALSE, Err_Res    },
01637         /* Typeless_1 */  {FALSE, Err_Res    },
01638         /* Typeless_2 */  {FALSE, Err_Res    },
01639         /* Typeless_4 */  {FALSE, Err_Res    },
01640         /* Typeless_8 */  {FALSE, Err_Res    },
01641         /* Long_Typeless */     {FALSE, Err_Res    },
01642         /* Integer_1      */    {FALSE, Err_Res    },
01643         /* Integer_2      */    {FALSE, Err_Res    },
01644         /* Integer_4      */    {FALSE, Err_Res    },
01645         /* Integer_8      */    {FALSE, Err_Res    },
01646         /* Real_4     */        {FALSE, Err_Res    },
01647         /* Real_8     */        {FALSE, Err_Res    },
01648         /* Real_16    */        {FALSE, Err_Res    },
01649         /* Complex_4     */     {FALSE, Err_Res    },
01650         /* Complex_8     */     {FALSE, Err_Res    },
01651         /* Complex_16    */     {FALSE, Err_Res    },
01652         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01653         /* Logical_1        */  {FALSE, Err_Res    },
01654         /* Logical_2        */  {FALSE, Err_Res    },
01655         /* Logical_4        */  {FALSE, Err_Res    },
01656         /* Logical_8        */  {FALSE, Err_Res    },
01657         /* Character_1       */ {FALSE, Err_Res    },
01658         /* Character_2       */ {FALSE, Err_Res    },
01659         /* Character_4       */ {FALSE, Err_Res    },
01660         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01661         /* Structure_Type      */       {FALSE, Err_Res    },
01662         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01663                         },
01664 /* Character_1 */               {
01665         /* Err_Res    */        {FALSE, Err_Res    },
01666         /* Short_Char_Const */  {FALSE, Err_Res    },
01667         /* Short_Typeless_Const */      {FALSE, Err_Res    },
01668         /* Typeless_1 */  {FALSE, Err_Res    },
01669         /* Typeless_2 */  {FALSE, Err_Res    },
01670         /* Typeless_4 */  {FALSE, Err_Res    },
01671         /* Typeless_8 */  {FALSE, Err_Res    },
01672         /* Long_Typeless */     {FALSE, Err_Res    },
01673         /* Integer_1      */    {FALSE, Err_Res    },
01674         /* Integer_2      */    {FALSE, Err_Res    },
01675         /* Integer_4      */    {FALSE, Err_Res    },
01676         /* Integer_8      */    {FALSE, Err_Res    },
01677         /* Real_4     */        {FALSE, Err_Res    },
01678         /* Real_8     */        {FALSE, Err_Res    },
01679         /* Real_16    */        {FALSE, Err_Res    },
01680         /* Complex_4     */     {FALSE, Err_Res    },
01681         /* Complex_8     */     {FALSE, Err_Res    },
01682         /* Complex_16    */     {FALSE, Err_Res    },
01683         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01684         /* Logical_1        */  {FALSE, Err_Res    },
01685         /* Logical_2        */  {FALSE, Err_Res    },
01686         /* Logical_4        */  {FALSE, Err_Res    },
01687         /* Logical_8        */  {FALSE, Err_Res    },
01688         /* Character_1       */ {FALSE, Err_Res    },
01689         /* Character_2       */ {FALSE, Err_Res    },
01690         /* Character_4       */ {FALSE, Err_Res    },
01691         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01692         /* Structure_Type      */       {FALSE, Err_Res    },
01693         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01694                         },
01695 /* Character_2 */               {
01696         /* Err_Res    */        {FALSE, Err_Res    },
01697         /* Short_Char_Const */  {FALSE, Err_Res    },
01698         /* Short_Typeless_Const */      {FALSE, Err_Res    },
01699         /* Typeless_1 */  {FALSE, Err_Res    },
01700         /* Typeless_2 */  {FALSE, Err_Res    },
01701         /* Typeless_4 */  {FALSE, Err_Res    },
01702         /* Typeless_8 */  {FALSE, Err_Res    },
01703         /* Long_Typeless */     {FALSE, Err_Res    },
01704         /* Integer_1      */    {FALSE, Err_Res    },
01705         /* Integer_2      */    {FALSE, Err_Res    },
01706         /* Integer_4      */    {FALSE, Err_Res    },
01707         /* Integer_8      */    {FALSE, Err_Res    },
01708         /* Real_4     */        {FALSE, Err_Res    },
01709         /* Real_8     */        {FALSE, Err_Res    },
01710         /* Real_16    */        {FALSE, Err_Res    },
01711         /* Complex_4     */     {FALSE, Err_Res    },
01712         /* Complex_8     */     {FALSE, Err_Res    },
01713         /* Complex_16    */     {FALSE, Err_Res    },
01714         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01715         /* Logical_1        */  {FALSE, Err_Res    },
01716         /* Logical_2        */  {FALSE, Err_Res    },
01717         /* Logical_4        */  {FALSE, Err_Res    },
01718         /* Logical_8        */  {FALSE, Err_Res    },
01719         /* Character_1       */ {FALSE, Err_Res    },
01720         /* Character_2       */ {FALSE, Err_Res    },
01721         /* Character_4       */ {FALSE, Err_Res    },
01722         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01723         /* Structure_Type      */       {FALSE, Err_Res    },
01724         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01725                         },
01726 /* Character_4 */               {
01727         /* Err_Res    */        {FALSE, Err_Res    },
01728         /* Short_Char_Const */  {FALSE, Err_Res    },
01729         /* Short_Typeless_Const */      {FALSE, Err_Res    },
01730         /* Typeless_1 */  {FALSE, Err_Res    },
01731         /* Typeless_2 */  {FALSE, Err_Res    },
01732         /* Typeless_4 */  {FALSE, Err_Res    },
01733         /* Typeless_8 */  {FALSE, Err_Res    },
01734         /* Long_Typeless */     {FALSE, Err_Res    },
01735         /* Integer_1      */    {FALSE, Err_Res    },
01736         /* Integer_2      */    {FALSE, Err_Res    },
01737         /* Integer_4      */    {FALSE, Err_Res    },
01738         /* Integer_8      */    {FALSE, Err_Res    },
01739         /* Real_4     */        {FALSE, Err_Res    },
01740         /* Real_8     */        {FALSE, Err_Res    },
01741         /* Real_16    */        {FALSE, Err_Res    },
01742         /* Complex_4     */     {FALSE, Err_Res    },
01743         /* Complex_8     */     {FALSE, Err_Res    },
01744         /* Complex_16    */     {FALSE, Err_Res    },
01745         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01746         /* Logical_1        */  {FALSE, Err_Res    },
01747         /* Logical_2        */  {FALSE, Err_Res    },
01748         /* Logical_4        */  {FALSE, Err_Res    },
01749         /* Logical_8        */  {FALSE, Err_Res    },
01750         /* Character_1       */ {FALSE, Err_Res    },
01751         /* Character_2       */ {FALSE, Err_Res    },
01752         /* Character_4       */ {FALSE, Err_Res    },
01753         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01754         /* Structure_Type      */       {FALSE, Err_Res    },
01755         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01756                         },
01757 /* CRI_Ch_Ptr_8 */              {
01758         /* Err_Res    */        {FALSE, Err_Res    },
01759         /* Short_Char_Const */  {FALSE, Err_Res    },
01760         /* Short_Typeless_Const */      {FALSE, Err_Res    },
01761         /* Typeless_1 */  {FALSE, Err_Res    },
01762         /* Typeless_2 */  {FALSE, Err_Res    },
01763         /* Typeless_4 */  {FALSE, Err_Res    },
01764         /* Typeless_8 */  {FALSE, Err_Res    },
01765         /* Long_Typeless */     {FALSE, Err_Res    },
01766         /* Integer_1      */    {TRUE , CRI_Ch_Ptr_8    },
01767         /* Integer_2      */    {TRUE , CRI_Ch_Ptr_8    },
01768         /* Integer_4      */    {TRUE , CRI_Ch_Ptr_8    },
01769         /* Integer_8      */    {TRUE , CRI_Ch_Ptr_8    },
01770         /* Real_4     */        {FALSE, Err_Res    },
01771         /* Real_8     */        {FALSE, Err_Res    },
01772         /* Real_16    */        {FALSE, Err_Res    },
01773         /* Complex_4     */     {FALSE, Err_Res    },
01774         /* Complex_8     */     {FALSE, Err_Res    },
01775         /* Complex_16    */     {FALSE, Err_Res    },
01776         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01777         /* Logical_1        */  {FALSE, Err_Res    },
01778         /* Logical_2        */  {FALSE, Err_Res    },
01779         /* Logical_4        */  {FALSE, Err_Res    },
01780         /* Logical_8        */  {FALSE, Err_Res    },
01781         /* Character_1       */ {FALSE, Err_Res    },
01782         /* Character_2       */ {FALSE, Err_Res    },
01783         /* Character_4       */ {FALSE, Err_Res    },
01784         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01785         /* Structure_Type      */       {FALSE, Err_Res    },
01786         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01787                         },
01788 /* Structure_Type   */          {
01789         /* Err_Res    */        {FALSE, Err_Res    },
01790         /* Short_Char_Const */  {FALSE, Err_Res    },
01791         /* Short_Typeless_Const */      {FALSE, Err_Res    },
01792         /* Typeless_1 */  {FALSE, Err_Res    },
01793         /* Typeless_2 */  {FALSE, Err_Res    },
01794         /* Typeless_4 */  {FALSE, Err_Res    },
01795         /* Typeless_8 */  {FALSE, Err_Res    },
01796         /* Long_Typeless */     {FALSE, Err_Res    },
01797         /* Integer_1      */    {FALSE, Err_Res    },
01798         /* Integer_2      */    {FALSE, Err_Res    },
01799         /* Integer_4      */    {FALSE, Err_Res    },
01800         /* Integer_8      */    {FALSE, Err_Res    },
01801         /* Real_4     */        {FALSE, Err_Res    },
01802         /* Real_8     */        {FALSE, Err_Res    },
01803         /* Real_16    */        {FALSE, Err_Res    },
01804         /* Complex_4     */     {FALSE, Err_Res    },
01805         /* Complex_8     */     {FALSE, Err_Res    },
01806         /* Complex_16    */     {FALSE, Err_Res    },
01807         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01808         /* Logical_1        */  {FALSE, Err_Res    },
01809         /* Logical_2        */  {FALSE, Err_Res    },
01810         /* Logical_4        */  {FALSE, Err_Res    },
01811         /* Logical_8        */  {FALSE, Err_Res    },
01812         /* Character_1       */ {FALSE, Err_Res    },
01813         /* Character_2       */ {FALSE, Err_Res    },
01814         /* Character_4       */ {FALSE, Err_Res    },
01815         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01816         /* Structure_Type      */       {FALSE, Err_Res    },
01817         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01818                         },
01819 /* CRI_Parcel_Ptr_8   */          {
01820         /* Err_Res    */        {FALSE, Err_Res    },
01821         /* Short_Char_Const */  {TRUE , INT_WORD   },
01822         /* Short_Typeless_Const */    {TRUE , INT_WORD   },
01823         /* Typeless_1 */    {TRUE , INT_WORD   },
01824         /* Typeless_2 */    {TRUE , INT_WORD   },
01825         /* Typeless_4 */    {TRUE , INT_WORD   },
01826         /* Typeless_8 */    {TRUE , INT_WORD   },
01827         /* Long_Typeless */     {FALSE, Err_Res    },
01828         /* Integer_1      */    {TRUE , INT_WORD   },
01829         /* Integer_2      */    {TRUE , INT_WORD   },
01830         /* Integer_4      */    {TRUE , INT_WORD   },
01831         /* Integer_8      */    {TRUE , INT_WORD   },
01832         /* Real_4     */        {FALSE, Err_Res    },
01833         /* Real_8     */        {FALSE, Err_Res    },
01834         /* Real_16    */        {FALSE, Err_Res    },
01835         /* Complex_4     */     {FALSE, Err_Res    },
01836         /* Complex_8     */     {FALSE, Err_Res    },
01837         /* Complex_16    */     {FALSE, Err_Res    },
01838         /* CRI_Ptr_8      */    {TRUE , CRI_Ptr_8   },
01839         /* Logical_1        */  {FALSE, Err_Res    },
01840         /* Logical_2        */  {FALSE, Err_Res    },
01841         /* Logical_4        */  {FALSE, Err_Res    },
01842         /* Logical_8        */  {FALSE, Err_Res    },
01843         /* Character_1       */ {FALSE, Err_Res    },
01844         /* Character_2       */ {FALSE, Err_Res    },
01845         /* Character_4       */ {FALSE, Err_Res    },
01846         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01847         /* Structure_Type      */       {FALSE, Err_Res    },
01848         /* CRI_Parcel_Ptr_8  */   {TRUE , INT_WORD   }
01849                         }
01850                 };
01851 
01852 
01853 exp_tbl_type    mult_div_tbl[Num_Linear_Types][Num_Linear_Types] = {
01854 /* Err_Res */           {
01855         /* Err_Res    */        {FALSE, Err_Res    },
01856         /* Short_Char_Const */  {FALSE, Err_Res    },
01857         /* Short_Typeless_Const */      {FALSE, Err_Res    },
01858         /* Typeless_1 */  {FALSE, Err_Res    },
01859         /* Typeless_2 */  {FALSE, Err_Res    },
01860         /* Typeless_4 */  {FALSE, Err_Res    },
01861         /* Typeless_8 */  {FALSE, Err_Res    },
01862         /* Long_Typeless */     {FALSE, Err_Res    },
01863         /* Integer_1      */    {FALSE, Err_Res    },
01864         /* Integer_2      */    {FALSE, Err_Res    },
01865         /* Integer_4      */    {FALSE, Err_Res    },
01866         /* Integer_8      */    {FALSE, Err_Res    },
01867         /* Real_4     */        {FALSE, Err_Res    },
01868         /* Real_8     */        {FALSE, Err_Res    },
01869         /* Real_16    */        {FALSE, Err_Res    },
01870         /* Complex_4     */     {FALSE, Err_Res    },
01871         /* Complex_8     */     {FALSE, Err_Res    },
01872         /* Complex_16    */     {FALSE, Err_Res    },
01873         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01874         /* Logical_1        */  {FALSE, Err_Res    },
01875         /* Logical_2        */  {FALSE, Err_Res    },
01876         /* Logical_4        */  {FALSE, Err_Res    },
01877         /* Logical_8        */  {FALSE, Err_Res    },
01878         /* Character_1       */ {FALSE, Err_Res    },
01879         /* Character_2       */ {FALSE, Err_Res    },
01880         /* Character_4       */ {FALSE, Err_Res    },
01881         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01882         /* Structure_Type      */       {FALSE, Err_Res    },
01883         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01884                         },
01885 /* Short_Char_Const */  {
01886         /* Err_Res    */        {FALSE, Err_Res    },
01887         /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
01888         /* Short_Typeless_Const */      {TRUE , Short_Typeless_Const },
01889         /* Typeless_1 */        {TRUE , Typeless_1 },
01890         /* Typeless_2 */        {TRUE , Typeless_2 },
01891         /* Typeless_4 */        {TRUE , Typeless_4 },
01892         /* Typeless_8 */        {TRUE , Typeless_8 },
01893         /* Long_Typeless */     {FALSE, Err_Res    },
01894         /* Integer_1      */    {TRUE , Integer_1  },
01895         /* Integer_2      */    {TRUE , Integer_2  },
01896         /* Integer_4      */    {TRUE , Integer_4  },
01897         /* Integer_8      */    {TRUE , Integer_8      },
01898         /* Real_4     */        {TRUE , Real_4     },
01899         /* Real_8     */        {TRUE , Real_8     },
01900         /* Real_16    */        {TRUE , Real_16    },
01901         /* Complex_4     */     {TRUE , Complex_4  },
01902         /* Complex_8     */     {TRUE , Complex_8  },
01903         /* Complex_16    */     {TRUE , Complex_16 },
01904         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01905         /* Logical_1        */  {FALSE, Err_Res    },
01906         /* Logical_2        */  {FALSE, Err_Res    },
01907         /* Logical_4        */  {FALSE, Err_Res    },
01908         /* Logical_8        */  {FALSE, Err_Res    },
01909         /* Character_1       */ {FALSE, Err_Res    },
01910         /* Character_2       */ {FALSE, Err_Res    },
01911         /* Character_4       */ {FALSE, Err_Res    },
01912         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01913         /* Structure_Type      */       {FALSE, Err_Res    },
01914         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01915                         },
01916 /* Short_Typeless_Const */      {
01917         /* Err_Res    */        {FALSE, Err_Res    },
01918         /* Short_Char_Const */  {TRUE , Short_Typeless_Const },
01919         /* Short_Typeless_Const */      {TRUE , Short_Typeless_Const },
01920         /* Typeless_1 */        {TRUE , Typeless_1 },
01921         /* Typeless_2 */        {TRUE , Typeless_2 },
01922         /* Typeless_4 */        {TRUE , Typeless_4 },
01923         /* Typeless_8 */        {TRUE , Typeless_8 },
01924         /* Long_Typeless */     {FALSE, Err_Res    },
01925         /* Integer_1      */    {TRUE , Integer_1  },
01926         /* Integer_2      */    {TRUE , Integer_2  },
01927         /* Integer_4      */    {TRUE , Integer_4  },
01928         /* Integer_8      */    {TRUE , Integer_8      },
01929         /* Real_4     */        {TRUE , Real_4     },
01930         /* Real_8     */        {TRUE , Real_8     },
01931         /* Real_16    */        {TRUE , Real_16    },
01932         /* Complex_4     */     {TRUE , Complex_4  },
01933         /* Complex_8     */     {TRUE , Complex_8  },
01934         /* Complex_16    */     {TRUE , Complex_16 },
01935         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01936         /* Logical_1        */  {FALSE, Err_Res    },
01937         /* Logical_2        */  {FALSE, Err_Res    },
01938         /* Logical_4        */  {FALSE, Err_Res    },
01939         /* Logical_8        */  {FALSE, Err_Res    },
01940         /* Character_1       */ {FALSE, Err_Res    },
01941         /* Character_2       */ {FALSE, Err_Res    },
01942         /* Character_4       */ {FALSE, Err_Res    },
01943         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01944         /* Structure_Type      */       {FALSE, Err_Res    },
01945         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01946                         },
01947 /* Typeless_1 */        {
01948         /* Err_Res    */        {FALSE, Err_Res    },
01949         /* Short_Char_Const */  {TRUE , Typeless_1 },
01950         /* Short_Typeless_Const */      {TRUE , Typeless_1 },
01951         /* Typeless_1 */        {TRUE , Typeless_1 },
01952         /* Typeless_2 */        {TRUE , Typeless_2 },
01953         /* Typeless_4 */        {TRUE , Typeless_4 },
01954         /* Typeless_8 */        {TRUE , Typeless_8 },
01955         /* Long_Typeless */     {FALSE, Err_Res    },
01956         /* Integer_1      */    {TRUE , Integer_1  },
01957         /* Integer_2      */    {TRUE , Integer_2  },
01958         /* Integer_4      */    {TRUE , Integer_4  },
01959         /* Integer_8      */    {TRUE , Integer_8  },
01960         /* Real_4     */        {FALSE, Err_Res    },
01961         /* Real_8     */        {FALSE, Err_Res    },
01962         /* Real_16    */        {FALSE, Err_Res    },
01963         /* Complex_4     */     {FALSE, Err_Res    },
01964         /* Complex_8     */     {FALSE, Err_Res    },
01965         /* Complex_16    */     {FALSE, Err_Res    },
01966         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01967         /* Logical_1        */  {FALSE, Err_Res    },
01968         /* Logical_2        */  {FALSE, Err_Res    },
01969         /* Logical_4        */  {FALSE, Err_Res    },
01970         /* Logical_8        */  {FALSE, Err_Res    },
01971         /* Character_1       */ {FALSE, Err_Res    },
01972         /* Character_2       */ {FALSE, Err_Res    },
01973         /* Character_4       */ {FALSE, Err_Res    },
01974         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
01975         /* Structure_Type      */       {FALSE, Err_Res    },
01976         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
01977                         },
01978 /* Typeless_2 */        {
01979         /* Err_Res    */        {FALSE, Err_Res    },
01980         /* Short_Char_Const */  {TRUE , Typeless_2 },
01981         /* Short_Typeless_Const */      {TRUE , Typeless_2 },
01982         /* Typeless_1 */        {TRUE , Typeless_2 },
01983         /* Typeless_2 */        {TRUE , Typeless_2 },
01984         /* Typeless_4 */        {TRUE , Typeless_4 },
01985         /* Typeless_8 */        {TRUE , Typeless_8 },
01986         /* Long_Typeless */     {FALSE, Err_Res    },
01987         /* Integer_1      */    {TRUE , Integer_1  },
01988         /* Integer_2      */    {TRUE , Integer_2  },
01989         /* Integer_4      */    {TRUE , Integer_4  },
01990         /* Integer_8      */    {TRUE , Integer_8      },
01991         /* Real_4     */        {FALSE, Err_Res    },
01992         /* Real_8     */        {FALSE, Err_Res    },
01993         /* Real_16    */        {FALSE, Err_Res    },
01994         /* Complex_4     */     {FALSE, Err_Res    },
01995         /* Complex_8     */     {FALSE, Err_Res    },
01996         /* Complex_16    */     {FALSE, Err_Res    },
01997         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
01998         /* Logical_1        */  {FALSE, Err_Res    },
01999         /* Logical_2        */  {FALSE, Err_Res    },
02000         /* Logical_4        */  {FALSE, Err_Res    },
02001         /* Logical_8        */  {FALSE, Err_Res    },
02002         /* Character_1       */ {FALSE, Err_Res    },
02003         /* Character_2       */ {FALSE, Err_Res    },
02004         /* Character_4       */ {FALSE, Err_Res    },
02005         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02006         /* Structure_Type      */       {FALSE, Err_Res    },
02007         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02008                         },
02009 /* Typeless_4 */        {
02010         /* Err_Res    */        {FALSE, Err_Res    },
02011         /* Short_Char_Const */  {TRUE , Typeless_4 },
02012         /* Short_Typeless_Const */      {TRUE , Typeless_4 },
02013         /* Typeless_1 */        {TRUE , Typeless_4 },
02014         /* Typeless_2 */        {TRUE , Typeless_4 },
02015         /* Typeless_4 */        {TRUE , Typeless_4 },
02016         /* Typeless_8 */        {TRUE , Typeless_8 },
02017         /* Long_Typeless */     {FALSE, Err_Res    },
02018         /* Integer_1      */    {TRUE , Integer_1  },
02019         /* Integer_2      */    {TRUE , Integer_2  },
02020         /* Integer_4      */    {TRUE , Integer_4  },
02021         /* Integer_8      */    {TRUE , Integer_8      },
02022         /* Real_4     */        {TRUE , Real_4     },
02023         /* Real_8     */        {FALSE, Err_Res    },
02024         /* Real_16    */        {FALSE, Err_Res    },
02025         /* Complex_4     */     {FALSE, Err_Res    },
02026         /* Complex_8     */     {FALSE, Err_Res    },
02027         /* Complex_16    */     {FALSE, Err_Res    },
02028         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02029         /* Logical_1        */  {FALSE, Err_Res    },
02030         /* Logical_2        */  {FALSE, Err_Res    },
02031         /* Logical_4        */  {FALSE, Err_Res    },
02032         /* Logical_8        */  {FALSE, Err_Res    },
02033         /* Character_1       */ {FALSE, Err_Res    },
02034         /* Character_2       */ {FALSE, Err_Res    },
02035         /* Character_4       */ {FALSE, Err_Res    },
02036         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02037         /* Structure_Type      */       {FALSE, Err_Res    },
02038         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02039                         },
02040 /* Typeless_8 */        {
02041         /* Err_Res    */        {FALSE, Err_Res    },
02042         /* Short_Char_Const */  {TRUE , Typeless_8 },
02043         /* Short_Typeless_Const */      {TRUE , Typeless_8 },
02044         /* Typeless_1 */        {TRUE , Typeless_8 },
02045         /* Typeless_2 */        {TRUE , Typeless_8 },
02046         /* Typeless_4 */        {TRUE , Typeless_8 },
02047         /* Typeless_8 */        {TRUE , Typeless_8 },
02048         /* Long_Typeless */     {FALSE, Err_Res    },
02049         /* Integer_1      */    {TRUE , Integer_1  },
02050         /* Integer_2      */    {TRUE , Integer_2  },
02051         /* Integer_4      */    {TRUE , Integer_4  },
02052         /* Integer_8      */    {TRUE , Integer_8      },
02053         /* Real_4     */        {TRUE , Real_4     },
02054         /* Real_8     */        {TRUE , Real_8     },
02055         /* Real_16    */        {FALSE, Err_Res    },
02056         /* Complex_4     */     {FALSE, Err_Res    },
02057         /* Complex_8     */     {FALSE, Err_Res    },
02058         /* Complex_16    */     {FALSE, Err_Res    },
02059         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02060         /* Logical_1        */  {FALSE, Err_Res    },
02061         /* Logical_2        */  {FALSE, Err_Res    },
02062         /* Logical_4        */  {FALSE, Err_Res    },
02063         /* Logical_8        */  {FALSE, Err_Res    },
02064         /* Character_1       */ {FALSE, Err_Res    },
02065         /* Character_2       */ {FALSE, Err_Res    },
02066         /* Character_4       */ {FALSE, Err_Res    },
02067         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02068         /* Structure_Type      */       {FALSE, Err_Res    },
02069         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02070                         },
02071 /* Long_Typeless */     {
02072         /* Err_Res    */        {FALSE, Err_Res    },
02073         /* Short_Char_Const */  {FALSE, Err_Res    },
02074         /* Short_Typeless_Const */      {FALSE, Err_Res    },
02075         /* Typeless_1 */  {FALSE, Err_Res    },
02076         /* Typeless_2 */  {FALSE, Err_Res    },
02077         /* Typeless_4 */  {FALSE, Err_Res    },
02078         /* Typeless_8 */  {FALSE, Err_Res    },
02079         /* Long_Typeless */     {FALSE, Err_Res    },
02080         /* Integer_1      */    {FALSE, Err_Res    },
02081         /* Integer_2      */    {FALSE, Err_Res    },
02082         /* Integer_4      */    {FALSE, Err_Res    },
02083         /* Integer_8      */    {FALSE, Err_Res    },
02084         /* Real_4     */        {FALSE, Err_Res    },
02085         /* Real_8     */        {FALSE, Err_Res    },
02086         /* Real_16    */        {FALSE, Err_Res    },
02087         /* Complex_4     */     {FALSE, Err_Res    },
02088         /* Complex_8     */     {FALSE, Err_Res    },
02089         /* Complex_16    */     {FALSE, Err_Res    },
02090         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02091         /* Logical_1        */  {FALSE, Err_Res    },
02092         /* Logical_2        */  {FALSE, Err_Res    },
02093         /* Logical_4        */  {FALSE, Err_Res    },
02094         /* Logical_8        */  {FALSE, Err_Res    },
02095         /* Character_1       */ {FALSE, Err_Res    },
02096         /* Character_2       */ {FALSE, Err_Res    },
02097         /* Character_4       */ {FALSE, Err_Res    },
02098         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02099         /* Structure_Type      */       {FALSE, Err_Res    },
02100         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02101                         },
02102 /* Integer_1 */         {
02103         /* Err_Res    */        {FALSE, Err_Res    },
02104         /* Short_Char_Const */  {TRUE , Integer_1  },
02105         /* Short_Typeless_Const */      {TRUE , Integer_1  },
02106         /* Typeless_1 */        {TRUE , Integer_1  },
02107         /* Typeless_2 */        {TRUE , Integer_1  },
02108         /* Typeless_4 */        {TRUE , Integer_1  },
02109         /* Typeless_8 */        {TRUE , Integer_1  },
02110         /* Long_Typeless */     {FALSE, Err_Res    },
02111         /* Integer_1      */    {FALSE, Integer_1      },
02112         /* Integer_2      */    {FALSE, Integer_2      },
02113         /* Integer_4      */    {FALSE, Integer_4      },
02114         /* Integer_8      */    {FALSE, Integer_8      },
02115         /* Real_4     */        {FALSE, Real_4     },
02116         /* Real_8     */        {FALSE, Real_8     },
02117         /* Real_16    */        {FALSE, Real_16    },
02118         /* Complex_4     */     {FALSE, Complex_4     },
02119         /* Complex_8     */     {FALSE, Complex_8     },
02120         /* Complex_16    */     {FALSE, Complex_16    },
02121         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02122         /* Logical_1        */  {FALSE, Err_Res    },
02123         /* Logical_2        */  {FALSE, Err_Res    },
02124         /* Logical_4        */  {FALSE, Err_Res    },
02125         /* Logical_8        */  {FALSE, Err_Res    },
02126         /* Character_1       */ {FALSE, Err_Res    },
02127         /* Character_2       */ {FALSE, Err_Res    },
02128         /* Character_4       */ {FALSE, Err_Res    },
02129         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02130         /* Structure_Type      */       {FALSE, Err_Res    },
02131         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02132                         },
02133 /* Integer_2 */         {
02134         /* Err_Res    */        {FALSE, Err_Res    },
02135         /* Short_Char_Const */  {TRUE , Integer_2  },
02136         /* Short_Typeless_Const */      {TRUE , Integer_2  },
02137         /* Typeless_1 */        {TRUE , Integer_2  },
02138         /* Typeless_2 */        {TRUE , Integer_2  },
02139         /* Typeless_4 */        {TRUE , Integer_2  },
02140         /* Typeless_8 */        {TRUE , Integer_2  },
02141         /* Long_Typeless */     {FALSE, Err_Res    },
02142         /* Integer_1      */    {FALSE, Integer_2      },
02143         /* Integer_2      */    {FALSE, Integer_2      },
02144         /* Integer_4      */    {FALSE, Integer_4      },
02145         /* Integer_8      */    {FALSE, Integer_8      },
02146         /* Real_4     */        {FALSE, Real_4     },
02147         /* Real_8     */        {FALSE, Real_8     },
02148         /* Real_16    */        {FALSE, Real_16    },
02149         /* Complex_4     */     {FALSE, Complex_4     },
02150         /* Complex_8     */     {FALSE, Complex_8     },
02151         /* Complex_16    */     {FALSE, Complex_16    },
02152         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02153         /* Logical_1        */  {FALSE, Err_Res    },
02154         /* Logical_2        */  {FALSE, Err_Res    },
02155         /* Logical_4        */  {FALSE, Err_Res    },
02156         /* Logical_8        */  {FALSE, Err_Res    },
02157         /* Character_1       */ {FALSE, Err_Res    },
02158         /* Character_2       */ {FALSE, Err_Res    },
02159         /* Character_4       */ {FALSE, Err_Res    },
02160         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02161         /* Structure_Type      */       {FALSE, Err_Res    },
02162         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02163                         },
02164 /* Integer_4 */         {
02165         /* Err_Res    */        {FALSE, Err_Res    },
02166         /* Short_Char_Const */  {TRUE , Integer_4  },
02167         /* Short_Typeless_Const */      {TRUE , Integer_4  },
02168         /* Typeless_1 */        {TRUE , Integer_4  },
02169         /* Typeless_2 */        {TRUE , Integer_4  },
02170         /* Typeless_4 */        {TRUE , Integer_4  },
02171         /* Typeless_8 */        {TRUE , Integer_4  },
02172         /* Long_Typeless */     {FALSE, Err_Res    },
02173         /* Integer_1      */    {FALSE, Integer_4      },
02174         /* Integer_2      */    {FALSE, Integer_4      },
02175         /* Integer_4      */    {FALSE, Integer_4      },
02176         /* Integer_8      */    {FALSE, Integer_8      },
02177         /* Real_4     */        {FALSE, Real_4     },
02178         /* Real_8     */        {FALSE, Real_8     },
02179         /* Real_16    */        {FALSE, Real_16    },
02180         /* Complex_4     */     {FALSE, Complex_4     },
02181         /* Complex_8     */     {FALSE, Complex_8     },
02182         /* Complex_16    */     {FALSE, Complex_16    },
02183         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02184         /* Logical_1        */  {FALSE, Err_Res    },
02185         /* Logical_2        */  {FALSE, Err_Res    },
02186         /* Logical_4        */  {FALSE, Err_Res    },
02187         /* Logical_8        */  {FALSE, Err_Res    },
02188         /* Character_1       */ {FALSE, Err_Res    },
02189         /* Character_2       */ {FALSE, Err_Res    },
02190         /* Character_4       */ {FALSE, Err_Res    },
02191         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02192         /* Structure_Type      */       {FALSE, Err_Res    },
02193         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02194                         },
02195 /* Integer_8 */         {
02196         /* Err_Res    */        {FALSE, Err_Res    },
02197         /* Short_Char_Const */  {TRUE , Integer_8      },
02198         /* Short_Typeless_Const */      {TRUE , Integer_8      },
02199         /* Typeless_1 */        {TRUE , Integer_8      },
02200         /* Typeless_2 */        {TRUE , Integer_8      },
02201         /* Typeless_4 */        {TRUE , Integer_8      },
02202         /* Typeless_8 */        {TRUE , Integer_8      },
02203         /* Long_Typeless */     {FALSE, Err_Res    },
02204         /* Integer_1      */    {FALSE, Integer_8      },
02205         /* Integer_2      */    {FALSE, Integer_8      },
02206         /* Integer_4      */    {FALSE, Integer_8      },
02207         /* Integer_8      */    {FALSE, Integer_8      },
02208         /* Real_4     */        {FALSE, Real_4     },
02209         /* Real_8     */        {FALSE, Real_8     },
02210         /* Real_16    */        {FALSE, Real_16    },
02211         /* Complex_4     */     {FALSE, Complex_4     },
02212         /* Complex_8     */     {FALSE, Complex_8     },
02213         /* Complex_16    */     {FALSE, Complex_16    },
02214         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02215         /* Logical_1        */  {FALSE, Err_Res    },
02216         /* Logical_2        */  {FALSE, Err_Res    },
02217         /* Logical_4        */  {FALSE, Err_Res    },
02218         /* Logical_8        */  {FALSE, Err_Res    },
02219         /* Character_1       */ {FALSE, Err_Res    },
02220         /* Character_2       */ {FALSE, Err_Res    },
02221         /* Character_4       */ {FALSE, Err_Res    },
02222         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02223         /* Structure_Type      */       {FALSE, Err_Res    },
02224         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02225                         },
02226 /* Real_4 */            {
02227         /* Err_Res    */        {FALSE, Err_Res    },
02228         /* Short_Char_Const */  {TRUE , Real_4     },
02229         /* Short_Typeless_Const */      {TRUE , Real_4     },
02230         /* Typeless_1 */        {FALSE, Err_Res    },
02231         /* Typeless_2 */        {FALSE, Err_Res    },
02232         /* Typeless_4 */        {TRUE , Real_4     },
02233         /* Typeless_8 */        {TRUE , Real_4     },
02234         /* Long_Typeless */     {FALSE, Err_Res    },
02235         /* Integer_1      */    {FALSE, Real_4     },
02236         /* Integer_2      */    {FALSE, Real_4     },
02237         /* Integer_4      */    {FALSE, Real_4     },
02238         /* Integer_8      */    {FALSE, Real_4     },
02239         /* Real_4     */        {FALSE, Real_4     },
02240         /* Real_8     */        {FALSE, Real_8     },
02241         /* Real_16    */        {FALSE, Real_16    },
02242         /* Complex_4     */     {FALSE, Complex_4     },
02243         /* Complex_8     */     {FALSE, Complex_8     },
02244         /* Complex_16    */     {FALSE, Complex_16    },
02245         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02246         /* Logical_1        */  {FALSE, Err_Res    },
02247         /* Logical_2        */  {FALSE, Err_Res    },
02248         /* Logical_4        */  {FALSE, Err_Res    },
02249         /* Logical_8        */  {FALSE, Err_Res    },
02250         /* Character_1       */ {FALSE, Err_Res    },
02251         /* Character_2       */ {FALSE, Err_Res    },
02252         /* Character_4       */ {FALSE, Err_Res    },
02253         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02254         /* Structure_Type      */       {FALSE, Err_Res    },
02255         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02256                         },
02257 /* Real_8 */            {
02258         /* Err_Res    */        {FALSE, Err_Res    },
02259         /* Short_Char_Const */        {TRUE , Real_8     },
02260         /* Short_Typeless_Const */        {TRUE , Real_8     },
02261         /* Typeless_1 */        {FALSE, Err_Res    },
02262         /* Typeless_2 */        {FALSE, Err_Res    },
02263         /* Typeless_4 */        {FALSE, Err_Res    },
02264         /* Typeless_8 */        {TRUE , Real_8     },
02265         /* Long_Typeless */     {FALSE, Err_Res    },
02266         /* Integer_1      */    {FALSE, Real_8     },
02267         /* Integer_2      */    {FALSE, Real_8     },
02268         /* Integer_4      */    {FALSE, Real_8     },
02269         /* Integer_8      */    {FALSE, Real_8     },
02270         /* Real_4     */        {FALSE, Real_8     },
02271         /* Real_8     */        {FALSE, Real_8     },
02272         /* Real_16    */        {FALSE, Real_16    },
02273         /* Complex_4     */     {FALSE, Complex_8     },
02274         /* Complex_8     */     {FALSE, Complex_8     },
02275         /* Complex_16    */     {FALSE, Complex_16    },
02276         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02277         /* Logical_1        */  {FALSE, Err_Res    },
02278         /* Logical_2        */  {FALSE, Err_Res    },
02279         /* Logical_4        */  {FALSE, Err_Res    },
02280         /* Logical_8        */  {FALSE, Err_Res    },
02281         /* Character_1       */ {FALSE, Err_Res    },
02282         /* Character_2       */ {FALSE, Err_Res    },
02283         /* Character_4       */ {FALSE, Err_Res    },
02284         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02285         /* Structure_Type      */       {FALSE, Err_Res    },
02286         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02287                         },
02288 /* Real_16 */           {
02289         /* Err_Res    */        {FALSE, Err_Res    },
02290         /* Short_Char_Const */  {TRUE , Real_16    },
02291         /* Short_Typeless_Const */      {TRUE , Real_16    },
02292         /* Typeless_1 */  {FALSE, Err_Res    },
02293         /* Typeless_2 */  {FALSE, Err_Res    },
02294         /* Typeless_4 */  {FALSE, Err_Res    },
02295         /* Typeless_8 */  {FALSE, Err_Res    },
02296         /* Long_Typeless */     {FALSE, Err_Res    },
02297         /* Integer_1      */    {FALSE, Real_16    },
02298         /* Integer_2      */    {FALSE, Real_16    },
02299         /* Integer_4      */    {FALSE, Real_16    },
02300         /* Integer_8      */    {FALSE, Real_16    },
02301         /* Real_4     */        {FALSE, Real_16    },
02302         /* Real_8     */        {FALSE, Real_16    },
02303         /* Real_16    */        {FALSE, Real_16    },
02304         /* Complex_4     */     {FALSE, Complex_16    },
02305         /* Complex_8     */     {FALSE, Complex_16    },
02306         /* Complex_16    */     {FALSE, Complex_16    },
02307         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02308         /* Logical_1        */  {FALSE, Err_Res    },
02309         /* Logical_2        */  {FALSE, Err_Res    },
02310         /* Logical_4        */  {FALSE, Err_Res    },
02311         /* Logical_8        */  {FALSE, Err_Res    },
02312         /* Character_1       */ {FALSE, Err_Res    },
02313         /* Character_2       */ {FALSE, Err_Res    },
02314         /* Character_4       */ {FALSE, Err_Res    },
02315         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02316         /* Structure_Type      */       {FALSE, Err_Res    },
02317         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02318                         },
02319 /* Complex_4 */         {
02320         /* Err_Res    */        {FALSE, Err_Res    },
02321         /* Short_Char_Const */  {TRUE , Complex_4  },
02322         /* Short_Typeless_Const */      {TRUE , Complex_4  },
02323         /* Typeless_1 */  {FALSE, Err_Res    },
02324         /* Typeless_2 */  {FALSE, Err_Res    },
02325         /* Typeless_4 */  {FALSE, Err_Res    },
02326         /* Typeless_8 */  {FALSE, Err_Res    },
02327         /* Long_Typeless */     {FALSE, Err_Res    },
02328         /* Integer_1      */    {FALSE, Complex_4     },
02329         /* Integer_2      */    {FALSE, Complex_4     },
02330         /* Integer_4      */    {FALSE, Complex_4     },
02331         /* Integer_8      */    {FALSE, Complex_4     },
02332         /* Real_4     */        {FALSE, Complex_4     },
02333         /* Real_8     */        {FALSE, Complex_8     },
02334         /* Real_16    */        {FALSE, Complex_16    },
02335         /* Complex_4     */     {FALSE, Complex_4     },
02336         /* Complex_8     */     {FALSE, Complex_8     },
02337         /* Complex_16    */     {FALSE, Complex_16    },
02338         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02339         /* Logical_1        */  {FALSE, Err_Res    },
02340         /* Logical_2        */  {FALSE, Err_Res    },
02341         /* Logical_4        */  {FALSE, Err_Res    },
02342         /* Logical_8        */  {FALSE, Err_Res    },
02343         /* Character_1       */ {FALSE, Err_Res    },
02344         /* Character_2       */ {FALSE, Err_Res    },
02345         /* Character_4       */ {FALSE, Err_Res    },
02346         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02347         /* Structure_Type      */       {FALSE, Err_Res    },
02348         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02349                         },
02350 /* Complex_8 */         {
02351         /* Err_Res    */        {FALSE, Err_Res    },
02352         /* Short_Char_Const */  {TRUE , Complex_8  },
02353         /* Short_Typeless_Const */      {TRUE , Complex_8  },
02354         /* Typeless_1 */  {FALSE, Err_Res    },
02355         /* Typeless_2 */  {FALSE, Err_Res    },
02356         /* Typeless_4 */  {FALSE, Err_Res    },
02357         /* Typeless_8 */  {FALSE, Err_Res    },
02358         /* Long_Typeless */     {FALSE, Err_Res    },
02359         /* Integer_1      */    {FALSE, Complex_8     },
02360         /* Integer_2      */    {FALSE, Complex_8     },
02361         /* Integer_4      */    {FALSE, Complex_8     },
02362         /* Integer_8      */    {FALSE, Complex_8     },
02363         /* Real_4     */        {FALSE, Complex_8     },
02364         /* Real_8     */        {FALSE, Complex_8     },
02365         /* Real_16    */        {FALSE, Complex_16    },
02366         /* Complex_4     */     {FALSE, Complex_8     },
02367         /* Complex_8     */     {FALSE, Complex_8     },
02368         /* Complex_16    */     {FALSE, Complex_16    },
02369         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02370         /* Logical_1        */  {FALSE, Err_Res    },
02371         /* Logical_2        */  {FALSE, Err_Res    },
02372         /* Logical_4        */  {FALSE, Err_Res    },
02373         /* Logical_8        */  {FALSE, Err_Res    },
02374         /* Character_1       */ {FALSE, Err_Res    },
02375         /* Character_2       */ {FALSE, Err_Res    },
02376         /* Character_4       */ {FALSE, Err_Res    },
02377         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02378         /* Structure_Type      */       {FALSE, Err_Res    },
02379         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02380                         },
02381 /* Complex_16 */                {
02382         /* Err_Res    */        {FALSE, Err_Res    },
02383         /* Short_Char_Const */  {TRUE , Complex_16 },
02384         /* Short_Typeless_Const */      {TRUE , Complex_16 },
02385         /* Typeless_1 */  {FALSE, Err_Res    },
02386         /* Typeless_2 */  {FALSE, Err_Res    },
02387         /* Typeless_4 */  {FALSE, Err_Res    },
02388         /* Typeless_8 */  {FALSE, Err_Res    },
02389         /* Long_Typeless */     {FALSE, Err_Res    },
02390         /* Integer_1      */    {FALSE, Complex_16    },
02391         /* Integer_2      */    {FALSE, Complex_16    },
02392         /* Integer_4      */    {FALSE, Complex_16    },
02393         /* Integer_8      */    {FALSE, Complex_16    },
02394         /* Real_4     */        {FALSE, Complex_16    },
02395         /* Real_8     */        {FALSE, Complex_16    },
02396         /* Real_16    */        {FALSE, Complex_16    },
02397         /* Complex_4     */     {FALSE, Complex_16    },
02398         /* Complex_8     */     {FALSE, Complex_16    },
02399         /* Complex_16    */     {FALSE, Complex_16    },
02400         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02401         /* Logical_1        */  {FALSE, Err_Res    },
02402         /* Logical_2        */  {FALSE, Err_Res    },
02403         /* Logical_4        */  {FALSE, Err_Res    },
02404         /* Logical_8        */  {FALSE, Err_Res    },
02405         /* Character_1       */ {FALSE, Err_Res    },
02406         /* Character_2       */ {FALSE, Err_Res    },
02407         /* Character_4       */ {FALSE, Err_Res    },
02408         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02409         /* Structure_Type      */       {FALSE, Err_Res    },
02410         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02411                         },
02412 /* CRI_Ptr_8 */         {
02413         /* Err_Res    */        {FALSE, Err_Res    },
02414         /* Short_Char_Const */  {FALSE, Err_Res    },
02415         /* Short_Typeless_Const */      {FALSE, Err_Res    },
02416         /* Typeless_1 */  {FALSE, Err_Res    },
02417         /* Typeless_2 */  {FALSE, Err_Res    },
02418         /* Typeless_4 */  {FALSE, Err_Res    },
02419         /* Typeless_8 */  {FALSE, Err_Res    },
02420         /* Long_Typeless */     {FALSE, Err_Res    },
02421         /* Integer_1      */    {FALSE, Err_Res    },
02422         /* Integer_2      */    {FALSE, Err_Res    },
02423         /* Integer_4      */    {FALSE, Err_Res    },
02424         /* Integer_8      */    {FALSE, Err_Res    },
02425         /* Real_4     */        {FALSE, Err_Res    },
02426         /* Real_8     */        {FALSE, Err_Res    },
02427         /* Real_16    */        {FALSE, Err_Res    },
02428         /* Complex_4     */     {FALSE, Err_Res    },
02429         /* Complex_8     */     {FALSE, Err_Res    },
02430         /* Complex_16    */     {FALSE, Err_Res    },
02431         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02432         /* Logical_1        */  {FALSE, Err_Res    },
02433         /* Logical_2        */  {FALSE, Err_Res    },
02434         /* Logical_4        */  {FALSE, Err_Res    },
02435         /* Logical_8        */  {FALSE, Err_Res    },
02436         /* Character_1       */ {FALSE, Err_Res    },
02437         /* Character_2       */ {FALSE, Err_Res    },
02438         /* Character_4       */ {FALSE, Err_Res    },
02439         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02440         /* Structure_Type      */       {FALSE, Err_Res    },
02441         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02442                         },
02443 /* Logical_1 */         {
02444         /* Err_Res    */        {FALSE, Err_Res    },
02445         /* Short_Char_Const */  {FALSE, Err_Res    },
02446         /* Short_Typeless_Const */      {FALSE, Err_Res    },
02447         /* Typeless_1 */  {FALSE, Err_Res    },
02448         /* Typeless_2 */  {FALSE, Err_Res    },
02449         /* Typeless_4 */  {FALSE, Err_Res    },
02450         /* Typeless_8 */  {FALSE, Err_Res    },
02451         /* Long_Typeless */     {FALSE, Err_Res    },
02452         /* Integer_1      */    {FALSE, Err_Res    },
02453         /* Integer_2      */    {FALSE, Err_Res    },
02454         /* Integer_4      */    {FALSE, Err_Res    },
02455         /* Integer_8      */    {FALSE, Err_Res    },
02456         /* Real_4     */        {FALSE, Err_Res    },
02457         /* Real_8     */        {FALSE, Err_Res    },
02458         /* Real_16    */        {FALSE, Err_Res    },
02459         /* Complex_4     */     {FALSE, Err_Res    },
02460         /* Complex_8     */     {FALSE, Err_Res    },
02461         /* Complex_16    */     {FALSE, Err_Res    },
02462         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02463         /* Logical_1        */  {FALSE, Err_Res    },
02464         /* Logical_2        */  {FALSE, Err_Res    },
02465         /* Logical_4        */  {FALSE, Err_Res    },
02466         /* Logical_8        */  {FALSE, Err_Res    },
02467         /* Character_1       */ {FALSE, Err_Res    },
02468         /* Character_2       */ {FALSE, Err_Res    },
02469         /* Character_4       */ {FALSE, Err_Res    },
02470         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02471         /* Structure_Type      */       {FALSE, Err_Res    },
02472         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02473                         },
02474 /* Logical_2 */         {
02475         /* Err_Res    */        {FALSE, Err_Res    },
02476         /* Short_Char_Const */  {FALSE, Err_Res    },
02477         /* Short_Typeless_Const */      {FALSE, Err_Res    },
02478         /* Typeless_1 */  {FALSE, Err_Res    },
02479         /* Typeless_2 */  {FALSE, Err_Res    },
02480         /* Typeless_4 */  {FALSE, Err_Res    },
02481         /* Typeless_8 */  {FALSE, Err_Res    },
02482         /* Long_Typeless */     {FALSE, Err_Res    },
02483         /* Integer_1      */    {FALSE, Err_Res    },
02484         /* Integer_2      */    {FALSE, Err_Res    },
02485         /* Integer_4      */    {FALSE, Err_Res    },
02486         /* Integer_8      */    {FALSE, Err_Res    },
02487         /* Real_4     */        {FALSE, Err_Res    },
02488         /* Real_8     */        {FALSE, Err_Res    },
02489         /* Real_16    */        {FALSE, Err_Res    },
02490         /* Complex_4     */     {FALSE, Err_Res    },
02491         /* Complex_8     */     {FALSE, Err_Res    },
02492         /* Complex_16    */     {FALSE, Err_Res    },
02493         /* CRI_Ptr_8      */    {FALSE, Err_Res    },
02494         /* Logical_1        */  {FALSE, Err_Res    },
02495         /* Logical_2        */  {FALSE, Err_Res    },
02496         /* Logical_4        */  {FALSE, Err_Res    },
02497         /* Logical_8        */  {FALSE, Err_Res    },
02498         /* Character_1       */ {FALSE, Err_Res    },
02499         /* Character_2       */ {FALSE, Err_Res    },
02500         /* Character_4       */ {FALSE, Err_Res    },
02501         /* CRI_Ch_Ptr_8    */   {FALSE, Err_Res    },
02502         /* Structure_Type      */       {FALSE, Err_Res    },
02503         /* CRI_Parcel_Ptr_8  */   {FALSE, Err_Res    }
02504                         },
02505 /* Logical_4 */         {
02506         /* Err_Res    */        {FALSE, Err_Res    },
02507         /* Short_Char_Const */  {FALSE, Err_Res    },
02508         /* Short_Typeless_Const */      {FALSE, Err_Res    },
02509         /* Typeless_1 */  {FALSE, Err_Res    },
02510         /* Typeless_2 */  {FALSE, Err_Res    },
02511         /* Typeless_4 */  {FALSE, Err_Res    },
02512         /* Typeless_8 */  {FAL