Lines Matching refs:jj
1374 do jj=1,ntspts ! read coordinate data where solution desired
1375 read(626,*) ptts(jj,1),ptts(jj,2),ptts(jj,3)
1397 do jj=1,ntspts
1400 jjm1 = jj-1
1406 iv_rank(jj) = iv_node*iv_rankpernode
1411 write(*,*) ' Probe', jj, 'handled by rank',
1412 & iv_rank(jj), ' on node', iv_node
1416 if(iv_rank(jj) .lt.0 .or. iv_rank(jj) .ge. numpe) then
1417 write(*,*) 'WARNING: iv_rank(',jj,') is ', iv_rank(jj),
1419 iv_rank(jj) = numpe-1
1423 if(myrank == iv_rank(jj)) then
1425 fvarts=trim(fvarts)//trim(cname2(jj))
1429 open(unit=1000+jj, file=fvarts, status='unknown')
1443 do jj=1,ntspts
1444 if (myrank == iv_rank(jj)) then
1445 close(1000+jj)
1766 do jj = 1, ntspts
1767 vartssoln((jj-1)*ndof+1:jj*ndof)=varts(jj,:)
1794 do jj = 1, ntspts
1796 if(myrank .eq. iv_rank(jj)) then
1799 indxvarts = (jj-1)*ndof
1802 varts(jj,k)=vartssolng(indxvarts+k)/
1812 do jj = 1, ntspts
1813 if(myrank .eq. iv_rank(jj)) then
1814 ifile = 1000+jj
1815 … write(ifile,555) lstep, (varts(jj,k),k=1,ndof) !Beware of format 555 - check ndof
1821 fvarts=trim(fvarts)//trim(cname2(jj))