SUBROUTINE SERPRB ( IF )

Argument Definitions (+ indicates altered content)
INTEGER            IF
Description
THIS ROUTINE FINDS THE SERVICE PROBABILITY 
 
THIS ROUTINE HAS NOT BEEN REVISED TO USE SUMMED SIGNAL 
TLLOW(IM) = DBLOSL(IF) 
SN(IM) = SNDB(IF) 
TLHGH(IM) = DBLOSU(IF) 
IM = IF 
DO ONLY ONCE FOR IF
Source file:serprb.f
Intrinsic Functions Called
INTEGER            IABS,       MIN0
GENERIC            SQRT
External Functions and Subroutines Called
REAL               FNORML
Local Variables (+ indicates altered content)
INTEGER           +I,         +IM,        +IMAX,      +ITM
REAL              +AMXX,      +D10SA(20), +D50SA(20), +DN
REAL              +DNO,       +DR,        +DS,        +DSO
REAL              +TME(10),   +TMX,       +XLH,       +Z
Referenced Common Block Variables (+ indicates altered content)
ALLMODE            INTEGER            NMMOD
ALLMODE            REAL               HP(20),    SN(20)
ALLMODE            REAL              +SPRO(20),  TLHGH(20)
ALLMODE            REAL               TLLOW(20)
ANOIS              REAL               DL,        DU
ANOIS              REAL               SIGM,      SYGL
ANOIS              REAL               SYGU
CON                REAL               DCL
DON                REAL              +D10S,     +D50S
DON                REAL              +D90S,      RSN
ION                INTEGER            LUFP
SON                REAL              +SPROB(13)
TON                REAL               ADS,       SLS
TON                REAL              +SPR,       SUS