Lines Matching refs:j
28 do j=1,nsclr
29 tmp(j)=y(i,5+j)
38 do j=1,nsclr
39 BC(i,6+j)=-tmp(j)
116 do j=1,nsclr
118 tmpBC(:,j)=BC(:,nstart+j)
126 do j=1,nsclr
129 BCB(i,k,6+j)=tmpBCB(i,k,j)
187 integer i,j,n local
242 j = int ( (y - table(2,0,0,itype) ) / dx(2,itype))
249 if(j .lt. 0) then
250 j = 0
259 if(j .ge. numdata(2,itype)) then
260 j = numdata(2,itype)-2
261 y = table(1,0,j+1,itype)
267 z(1,1) = table(n,i,j,itype)
268 z(3,1) = table(n,i+1,j,itype)
269 z(1,2) = table(n,i,j+1,itype)
270 z(3,2) = table(n,i+1,j+1,itype)
273 & *(x-table(1,i,j,itype)) + z(1,1)
275 & *(x-table(1,i,j,itype)) + z(1,2)
277 & *(y-table(2,i,j,itype)) + z(2,1)
305 integer i,j,k local
311 j=0
338 j = j + 1
342 table(1,i,j,islot) = x1*1.d-0
343 table(2,i,j,islot) = x2*1.d-0
344 table(3,i,j,islot) = y1*1.d-0
345 table(4,i,j,islot) = y2*1.d-0
355 numdata(2,islot) = j+1
361 write(*,*) 'Table is ',i,' by ',j+1
363 write(*,*) 'there are ',i*(j+1),' flux data points'
372 do j=0,numdata(2,islot)-1
373 write(*,*) i,j,(table(k,i,j,islot), k=1,4)
490 integer i,j local
534 do 101 j=0,i
535 write(*,*) j,table(j,1,islot), table(j,2,islot)