Lines Matching refs:npairs
76 integer nwloc,nsloc,nwnon,nsnon,npairs
154 npairs=int_mb(lptr)
155 if(npairs.gt.0) then
163 lptr=lptr+4*nwloc+1+npairs
170 npairs=int_mb(lptr)
171 if(npairs.gt.0) then
182 lptr=lptr+4*nsloc+1+npairs
189 npairs=int_mb(lptr)
190 if(npairs.gt.0) then
201 lptr=lptr+4*nsnon+1+npairs
208 npairs=int_mb(lptr)
209 if(npairs.gt.0) then
221 lptr=lptr+4*nsloc+1+npairs
228 npairs=int_mb(lptr)
229 if(npairs.gt.0) then
230 call argos_cafe_fsb(npairs,int_mb(lptr+1),mbt(2),mbp(2),
234 lptr=lptr+1+npairs
241 npairs=int_mb(lptr)
242 if(npairs.gt.0) then
243 call argos_cafe_fsh(npairs,int_mb(lptr+1),mht(2),mhp(2),
248 lptr=lptr+1+npairs
255 npairs=int_mb(lptr)
256 if(npairs.gt.0) then
257 call argos_cafe_fsd(npairs,int_mb(lptr+1),mdt(2),mdp(2),
261 lptr=lptr+1+npairs
268 npairs=int_mb(lptr)
269 if(npairs.gt.0) then
270 call argos_cafe_fso(npairs,int_mb(lptr+1),mit(2),mip(2),
274 lptr=lptr+1+npairs
281 npairs=int_mb(lptr)
282 if(npairs.gt.0) then
283 call argos_cafe_fst(npairs,int_mb(lptr+1),mtt(2),
288 lptr=lptr+1+npairs