C
C INCLUDE 'initd.inc' C ------------------------------------------------------------------ INTEGER INIDIM,INIDIR,INIPAR,NSRC,MSRC PARAMETER(MSRC=1000) REAL E1INI,E2INI,E3INI,EINI,ADVANC,X1INI,X2INI,X3INI,TTINI REAL E11INI,E12INI,E13INI,E21INI,E22INI,E23INI REAL E31INI,E32INI,E33INI REAL X1SRC(MSRC),X2SRC(MSRC),X3SRC(MSRC),TTSRC(MSRC) REAL E1SRC(MSRC),E2SRC(MSRC) COMMON/INISC/INIDIM,INIDIR,INIPAR,ADVANC, * E1INI,E2INI,E3INI,EINI, * E11INI,E12INI,E13INI, * E21INI,E22INI,E23INI, * E31INI,E32INI,E33INI, * X1INI,X2INI,X3INI,TTINI, * NSRC,X1SRC,X2SRC,X3SRC,TTSRC,E1SRC,E2SRC SAVE /INISC/ C ------------------------------------------------------------------ C INIDIM,E1INI,E2INI,E3INI,INIDIR,INIPAR,ADVANC... Input parameters C taken from the input SEP parameter file for the Complete C Ray Tracing program. 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 NSRC,X1SRC,X2SRC,X3SRC,TTSRC... Input data SRC of 'init.for' for C multiple source points. C E1SRC,E2SRC... Rotational vectors analogous to E1INI,E2INI,E3INI C (with E3INI=0), derived from directional vectors C corresponding to individual point sources. Used only if C INIDIR.NE.0. 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: 2003, May 5 C Coded by Ludek Klimes C C======================================================================= C