MATCOM, EXXCOM, FKXCOM, MATPRT

Function: Fills and prints commons /EXXMAT/ and /FKDDES/ with the correct material description for the event. These commons are used by EXX and FK1TRK (section 9.1).

Source Code: Deck MATCOM, Patch EXXEXTRA, Cards DSTANA, Library DSTANA, Disk DSTFIX.

Calling Sequence:

SUBROUTINE MATCOM

                  ======
SUBROUTINE MATPRT(ILUNIT)

Calling Arguments: None

 
Input arguments

INTEGER 		 ILUNIT 		 LUN for printout

Usage Notes: This routine is called from several routines which use the EXX or FK1TRK routines, for example, DSTMSP (section 10.12) and TRKFIT (section 9.2). The routine is protected against continually refilling the commons by checking for a change to the data type before the update is done.

EXXCOM and FKXCOM are the actual subroutines called by MATCOM which fill the commons /EXXMAT/ and /FKDDES/ respectively. These commons use the same variable names and so cannot be filled directly in the same routine.

Note, EXX routines use the magnetic field, CONSB in GeV/cm, in common /EXXFLD/. This is also filled (from common /PXCONS/) by EXXCOM. In addition, common /FKFILD/, which contains CONSB (same variable name but in DOUBLE PRECISION) is filled by FKXCOM. This is also performed by BPILOT (section 15.3).

MATPRT prints a table of the material in common FKDDES.

Person Responsible: P. Dauncey