Lines Matching refs:Kspace
48 & HBrg(Kspace+1,*), eBrg(*),
56 & uBrg(nshg,nflow,Kspace+1)
191 call clear (eBrg, Kspace+1)
200 do 1000 iK = 1, Kspace
420 & HBrg(Kspace+1,Kspace), eBrg(Kspace+1),
421 & yBrg(Kspace), Rcos(Kspace),
422 & Rsin(Kspace), ilwork(nlwork),
427 & uBrg(nshg,nflow,Kspace+1)
568 call clear (eBrg, Kspace+1)
577 do 1000 iK = 1, Kspace
797 & HBrg(Kspace+1,*), eBrg(*),
804 & uBrgt(nshg,Kspace+1)
912 call clear (eBrg, Kspace+1)
913 call clear (HBrg, Kspace+1)
922 do 1000 iK = 1, Kspace