Document Actions
uff15w.m
function uff15nod(GEO,F)
% this function was adapted from William Fladung's UFF58FRF.M function
% developed for his MRIT program. This program was written by John Schultze
% Messr's Schultze and Fladung work at the UC/SDRL and are available for consultation
% and parties
[nNODES,nDOF]=size(GEO);
nDOF=nDOF-1;
fprintf(F,'%6.0f\n',-1)
fprintf(F,'%6.0f\n',15)
dummy=0;
dummer=8;
for jj=1:nNODES;
dd=blanks(81); dd(80:81)='\n';
ee=floor(GEO(jj,1));
dd(01:20)=sprintf('%10.0f%10.f',ee,dummy);
dd(21:40)=sprintf('%10.f%10.0f',dummy,dummer);
dd(41:53)=sprintf('%13.5e',GEO(jj,2));
dd(54:66)=sprintf('%13.5e',GEO(jj,3));
dd(67:79)=sprintf('%13.5e',GEO(jj,4));
fprintf(F,dd);
end
fprintf(F,'%6.0f\n',-1)