22.05.2014 Views

CERN Program Library Long Writeup W5013 - CERNLIB ...

CERN Program Library Long Writeup W5013 - CERNLIB ...

CERN Program Library Long Writeup W5013 - CERNLIB ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Geant 3.16 GEANT User’s Guide BASE300<br />

Origin : Submitted: 01.10.84<br />

Revision : Revised: 08.11.93<br />

Documentation : R.Brun<br />

Example of user termination routine<br />

SUBROUTINE UGLAST<br />

*<br />

+SEQ,GCLIST<br />

*<br />

* Call standard GEANT termination routine<br />

CALL GLAST<br />

*<br />

* Terminate graphics<br />

CALL HPLEND<br />

*<br />

* Close I/O buffers<br />

IF(NGET .NE. 0 .OR. NSAVE .NE. 0) CALL GCLOSE(0,IER)<br />

*<br />

* Print histograms<br />

CALL HISTDO<br />

*<br />

END<br />

CALL GLAST<br />

Standard GEANT termination routine:<br />

• computes and prints the processing time per event;<br />

• calls MZEND to print the statistics relative to the current run;<br />

• if the structure JGSTAT has been initialised, calls GPSTAT [GEOM700].<br />

38 BASE300 – 1

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!