SUBROUTINE SELTXR ( )
Description
        SUBROUTINES SELRCR AND SELTMT COMBINED  1/10/91 FJR 
 
THIS SUBROUTINE SELECTS THE OPTIMUM TRANSMISSION ANGLE 
(NOTE THAT THIS IS AT THE TRANSMITTER/RECEIVER ENDS)
Source file:seltxr.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
               99         SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
INTEGER            IAND
REAL               AMIN1
GENERIC            ABS
Local Variables (+ indicates altered content)
INTEGER           +IA,        +IDF,       +IDNXS,     +IHOP
INTEGER           +IST,       +JJ,        +K,         +LS
INTEGER           +LSAV
REAL              +DELMAX,    +DELNOW,    +DEND,      +GMAX
REAL              +GNOW,      +HOPX,      +XFRACT,    +XHOP
REAL              +XHPM,      +YHOP,      +YHPM
Referenced Common Block Variables (+ indicates altered content)
DON                REAL               AMIND,     GCDKM
FRQ                INTEGER            ITXRCP(2)
INFORM             INTEGER            INFO
LOSX               INTEGER            IAFTXR(3)
LOSX               REAL               ADVX(45,3)
LOSX               REAL               ANDVX(45,3)
LOSX               REAL               TGAINX(45,3)
LPATH              INTEGER           +LTXRGM(2)
LPATH              REAL               DELOPT,    GMIN
LPATH              REAL               YMIN
REFLX              REAL               DELFX(45,3)
REFLX              REAL              +FHP(45,3)
REFLX              REAL               GDFLX(45,3)
REFLX              REAL              +GML(45,3)
REFLX              REAL               HPFLX(45,3)