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