c begin include file cdist3.inc c + + + COMMON BLOCK DESCRIPTION + + + c + + + INSERT DESCRIPTION HERE + + + c NOTE : DIST3 is never used in SR ROUTE. common /dist3/ y(101,mxplan) c + + + VARIABLE DECLARATIONS + + + real y c + + + VARIABLE DEFINITIONS + + + c y(101,mxplan) : c end include file cdist3.inc