% FIGURE 5.11.2
      function [HORS,K] = LOCATE5112(I)
%                              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
      K = fix(I/2);