program test
      common/main1/ eps(2)
      dimension cor6d(2,2)
      call dalie6s(iqmod6,1,wx,cor6d)
      end