SUBROUTINE PWRCUT ( SNR50, SNR_LW, SNR_UP, SNR88, SNR91, POWER_CUT )

Argument Definitions (+ indicates altered content)
REAL              +POWER_CUT,  SNR50,      SNR88,      SNR91
REAL               SNR_LW,     SNR_UP
Description
calculte Percent Power Cut possible based on George Lane Algo 
An estimate of the number of days on which a power reduction 
used during a given hour and month can be made by computing t 
area under the assumed normal distribution of Signal-to-Noise 
ratios over the days of the month. 
 
SNR50 = SNR from IONCAP, the median S/N ratio 
SNR_LW = lower decile deviation of SNR 
SNR_UP = upper decile deviation of SNR 
SNR88  = 3 dB (half power) SNR limit (nominally 88 dB) 
SNR91  = 6 dB (quarter power) SNR limit (nominally 91 dB) 
power_cut = [0 to .75], the calculated fraction power cut ava
Source file:pwrcut.f
External Functions and Subroutines Called
REAL               DAYINTERP
Local Variables (+ indicates altered content)
REAL              +DAY3DB,    +DAY6DB,    +FACT(4),   +SNR(11)
REAL              +STD_LW,    +STD_UP

REAL FUNCTION DAYINTERP ( SNR, SNRX )

Argument Definitions (+ indicates altered content)
REAL               SNR(11),    SNRX
Source file:pwrcut.f
Intrinsic Functions Called
REAL               FLOAT
Local Variables (+ indicates altered content)
INTEGER           +I