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