c begin include file cchpek.inc c + + + COMMON BLOCK DESCRIPTION + + + c + + + INSERT DESCRIPTION HERE + + + common /chpek/ uparea(0:mxplan),loarea(0:mxplan), 1 charea(0:mxplan),toarea(0:mxplan), 1 chleng(0:mxplan),chmann(mxplan), 1 chslop(mxplan),ipeak,lw c + + + VARIABLE DECLARATIONS + + + real uparea,loarea,charea,toarea,chleng, 1 chmann,chslop,lw integer ipeak c + + + VARIABLE DEFINITIONS + + + c uparea(0:mxplan) : c loarea(0:mxplan) : c charea(0:mxplan) : c toarea(0:mxplan) : c chleng(0:mxplan) : c chmann(mxplan) : c chslop(mxplan) : c ipeak : c lw : c c end include file cchpek.inc