C INCLUDE 'dcrt.inc' C ------------------------------------------------------------------ INTEGER MEND,MSTOR PARAMETER (MEND=128) PARAMETER (MSTOR=128) INTEGER KSTORE,NEXPS,NHLF,MODCRT REAL STORE,STEP,UEB,UEBPP,UEBPH,UEBHH,UEBDRT,BOUNDR(7) INTEGER NSRFCA,NEND,KEND(MEND),NSTOR,KSTOR(MSTOR) COMMON/DCRT/ KSTORE,NEXPS,NHLF,MODCRT,STORE,STEP,UEB,UEBPP,UEBPH, * UEBHH,UEBDRT,BOUNDR,NSRFCA,NEND,KEND,NSTOR,KSTOR SAVE /DCRT/ C ------------------------------------------------------------------ C KSTORE,NEXPS,NHLF,MODCRT... Input data (2) of 'ray.for'. C STORE,STEP,UEB,UEBPP,UEBPH,UEBHH,UEBDRT... Input data (3) of C 'ray.for'. C BOUNDR..Boundaries X1MIN,X1MAX,X2MIN,X2MAX,X3MIN,X3MAX,TMAX of the C computational volume, see input data (4) of 'ray.for'. C NSRFCA..Number of auxiliary surfaces, see input data (5) of C 'ray.for'. C NEND... Number of end surfaces, see input data (6) of 'ray.for'. C KEND... Contains the indices of end surfaces, see input data (6) C of 'ray.for'. C NSTOR...Number of surfaces for storing computed quantities, see C input data (7) of 'ray.for'. C KSTOR...Contains the indices of surfaces for storing computed C quantities, see input data (7), the input data (8) and C finaly, the input data (9) of 'ray.for'. The total of C 3*NSTOR integers. C C Common block /DCRT/ is also included in subroutine files C 'ray.for', 'raycb.for', 'init.for', 'rpar.for', 'writ.for' and C 'scropc.for'. All the input data are read in 'ray.for'. C c C All the input data are stored sequentially in the same order as C they were read. The only exception are locations NEND and NSTOR C which are inserted when reading the input data. The index of the C last allocated numeric unit of array KEND is named MEND. The C index of the last allocated numeric unit of array KSTOR is named C MSTOR. If MEND or MSTOR is changed, it must be adjusted in all C subroutines which include common block /DCRT/. C C Date: 1996, July 8 C Coded by Ludek Klimes C C======================================================================= C