$
$     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.                                
$
$    pstmac2a.v2001   -   10-20-2000
$
$   updated 6-26-97
$
$    pstmac2a.v70
$
echooff $
compile semodes list $
alter 'call.*ifpl' $
type parm,,i,n,wow=0 $
call dbstore casecc,dmi,dmindx,,//0/0/'dball'/s,wow $

compile modefsrs list $
alter 1 $
type db matpool,cmpho,kss $
type db mpt,dit $
type db ett,est,xycdb $
type parm,nddl,i,n,lusets $
type parm,nddl,i,y,post,ounit2         $
$
alter 'CALL.*MODERS'(1,-1) $
$ 
$ read in test modes: dmig format
$
mtrxin ,,matpool,eqexins,sils,/phitest,,,,/v,n,lusets/s,n,okphtst $
IF (okphtst=-1) THEN $
   message //'DMAP FATAL: PHITEST MUST EXIST ON DMIG CARDS' $
   exit $
ENDIF $
$
$ read in test lama table (frequencies): dmi format
$
type parm,,i,n,wow=0 $
call dbfetch /casecc,dmi,dmindx,,/0/0/0/0/S,wow $
dmiin    dmi,dmindx/lamatst,,,,,,,,,/s,n,oklamt $
IF (oklamt) THEN $
   lamx lamatst,/lamat $ convert to table
ELSE $
   message //'GENERATING DUMMY FREQUENCY TABLE FOR TEST MODES' $
   paraml phitest//'TRAILER'/1/s,n,nummodes $
   matgen ,/lamdum1/4/nummodes/3/0/1/1/1/1/1 $
   lamx   lamdum1,/lamat/nummodes $
ENDIF $
message //'EIGENVALUES FOR TEST MODES' $
ofp lamat $
$
$ convert to mode shapes to table and output2
$
trnsp ksf/kfs $
sdr1 uset,,phitest,cmpho,,got,gm,,kfs,kss,,/phg1,,/1/'REIG' $
sdr2 casecc,cstms,mpt,dit,eqexins,,ett,lamat,bgpdts,,,phg1,
     est,xycdb,,,,,,,,,,,,,,/,,ougv1,,,,,,,,,/'REIG' $
message //'EIGENVECTORS FOR TEST MODES:' $
ofp ougv1 $
if (post=-1) then $
   $output2  ougv1//-1/ounit2//omaxr/'OUG' $
   output2  ougv1//-1/ounit2///'OUG' $ v2004
endif $
$
$ nothing more is useful, exit
$
exit $
echoon $