Lines Matching refs:numf
72 numf = nf(ns)
83 if (numf.eq.1) then
88 do 11 is = 1,numf
90 do 12 js = 1,numf
93 ie = ie + numf
103 call selci_axbt(w1(1,1,ib),nfmax, w1(1,1,jb),nfmax, e,numf,
104 $ numf, numf, numf)
119 do 23 is = 1,numf
122 ie = ie + numf
131 call selci_axbt(w1(1,1,ib),nfmax, w2(1,1,jb),nfmax2, e,numf,
132 $ numf, numf, numf2)
150 do 32 is = 1,numf
155 iee = iee + numf
167 call selci_axbt(w2(1,1,ib),nfmax2, w1(1,1,jb),nfmax, e,numf,
168 $ numf, numf2, numf2)
179 if (numf.eq.1) then
184 do 42 is = 1,numf
186 do 43 js =1,numf
189 ie = ie + numf
200 call selci_axbt(w2(1,1,ib),nfmax2, w2(1,1,jb),nfmax2, e,numf,
201 $ numf, numf2, numf)