; FGPRT
;---------------------------------------------------------------
;! Pprints counts of selected portions of an FG table
;# Task UV Calibration Hardcopy
;-----------------------------------------------------------------------
;;  Copyright (C) 2019
;;  Associated Universities, Inc. Washington DC, USA. (EWG)
;;
;;  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
;-----------------------------------------------------------------------
FGPRT     LLLLLLLLLLLLUUUUUUUUUUUU CCCCCCCCCCCCCCCCCCCCCCCCCCCCC
FGPRT:  Task to print counts of selected contents of FG file
INNAME                             UV data (name).
INCLASS                            UV data (class).
INSEQ             0.0    9999.0    UV data (seq. #).  0 => high
INDISK            0.0       9.0    Disk unit #.  0 => any
INVERS                             FG table file version no.
                                   0 => high
SOURCES                            Sources to include ' '->all
TIMERANG                           Time range to include
FREQID                             Freqid, 0=>1; -1=>all
SUBARRAY          0.0              Subarray, 0=>1; -1=>all
BIF               0.0      100.0   First IF to include, 0=>1.
EIF               0.0      100.0   Last IF to include 0 -> high
BCHAN             0.0              Lowest channel to include
ECHAN             0.0              highest channel to include
DOCRT            -3.0     132.0    > 0 -> use the terminal,
                                   else use the line printer
                                   > 72 => terminal width
OUTPRINT
                                   Printer disk file to save
----------------------------------------------------------------
FGPRT
Type:  Task
Use:   Counts flags by baseline and R/L or X/Y polarization from flags
       limited to the sources, time range, IFs, and channels set in
       the adverbs.  It then prints a matrix with R/X in the upper
       left and L/Y in the lower right.
Adverbs:
  INNAME.....UV file name (name).       Standard defaults.
  INCLASS....UV file name (class).      Standard defaults.
  INSEQ......UV file name (seq. #).     0 => highest.
  INDISK.....Disk unit #.               0 => any.
  INVERS.....Version number of FG table to plot, 0 => high
  SOURCES....Source names to be counted.  SOURCES(1) = ' ' -> all
             If any have a '-' at the start of the name then the list
             becomes a list of sources not to be counted.
  TIMERANG...Time range of the data to be included. In order: Start
             day, hour, min. sec, end day, hour, min. sec. Days
             relative to reference date.  0 -> take all times
  FREQID.....Frequency identifier to select (you may determine which
             is applicable from the OPTYPE='SCAN' listing produced by
             LISTR).   -1 => all; 0 => 1
  SUBARRAY...Subarray to select.  -1 => all; 0 => 1.
  BIF........Count if BIF-EIF range overlaps the SPW range of the
             flag.
  EIF........Last IF to count.  0 -> high
  BCHAN......Include only flags involving channels that overlap the
             range from BCHAN to
  ECHAN......ECHAN.  BCHAN=0 -> 1, ECHAN=0 => max channel
  DOCRT......False (<= 0) use the line printer if OUTPRINT = ' '
                   else write named OUTPRINT file only.
                   When OUTPRINT is not blank, DOCRT=-2 suppresses the
                   page-feed character on page headers and DOCRT=-3
                   suppresses page headers and most other header
                   information.  When OUTPRINT is blank, the line
                   printer will be used. UV PRT now counts the lines
                   to be printed before printing any and asks for
                   permission to continue if the count > 500.
             True  (> 0) use the terminal interactively.  The task will
                   use the actual terminal width as a display limit
                   unless 72 < DOCRT < width.  In that case, the display
                   limit will be DOCRT characters.
  OUTPRINT...Disk file name in which to save the line printer output.
             ' ' => use scratch and print immediately for interactive
             jobs - batch jobs use OUTPRINT = 'PRTFIL:BATCHjjj.nnn'
             (jjj= job #, nnn = user #).  When OUTPRINT is not blank,
             multiple outputs are concatenated, and the file is not
             actually printed.
----------------------------------------------------------------