$ file statdiva.v2001  print and plot eigenvectors in sol 144
compile aestat list noref $
$ replace phidll with phidrl, the right hand eigenvectors.
$ test for presence of suporti, fatal out if found. 
$ v2001, revised September 18, 2002
alter 'call.*super1' $
paraml uset//'uset'//////'r'/s,n,norset $
if (norset>-1) then $
  message //'ufm.  Suport entry present, not supported '/
  'by alter statdiva.  Replace suporti entries with spcs.'
  Exit $
Endif $ $ v2001, revised September 18, 2002
alter 'call.*divergrs','' $ move in front of super 3
alter 'call.*disprs'(,-1) $
jump temp $ replace disprs with divergrs
alter 'call.*disprs' $
label temp $
dvgflg=-1 $ required for alter
IF ( DVGFLG=-1 AND NOT(SAVERSTL)
        ) CALL DIVERGRS  CASES   ,EDTS    ,DYNAMICS,QKKS    ,GPLK    ,
                         GDKL    ,KLL     ,EQEXINS ,USET    ,XYCDBS  /
                         DIVTAB  ,PHIDRL  ,PHIDLL  ,QLL     /
                         IMACHNO /S,PFILE /S,CARDNO/0       $
SDR1     USET,,phidrl,,,GOt,GM,,kfS,KSS,/
         augi,,QGi/1/app/ $ $ v2001, revised September 18, 2002
alter 'call.*super3'(,-1) $
trmflg=-1 $ set to enter super3
noaug=1 $
$ end of statdiva alter package