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