Argument Definitions (+ indicates altered content) INTEGER K
Description THIS ROUTINE CALCULATES THE PENETRATION ANGLE FOR EACH LAYER LAW OF SINES, SNELL"S LAW AND TABLE INCREMENTS ARE BEING COMBINED
Source file: penang.f
Intrinsic Functions Called GENERIC ACOS, SQRT
Local Variables (+ indicates altered content) REAL +CDEL, +FMHZ, +FRAT, +FV REAL +HT, +XM28, +XM29, +XM30
Referenced Common Block Variables (+ indicates altered content) CON REAL R2D, RZ FRQ REAL FREQ REFLX REAL +DELPEN(3,5) REFLX REAL +DMAXKM(3) REFLX REAL +DSKPKM(3) RON REAL FI(3,5), FVERT(30,5) RON REAL HTRUE(30,5)