c ===================================================== subroutine combl() c ===================================================== c c Create and initialize application specific common-blocks. c return end