; QGETVERS
;---------------------------------------------------------------
;! finds maximum version number of an extension file quietly
;# Verb Catalog
;-----------------------------------------------------------------------
;;  Copyright (C) 2012
;;  Associated Universities, Inc. Washington DC, USA.
;;
;;  This program is free software; you can redistribute it and/or
;;  modify it under the terms of the GNU General Public License as
;;  published by the Free Software Foundation; either version 2 of
;;  the License, or (at your option) any later version.
;;
;;  This program is distributed in the hope that it will be useful,
;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;  GNU General Public License for more details.
;;
;;  You should have received a copy of the GNU General Public
;;  License along with this program; if not, write to the Free
;;  Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
;;  MA 02139, USA.
;;
;;  Correspondence concerning AIPS should be addressed as follows:
;;         Internet email: aipsmail@nrao.edu.
;;         Postal address: AIPS Project Office
;;                         National Radio Astronomy Observatory
;;                         520 Edgemont Road
;;                         Charlottesville, VA 22903-2475 USA
;-----------------------------------------------------------------------
QGETVERS  LLLLLLLLLLLLUUUUUUUUUUUU CCCCCCCCCCCCCCCCCCCCCCCCCCCCC
QGETVERS:  Gets max version number of an extension file quietly
INNAME                             Image name(name).
INCLASS                            Image name(class).
INSEQ           0.0      9999.0    Image name(seq. #). 0 => high
INDISK          0.0         9.0    Disk drive #. 0 => any
INEXT                              Extension file type 'PL','SL'
                                   'CC','TA'.     ' ' => 'PL'
MAXVERS  @                         maximum version number
ERROR    @    -1.0        1.0      > 0 => no file of this type
----------------------------------------------------------------
QGETVERS
Type: Verb
Use:  QGETVERS finds the maximum version number of a specified
      extension file type in a specified image or uv data set.
      GETVERS lists its result in the messages, QGETVERS does not.
Input adverbs:
  INNAME......Image name(name).       Standard defaults.
  INCLASS.....Image name(class).      Standard defaults.
  INSEQ.......Image name(seq. #).     0 => highest.
  INDISK......Disk drive # of image.  0 => any.
  INEXT.......Extension file type.    '  ' => 'PL'.
Output adverbs:
  MAXVERS.....Maximum version of this extension file.
  ERROR.......> 0 => INNAME et al. not found or INEXT extension not
                     present.
              <=0 => MAXVERS set and meaningful.
----------------------------------------------------------------
