Lines Matching refs:nx
25 integer ndofs,nqpts,nx,ny
26 parameter(nx=3)
28 parameter(ndofs=(nx*2+1)*(ny*2+1))
43 do i=0,nx*2
45 arrx(i+j*(nx*2+1)+0*ndofs+1)=1.d0*i/(2*nx)+j*0.5
46 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)+i*0.5
54 do i=0,nx*2
56 uu(i+j*(nx*2+1)+1)=i*nx+j*ny
70 col=mod(i,nx)
71 row=i/nx
72 offset=col*(p-1)+row*(nx*2+1)*(p-1)
75 indx(p*(p*i+k)+j+1)=offset+k*(nx*2+1)+j