$ fstrst.fms  include this on runs that use the fstrst.v2001 dmap alter
$ locked version, last updated June 4, 2003
NASTRAN SYSTEM(201)=1 $ print version number (included rounds) in .f04
$assign run1='ti.MASTER' $ large db with mode shapes for large model
$ assign statements now done by patran
Dbloc logi=run1 datablk=(ept,mpt,zuzr01,zuzr02,zuzr03,zuzr04,
  Zuzr05,zuzr06,zuzr07,zuzr11,geom1q,geom2,zuzr11) $ from ti run.  Read-only.
$ The content of the zuzri datablocks is described in comments in the 
$ alter.  ept is elemement properties, mpt is material properties, geom1
$ has the GRID entries, and geom2 the CXXX entries like CBAR.
Dbloc logi=run1 param=(zuzrch1,zuzri1) $ messages, state of data bases
$Assign dbc=   'tinfr.xdb', delete $ xyplot data. always fresh because of delete               
$ assign statements now done by patran