1C> \ingroup selci
2C> @{
3      subroutine selci_rdhwmt(iflwmt,mmulti, nsmax, nf, nfmax, nfmax2)
4*
5* $Id$
6*
7      dimension nf(0:32)
8c
9      call ifill(33,0,nf,1)
10      read (iflwmt,*) mmulti, nsmax
11      read (iflwmt,*) (nf(i),i=mod(nsmax,2),nsmax,2)
12      nfmax = nf(nsmax)
13      nfmax2 = nf(nsmax-2)
14c
15      end
16C> @}
17