Revision 2165

trunk/src/nh99/model12.cpp (revision 2165)
99 99
}
100 100

  
101 101
void param_init_matrix::save_value(const ofstream& _ofs, int prec,
102
  const dvector&g, int& offset)
102
  const dvector& g, int& offset)
103 103
{
104
  //ADUNCONST(ofstream,ofs)
105
  //cerr << "not done yet" << endl;
106
  //ad_exit(1);
107
  ofstream& ofs = (ofstream&)_ofs;
108
  ofs << setw(prec+6) << setprecision(prec) << dvar_matrix(*this) << endl;
104
  ADUNCONST(ofstream,ofs)
105
  int rmin=indexmin();
106
  int rmax=indexmax();
107
  for (int i=rmin;i<=rmax;i++)
108
  {
109
    int cmin=(*this)(i).indexmin();
110
    int cmax=(*this)(i).indexmax();
111
    for (int j=cmin;j<=cmax;j++)
112
    {
113
      ofs << label()
114
	  << "(" << i << "," <<  j << ") "
115
	  << setw(prec+6) << setprecision(prec) << (*this)(i,j) << " "
116
	  << setw(prec+6) << setprecision(prec) << g(offset++) << endl;
117
    }
118
  }
109 119
}
trunk/tests/GNUmakefile (revision 2165)
47 47
  tpl-cov_re\
48 48
  tpl-ctl\
49 49
  tpl-expm\
50
  tpl-gradients_output\
50 51
  tpl-geolocation\
51 52
  tpl-simple_mcmc\
52 53
  tpl-hysimple\
......
97 98
tpl-simple_mcmc:
98 99
	$(MAKE) --directory=simple_mcmc
99 100

  
101
tpl-gradients_output:
102
	$(MAKE) --directory=gradients_output
103

  
100 104
tpl-geolocation:
101 105
	$(MAKE) --directory=geolocation
102 106

  
......
164 168
	$(MAKE) --directory=colfill clean
165 169
	$(MAKE) --directory=glmmadmb clean
166 170
	$(MAKE) --directory=orange_mvn clean
171
	$(MAKE) --directory=gradients_output clean
167 172

  
168 173
copy:
169 174
ifeq ($(SHELL),cmd)
trunk/tests/gradients_output/de.dat (revision 2165)
1
 20
2
 1  100
3
 2  80
4
 3  60
5
 4  40
6
 5  30
7
 6  20
8
 7  10
9
 8  7
10
 9  5
11
 10  5
12
 11  5
13
 12  4
14
 13  4
15
 14  3
16
 15  3
17
 16  2
18
 17  2
19
 18  2
20
 19  2
21
 29  1.5
trunk/tests/gradients_output/de.tpl (revision 2165)
1
DATA_SECTION
2
  init_int n
3
  init_matrix data(1,n,1,2)
4
  vector x
5
  vector Y
6
  vector xs
7
  vector Ys
8
  vector xends(1,2)
... This diff was truncated because it exceeds the maximum size that can be displayed.

Also available in: Unified diff