SUBROUTINE PENANG ( K )
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)