$
$     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.                                
$
$   propa.v2001  -  updated 11/27/2000, 3/8/2001
$
$   updated 12-13-99 for v70.7.2
$  
$   updated 8-23-99
$
$   propa.v706 -- 12-1-98
$
echooff $
$
$  propa.v69  --  9-25-96
$
compile sefluttr $
alter 1 $
putsys(0,192) $
alter 'dpd.*dynamics' $
call dbstore usetd,gpld,,,//0/0/'     '/0 $
$
alter 'call.*pfaero',''
$
CALL PFAERO  CASES   ,EDTS    ,ECTS    ,BGPDTS  ,DMI     ,                      
             DMINDX  ,PCDBS   ,ACPT    ,AERO    ,        ,                      
             MKLIST  ,        ,        ,        ,CONTROL ,
             AECOMP  ,CSTMA   ,AEBGPDTS,MPJSFN2O,MPJN2O  ,                  
             AEUSETS ,gm      ,goa     ,dar     ,eqexins /                                                       
             LAJJT   ,UAJJT   ,AJJ0    ,WSKJF   ,D1JK    ,                      
             D2JK    ,D1JE    ,D2JE    ,skj     ,        ,                      
                     ,        ,        ,        ,        ,                      
                     ,WKK     ,        ,        ,        ,
                     ,        /
            'DYNAMICS'/IMACHNO/IKBAR  /S,PFILE /SKPAMP   /
            lusets   $                      

$
compile pfaero $
alter 1,1 $
$	2	3	4	5	6	7	8	9
SUBDMAP PFAERO  CASEAA  ,EDT     ,ECTS    ,BGPDTS  ,DMI     ,                   
                DMINDX  ,PCDBS   ,ACPT    ,AERO    ,MATPOOL , 
                MKLIST  ,AEROCOMP,AEROMON ,SAERK   ,CONTROL ,
                AECOMP  ,CSTMA   ,AEBGPDTS,MPJSFN2O,MPJN2O  ,                  
                AEUSETS ,gm      ,goa     ,dm      ,eqexins /                                                       
                LAJJT   ,UAJJT   ,AJJ0    ,WSKJF   ,D1JK    ,                   
                D2JK    ,D1JE    ,D2JE    ,SKJ     ,WSKJ    ,                   
                FAJE    ,QKKS    ,QKX     ,LAJJ    ,UAJJ    ,                   
                QKPRESS ,WKK     ,ADBINDX ,UXV     ,WJV     ,
                FJV0    ,QKV0    /                                              
                APP     /IMACHNO /IKBAR   /PFILE   /SKPAMP  /
                lusets  $                   
$
type db sils,uset,gpgk,gdgk $
FILE mpjn2o=OVRWRT $
alter 'decomp.*ajjt.*lajjt.*uajjt' $
$
DMIIN DMI,DMINDX/PARTN1,PARTN2,,,,,,,,/s,n,yesp1/s,n,yesp2 $
if (yesp1 ) then $
   SSG2     USET,GM,,,GOA,DM,GDGK/,,,GDAK, $
   FILE    PARTN1=SAVE $
   call dbfetch /usetd,gpld,,,/0/0/0/0/0 $
   PARAML  USETD//'USET'//////'E'/S,N,NOESET $ GET # OF E-SET DOF
   MESSAGE //'NOESET='/NOESET $
   TRNSP   gdak/gdka $
   MPYAD   D1JK,gdka,/D1JATED/1 $
   MPYAD   D2JK,gdka,/D2JATED/1 $
   if ( noeset < 0 )  then $
      EQUIV   D1JATED,D1JHTED/always $
      EQUIV   D2JATED,D2JHTED/always $
      MATGEN  ,/EMPTY/1/1/40 $
   else $
      UMERGE  USETD,D1JATED,D1JE/D1JHTED/'D'/'A'/'E' $
      UMERGE  USETD,D2JATED,D2JE/D2JHTED/'D'/'A'/'E' $
   endif $
   PARAMR  //'COMPLEX'///KBAR/S,N,KBARI $
   PARAMR  //'COMPLEX'//MACHNO/KBAR/S,N,MKLABEL $ LABEL FOR OUTPUT
   MATGEN  ,/ID1/1/1 $
   ADD     ID1,/MKID/MKLABEL $
   ADD     D1JHTED,D2JHTED/DJHTED//KBARI $
   FBS     LAJJT,UAJJT,DJHTED/QJHTeMP/2 $
   $trnsp   qjhtmpt/qjhtemp $
   PARTN   AJJT,PARTN1,PARTN2/,,AJJTED,/0 $ USE PARTN1 & 2 TO SELECT
   PARTN   QJHTEMP,,PARTN2/QJT,,,/0 $
   MPYAD   AJJTED,QJT,/TEST/1 $
   MATPRN TEST// $
   TRNSP    TEST/TESTT $
   MERGE   ,,,TESTT,,PARTN1,/TESTTA/1 $
   UMERGE   USETD,TESTTA,/TESTAG/MAJOR='G'/SUB0='A'/SUB1='O' $
   UMERGE   USETD,TESTT,/TESTG/MAJOR/SUB0/SUB1 $
   FILE INTEXT=OVRWRT $
   MATGEN   EQEXINS/INTEXT/9/0/LUSETS $
   MPYAD    INTEXT,TESTG,/TESTGE/1 $
   MPYAD    INTEXT,TESTAG,/TESTAGG/1 $
   MATGPR  GPLD,USETD,SILS,TESTAGG//'H'/'G'//1.E-6 $
   MATPRN  TESTGE// $
$   PARTN   TESTGE,ID1,/,,TESTREAL,/0/1/2 $
   PARTN   TESTGE,ID1,/,,TESTcmpx,/0//2 $
   matmod  testcmpx,,,,,/testreal,/34//0 $
   MATGPR  GPLD,USETD,SILS,TESTREAL//'H'/'G'//1.E-6 $
$   MATMOD   TESTREAL,EQEXINS,,,,/MATPOL,/16/1//1////////TR $
   MATMOD   TESTREAL,EQEXINS,,,,/MATPOL,/16/1//0////////TR $
   OUTPUT4 MKID,TESTREAL,,,//0/15/0 $
   EXIT $
endif $  yesp1
$
echoon $
$