SUBROUTINE SETMAXGAIN ( FREQOPER )
Argument Definitions (+ indicates altered content)
REAL               FREQOPER
Description
PURPOSE: 
   set maximum gain parameter (giso) for use by ANTCAL 
INPUT  PARAMETERS: 
   freqoper  = Operating Frequency 
   freqdesign= Design Frequency (=0=use Operating Frequency) 
             = in range .7 to 1.4  use as FreqRatio 
                 thus   fdesign=foper/FreqRatio 
OUTPUT PARAMETERS:
Source file:setmaxga.f
Intrinsic Functions Called
INTEGER            NINT
External Functions and Subroutines Called
REAL               GAINTERB,   GAINTERP
Local Variables (+ indicates altered content)
INTEGER           +IANT
REAL              +FDESIGN,   +FOPER
Referenced Common Block Variables (+ indicates altered content)
CCIRPARM           INTEGER            MODEGAIN
CCIRPARM           REAL               GAINMAX(3,2)
CCIRPARM           REAL               GAINMAXB(30)
CCIRPARM           REAL              +GISO,     +PARM(20)
DESIGNFREQ         REAL               FREQDESIGN