Index: /issm/trunk-jpl/src/m/qmu/dakota_in_write.m
===================================================================
--- /issm/trunk-jpl/src/m/qmu/dakota_in_write.m	(revision 22175)
+++ /issm/trunk-jpl/src/m/qmu/dakota_in_write.m	(revision 22176)
@@ -108,4 +108,5 @@
 
 responses_write(fidi,dmeth,dresp,params);
+
 
 fclose(fidi);
@@ -287,4 +288,6 @@
 
 fprintf(fidi,'responses,\n');
+%fprintf(fidi,'calibration_terms = 1 \n');
+
 
 %  functions, gradients, and hessians vary by method
@@ -296,5 +299,4 @@
     [rdesc]=fhresp(fidi,dresp,rdesc);
 end
-
 %  write accumulated response descriptors for all response classes
 
Index: /issm/trunk-jpl/src/m/qmu/rlist_write.m
===================================================================
--- /issm/trunk-jpl/src/m/qmu/rlist_write.m	(revision 22175)
+++ /issm/trunk-jpl/src/m/qmu/rlist_write.m	(revision 22176)
@@ -35,9 +35,16 @@
 disp(sprintf('  Writing %d %s responses.',nresp,cstring));
 
-fprintf(fidi,'\tnum_%s = %d\n',cstring,nresp);
+if strcmp(cstring,'calibration_terms')==1
+	fprintf(fidi,'\t%s = %d\n',cstring,nresp);
+	
+else
+	fprintf(fidi,'\tnum_%s = %d\n',cstring,nresp);
+end
+
 if ~isempty(pstype)
-    fprintf(fidi,'\t  %s_scale_types =\n',cstring2);
-    vector_write(fidi,sprintf('\t    '),pstype ,6,76);
+fprintf(fidi,'\t  %s_scale_types =\n',cstring2);
+vector_write(fidi,sprintf('\t    '),pstype ,6,76);
 end
+
 if ~isempty(pscale)
     fprintf(fidi,'\t  %s_scales =\n',cstring2);