Lines Matching refs:nlist
18 integer mpairs,npairs,isa,iwm,nlist,ilist,isa0,iisa
69 nlist=0
72 nlist=nlist+1
73 list(nlist,1)=iwm
76 if(npairs+nlist.gt.mpairs)
78 do 5 ilist=1,nlist
82 npairs=npairs+nlist
83 lssw=lssw+nlist
84 lswin(isa-isafr+1,1)=nlist
89 nlist=0
92 nlist=nlist+1
93 list(nlist,2)=iwm
96 if(npairs+nlist.gt.mpairs)
98 do 8005 ilist=1,nlist
102 npairs=npairs+nlist
103 llsw=llsw+nlist
104 lswin(isa-isafr+1,2)=nlist
116 nlist=0
182 nlist=0
185 nlist=nlist+1
186 list(nlist,1)=iwm
191 lswin(iisa-isafr+1,1)=nlist
193 if(npairs+nlist.gt.mpairs)
195 do 19 ilist=1,nlist
198 npairs=npairs+nlist
199 lssw=lssw+nlist
204 nlist=0
207 nlist=nlist+1
208 list(nlist,2)=iwm
213 lswin(iisa-isafr+1,2)=nlist
215 if(npairs+nlist.gt.mpairs)
217 do 8019 ilist=1,nlist
220 npairs=npairs+nlist
221 llsw=llsw+nlist