Lines Matching refs:xKebe
15 subroutine flesPrepDiag ( ien, xKebe, xGoc, flowDiag ) argument
19 dimension xKebe(npro,3*nshl,3*nshl),
29 Diagl(:,i,1) = xKebe(1:npro,i0+1,i0+1)
30 Diagl(:,i,2) = xKebe(1:npro,i0+2,i0+2)
31 Diagl(:,i,3) = xKebe(1:npro,i0+3,i0+3)
1166 subroutine flesApKG ( ien, xKebe, xGoC, lesP, lesQ, nPs, nQs ) argument
1170 dimension xKebe(npro,3*nshl,3*nshl),
1194 & + xKebe(1:npro,i0+1,j0+1) * Ptemp(:,j,1)
1195 & + xKebe(1:npro,i0+1,j0+2) * Ptemp(:,j,2)
1196 & + xKebe(1:npro,i0+1,j0+3) * Ptemp(:,j,3)
1199 & + xKebe(1:npro,i0+2,j0+1) * Ptemp(:,j,1)
1200 & + xKebe(1:npro,i0+2,j0+2) * Ptemp(:,j,2)
1201 & + xKebe(1:npro,i0+2,j0+3) * Ptemp(:,j,3)
1203 & + xKebe(1:npro,i0+3,j0+1) * Ptemp(:,j,1)
1204 & + xKebe(1:npro,i0+3,j0+2) * Ptemp(:,j,2)
1205 & + xKebe(1:npro,i0+3,j0+3) * Ptemp(:,j,3)
1337 subroutine flesApFull ( ien, xKebe, xGoC, lesP, lesQ, nPs, nQs ) argument
1342 dimension xKebe(npro,3*nshl,3*nshl),
1365 & + xKebe(1:npro,i0+1,j0+1) * Ptemp(:,j,1)
1366 & + xKebe(1:npro,i0+1,j0+2) * Ptemp(:,j,2)
1367 & + xKebe(1:npro,i0+1,j0+3) * Ptemp(:,j,3)
1370 & + xKebe(1:npro,i0+2,j0+1) * Ptemp(:,j,1)
1371 & + xKebe(1:npro,i0+2,j0+2) * Ptemp(:,j,2)
1372 & + xKebe(1:npro,i0+2,j0+3) * Ptemp(:,j,3)
1374 & + xKebe(1:npro,i0+3,j0+1) * Ptemp(:,j,1)
1375 & + xKebe(1:npro,i0+3,j0+2) * Ptemp(:,j,2)
1376 & + xKebe(1:npro,i0+3,j0+3) * Ptemp(:,j,3)