c begin include file cslope3.inc c + + + COMMON BLOCK DESCRIPTION + + + c + + + INSERT DESCRIPTION HERE + + + c NOTE : SLOPE3 is never used in SR ROUTE. common /slope3/ slpinp(mxslp,mxplan),b(mxslp,mxplan), 1 slpend(mxplan) c + + + VARIABLE DECLARATIONS + + + real slpinp,b,slpend c + + + VARIABLE DEFINITIONS + + + c slpinp(mxslp,mxplan) : c b(mxslp,mxplan) : c slpend(mxplan) : c end include file cslope3.inc