Lines Matching refs:jj
20 do jj = 1, ntspts
22 if(statptts(jj,1).gt.0) then
23 if(statptts(jj,1).eq.iblkts) then
25 call shphex (ipord, parptts(jj,:),shape(:),
28 call shptet (ipord, parptts(jj,:),shape(:),
31 founde=statptts(jj,2)
34 xts1 = ptts(jj,1)
35 xts2 = ptts(jj,2)
36 xts3 = ptts(jj,3)
212 statptts(jj,1)=iblkts
213 statptts(jj,2)=founde
214 parptts(jj,:)=zi0(founde,:)
217 statptts(jj,1)=nelblk+1 ! not searched for following steps
234 varts(jj,:) = soln(:)