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