Lines Matching refs:ndofs
32 integer ndofs,nqptstet,nqptshex,nqpts,nx,ny,nxtet,nytet,nxhex
38 parameter(ndofs=(nx*2+1)*(ny*2+1))
43 real*8 arrx(d*ndofs)
51 real*8 hv(ndofs)
65 arrx(i+j*(ny*2+1)+0*ndofs+1)=1.d0*i/(2*ny)
66 arrx(i+j*(ny*2+1)+1*ndofs+1)=1.d0*j/(2*nx)
70 call ceedvectorcreate(ceed,d*ndofs,x,err)
100 call ceedelemrestrictioncreate(ceed,nelemtet,ptet,d,ndofs,d*ndofs,&
103 call ceedelemrestrictioncreate(ceed,nelemtet,ptet,1,1,ndofs,&
165 call ceedelemrestrictioncreate(ceed,nelemhex,phex*phex,d,ndofs,d*ndofs,&
168 call ceedelemrestrictioncreate(ceed,nelemhex,phex*phex,1,1,ndofs,&
231 call ceedvectorcreate(ceed,ndofs,u,err)
233 call ceedvectorcreate(ceed,ndofs,v,err)
241 do i=1,ndofs
256 total=-ndofs
257 do i=1,ndofs