Пример #1
0
void
Y__lf2d_line_integ_sparser(int n)
{
  if (n!=7) YError("_lf2d_line_integ_sparser takes exactly 7 arguments");
  lf2d_line_integ_sparser(yarg_sp(6), yarg_sd(5), yarg_sd(4), 
    yarg_sl(3), yarg_sl(2), yarg_d(1,0), yarg_si(0));
}
Пример #2
0
void
Y__lf2d_line_integ_adjoint(int n)
{
  if (n!=6) YError("_lf2d_line_integ_adjoint takes exactly 6 arguments");
  lf2d_line_integ_adjoint(yarg_sp(5), yarg_sd(4), yarg_sd(3), 
    yarg_d(2,0), yarg_d(1,0), yarg_si(0));
}
Пример #3
0
void
Y__lf2d_direct(int n)
{
  if (n!=6) YError("_lf2d_direct takes exactly 6 arguments");
  lf2d_direct(yarg_sp(5), yarg_sd(4), yarg_sd(3), yarg_d(2,0), 
    yarg_d(1,0), yarg_si(0));
}
Пример #4
0
void
Y___op_vmlmb_set_fmin(int n)
{
  if (n!=5) YError("__op_vmlmb_set_fmin takes exactly 5 arguments");
  PushIntValue(op_vmlmb_set_fmin(yarg_c(4,0), yarg_l(3,0), yarg_d(2,0), 
    yarg_sd(1), yarg_d(0,0)));
}
Пример #5
0
void
Y___op_csrch(int n)
{
  if (n!=12) YError("__op_csrch takes exactly 12 arguments");
  PushIntValue(op_csrch(yarg_sd(11), yarg_sd(10), yarg_d(9,0), 
    yarg_sd(8), yarg_sd(7), yarg_sd(6), yarg_sd(5), yarg_sd(4), 
    yarg_i(3,0), yarg_c(2,0), yarg_l(1,0), yarg_d(0,0)));
}
Пример #6
0
void
Y___op_vmlmb_first(int n)
{
  if (n!=12) YError("__op_vmlmb_first takes exactly 12 arguments");
  PushIntValue(op_vmlmb_first(yarg_sl(11), yarg_sl(10), yarg_sd(9), 
    yarg_sd(8), yarg_sd(7), yarg_sd(6), yarg_sd(5), yarg_sd(4), 
    yarg_sd(3), yarg_c(2,0), yarg_l(1,0), yarg_d(0,0)));
}