Lines Matching refs:xKebe
1 subroutine fillsparseI( iens, xKebe, lhsK, argument
8 real*8 xKebe(npro,9,nshl,nshl), xGoC(npro,4,nshl,nshl) local
44 lhsK(1,k) = lhsK(1,k) + xKebe(e,1,aa,b)
45 lhsK(2,k) = lhsK(2,k) + xKebe(e,2,aa,b)
46 lhsK(3,k) = lhsK(3,k) + xKebe(e,3,aa,b)
47 lhsK(4,k) = lhsK(4,k) + xKebe(e,4,aa,b)
48 lhsK(5,k) = lhsK(5,k) + xKebe(e,5,aa,b)
49 lhsK(6,k) = lhsK(6,k) + xKebe(e,6,aa,b)
50 lhsK(7,k) = lhsK(7,k) + xKebe(e,7,aa,b)
51 lhsK(8,k) = lhsK(8,k) + xKebe(e,8,aa,b)
52 lhsK(9,k) = lhsK(9,k) + xKebe(e,9,aa,b)