%N xyzdim %F $MIR/src/subs/xyzio.c
%D Return dimension information.
%P rjs
%: image-i/o
%B
      subroutine xyzdim(tno,naxis,dimsub
      integer tno,naxis,dimsub

This returns dimension information.

   Input:
      tno       The image file handle.
   Output:
      naxis     Number of dimensions.
      dimsub    Number of skipped subdimensions.                              
