"parpps - macro to create global parameters for power protection" 

// pop - Control Word (0-8) 

exists('rf1pop','parameter','global'):$e
if ($e<0.5) then 
   create('rf1pop','real','global')
endif 

exists('rf2pop','parameter','global'):$e
if ($e<0.5) then 
   create('rf2pop','real','global')
endif   

exists('rf3pop','parameter','global'):$e
if ($e<0.5) then 
   create('rf3pop','real','global')
endif 

exists('rf4pop','parameter','global'):$e
if ($e<0.5) then 
   create('rf4pop','real','global')
endif 

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

exists('rf1pcal','parameter','global'):$e
if ($e<0.5) then 
   create('rf1pcal','real','global')
endif   

exists('rf2pcal','parameter','global'):$e
if ($e<0.5) then 
   create('rf2pcal','real','global')
endif 

exists('rf3pcal','parameter','global'):$e
if ($e<0.5) then 
   create('rf3pcal','real','global')
endif 

exists('rf4pcal','parameter','global'):$e
if ($e<0.5) then 
   create('rf4pcal','real','global')
endif   

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

exists('rf1elimit','parameter','global'):$e
if ($e<0.5) then 
   create('rf1elimit','real','global')
endif 

exists('rf2elimit','parameter','global'):$e
if ($e<0.5) then 
   create('rf2elimit','real','global')
endif   

exists('rf3elimit','parameter','global'):$e
if ($e<0.5) then 
   create('rf3elimit','real','global')
endif 

exists('rf4elimit','parameter','global'):$e
if ($e<0.5) then 
   create('rf4elimit','real','global')
endif 

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

exists('rf1ptc','parameter','global'):$e
if ($e<0.5) then 
   create('rf1ptc','real','global')
endif   

exists('rf2ptc','parameter','global'):$e
if ($e<0.5) then 
   create('rf2ptc','real','global')
endif 

exists('rf3ptc','parameter','global'):$e
if ($e<0.5) then 
   create('rf3ptc','real','global')
endif 

exists('rf4ptc','parameter','global'):$e
if ($e<0.5) then 
   create('rf4ptc','real','global')
endif   
