Home
last modified time | relevance | path

Searched refs:arrx (Results 1 – 23 of 23) sorted by relevance

/libCEED/tests/ !
H A Dt511-operator-f.f9034 real*8 arrx(d*ndofs)
54 arrx(i+1)=mod(i,(nx*2+1))
55 arrx(i+1)=arrx(i+1)*(1.d0/(nx*2.d0))
57 arrx(i+1+ndofs)=val*(1.d0/(ny*2.d0))
116 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt510-operator-f.f9034 real*8 arrx(d*ndofs)
53 arrx(i+1)=mod(i,(nx*2+1))
54 arrx(i+1)=arrx(i+1)*(1.d0/(nx*2.d0))
56 arrx(i+1+ndofs)=val*(1.d0/(ny*2.d0))
115 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt540-operator-f.f9026 real*8 arrx(d*nelem*2*2),uu(ndofs)
40 arrx(i+1+j*2+0*4)=i
41 arrx(i+1+j*2+1*4)=j
46 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt536-operator-f.f9034 real*8 arrx(d*ndofs),aa(nqpts),uu(ndofs),vv(ndofs),atrue(ndofs)
52 arrx(i+1)=mod(i,(nx*2+1))
53 arrx(i+1)=arrx(i+1)*(1.d0/(nx*2.d0))
55 arrx(i+1+ndofs)=val*(1.d0/(ny*2.d0))
59 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt533-operator-f.f9030 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)
50 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt534-operator-f.f9030 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)
50 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt500-operator-f.f9027 real*8 arrx(nx)
40 arrx(i+1)=i/(nx-1.d0)
86 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt503-operator-f.f9027 real*8 arrx(nx)
46 arrx(i+1)=i/(nx-1.d0)
50 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt502-operator-f.f9027 real*8 arrx(nx)
41 arrx(i+1)=i/(nx-1.d0)
87 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt501-operator-f.f9027 real*8 arrx(nx)
41 arrx(i+1)=i/(nx-1.d0)
87 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt530-operator-f.f9030 real*8 arrx(d*ndofs),aa(nqpts),qq(nqpts),vv(ndofs)
45 arrx(i+j*(nx*2+1)+0*ndofs+1)=1.d0*i/(2*nx)
46 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
51 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt531-operator-f.f9031 real*8 arrx(d*ndofs),uu(ndofs),vv(ndofs),vvlin(ndofs)
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
51 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt505-operator-f.f9027 real*8 arrx(nx)
41 arrx(i+1)=i/(nx-1.d0)
87 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt535-operator-f.f9030 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)
50 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt532-operator-f.f9031 real*8 arrx(d*ndofs),vv(ndofs)
46 arrx(i+j*(nx*2+1)+0*ndofs+1)=1.d0*i/(2*nx)
47 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
52 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt524-operator-f.f9043 real*8 arrx(d*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)
72 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt521-operator-f.f9043 real*8 arrx(d*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)
72 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt520-operator-f.f9043 real*8 arrx(d*ndofs)
64 arrx(i+j*(ny*2+1)+0*ndofs+1)=1.d0*i/(2*ny)
65 arrx(i+j*(ny*2+1)+1*ndofs+1)=1.d0*j/(2*nx)
71 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt522-operator-f.f9043 real*8 arrx(d*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)
72 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt553-operator-f.f9027 real*8 arrx(nx) variable
43 arrx(i+1)=i/(nx-1.d0)
86 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt550-operator-f.f9033 real*8 arrx(nx)
48 arrx(i+1)=i/(nx-1.d0)
106 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt506-operator-f.f9029 real*8 arrx(nx)
43 arrx(i+1)=i/(nx-1.d0)
93 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
H A Dt552-operator-f.f9033 real*8 arrx(nx)
51 arrx(i+1)=i/(nx-1.d0)
107 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)