% FIGURE 5.11.2
      function OMEGA = OMEGA5112(IDER,X)
%                              EVALUATE OMEGA (IDER=0) OR ITS IDER-TH
%                              DERIVATIVE AT X
      OMEGA = 0.0;