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