%CME434:  Solution to HW7 by TSDn 11/18/06
clear all;
status = fclose('all')		%Make sure all files are closed

global   nn ne nm ndim nep nqn
global   nq nf nwl npl
global   XYZ CTAB E A I REL QTAB FTAB MATERIAL WTAB PTAB
global   FIDI_NAME ns
global   e k l m n
global   K L F Fe Q R

% FIDI_NAME = 'hw75data.txt'	%Name of input data file
% FIDI_NAME = 'hw74data.txt'
% FIDI_NAME = 'hw73data.txt'
% FIDI_NAME = 'hw72data.txt'
% FIDI_NAME = 'hw71data.txt'
% FIDI_NAME = 'hw70data.txt'
 FIDI_NAME = 'hw72data.txt'

hw7_sub;	%call functions