C	intwork.inc
	COMMON /INTWORK/ SUPEPSMAGN, NFCALLS(6), 
     $	EPS(lidim), EPSKVAR(lidim), 
     $	DHFAKT(nhyddim),RFAKT(lidim)
	INTEGER NFCALLS   ! the six items :   mod,path,branch, arg, righ,left
	REAL*8 SUPEPSMAGN, EPS, EPSKVAR
	COMPLEX*16 DHFAKT,RFAKT