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