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)