% FIGURE 5.3.3
      function [HORS,K] = LOCATE533(I)
      global M
%                              DETERMINE THE TYPE ('H' OR 'S') OF BASIS
%                              FUNCTION I, AND THE POINT (XPTS(K+1)) ON
%                              WHICH IT IS CENTERED.
      if (mod(I,2) == 0)
         HORS = 'H';
      else
         HORS = 'S';
      end
      if (I == M)
         HORS = 'S';
      end
      K = fix(I/2);