c =====================================================
subroutine combl()
c =====================================================
c
c Create and initialize application specific common-blocks.
c
implicit double precision (a-h,o-z)
c
include "cuser.i"
include "ck.i"
c
call cheminit()
c
return
end