$
$     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 $
$
$     norma.v2001 -  12/1/2000
$
$     norma.v69 
$
$
$
$  updated for system built on on 3-14-95   VERSION 68.2 
$
$ DMAP ALTER TO NORMALIZE EIGENVECTOR OUTPUT TO 1.0
$
$  The default normalization in MSC/NASTRAN is performed
$    on the solution set. If a reduction (GDR, ASET, etc) has
$    been used, it is possible that a term which is not from the
$    solution set may be larger than the largest solution set term.
$  This DMAP alter normalizes the solution for the complete model
$    to have a maximum value of 1.0 for each eigenvector.
$
COMPILE SEDISP list $
$ALTER 184 $ NORMALIZE MODES TO MAX DISP
$alter 191 $  after sdr1
$alter 'sdr1.*ug,.*,qg'
alter 'sdr1.*,,,goa.*ug.*qg' $
if (noqset>0) then $ remove Q-set dof from output
 upartn uset,ug/,ug1,,/'G'/'Q'/'S'/1 $
 purgex /ug,,,,/always $
 umerge uset,,ug1/ug/'G'/'Q'/'S' $
endif $
PARAML UG//'TRAILER'/1/S,N,NCPHI $
PARAML UG//'TRAILER'/2/S,N,NRPHI $
NORM   UG/ULNEW/NCPHI/NRPHI//1 $ v2004
PURGEX /UG,,,,/ALWAYS $
EQUIVX ULNEW/UG/ALWAYS $
$
echoon  $