1c
2c     Common for xc parameters
3c
4      integer numfunc
5      parameter(numfunc=80)
6c $Id$
7