Lines Matching refs:jj
113 do jj=1,ntspts ! read coordinate data where solution desired
114 read(626,*) ptts(jj,1), ptts(jj,2), ptts(jj,3)
159 do jj = 1, ntspts
160 write(1001, "(I5, T12, 3(F16.12))") jj, ptts(jj,1:3)
199 do jj = 1, ntspts
200 vartssoln((jj-1)*ndof+1:jj*ndof)=varts(jj,:)
221 do jj = 1, ntspts
222 indxvarts = (jj-1)*ndof
225 varts(jj,k) =
241 do jj = 1, ntspts
242 vartsbuff(jj,1:ndof, ivartsBuff) = varts(jj,1:ndof)
293 …& ((vartsbuff(jj,k,ibuf), k=1, ndof) !loop over the variables that you actual…
294 & , jj=1, ntspts) !loop over probe points