1       COMMON /CHODBG2/ SUMVE1,SUMNRM,SUMVE2,erralf,difalf,
2      &                 VCHNRM(5000,8)
3 
4