Lines Matching refs:i0
68 i0 = (i-1)*4
73 if (globMas(i0+1,j0+1) .ne. 0) then
76 write(543,20) (globMas(i0+ii,j0+kk), kk=1,4)
94 i0 = 4*(i-1)
95 dyf(i0+1) = res(i,1)
96 dyf(i0+2) = res(i,2)
97 dyf(i0+3) = res(i,3)
98 dyf(i0+4) = res(i,4)
99 write(543,20) (dyf(i0+j),j=1,4)
109 i0 = 4*(i-1)
110 solinc(i,1) = dyf(i0+1)
111 solinc(i,2) = dyf(i0+2)
112 solinc(i,3) = dyf(i0+3)
113 solinc(i,4) = dyf(i0+4)