$ FILE rflag0811.dat
TIME 5
Diag 8 $ matrix trailer diagnostics
SOL 108 $ DIRECT FREQUENCY RESPONSE
INCLUDE 'rflaga.v707'
CEND $
TITLE = FREQ. RESP. OF SINGLE DOF OSCILLATOR		rflag0811
SUBTITLE = ENFORCED DISPLACEMENT, PARAM G DAMPING
LABEL = USE CMS.  Changes from 0810 problem in lower case
Method = 1 $ select eigensolution method
DLOAD = 2 $ SELECT THE ENFORCED MOTION INPUTS
FREQ = 3  $ SELECT THE EXCITATION FREQUENCIES
DISP(SORT2) = ALL $ PRINT THE INPUT AND OUTPUT
Set 1 = 1 $ use set to avoid output of null spcforces
SPCF = 1 $ PRINT THE FORCE REQUIRED AT THE INPUT
BEGIN BULK
Spoint, 11 $ use for generalized coordinates
Qset1,  0       11 
Eigrl,  1,      ,       ,       10 $ get all of the modes
SPOINT, 1       2 $ SCALAR POINTS DEFINING X1, X2
CELAS2, 12,     1.0     1,      ,       2 $ SPRING BETWEEN X1, X2
CMASS2, 2,      1.0,    2 $ UNIT MASS ON X2
USET,   BE,     1,      0 $ put the enforced motion point in the be-set
RLOAD2, 2,      100,    ,       ,       200 $ APPLY FUNCTION 200 ON DAREA 100
DAREA,  100,    1,      0,      1.0 $ UNIT SCALE FACTOR ON INPUT
TABLED1,        200
,               0.0,    1.0,    100.,   1.0,	ENDT $ APPLY UNIT FUNCTION OVER
$ ALL FREQUENCIES
FREQ,   3,      0.0,    0.159155, 15.9155 $ EXCITATION FREQUENCIES OF 0.0,
$ 1/(2*PI), THE NATURAL FREQUENCY WN, AND 100 TIMES WN, 
$ CYCLES/UNIT TIME
PARAM,  G,      0.1 $ DAMPING CONSTANT MULTIPLIED TIMES K
ENDDATA