%N ofmcmp %F $MIR/src/subs/ofm.for
%D Apply complement of b&w OFMs
%P nebk
%: pgplot, display
%B
      subroutine ofmcmp
      implicit none

     Apply the b&w complement of the current OFM.   I.e. take 
     one minus the current values of the OFMs.   Only active for
     b&w tables

  Input in common
    na      Number of levels in ACTIVE ofm
  Input/output in common
    ofma    ACTIVE ofm
    ofms    SAVE ofm = ACTIVE ofm at this point
