File indexing completed on 2025-08-03 08:16:38
0001 FVOIDP FUNCTION HIJJET1_ADDRESS()
0002
0003 COMMON/HIJJET1/NPJ(300),KFPJ(300,500),PJPX(300,500),
0004 & PJPY(300,500),PJPZ(300,500),PJPE(300,500),
0005 & PJPM(300,500),NTJ(300),KFTJ(300,500),
0006 & PJTX(300,500),PJTY(300,500),PJTZ(300,500),
0007 & PJTE(300,500),PJTM(300,500)
0008 SAVE /HIJJET1/
0009 EXTERNAL HIDATA ! All that is required to force loading of BLOCK DATA
0010 FVOIDP GETADDR
0011
0012 HIJJET1_ADDRESS = GETADDR(NPJ)
0013
0014 RETURN
0015 END
