Displaying 2 results from an estimated 2 matches for "dvector".
Did you mean:
vector
2005 Feb 21
0
want to call R from aplatform written i strict ANSI C
...ude "rpa_proj.c"
extern RPA_ptr *SHAREX_ROOT;
extern MINLP_ptr *SHAREX_PROB;
IVECTOR SUPER_FLAG = &(INT_STATUS[16]);
IVECTOR ALLOCATION_SWITCH = &(INT_PROTOCOL[30]);
extern void compare_NVAR(int n1,int n2,int n3,char *stage);
/* end of global definitions */
void evaluator(DVECTOR w,double Penalty,double *gf,double *F,double *Dev) {
int i,n,n_i,n_x,n_d,m_f,ACCELERATE;
ACCELERATE=INT_STATUS[0];
REAL_STATUS[4] += 1.0; /* number of evaluator() calls */
n = min(SHAREX_PROB->n,*(TASK.NVAR));
n_i = min(SHAREX_PROB->n_i,*(TASK.NVAR));
n_x = min(SHAREX_PROB->n_x,...
2005 Feb 25
0
Fwd: want to call R from aplatform written i strict ANSI C
...ude "rpa_proj.c"
extern RPA_ptr *SHAREX_ROOT;
extern MINLP_ptr *SHAREX_PROB;
IVECTOR SUPER_FLAG = &(INT_STATUS[16]);
IVECTOR ALLOCATION_SWITCH = &(INT_PROTOCOL[30]);
extern void compare_NVAR(int n1,int n2,int n3,char *stage);
/* end of global definitions */
void evaluator(DVECTOR w,double Penalty,double *gf,double *F,double *Dev) {
int i,n,n_i,n_x,n_d,m_f,ACCELERATE;
ACCELERATE=INT_STATUS[0];
REAL_STATUS[4] += 1.0; /* number of evaluator() calls */
n = min(SHAREX_PROB->n,*(TASK.NVAR));
n_i = min(SHAREX_PROB->n_i,*(TASK.NVAR));
n_x = min(SHAREX_PROB->n_x,...