1 | function md=postqmu(md)
|
---|
2 | %INPUT function md=postqmu(md,qmufile,qmudir)
|
---|
3 | %Deal with dakota output results in files.
|
---|
4 |
|
---|
5 | % check to see if dakota returned errors in the err file
|
---|
6 | qmuerrfile=[md.miscellaneous.name '.qmu.err'];
|
---|
7 |
|
---|
8 | if exist(qmuerrfile,'file')
|
---|
9 | fide=fopen(qmuerrfile,'r');
|
---|
10 | fline=fgetl(fide);
|
---|
11 | if ischar(fline)
|
---|
12 | while ischar(fline)
|
---|
13 | disp(sprintf('%s',fline));
|
---|
14 | fline=fgetl(fide);
|
---|
15 | end
|
---|
16 | status=fclose(fide);
|
---|
17 | cd ../
|
---|
18 | error(['Dakota returned error in ''' qmuerrfile ' file. ''' qmudir ''' directory retained.'])
|
---|
19 | end
|
---|
20 | status=fclose(fide);
|
---|
21 | else
|
---|
22 | cd ../
|
---|
23 | error(['Dakota did not generate ''' qmuerrfile ' file. ''' qmudir ''' directory retained.'])
|
---|
24 | end
|
---|
25 |
|
---|
26 | %parse inputs and results from dakota
|
---|
27 | qmuinfile=[md.miscellaneous.name '.qmu.in'];
|
---|
28 | qmuoutfile=[md.miscellaneous.name '.qmu.out'];
|
---|
29 |
|
---|
30 | %[method,dvar,dresp_in]=dakota_in_parse(qmuinfile);
|
---|
31 | %dakotaresults.method =method;
|
---|
32 | %dakotaresults.dvar =dvar;
|
---|
33 | %dakotaresults.dresp_in =dresp_in;
|
---|
34 |
|
---|
35 | [method,dresp_out,scm,pcm,srcm,prcm]=dakota_out_parse(qmuoutfile);
|
---|
36 | dakotaresults.dresp_out=dresp_out;
|
---|
37 | dakotaresults.scm =scm;
|
---|
38 | dakotaresults.pcm =pcm;
|
---|
39 | dakotaresults.srcm =srcm;
|
---|
40 | dakotaresults.prcm =prcm;
|
---|
41 |
|
---|
42 | if exist('dakota_tabular.dat','file')
|
---|
43 | [method,dresp_dat ]=dakota_out_parse('dakota_tabular.dat');
|
---|
44 | dakotaresults.dresp_dat=dresp_dat;
|
---|
45 | end
|
---|
46 |
|
---|
47 | %put dakotaresults in their right location.
|
---|
48 | md.results.dakota=dakotaresults;
|
---|
49 |
|
---|
50 | % move all the individual function evalutations into zip files
|
---|
51 | if ~md.dakota_analysis,
|
---|
52 | system('zip -mq params.in.zip params.in.[1-9]*');
|
---|
53 | system('zip -mq results.out.zip results.out.[1-9]*');
|
---|
54 | system('zip -mq matlab.out.zip matlab*.out.[1-9]*');
|
---|
55 | end
|
---|