Searched refs:dlstride (Results 1 – 12 of 12) sorted by relevance
26 REAL*8 dest(ld1*dlstride)39 if (dlstride .eq. 1) then135 dest(1+(jy-1)*dlstride) = dest(1+(jy-1)*dlstride) + t0136 dest(1+(jy + 1 -1)*dlstride) = dest(1+(jy + 1 -1)*dlstride) + t1137 dest(1+(jy + 2 -1)*dlstride) = dest(1+(jy + 2 -1)*dlstride) + t2138 dest(1+(jy + 3 -1)*dlstride) = dest(1+(jy + 3 -1)*dlstride) + t3139 dest(1+(jy + 4 -1)*dlstride) = dest(1+(jy + 4 -1)*dlstride) + t4140 dest(1+(jy + 5 -1)*dlstride) = dest(1+(jy + 5 -1)*dlstride) + t5141 dest(1+(jy + 6 -1)*dlstride) = dest(1+(jy + 6 -1)*dlstride) + t6142 dest(1+(jy + 7 -1)*dlstride) = dest(1+(jy + 7 -1)*dlstride) + t7[all …]
39 if (dlstride .eq. 1) then208 dest(1+(jy-1)*dlstride) = dest(1+(jy-1)*dlstride) + t0209 dest(1+(jy + 1 -1)*dlstride) = dest(1+(jy + 1 -1)*dlstride) + t1210 dest(1+(jy + 2 -1)*dlstride) = dest(1+(jy + 2 -1)*dlstride) + t2211 dest(1+(jy + 3 -1)*dlstride) = dest(1+(jy + 3 -1)*dlstride) + t3212 dest(1+(jy + 4 -1)*dlstride) = dest(1+(jy + 4 -1)*dlstride) + t4213 dest(1+(jy + 5 -1)*dlstride) = dest(1+(jy + 5 -1)*dlstride) + t5214 dest(1+(jy + 6 -1)*dlstride) = dest(1+(jy + 6 -1)*dlstride) + t6215 dest(1+(jy + 7 -1)*dlstride) = dest(1+(jy + 7 -1)*dlstride) + t7227 dest(1+(jy-1)*dlstride) = dest(1+(jy-1)*dlstride) + t0[all …]
67 n_extent,m_extent, ld1,dlstride) argument69 DESC_INT n_extent,m_extent,ld1,ld2,dlstride76 if (dlstride .eq. 1) then87 dest(1+(k-1)*dlstride) = 0.0d091 dest(1+(k-1)*dlstride) = dest(1+(k-1)*dlstride) + &
439 if (dlstride .eq. 1) then564 dest(1+(iy-1)*dlstride) = dest(1+(iy-1)*dlstride) + t0*s1(i, j0) &569 dest(1+(iy + 1 -1)*dlstride) = dest(1+(iy + 1 -1)*dlstride) + t0*s1(i+1, j0) &574 dest(1+(iy + 2 -1)*dlstride) = dest(1+(iy + 2 -1)*dlstride) + t0*s1(i+2, j0) &587 dest(1+(iy-1)*dlstride) = dest(1+(iy-1)*dlstride) + t0*s1(i, j0) &599 dest(1+(iy-1)*dlstride) = dest(1+(iy-1)*dlstride) + t0*s1(i,j0)600 dest(1+(iy + 1 -1)*dlstride) = dest(1+(iy + 1 -1)*dlstride) + t0*s1(i+1,j0)601 dest(1+(iy + 2 -1)*dlstride) = dest(1+(iy + 2 -1)*dlstride) + t0*s1(i+2,j0)602 dest(1+(iy + 3 -1)*dlstride) = dest(1+(iy + 3 -1)*dlstride) + t0*s1(i+3,j0)611 dest(1+(iy-1)*dlstride) = dest(1+(iy-1)*dlstride) + t0 * s1(i, j0)[all …]
444 REAL*8 dest(ld1*dlstride)455 if (dlstride .eq. 1) then550 dest(1+(i-1)*dlstride) = dest(1+(i-1)*dlstride) + temp2(kk2)572 dest(1+(i-1)*dlstride) = dest(1+(i-1)*dlstride) + temp2(kk2)606 if (dlstride .eq. 1) then740 dest(1+(kk-1)*dlstride) = 0749 dtemp0 = dest(1+(kk-1)*dlstride)750 dtemp1 = dest(1+(kk)*dlstride)751 dtemp2 = dest(1+(kk+1)*dlstride)752 dtemp3 = dest(1+(kk+2)*dlstride)[all …]