C  ELM16C             INITIAL FLOOR COORDINATES
C
C XINIT      INITIAL FLOOR X VALUE
C YINIT      INITIAL FLOOR Y VALUE
C ZINIT      INITIAL FLOOR Z VALUE
C THINIT     INITIAL FLOOR COORDINATE AZIMUTH
C PHINIT     INITIAL FLOOR COORDINATE PITCH
C
      REAL  XINIT, YINIT, ZINIT, THINIT, PHINIT
C
      COMMON /ELM16C/ XINIT, YINIT, ZINIT, THINIT, PHINIT