%N xyzc2s %F $MIR/src/subs/xyzio.c
%D Get the subcubenr at a fixed coordinate
%P bpw
%: image-i/o
%B
+
      subroutine xyzc2s( tno, coords, subcubenr )
      integer    tno
      integer    coords(*)
      integer    subcubenr

This routine does the inverse of xyzs2c: it calculates the subcubenr
from a list of coordinates for a previously opened dataset after a
call to xyzsetup to define a particular type of subcube in a datacube.

   Input:
      tno           The handle of the dataset
      coords        Coordinates of the blc of the subcube
   Output:
      subcubenr     Identification of the subcube                             
