SOLUTION
  title 'modal transient run of a test fixture model'
  case eigen
    eigen
      nmodes 20
      shift -1e6
  case trans
    modaltransient
      time_step 1.0e-4
      nsteps    100
      load      1
End

PARAMETERS
 wtmass=0.00259
End

FILE
   geometry_file 'fixture.exo'
End

LOAD 1
  # Totla force in Y direction, multiple by scale and time history function
  nodeset 1
    force 0.0 1.0 0.0
    scale 1.0e7
    function 8
End

HISTORY
  nodeset '33'
  nodeset '148'
  nodeset '270'
  disp
  velocity
  acceleration
End

OUTPUTS
End

ECHO
  mass block
End

//  Block and material input

BLOCK 1
   // fixture
   material 1
End

BLOCK 2
  # Rigid bars
  rbar
End

BLOCK 3
  # Concentrated mass
  ConMass
    Mass 1.0e7
    Ixx  1.0e8
    Iyy  1.0e8
    Izz  1.0e8
    Offset= 0.0 0.0 0.0
End

MATERIAL 1
   // fixture - Ti
   density=0.16
   E=1.6e+07
   nu=0.3
End

// Haversine pulse
Function 8
  type analytic
  # The last value computed by the funciton is the one actually
  # returned.  The last statement equates to:
  #  If t >period, return 0
  #  If t<=period, return the sine function
  evaluate expression = "amp = 1.5e3; 
                         period= 3.6e-4; 
                         omega = pi/period; 
                         (t>period)?(0.0):(amp*sin(omega*t)^2)"
End

GDSW
  # Greatly tighter than default solver tolerance
  solver_tol=1e-12
End