%N chkdescg %F $MIR/src/subs/cgsubs.for
%D Compare double precision axis descriptor from two images
%P nebk
%: plotting
%B
      subroutine chkdescg (relax, type, iaxis, im1, im2, des1, des2)

      character type*(*), im1*(*), im2*(*)
      integer iaxis
      double precision des1, des2
      logical relax
  ---------------------------------------------------------------------
  Compare a double precision axis descriptor from two images

  Input:
    type    Type of descriptor
    iaxis   Axis number
    im1,2   Images
    des1,2  Descriptors
