1C> \ingroup selci
2C> @{
3      subroutine selci_pconls(ioconf)
4*
5* $Id$
6*
7#include "implicit.fh"
8#include "ciinfo.fh"
9      dimension ioconf(nintpo,noconf)
10c
11      write(ifllog,1)
12 1    format(/' List of orbital occupations in the CI '/)
13      do 10 iconf = 1,noconf
14         call selci_prtcon(ifllog,norbs,ioconf(1,iconf),nintpo,nbitpi)
15 10   continue
16c
17      end
18C> @}
19