SUBROUTINE SETLNG ( )

Description
IF SHORT PATH, THIS SUBROUTINE FILLS IN ALL OF THE ARRAYS
Source file:setlng.f
Local Variables (+ indicates altered content)
INTEGER           +IA,        +IL,        +IS
Referenced Common Block Variables (+ indicates altered content)
ES                 REAL              +FS(3,5),  +HS(5)
GEOG               REAL              +ABIY(5),  +ARTIC(5)
GEOG               REAL              +CLCK(5),  +EPSPAT(5)
GEOG               REAL              +GMDIP(5), +GYZ(5)
GEOG               REAL              +RAT(5),   +SIGPAT(5)
RAYS               INTEGER           +IFOB(40,30,5)
RON                INTEGER            KFX
RON                REAL              +AFAC(30,5)
RON                REAL              +CLAT(5),  +CLONG(5)
RON                REAL              +FI(3,5),  +FVERT(30,5)
RON                REAL              +GLAT(5),  +HI(3,5)
RON                REAL              +HPRIM(30,5)
RON                REAL              +HTRUE(30,5)
RON                REAL              +RD(5),    +YI(3,5)