1C> \ingroup selci
2C> @{
3      subroutine selci_wthcon(iflcon, title, multi, nelec, issss,
4     $     norbs,
5     &     nnsmax, nci, noconf, nintpo, nbitpi, nbpsy, isym, nsym,
6     &     inttyp,nsneed)
7*
8* $Id$
9*
10      character*80 title
11      dimension nbpsy(8), isym(255), nsneed(3)
12c
13c     write header of the ciconf file
14c
15      write(iflcon) title, multi, nelec, issss, norbs, nnsmax,
16     &     nci, noconf, nintpo, nbitpi, nbpsy, isym, nsym, inttyp,
17     &     nsneed
18c      write(6,*) ' in rdhcon '
19c      write(6,*) ' title, multi, nelec, issss, norbs, nnsmax, nci,',
20c     &     'noconf, nintpo, nbitpi '
21c      write(6,*) title
22c      write(6,*) multi, nelec, issss, norbs, nnsmax, nci, noconf,
23c     &     nintpo, nbitpi, nbpsy, isym, inttyp, nsneed
24      end
25C> @}
26