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