Document Actions
uff164w.m
function uff164w(UnitsCode,F)
%
% function uff164w(UnitsCode,F)
%
% This function is written to export Universal File Format 164
% (units file). The form of the variables required is given below:
%
% UnitsCode =Units code to describe the units of all following
% Universal Files
% =1 SI-METRIC_ABS_(SI)
% =2 BG-BRITISH_GRAV
% =3 MG-METRIC_GRAV
% =4 BA-BRITISH_ABS
% =5 MM-MODIFIED_SI_(MM)
% =6 CM-MODIFIED_SI_(CM)
% =7 IN-BRITISH_GRAV_(MOD)
% =8 GM-METRIC_GRAV_(MOD)
% =9 US-USER_DEFINED
%
% F =File name to be written with extension
%*********************************************************************
% Author: John F. Schultze / Randall J. Allemang
% Date: 15-Nov-93
% Structural Dynamics Research Lab
% University of Cincinnati
% Cincinnati, Ohio 45221-0072
% 513-556-2725
%*********************************************************************
%
Lconv=1;
Fconv=1;
Tconv=1;
Toffset=0;
% Delimiter
fprintf(F,'%6.0f\n',-1);
% UFF Type
fprintf(F,'%6.0f\n',164);
% Records 1 (Units Code)
ss=blanks(80); ss(79:80)='\n';
ss(01:10)=sprintf('%10.0f',UnitsCode);
if UnitsCode==1; ss(12:31)=sprintf('SI-METRIC_ABS_(SI) ');end;
if UnitsCode==2; ss(12:31)=sprintf('BG-BRITISH_GRAV ');end;
if UnitsCode==3; ss(12:31)=sprintf('MG-METRIC_GRAV ');end;
if UnitsCode==4; ss(12:31)=sprintf('BA-BRITISH_ABS ');end;
if UnitsCode==5; ss(12:31)=sprintf('MM-MODIFIED_SI_(MM) ');end;
if UnitsCode==6; ss(12:31)=sprintf('CM-MODIFIED_SI_(CM) ');end;
if UnitsCode==7; ss(12:32)=sprintf('IN-BRITISH_GRAV_(MOD)');end;
if UnitsCode==8; ss(12:31)=sprintf('GM-METRIC_GRAV_(MOD)');end;
if UnitsCode==9; ss(12:31)=sprintf('US-USER_DEFINED ');end;
fprintf(F,ss);
% Record 2 (Length, Force, Temperature Conversion Factors)
fprintf(F,'%25.17e%25.17e%25.17e',Lconv,Fconv,Tconv);
fprintf(F,'\n');
% Record 3 (Temperature Offset Factors)
fprintf(F,'%25.17e%25.17e%25.17e',Toffset,0,0);
fprintf(F,'\n');
% Delimiter
fprintf(F,'%6.0f\n',-1);