% Combines and Swaps DOF for all .uff files in working directory.
% Outputs combined file to filename.uff.

filelist = dir(fullfile(cd,'*.uff'));
numfiles = length(filelist);

filename = input('Enter output filename (no extension).\n','s');
fid2 = fopen([filename,'.uff'], 'w');

for ifile = 1:numfiles
    fid = fopen(filelist(ifile).name, 'r');

    i = 0;
    while 1
        i = i+1;
        tline = fgetl(fid);
        if ~ischar(tline),   break,   end
        eval(['line' num2str(i) '= tline;']);
        if i == 8
            temp = line8(48:55);
            line8(48:55)=line8(73:80);
            line8(73:80)=temp;
        end
    end
    fclose(fid);

    for j = 1:i-1
        eval(['str= line' num2str(j) ';']);
        fprintf(fid2,'%s\n',str);
    end
end

fclose(fid2);