%N ppconcg %F $MIR/src/subs/cgsubs.for
%D Convert full image pixels to binned subimage pixels
%P nebk
%: plotting
%B
      subroutine ppconcg (id, blc, bin, p)

      integer id, blc, bin
      double precision p
  ---------------------------------------------------------------------
  Convert pixel values from a full image unbinned pixel to
  a subimage binned pixel, and vice versa

  Input
   id        Direction of convsersion
                1 -> p      -> pb-sub
                2 -> pb-sub -> p
   blc       BLC (in full image unbinned pixels) at which subimage
             begins
   bin       Pixel increment with which we are stepping through image
  Input/output
   p         Pixel with bin=1 and blc=1 OR pixel appropriate to BIN
             and BLC
