void e04dgf_(long int *n, 
  void (*objfun)(long int *mode, long int *n, double x[], double *objf,
                 double objgrd[], long int *nstate, 
                 long int iuser[], double user[]),
  long int *iter, double *objf, double objgrd[], double x[], long int iwork[], 
  double work[], long int iuser[], double user[], long int *ifail)
{
long int mode, nstate; 
  int i;

  for (i=1;i<=5;i++) {
    objfun(&mode,n,x,objf,objgrd,&nstate,iuser,user);
    x[0] +=0.1;
  }
}