3d/dummy-routines/combl.f

c     =====================================================
      subroutine combl()
c     =====================================================
c     
c     # dummy subroutine for initialization of common blocks.
c     # AMROC calls this function right at the beginning.
c
      implicit double precision (a-h,o-z)

      return
      end