C 
C     INCLUDE 'initd.inc'
C     ------------------------------------------------------------------
      INTEGER INIDIM,INIPAR,NSRC,MSRC
      PARAMETER(MSRC=1000)
      REAL X1INI,X2INI,X3INI,TTINI,ADVANC
      REAL X1SRC(MSRC),X2SRC(MSRC),X3SRC(MSRC),TTSRC(MSRC)
      COMMON/INISC/INIDIM,INIPAR,X1INI,X2INI,X3INI,TTINI,ADVANC,
     *             NSRC,X1SRC,X2SRC,X3SRC,TTSRC
      SAVE /INISC/
C     ------------------------------------------------------------------
C     INIDIM,INIPAR,ADVANC... Input parameters taken from the input SEP
C             parameter file for the Complete Ray Tracing program.
C     X1INI,X2INI,X3INI,TTINI... Input data SRC of 'init.for' if they
C     are defined.
C     NSRC,X1SRC,X2SRC,X3SRC,TTSRC... Input data SRC of 'init.for' for
C     multiple source points.
C
C     Common block /INISC/ is included in subroutines INIS1, INIS2 and
C     INIT5 in order to communicate the input data to the subroutines
C     INIS2 and INIT5.
C
C Date: 1999, September 23
C Coded by Ludek Klimes
C
C=======================================================================
C