%CME434:  Solution to HW6 by TSDn 11/16/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 P Q

%FIDI_NAME = 'hw60data.txt'	%Name of input data file
%FIDI_NAME = 'hw61data.txt'
%FIDI_NAME = 'hw62data.txt'
%FIDI_NAME = 'hw63data.txt'
 FIDI_NAME = 'hw61data.txt'
 FIDI_NAME = 'hw60data.txt'
hw6_sub;	%call functions