SUBROUTINE FOBBY ( K )

Argument Definitions (+ indicates altered content)
INTEGER            K
Description
THIS ROUTINE CALCULATES OBLIQUE FREQUENCIES FOR REFLECTRIX (KHZ) 
 
THE SIZE OF THE TABLE IS REDUCED BY CALCULATION OF NANG IN 
SUBROUTINE SANG
Source file:fobby.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
               98         SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
CHARACTER          CHAR
INTEGER            IAND
REAL               AMAX1
GENERIC            COS,        SQRT
Local Variables (+ indicates altered content)
CHARACTER         +ITF
INTEGER           +IA,        +IH,        +II
REAL              +CLNG,      +CLTD,      +CPHE,      +DEL
REAL              +FREQ,      +FV,        +RCOSD,     +SPHE
REAL              +SQCOS
Referenced Common Block Variables (+ indicates altered content)
ALPHA              CHARACTER*3        IMON(12)
CON                REAL               D2R,       R2D
CON                REAL               RZ
DON                REAL               SSN
INFORM             INTEGER            INFO
RAYS               INTEGER           +IFOB(40,30,5)
RAYS               INTEGER            NANG
RAYS               REAL               ANG(40)
RON                REAL               CLAT(5),   CLONG(5)
RON                REAL               FVERT(30,5)
RON                REAL               HPRIM(30,5)
RON                REAL               HTRUE(30,5)
SSP                INTEGER            MONTH
TIME               REAL               GMT