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