      subroutine comis2
      print*, sin(1.)
      print*, sin(1.)
      end
