REAL FUNCTION GAINTERP ( GAINAA, FREQOPER, FREQDESIGN, IANT )
Argument Definitions (+ indicates altered content)
INTEGER            IANT
REAL               FREQDESIGN,             FREQOPER,   GAINAA(3,2)
Description
interpolate directivity gain given: 
    gainaa(1-3,1) = gain @  2MHz Fr=.70,1.0,1.4  iant=1 
    gainaa(1-3,2) = gain @ 30MHz Fr=.70,1.0,1.4  iant=1 
    gainaa(1-3,1) = gain @  2MHz Fr=.85,1.0,1.2  iant=2,3,4,8 
    gainaa(1-3,2) = gain @ 30MHz Fr=.85,1.0,1.2  iant=2,3,4,8 
    freqoper      = operating frequency 
    freqdesign    = design    frequency
Source file:gainterp.f
External Functions and Subroutines Called
REAL               GAINTERP1
Local Variables (+ indicates altered content)
REAL              +FR,        +G1,        +G2

REAL FUNCTION GAINTERP1 ( GAINAA, FR, IANT )
Argument Definitions (+ indicates altered content)
INTEGER            IANT
REAL               FR,         GAINAA(3)
Source file:gainterp.f
Local Variables (+ indicates altered content)
INTEGER           +IDX,       +JANT
REAL              +FRS(3,2)