1 C (notes by HJAaJ Sep 2003) 2 C infave.h has information for rsp/expone.F: 3 C N1AVTOT 1-electron expectation values of LBL1AV(1:N1AVTOT) 4 C N2AVTOT 2-electron expectation values of LBL2AV(1:2,1:N2AVTOT) 5 C 6 PARAMETER ( MAX1AV = MAXLBL, MAX2AV = 10 ) 7 CHARACTER*8 LBL1AV, LBL2AV 8 COMMON /INFAV/ AVE1VAL(MAX1AV), AVE2VAL(MAX2AV), 9 & N1AVTOT,N2AVTOT 10 COMMON /CHRAV/ LBL1AV(MAX1AV), LBL2AV(2,MAX2AV) 11 C 12