      function iret(i1,i2,i)
      if ( i .eq. 1 ) then
         iret = i1
      else
         iret = i2
      end if
      return
      end
