/usr/include/paw/ntuple/qp_eval_op_num.h is in libpawlib2-dev 1:2.14.04.dfsg.2-9.1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 | /*
* template_op_num.c --
* Evaluation of numeric operators
*
* Original: 25-Nov-1994 16:55
*
* Author: Maarten Ballintijn <Maarten.Ballintijn@cern.ch>
*
* $Id: qp_eval_op_num.h,v 1.4 1997/01/21 16:43:57 couet Exp $
*
* $Log: qp_eval_op_num.h,v $
* Revision 1.4 1997/01/21 16:43:57 couet
* - ** is now working for float constant also
*
* Revision 1.3 1996/04/23 18:38:23 maartenb
* - Add RCS keywords
*
*
*/
case FC_PLUS:
r->u.OP_FIELD = valv[0]->u.OP_FIELD + valv[1]->u.OP_FIELD;
r->d = dim_new( OP_DTYPE );
break;
case FC_MINUS:
r->u.OP_FIELD = valv[0]->u.OP_FIELD - valv[1]->u.OP_FIELD;
r->d = dim_new( OP_DTYPE );
break;
case FC_TIMES:
r->u.OP_FIELD = valv[0]->u.OP_FIELD * valv[1]->u.OP_FIELD;
r->d = dim_new( OP_DTYPE );
break;
case FC_DIV:
if ( valv[1]->u.OP_FIELD != 0 ) {
r->u.OP_FIELD = valv[0]->u.OP_FIELD /
valv[1]->u.OP_FIELD;
} else {
sf_report( "eval_template: divide by zero\n" );
*err = R_MATH_ERROR;
r->u.OP_FIELD = 0;
}
r->d = dim_new( OP_DTYPE );
break;
case FC_POW:
if ( valv[1]->d->dtyp == D_DOUBLE ) {
r->u.fval = pow( valv[0]->u.fval, valv[1]->u.fval);
} else if ( valv[1]->d->dtyp == D_FLOAT ) {
double value1;
double value2;
value1 = (double)valv[0]->u.fval;
value2 = (double)valv[1]->u.fval;
r->u.fval = pow( value1, value2);
} else {
sf_report( "eval_template: power only for float or double\n" );
*err = R_MATH_ERROR;
r->u.OP_FIELD = 0;
}
r->d = dim_new( OP_DTYPE );
break;
case FC_UMINUS:
r->u.OP_FIELD = -valv[0]->u.OP_FIELD;
r->d = dim_new( datatype_signed[OP_DTYPE] );
break;
case FC_MIN:
if ( valv[0]->u.OP_FIELD <= valv[1]->u.OP_FIELD ) {
r->u.OP_FIELD = valv[0]->u.OP_FIELD;
} else {
r->u.OP_FIELD = valv[1]->u.OP_FIELD;
}
r->d = dim_new( OP_DTYPE );
break;
case FC_MAX:
if ( valv[0]->u.OP_FIELD <= valv[1]->u.OP_FIELD ) {
r->u.OP_FIELD = valv[1]->u.OP_FIELD;
} else {
r->u.OP_FIELD = valv[0]->u.OP_FIELD;
}
r->d = dim_new( OP_DTYPE );
break;
|