$ file vm01 modified from rlh 15 feb 95
INIT MASTER(S)
DIAG 8
TIME 10
SOL 103
Include 'vma.v707' $
CEND
TITLE = VIRTUAL MASS OF A BOX, real modes     vm01
subtitle = single mfluid element tester, vmopt=1
label = version with free body, no ground, internal fluid
DISP = ALL
MFLUI	= 300
METHO	= 400
BEGIN BULK
Param, 	vmopt, 	1 $ exact, expensive solution
CQUAD4  1001    100     10000   10001   10101   10100                           
CQUAD4  2001    100     20000   20001   20101   20100                           
CQUAD4  3001    100     10000   10100   20001   20000                           
CQUAD4  4001    100     20100   20101   10101   10001                           
CQUAD4  5001    100     10000   20000   20100   10001                           
EIGRL   400                     50                                              
ELIST   350     1001    2001    3001    4001    5001                            
GRID    10000           -.5     -.5     -.5                                     
GRID    10001           -.5     .5      -.5                                     
GRID    10100           -.5     -.5     .5                                      
GRID    10101           -.5     .5      .5                                      
GRID    20000           .5      -.5     -.5                                     
GRID    20001           .5      -.5     .5                                      
GRID    20100           .5      .5      -.5                                     
GRID    20101           .5      .5      .5                                      
MAT1    100     1.+6            .3      10.                                     
MFLUID  300     0       +.5     1.      350             N       N               
PARAM,  GRDPNT, 0 $ weight summaries for structure and fluid
Conm2,	20101,	20101,	,	0.1 $ add asymmetric mass to separate 
$ repeated roots
PSHELL  100     100     .001    100             100                             
ENDDATA