"delpps - macro to destroy global parameters for power protection" 

// pop - Control Word (0-8) 

exists('rf1pop','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf1pop','global')
endif 

exists('rf2pop','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf2pop','global')
endif   

exists('rf3pop','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf3pop','global')
endif 

exists('rf4pop','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf4pop','global')
endif 

// pcal - Watts at the Probe for tpwr = 47

exists('rf1pcal','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf1pcal','global')
endif   

exists('rf2pcal','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf2pcal','global')
endif 

exists('rf3pcal','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf3pcal','global')
endif 

exists('rf4pcal','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf4pcal','global')
endif   

// elimit - Energy Limit - Ergs = Watts*seconds 

exists('rf1elimit','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf1elimit','global')
endif 

exists('rf2elimit','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf2elimit','global')
endif   

exists('rf3elimit','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf3elimit','global')
endif 

exists('rf4elimit','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf4elimit','global')
endif 

// ptc - Time Constant for Power Leakage (seconds) 

exists('rf1ptc','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf1ptc','global')
endif   

exists('rf2ptc','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf2ptc','global')
endif 

exists('rf3ptc','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf3ptc','global')
endif 

exists('rf4ptc','parameter','global'):$e
if ($e>0.5) then 
   destroy('rf4ptc','global')
endif   
