C
C     INCLUDE 'initd.inc'
C     ------------------------------------------------------------------
      INTEGER LUSRC
      PARAMETER (LUSRC=8)
      INTEGER INIDIM,INIDIR,INIPAR
      REAL E1INI,E2INI,E3INI,EINI,ADVANC,X1INI,X2INI,X3INI,TTINI
      REAL E11INI,E12INI,E13INI,E21INI,E22INI,E23INI
      REAL E31INI,E32INI,E33INI
      COMMON/INISC/INIDIM,INIDIR,INIPAR,ADVANC,
     *             E1INI,E2INI,E3INI,EINI,
     *             E11INI,E12INI,E13INI,
     *             E21INI,E22INI,E23INI,
     *             E31INI,E32INI,E33INI,
     *             X1INI,X2INI,X3INI,TTINI
      SAVE /INISC/
C     ------------------------------------------------------------------
C     LUSRC...Logical unit number of the source-point file.  The file is
C             opened in subroutine INIS1, read by subroutine INISRC
C             which is called by INIS1 and INIT5, and closed by INIT5.
C     INIDIM,INIDIR,INIPAR,ADVANC... Input parameters taken from the
C             input SEP parameter file for the Complete Ray Tracing
C             program.
C     E1INI,E2INI,E3INI... Input parameters taken from the input SEP
C             parameter file for the Complete Ray Tracing program
C             or derived from input data SRC of 'init.for'.
C     EINI,E11INI,E12INI,E13INI,E21INI,E22INI,E23INI,E31INI,E32INI,
C     E33INI... Auxiliary quantities derived from E1INI, E2INI, E3INI.
C     X1INI,X2INI,X3INI,TTINI... Input data SRC of 'init.for' if they
C             are defined.
C     Common block /INISC/ is included in subroutines INIT5, INISRC,
C     INIS1 and INIS2 in order to communicate the input data.
C
C Date: 2008, April 11
C Coded by Ludek Klimes
C
C=======================================================================
C