Attachment 267621 Details for Bug 396921 – Second demonstration file

Second demonstration file

f2.c (text/x-csrc), 963 bytes, created by Antti Honkela on 2007-11-23 15:37:56 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Antti Honkela

Created: 2007-11-23 15:37:56 UTC

Size: 963 bytes

patch

obsolete

>extern void donlp2(void);
>
>
>void user_init(void)
>{
>  extern int silent, analyt;
>  extern int nreset, n;
>  extern double big, *donlp2_x, *low, *up, del0, tau0, tau, epsdif;
>    
>  silent = 1;
>    
>  big = 1.e20;
>  donlp2_x[1] = 10.0;
>  low[1] = 1.0;
>  up[1] = big;
>  donlp2_x[2] = 1.0;
>  low[2] = 1.0;
>  up[2] = big;
>  donlp2_x[3] = 1.0;
>  low[3] = 1.0;
>  up[3] = big;
>  donlp2_x[4] = 10.0;
>  low[4] = 1.0;
>  up[4] = big;
>
>  analyt = 1;
>  epsdif = 1.e-16;  
>    
>  nreset = n;
>    
>  del0 = 1.0e0;
>  tau0 = 1.0e1;
>  tau  = 0.1e0;
>       
>  return;
>}
>
>
>void user_init_size(void)
>{
>  extern int n, nstep, nlin, nonlin, iterma;
>  
>  n = 8;
>  nstep = 40;
>  nlin   =  0;
>  nonlin =  0;
>  iterma = 4000;
>}
>
>
>void setup(void)
>{
>  return;
>}
>
>
>void    user_eval(double xvar[],int mode)
>{
>  return;
>}
>
>
>void    newx ( double donlp2_x[], double u[], int itstep, double **accinf,
>                   int *cont )
>{
>  return;
>}
>
>   
>
>
>int main(void)
>{
>  donlp2();
>
>  return 0;
>}

Actions: View

Attachments on bug 396921: 267611 | 267621