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