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

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

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

Origin : M.Maire Submitted: 14.12.93<br />

Revision : Revised: 14.12.93<br />

Documentation :<br />

Storing and retrieving JRUNG and JHEAD information<br />

CALL GSRUNG<br />

(NUBUF,UBUF,IADR*)<br />

NUBUF<br />

UBUF<br />

IADR<br />

(INTEGER) number of user words;<br />

(REAL) array of user words;<br />

(INTEGER) position where information is stored in the user bank of the JRUNG structure.<br />

This routine stores the first NUBUF words of array BUF in the user bank attached to the structure JRUNG (see<br />

[BASE299]), starting at location IADR+1. On exit IADR is set to IADR+NUBUF, allowing subsequent filling.<br />

This allows effectively to add information to the current JRUNG bank, whether or not it has already an user<br />

buffer.<br />

CALL GFRUNG<br />

(NWRUNG*,IRUNG*,NUBUF*,UBUF*)<br />

NWRUNG<br />

IRUNG<br />

NUBUF<br />

UBUF<br />

(INTEGER) number of words in JRUNG bank;<br />

(REAL) content of JRUNG bank;<br />

(INTEGER) number of user words;<br />

(REAL) array of user words;<br />

This routine retrieves the content of the JRUNG bank and of the user information added, if any.<br />

CALL GPRUNG<br />

This routine prints the content of the JRUNG bank and of the user information added, if any.<br />

CALL GSHEAD (NUBUF,UBUF,IADR*)<br />

NUBUF<br />

UBUF<br />

IADR<br />

(INTEGER) number of user words;<br />

(REAL) array of user words;<br />

(INTEGER) position where information is stored in the user bank of the JHEAD structure.<br />

This routine stores the first NUBUF words of array BUF in the user bank attached to the structure JHEAD (see<br />

[BASE299]), starting at location IADR+1. On exit IADR is set to IADR+NUBUF, allowing subsequent filling.<br />

This allows effectively to add information to the current JHEAD bank, whether or not it has already an user<br />

buffer.<br />

CALL GFHEAD<br />

(NWHEAD*,IHEAD*,NUBUF*,UBUF*)<br />

NWHEAD<br />

IHEAD<br />

NUBUF<br />

UBUF<br />

(INTEGER) number of words in JHEAD bank;<br />

(REAL) content of JHEAD bank;<br />

(INTEGER) number of user words;<br />

(REAL) array of user words;<br />

This routine retrieves the content of the JHEAD bank and of the user information added, if any.<br />

CALL GPHEAD<br />

This routine prints the content of the JHEAD bank and of the user information added, if any.<br />

35 BASE280 – 1

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

Saved successfully!

Ooh no, something went wrong!