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