      subroutine comis1(i)
      print*, i
      end
