$
$     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 $
$
$   evds200.v707 -  updated for v707 --  8-18-99 (shz)
$
$   this alter is converted from evds103a.v705 for SOL 200.
$
echooff $
COMPILE RESPSEN  $
alter 'dsah'
type parm,,i,y,eigvecds = 0 
if (eigvecds = 1) then
   upartn uset, phdg/phda,,,/'G'/'A'/'S'/1 $
   matprn phda // $
   TYPE PARM,,I,N,SCR $ UNUSED PARAMETER TO FORCE RESTART
   CALL LEIGDER phda,phdg,lftab,CASERS, KJJ,MJJ,
        KELMDSf, KDICTDSf, MELMDSf, MDICTDSf, DSPT1,tabdeq //
        S,SCR/DELTAB $
endif $ eigvecds
echoon $