musrsim/mutrack/src/COM_OUTPUT.INC

24 lines
852 B
HTML

c===============================================================================
c COM_OUTPUT.INC
c===============================================================================
c Die Deklaration der Variablen und des Commonblocks fuer die DatenAusgabe
c im Programm 'MUTRACK' wird sowohl von den Ausgaberoutinen des Hauptprogramms
c als auch von den zum TriggerDetektor gehoerenden Routinen benoetigt und sind
c daher in diesem separaten include-file niedergelegt.
integer DEBUG_StartNr
integer DEBUG_Anzahl ! fuer wieviele Starts je Schleife sollen
! (so ueberhaupt) DEBUG-Informationen ausgegeben
! werden?
integer lun(2), indx
integer indx1, indx2
COMMON /OUTPUT/ lun, indx1,indx2, indx, DEBUG_StartNr, DEBUG_Anzahl
c 'indx' steht nur im COMMON-Block, damit die Meldungen 'declared but not used'
c unterbleiben!