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)