source: issm/trunk/src/m/qmu/postqmu.m@ 20500

Last change on this file since 20500 was 20500, checked in by Mathieu Morlighem, 9 years ago

merged trunk-jpl and trunk for revision 20497

File size: 1.6 KB
Line 
1function 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
6qmuerrfile=[md.miscellaneous.name '.qmu.err'];
7
8if 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);
21end
22
23%parse inputs and results from dakota
24qmuinfile=[md.miscellaneous.name '.qmu.in'];
25qmuoutfile=[md.miscellaneous.name '.qmu.out'];
26
27%[method,dvar,dresp_in]=dakota_in_parse(qmuinfile);
28%dakotaresults.method =method;
29%dakotaresults.dvar =dvar;
30%dakotaresults.dresp_in =dresp_in;
31
32[method,dresp_out,scm,pcm,srcm,prcm]=dakota_out_parse(qmuoutfile);
33dakotaresults.dresp_out=dresp_out;
34dakotaresults.scm =scm;
35dakotaresults.pcm =pcm;
36dakotaresults.srcm =srcm;
37dakotaresults.prcm =prcm;
38
39if exist('dakota_tabular.dat','file')
40 [method,dresp_dat ]=dakota_out_parse('dakota_tabular.dat');
41 dakotaresults.dresp_dat=dresp_dat;
42end
43
44%put dakotaresults in their right location.
45md.results.dakota=dakotaresults;
46
47% move all the individual function evalutations into zip files
48if ~md.qmu.isdakota,
49 system('zip -mq params.in.zip params.in.[1-9]*');
50 system('zip -mq results.out.zip results.out.[1-9]*');
51 system('zip -mq matlab.out.zip matlab*.out.[1-9]*');
52end
Note: See TracBrowser for help on using the repository browser.