$
$     THIS ALTER IS CONFIDENTIAL AND A TRADE SECRET OF THE 
$     MSC.Software CORP.  THE RECEIPT OR POSSESSION OF
$     THIS ALTER DOES NOT CONVEY ANY RIGHTS TO REPRODUCE OR
$     DISCLOSE ITS CONTENTS, OR TO MANUFACTURE, USE, OR SELL
$     ANYTHING HEREIN, IN WHOLE OR IN PART, WITHOUT THE 
$     SPECIFIC WRITTEN CONSENT OF THE MSC.Software CORPORATION.                                
$
$
echooff $
$
$       mtranea.v69 -  updated for v69 -- 9-25-96
$
$  updated for system built on on 3-14-95   VERSION 68.2 
$
$ alter mtranea.v68 - alter to calculate the strain energy
$ and kinetic energy in a transient solution by mode
$
$ This alter is helpful in identifying which modes contribute 
$ to the solution  
$
$ output = matrices strain1, kinetic1, and energyt
$
$           strain1 = strain energy time history by mode
$           kinetic1= kinetic energy time history by mode
$           energyt = sum of kinetic and strain energy by mode
$
$ modify MTRANRS to calculate the values
$compile mtranrs, souin=mscsou, list, noref
$alter 16 $ was 17 in V675
$
compile semtran $
alter 1 $
putsys(0,192) $
alter 'trd1' $
message //'calculating strain energy and kinetic energy '/
          ' contributions for each mode' $
PARAML uht//'TRAILER'/1/S,N,NUMCOLZ  $ no of cols in solution
MATGEN  ,/PMD/4/1/NUMCOLZ/0/1/3/1/1/1    $ PATTERN MATRIX (100100...)
PARTN   uht,PMD,/,,DISPLS,/1/0      $ EXTRACT DISPLS
MATGEN  ,/PMV/4/1/NUMCOLZ/0/1/3/2/1/1 $ PATTERN MATRIX (010010...)
PARTN   uht,PMV,/,,VELOCS,/1/0   $ EXTRACT VELOCS
mpyad  displs,khh,/straint/1 $
mpyad  velocs,mhh,/kinetict/1 $
trnsp straint/strain $
trnsp kinetict/kinetc $
add strain,displs/straine/(0.5,0.)//1 $
add kinetc,velocs/kinetice/(0.5,0.)//1 $
$
trnsp straine/strain1 $
trnsp kinetice/kinetic1 $
add strain1,kinetic1/energyt $
$
$ print and write results - output4 requires ASSIGN in FMS if used
$
message //'strain1 is the strain energy contribution for each mode' $
matprn strain1// $
message //'kinetic1 is the kinetic energy contribution for each mode' $
matprn kinetic1// $
message //'energyt is the combined energy contribution for each mode' $
matprn energyt// $
matpch strain1,kinetic1,energyt,,// $
$output4 strain1,kinetic1,energyt,,///11/0 $
$
$ end of alter mtranea.v68
$
echoon $