$ ----------------  subDMAP moders
compile moders
alter 'read     kxx' $
if ( getsys(np,265)>1 ) then $
  delete   /lama,phix,mix,oeigs,eigvmat $
  disutil  ,,,,/lama///3 $
  disutil  ,,,,/phix///3 $
  disutil  ,,,,/mix///3 $
  disutil  ,,,,/oeigs///3 $
  disutil  ,,,,/eigvmat///3 $
  paraml   phix//'trai'/1/s,n,neigv $
else if ( getsys(np,265)=1 ) then $
  disutil  lama,,,////3 $
  disutil  phix,,,////3 $
  disutil  mix,,,////3 $
  disutil  oeigs,,,////3 $
  disutil  eigvmat,,,////3 $
endif $
$ ----------------  subDMAP freqrs
compile freqrs $
alter 'if ( fourier','' $
if ( false ) then $
alter 'if ( acsyml and adjflg','' $
if ( acsyml and adjflg<2) then $
alter 'ift ',''
if ( getsys(np,265)>1 ) then $
  disutil  udf,,,////9 $
  IFT      UdF,CASES,TRL,FOL/
           UHT1,TOL1/IFTM $
else if ( getsys(np,265)=1 ) then $
  call dbfetch /folt,,,,/0/0/0/0/0 $
  disutil  udf,,,/udf1///9 $
  IFT      UdF1,CASES,TRL,FOLt/
           UHT1,TOL1/IFTM $
endif $
putsys(1,287) $ slave=yes 
putsys(0,288) $ slavejob=yes
putsys(0,307) $ mergeofp=no
$ ----------------  SOL 108
compile sedfreq $
alter 'if ( fourier','' $
if ( false ) then $
$ ----------------  SOL 111
compile semfreq $
alter '307','' $
alter 'if ( fourier','' $
if ( false ) then $
alter 'call mpf',''
TYPE PARM,NDDL,I,Y,FLUIDMP,STRUCTMP,PANELMP $
if ( fluidmp<>0 or structmp<>0 or panelmp>0 ) then $
   if ( getsys(np,265)>1 ) then $
      disutil  uhf1,,,////9 $
      disutil  phf,,,////9 $
   else if ( getsys(np,265)=1 ) then $
      disutil  uhf1,,,/uhf1t///9 $
      disutil  phf,,,/phft///9 $
     CALL MPF  FOLt    ,CASEf   ,EQEXINS ,USET    ,SILS    , 
               VAFS    ,usetd   ,UHF1t   ,VPHFS   ,PHFt    , 
               MHH     ,KHH     ,BHH     ,ECTS    ,BGPDTS  , 
               EDTs    ,CSTMS   ,GM      ,got     ,goq     , 
               PHdh    ,GPLS    / 
               FLMODPF ,STMODPF ,PNLMODPF,LdMODPF / 
               NOPHFA  /NOPHSA  /MPNFLG  /LUSETS  /noue    / 
               NOFASET /NOSASET /APP     /noa     /NOOSET  / 
               NOQSET  /NOTSET  $ 
   endif $ getsys(np,265)>1
endif $ fluidmp<>0 or structmp<>0 or panelmp>0
$ ----------------  SOL 146
compile seaero $
alter '307','' $
alter 'if ( fourier','' $
if ( false ) then $
alter 'frlg '(2)
call dbstore folt,,,,//0/0/'     '/0 $
alter 'adr ',''
if ( getsys(np,265)>1 ) then $
   disutil  auhf,,,////9 $
else if ( getsys(np,265)=1 ) then $
   disutil  auhf,,,/auhft///9 $
   ADR      AUHFt,CASES,QKHL,FOLt,AEBGPDT,AEUSET/ 
            PKF/ 
            BOV/MACH/APP/aeconfig/symxy/symxz $ 
endif $
endalter