Initialisation

CALL EPINIT

Must be called once per job, in the root. Pulls common block /EPCOMM/ in and initializes the package.

More than 10 units can be handled simultaneously as follows:

1. Load a common block /EPCOMM/ that is big enough (see $dim as dimension of LIST, table )
2. After the call to EPINIT set NMUNIT to the new maximum.