%N opimcg %F $MIR/src/subs/cgsubs.for
%D Open an image and return axis descriptors
%: plotting
%B
      subroutine opimcg (maxnax, in, lin, size, naxis)

      integer maxnax, lin, size(maxnax), naxis
      character*(*) in
  ---------------------------------------------------------------------
     Open an image and return some header descriptors

   Input:
     maxnax     Maximum number of allowed axes
     in         Image name
   Output:
     lin        Handle for image
     size       SIze of each dimension of image
     naxis      Number of dimensions
