DATA_SECTION
  matrix mat;
  3darray d3;

PARAMETER_SECTION
  init_number a;
  objective_function_value likelihood;

  
  LOCAL_CALCS
     const int m = 200;
     const int n = 100;
     const int f = 10;
     ivector jlb(1,m);
     jlb.fill_seqadd(2,0);
     ivector jub(1,m);
     jub.fill_seqadd(10,0);
     mat.allocate(1,m,1,n);
     d3.allocate(1,f, 1, m, jlb, jub);

PROCEDURE_SECTION
   likelihood = a*a;
