$
$     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.                                
$
$     sekefa.v2001   -   12-15-2000
$
$ alter sekefa.v705 - print kinetic energy fractions for
$ superelements - in addition to strain energy fractions
$ 
$ User interface:
$
$ PARAM,SESEF,0
$
$
$  written by Ted Rose - June, 1998
$
$
compile semodes
alter 'call.*postreig',''
$ V70.5
IF ( SESEF>-1 OR SCRSPEC>-1 ) CALL POSTREIG,                                    
     LAMA    ,CASECC  ,PCDB    ,EMAP    ,XYCDB   ,                           
     PVTS    ,USET    ,PHG     ,PHA1    ,KAA     ,                           
             ,KJJ     ,GOT     ,GOQ     ,GM      ,                           
     USETD   ,MATPOOLS,EQDYN   ,TFPOOL  ,MAA     ,                           
     MKAA    ,BAA     ,K4AA    ,DIT     ,KFS     ,                           
     CSTMS   ,MPTS    ,EQEXINS ,BGPDTS  ,PHQG    ,                           
     EST     ,MR      ,GPLS    ,SILS    ,DYNAMICS,                           
     SPECSEL ,GPSNTS  ,GDNTAB  ,MAPS    ,ETT     ,
     CASEM   ,mjj     /                                                      
             /                                                               
     RSONLY  /NOUE    /LUSETD  $                                             
compile postreig, list
alter 1,1
SUBDMAP POSTREIG  LAMA    ,CASECC  ,PCDB    ,EMAP    ,XYCDB   ,                 
                  PVTS    ,USET    ,PHG     ,PHA     ,KAA     ,                 
                  UNUSED1 ,KJJ     ,GOT     ,GOQ     ,GM      ,                 
                  USETD   ,MATPOOL ,EQDYN   ,TFPOOL  ,MMAA    ,                 
                  MKAA    ,BAA     ,K4AA    ,DIT     ,KFS     ,                 
                  CSTMS   ,MPTS    ,EQEXINS ,BGPDTS  ,PHQG    ,                 
                  EST     ,MR      ,GPLS    ,SILS    ,DYNAMICS,                 
                  SPECSEL ,GPSNTS  ,GDNTAB  ,MAPS    ,ETT     ,
                  CASEM   ,mjj     /                                                     
                          /                                                     
                  RSONLY  /NOUE    /LUSETD $       
alter 'lammat'
MATMOD   LAMMAT,,,,,/TkE,/1/4 $  EXTRACT GEN. K                                                              
alter 'mpyad.*kaa'
$ calculate kinetic energy - first remove dof representing component modes
$
$ check if external superelement
$
equivx mmaa/maanew/-1 $$
mpyad maanew,phils,/ma $
mpyad phils,ma,/sekea/1 $
diagonal sekea/seke/'column' $
add seke,tke/sekefa///2 $
matprn sekefa// $ kinetic energy fraction
$
alter 'endif.*nokjj'
PARAML   MJJ//'PRESENCE'////S,N,NOMJJ $
IF ( NOMJJ > -1 ) THEN $                                               
  MPYAD    mJJ,PHG,/mG $                                              
  MPYAD    phg,mG,/SEkEG/1 $ 
  diagonal sekeg/sekegd/'column' $                                         
  ADD      SEkEGd,TkE/SEkEFG///2 $                 
  MATPRN   SEkEFG//$  STRAIN ENERGY FRACTION FOR NON-TIP              
ENDIF $   NOmJJ