      subroutine calculate ( i, r )

      integer i
      real r

      i = 1
      r =1.1
      print *, r ,i

      end
