Lines Matching refs:ndofs
24 integer ndofs,nqpts,nx,ny
27 parameter(ndofs=(nx*2+1)*(ny*2+1))
30 real*8 arrx(d*ndofs),aa(nqpts),uu(ndofs),vv(ndofs),atrue(ndofs)
44 arrx(i+j*(nx*2+1)+0*ndofs+1)=1.d0*i/(2*nx)
45 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
48 call ceedvectorcreate(ceed,d*ndofs,x,err)
68 call ceedelemrestrictioncreate(ceed,nelem,p*p,d,ndofs,d*ndofs,&
71 call ceedelemrestrictioncreate(ceed,nelem,p*p,1,1,ndofs,&
123 call ceedvectorcreate(ceed,ndofs,a,err)
128 call ceedvectorcreate(ceed,ndofs,u,err)
130 call ceedvectorcreate(ceed,ndofs,v,err)
131 do i=1,ndofs
148 do i=1,ndofs