$ mmfindfix3
$ bar3
nastran system(359)=0 $ force lan if selected
diag 8,19 $ mag 23 jul 98
SOL 103
include 'mmfindfixa.v2001'
CEND
TITLE = 3 bars, 1 torsion massless, one no mass		mmfindfix3
Echo = both
METHOD = 11
disp = all 
BEGIN BULK 
Param, mechfix, debug $ yes with more diagnostics
Param, mechprt, yes $ print the mm shapes
param, grdpnt, 0
PARAM,COUPMASS,1 $ coupled mass for more modes
eigr,	11   	lan,	,    	10000.
$ first bar.  No MMs.
cbar,	7,   	8    	7	8    	0.   	1.   	0.
,	   ,	,	10.  	11.  	12.  	13.	14.  	15.
$	large offsets
pbar,	8,   1,   1.7000E-01  9.6397E-02 4.7073E-03 1.4375E-04
MAT1,	1,	1.05+7,	,	.33     .1
GRID,     7,	,	18.     0.      0.
GRID,     8,	,	21.     0.      0.
Cmass2,	74,	1.0,	7	4 $ make torsion modes
Cmass2,	84,	1.0,	8,	4
$ second bar.  One massless mechanism
cbar,	17,   	8    	17	18    	0.   	1.   	0.
,	   ,	,	10.  	11.  	12.  	13.	14.  	15.
GRID,     17,	,	18.     0.      0.
GRID,     18,	,	21.     0.      0.
$ third bar.  No mass at all, due to modeling blunder.
GRID,    57,	,	18.     0.      0.
GRID,    58,	,	21.     0.      0.
cbar,	57,   	57    	57	58    	0.   	1.   	0.
,	   ,	,	10.  	11.  	12.  	13.	14.  	15.
Pbar,	57,	57,	1.7000E-01  9.6397E-02 4.7073E-03 1.4375E-04
MAT1,	57,	1.05+7,	,	.33   $  .1 massless
ENDDATA