include/ntuple/qp_eval_conv.h

0001 /*
0002  *  qp_eval_conv.h  --
0003  *
0004  *  Original: 23-Apr-1996 20:25
0005  *
0006  *  Author:   Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
0007  *
0008  *  $Id$
0009  *
0010  *  $Log$
0011  *  Revision 1.3  1996/04/23 18:38:17  maartenb
0012  *  - Add RCS keywords
0013  *
0014  *
0015  */
0016
0017     case FC_B_2_B:
0018         r->u.bval = (bool) valv[0]->u.bval ? 1 : 0;
0019         r->d = dim_new( D_BOOL );
0020         break;
0021
0022     case FC_B_2_U:
0023         r->u.uval = (UInt32) valv[0]->u.bval;
0024         r->d = dim_new( D_UINT );
0025         break;
0026
0027     case FC_B_2_LU:
0028         r->u.luval = (UInt64) valv[0]->u.bval;
0029         r->d = dim_new( D_ULONG );
0030         break;
0031
0032     case FC_B_2_I:
0033         r->u.ival = (Int32) valv[0]->u.bval;
0034         r->d = dim_new( D_INT );
0035         break;
0036
0037     case FC_B_2_LI:
0038         r->u.lival = (Int64) valv[0]->u.bval;
0039         r->d = dim_new( D_LONG );
0040         break;
0041
0042     case FC_B_2_F:
0043         r->u.fval = (Float32) valv[0]->u.bval;
0044         r->d = dim_new( D_FLOAT );
0045         break;
0046
0047     case FC_B_2_LF:
0048         r->u.lfval = (Float64) valv[0]->u.bval;
0049         r->d = dim_new( D_DOUBLE );
0050         break;
0051
0052     case FC_U_2_B:
0053         r->u.bval = (bool) valv[0]->u.uval ? 1 : 0;
0054         r->d = dim_new( D_BOOL );
0055         break;
0056
0057     case FC_U_2_U:
0058         r->u.uval = (UInt32) valv[0]->u.uval;
0059         r->d = dim_new( D_UINT );
0060         break;
0061
0062     case FC_U_2_LU:
0063         r->u.luval = (UInt64) valv[0]->u.uval;
0064         r->d = dim_new( D_ULONG );
0065         break;
0066
0067     case FC_U_2_I:
0068         r->u.ival = (Int32) valv[0]->u.uval;
0069         r->d = dim_new( D_INT );
0070         break;
0071
0072     case FC_U_2_LI:
0073         r->u.lival = (Int64) valv[0]->u.uval;
0074         r->d = dim_new( D_LONG );
0075         break;
0076
0077     case FC_U_2_F:
0078         r->u.fval = (Float32) valv[0]->u.uval;
0079         r->d = dim_new( D_FLOAT );
0080         break;
0081
0082     case FC_U_2_LF:
0083         r->u.lfval = (Float64) valv[0]->u.uval;
0084         r->d = dim_new( D_DOUBLE );
0085         break;
0086
0087     case FC_LU_2_B:
0088         r->u.bval = (bool) valv[0]->u.luval ? 1 : 0;
0089         r->d = dim_new( D_BOOL );
0090         break;
0091
0092     case FC_LU_2_U:
0093         r->u.uval = (UInt32) valv[0]->u.luval;
0094         r->d = dim_new( D_UINT );
0095         break;
0096
0097     case FC_LU_2_LU:
0098         r->u.luval = (UInt64) valv[0]->u.luval;
0099         r->d = dim_new( D_ULONG );
0100         break;
0101
0102     case FC_LU_2_I:
0103         r->u.ival = (Int32) valv[0]->u.luval;
0104         r->d = dim_new( D_INT );
0105         break;
0106
0107     case FC_LU_2_LI:
0108         r->u.lival = (Int64) valv[0]->u.luval;
0109         r->d = dim_new( D_LONG );
0110         break;
0111
0112     case FC_LU_2_F:
0113         r->u.fval = (Float32) valv[0]->u.luval;
0114         r->d = dim_new( D_FLOAT );
0115         break;
0116
0117     case FC_LU_2_LF:
0118         r->u.lfval = (Float64) valv[0]->u.luval;
0119         r->d = dim_new( D_DOUBLE );
0120         break;
0121
0122     case FC_I_2_B:
0123         r->u.bval = (bool) valv[0]->u.ival ? 1 : 0;
0124         r->d = dim_new( D_BOOL );
0125         break;
0126
0127     case FC_I_2_U:
0128         r->u.uval = (UInt32) valv[0]->u.ival;
0129         r->d = dim_new( D_UINT );
0130         break;
0131
0132     case FC_I_2_LU:
0133         r->u.luval = (UInt64) valv[0]->u.ival;
0134         r->d = dim_new( D_ULONG );
0135         break;
0136
0137     case FC_I_2_I:
0138         r->u.ival = (Int32) valv[0]->u.ival;
0139         r->d = dim_new( D_INT );
0140         break;
0141
0142     case FC_I_2_LI:
0143         r->u.lival = (Int64) valv[0]->u.ival;
0144         r->d = dim_new( D_LONG );
0145         break;
0146
0147     case FC_I_2_F:
0148         r->u.fval = (Float32) valv[0]->u.ival;
0149         r->d = dim_new( D_FLOAT );
0150         break;
0151
0152     case FC_I_2_LF:
0153         r->u.lfval = (Float64) valv[0]->u.ival;
0154         r->d = dim_new( D_DOUBLE );
0155         break;
0156
0157     case FC_LI_2_B:
0158         r->u.bval = (bool) valv[0]->u.lival ? 1 : 0;
0159         r->d = dim_new( D_BOOL );
0160         break;
0161
0162     case FC_LI_2_U:
0163         r->u.uval = (UInt32) valv[0]->u.lival;
0164         r->d = dim_new( D_UINT );
0165         break;
0166
0167     case FC_LI_2_LU:
0168         r->u.luval = (UInt64) valv[0]->u.lival;
0169         r->d = dim_new( D_ULONG );
0170         break;
0171
0172     case FC_LI_2_I:
0173         r->u.ival = (Int32) valv[0]->u.lival;
0174         r->d = dim_new( D_INT );
0175         break;
0176
0177     case FC_LI_2_LI:
0178         r->u.lival = (Int64) valv[0]->u.lival;
0179         r->d = dim_new( D_LONG );
0180         break;
0181
0182     case FC_LI_2_F:
0183         r->u.fval = (Float32) valv[0]->u.lival;
0184         r->d = dim_new( D_FLOAT );
0185         break;
0186
0187     case FC_LI_2_LF:
0188         r->u.lfval = (Float64) valv[0]->u.lival;
0189         r->d = dim_new( D_DOUBLE );
0190         break;
0191
0192     case FC_F_2_B:
0193         r->u.bval = (bool) valv[0]->u.fval ? 1 : 0;
0194         r->d = dim_new( D_BOOL );
0195         break;
0196
0197     case FC_F_2_U:
0198         r->u.uval = (UInt32) valv[0]->u.fval;
0199         r->d = dim_new( D_UINT );
0200         break;
0201
0202     case FC_F_2_LU:
0203         r->u.luval = (UInt64) valv[0]->u.fval;
0204         r->d = dim_new( D_ULONG );
0205         break;
0206
0207     case FC_F_2_I:
0208         r->u.ival = (Int32) valv[0]->u.fval;
0209         r->d = dim_new( D_INT );
0210         break;
0211
0212     case FC_F_2_LI:
0213         r->u.lival = (Int64) valv[0]->u.fval;
0214         r->d = dim_new( D_LONG );
0215         break;
0216
0217     case FC_F_2_F:
0218         r->u.fval = (Float32) valv[0]->u.fval;
0219         r->d = dim_new( D_FLOAT );
0220         break;
0221
0222     case FC_F_2_LF:
0223         r->u.lfval = (Float64) valv[0]->u.fval;
0224         r->d = dim_new( D_DOUBLE );
0225         break;
0226
0227     case FC_LF_2_B:
0228         r->u.bval = (bool) valv[0]->u.lfval ? 1 : 0;
0229         r->d = dim_new( D_BOOL );
0230         break;
0231
0232     case FC_LF_2_U:
0233         r->u.uval = (UInt32) valv[0]->u.lfval;
0234         r->d = dim_new( D_UINT );
0235         break;
0236
0237     case FC_LF_2_LU:
0238         r->u.luval = (UInt64) valv[0]->u.lfval;
0239         r->d = dim_new( D_ULONG );
0240         break;
0241
0242     case FC_LF_2_I:
0243         r->u.ival = (Int32) valv[0]->u.lfval;
0244         r->d = dim_new( D_INT );
0245         break;
0246
0247     case FC_LF_2_LI:
0248         r->u.lival = (Int64) valv[0]->u.lfval;
0249         r->d = dim_new( D_LONG );
0250         break;
0251
0252     case FC_LF_2_F:
0253         r->u.fval = (Float32) valv[0]->u.lfval;
0254         r->d = dim_new( D_FLOAT );
0255         break;
0256
0257     case FC_LF_2_LF:
0258         r->u.lfval = (Float64) valv[0]->u.lfval;
0259         r->d = dim_new( D_DOUBLE );
0260         break;
0261