1C> \ingroup selci
2C> @{
3      subroutine selci_rdconf(iflcon,ioconf,indxci,nintpo,noconf)
4*
5* $Id$
6*
7      integer ioconf(nintpo*noconf),indxci(noconf+1)
8c
9c     read occupations and index vector from ciconf file
10c
11      read (iflcon) ioconf
12      read (iflcon) indxci
13c
14      end
15C> @}
16