%N copyimcg %F $MIR/src/subs/cgsubs.for
%D Copy image
%P nebk
%: plotting
%B
      subroutine copyimcg (n, in, copy)

      integer n
      real in(n), copy(n)
  ---------------------------------------------------------------------
  Copy an image for safe keeping

 Input
     n       Size of image
     image   Image
 Output
     copy    Copy of image
