$
$   solchk1.dat
$
$ FILE solchka.DAT
INIT MASTER(S)
DIAG 8
TIME 10
SOL 112
INCLUDE 'mochka.v707' $ EIGENSOLUTION CHECK
INCLUDE 'mtchka.v707' $ TRANSIENT SOLUTION CHECK
INCLUDE 'solchka.v707' $ SOLUTION CHECK SUBDMAP
CEND
TITLE = TRAN. RESP. OF FOUR SINGLE OSCILLATORS		SOLCHKA
SUBTITLE = SPRING-, DAMPER, AND MASS-ONLY VERSIONS, plus modal damp.
LABEL = DEMONSTRATE USE OF SOLUTION CHECK SUBDMAP FOR DYNAMICS
ECHO = BOTH
METHOD = 1
TSTEP=1500
DLOAD = 3
SVECT = ALL $ EIGENVECTORS
DISP = ALL
VELO = ALL
ACCE = ALL
SPC = 1
SPCF = ALL
MPCF = ALL
ELFORCE = ALL
OLOAD = ALL
BEGIN BULK
param, noncup, 1 $ AVOID ERROR IN UNCOUPLED SOLUTION
PARAM, AUTOSPC, NO
$ SPRING ONLY
SPOINT, 1       2	
CELAS2, 12,     1.0,    1,      ,       2
DAREA,  100     2       0       1.0
cmass2,	2,	9.-6,	2 $ small mass to get a finite mode
SPC,	1,	1,	0
$ damper only
SPOINT, 11       12	
Cdamp2, 112,     1.0,    11,      ,       12
DAREA,  100     12       0       1.0
cmass2,	12,	4.-6,	12 $ small mass to get a finite mode
SPC,	1,	11,	0
$ coupled mass only
SPOINT, 21       22	
CMASS2, 212,     1.0,    21,      ,       22
DAREA,  100     22       0       1.0
SPC,	1,	21,	0
$ oscillator with lambda=1.0
SPOINT, 31       32	
CELAS2, 312,     1.0,    31,      ,       32
DAREA,  100     32       0       1.0
cmass2,	32,	1.0,	32 $ mass for lambda = 1.0
SPC,	1,	31,	0
eigr,	1,	AHOU,	,	,	,	4
TABDMP1, 1,	crit
,	0.0,	0.0	0.009,	0.0	0.01	0.1,	1.0	0.1
,	1.1	0.0	100.0	0.0	endt $
$ 10% of critical from f=0.1 to f=1.0.  zero elsewhere
$ ONLY ONE OSCILLATOR HAS MODAL DAMPING
TABLED1 200
,   	0.      1.0     100.    1.0     ENDT
PARAM,	NEWSEQ,	-1
TLOAD2, 3,      100,     0,      0,      .11     100.0   0.25	-90.    
$ CONSTANT SINE AT 0.25 HZ.   
TSTEP,  1500    10     .05     1 $ 2
ENDDATA