Lines Matching refs:i0
28 i0 = (nsd) * (i - 1)
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)
1140 i0 = (nsd) * (i - 1)
1144 & + xGoC(1:npro,i0+1,j) * Ptemp(:,j,nPs)
1147 & + xGoC(1:npro,i0+2,j) * Ptemp(:,j,nPs)
1150 & + xGoC(1:npro,i0+3,j) * Ptemp(:,j,nPs)
1189 i0 = (nsd) * (i - 1)
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)
1213 i0 = (nsd) * (i - 1)
1217 & + xGoC(1:npro,i0+1,j) * Ptemp(:,j,nPs)
1219 & + xGoC(1:npro,i0+2,j) * Ptemp(:,j,nPs)
1221 & + xGoC(1:npro,i0+3,j) * Ptemp(:,j,nPs)
1259 i0 = (nsd) * (j - 1)
1262 & - xGoC(1:npro,i0+1,i) * Ptemp(:,j,1)
1263 & - xGoC(1:npro,i0+2,i) * Ptemp(:,j,2)
1264 & - xGoC(1:npro,i0+3,i) * Ptemp(:,j,3)
1302 i0 = (nsd) * (j - 1)
1305 & - xGoC(1:npro,i0+1,i) * Ptemp(:,j,1)
1306 & - xGoC(1:npro,i0+2,i) * Ptemp(:,j,2)
1307 & - xGoC(1:npro,i0+3,i) * Ptemp(:,j,3)
1317 i0 = nnm2 + i
1321 & + xGoC(1:npro,i0,j) * Ptemp(:,j,nPs)
1360 i0 = (nsd) * (i - 1)
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)
1384 i0 = (nsd) * (i - 1)
1388 & + xGoC(1:npro,i0+1,j) * Ptemp(:,j,nPs)
1390 & + xGoC(1:npro,i0+2,j) * Ptemp(:,j,nPs)
1392 & + xGoC(1:npro,i0+3,j) * Ptemp(:,j,nPs)
1401 i0 = (nsd) * (j - 1)
1404 & - xGoC(1:npro,i0+1,i) * Ptemp(:,j,1)
1405 & - xGoC(1:npro,i0+2,i) * Ptemp(:,j,2)
1406 & - xGoC(1:npro,i0+3,i) * Ptemp(:,j,3)
1416 i0 = nnm2 + i
1420 & + xGoC(1:npro,i0,j) * Ptemp(:,j,nPs)