$ file spdr1  omnibus problem for Sparse Data Recovery method
$ outputs marked %% ignored in sol 111 at present
diag 8
sol 111
include 'spdra.v707' $
cend
title = outprt module ominbus tester   spdr1
subtitle = ask for every kind of output, selectively
label = version with spdra.v707 alter
echo=unsort
$svect=all $ temp
dload = 1
method = 2
freq = 1
$ make a unique set for each type.  First, grid point sets
set 1 = 1 $ disp set
set 2 = 2 $ velo set
set 3 = 3 $ accel set
set 4 = 4, 8, 22 $ oload set.  Includes one null load point
set 5 = 5 $ gpstress set
set 6 = 6 $ gpfo set
set 7 = 7 $ mpcfo set
set 8 = 99 $ spcf set
disp(sort2)=1
velo = 2
acce = 3
oload = 4
gpstress= 5 $ %%
gpfo = 6 $ %%
mpcf = 7
spcf = 8
$ next, element sets
set 2122 = 2122
elforce = 2122
set 2526 = 2526
$forc = 2526
$ causes  *** USER WARNING MESSAGE 602 (IFP1D)
$     TWO OR MORE OF THE ABOVE CARD TYPES DETECTED WHERE ONLY ONE IS
set 2930 = 2930,10001 $ bar, quad
stress = 2930 
set 3334 = 3334
$elstress = 3344 $ same reason
set 10001 = 10001
$strain = 10001 this function broken in alter.  See csr 37377 for avoidance
set 4142 = 4142
ese = 4142 %%
set 10000 = 10000
mpres = 10000
mfluid = 1
$Param,	vmopt,	1
loadset = 4
spc = 1
mpc = 7
begin bulk
param, 	k6rot,	1.0 $ fix element deficiencies
$		darea	lid
lseq,	4,	40,	400
force,	400,	4,	,	1.0	1.0,, 1.0 $ load axial too
darea,	40,	8,	3,	83. 
rload1,	1,	40,	,	,	100
tabled1,	100
,	0.	1.	100.	1. 	Endt $
freq1,	1,	1.-3	1.-3	10
eigrl,	2,	,	,	10
mpc,	7,	7,	1,	-1.0	8,	1, 1.0 $ lock axial
$mpc,	7,	8,	1,	-1.0,	9,	1, 1.0	
grid,	1,	,	1.
=,	*1,	=,	*1.
=97 $ 99 grid points
cbar,	102,	1001,	1,	2,	0.	0.	1.
=,	*101,	=,	*1,	*1,	==
=96
pbar,	1001,	1,	1.	2.	3.	4.
,	1.	1.
Mat1,	1,	1.,	,	.3,	1.
Spc1,	1,	123456,	99 $ get rid of ambiguous modes
Omit,	1,	1234 $ exercise o-set code
$ put in q4s for vm, strain
cquad4,	10000,	1,	57,	58,	10058,	10057
cquad4,	10001,	1,	58,	59,	10059,	10058
pshell	1,	1,	.1	1
Grid,	10057,	,	57.	1.
grid,	10058,	,	58.	1.
Grid,	10059,	,	59.	1.
Mfluid,	1,	,	1.0	0.1,	,	1,	n	n
Elist,	1,	10000	10001
$Param, ddrmm,	-1 $ turn off ddrmm for mpres output
Param, usetprt, 2
Param, usetsel, -1 $ all
enddata