Home
last modified time | relevance | path

Searched refs:err (Results 1 – 25 of 71) sorted by relevance

123

/libCEED/tests/
H A Dt532-operator-f.f9011 integer ceed,err,i,j,k
41 call ceedinit(trim(arg)//char(0),ceed,err)
50 call ceedvectorcreate(ceed,d*ndofs,x,err)
52 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
55 call ceedvectorcreate(ceed,nqpts,qdata_mass,err)
56 call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata_diff,err)
72 & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
75 & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
78 & stridesu,erestrictui,err)
82 & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
[all …]
H A Dt523-operator-f.f9015 integer ceed,err,i,j,k
57 call ceedinit(trim(arg)//char(0),ceed,err)
60 call ceedvectorcreate(ceed,d*ndofs,x,err)
63 call ceedvectorcreate(ceed,nqptstet,qdatatet,err)
64 call ceedvectorcreate(ceed,nqptshex,qdatahex,err)
89 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictxtet,err)
92 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictutet,err)
95 & stridesutet,erestrictuitet,err)
100 & qweight,bxtet,err)
103 & qweight,butet,err)
[all …]
H A Dt524-operator-f.f9015 integer ceed,err,i,j,k
60 call ceedinit(trim(arg)//char(0),ceed,err)
70 call ceedvectorcreate(ceed,d*ndofs,x,err)
72 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
75 call ceedvectorcreate(ceed,nqptstet,qdatatet,err)
76 call ceedvectorcreate(ceed,nqptshex,qdatahex,err)
101 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictxtet,err)
104 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictutet,err)
107 & stridesutet,erestrictuitet,err)
112 & qweight,bxtet,err)
[all …]
H A Dt506-operator-f.f9011 integer ceed,err,i,j
40 call ceedinit(trim(arg)//char(0),ceed,err)
51 & ceed_use_pointer,indx,erestrictx,err)
60 & ceed_use_pointer,indu,erestrictu,err)
63 & stridesu_small,erestrictui_small,err)
66 & q*nelem*scale,stridesu_large,erestrictui_large,err)
68 call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx_small,err)
69 call ceedbasiscreatetensorh1lagrange(ceed,1,2,p,q,ceed_gauss,bu_small,err)
71 & ceed_gauss,bx_large,err)
73 & ceed_gauss,bu_large,err)
[all …]
H A Dt550-operator-f.f9011 integer ceed,err,i,j
45 call ceedinit(trim(arg)//char(0),ceed,err)
55 & ceed_use_pointer,indx,erestrictx,err)
64 & erestrictucoarse,err)
73 & erestrictufine,err)
77 & erestrictui,err)
79 call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
81 & bufine,err)
83 & bucoarse,err)
87 &//'t502-operator.h:setup'//char(0),qf_setup,err)
[all …]
H A Dt540-operator-f.f9011 integer ceed,err,i,j
35 call ceedinit(trim(arg)//char(0),ceed,err)
44 call ceedvectorcreate(ceed,d*nelem*2*2,x,err)
46 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
49 call ceedvectorcreate(ceed,nqpts,qdata_mass,err)
54 & stridesx,erestrictxi,err)
58 & stridesu,erestrictui,err)
62 & stridesq,erestrictqi,err)
65 call ceedbasiscreatetensorh1lagrange(ceed,d,d,2,q,ceed_gauss,bx,err)
66 call ceedbasiscreatetensorh1lagrange(ceed,d,1,p,q,ceed_gauss,bu,err)
[all …]
H A Dt535-operator-f.f9011 integer ceed,err,i,j,k
39 call ceedinit(trim(arg)//char(0),ceed,err)
48 call ceedvectorcreate(ceed,d*ndofs,x,err)
50 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
53 call ceedvectorcreate(ceed,nqpts,qdata_mass,err)
54 call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata_diff,err)
70 & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
73 & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
76 & stridesu,erestrictui,err)
80 & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
[all …]
H A Dt552-operator-f.f9011 integer ceed,err,i,j
48 call ceedinit(trim(arg)//char(0),ceed,err)
58 & ceed_use_pointer,indx,erestrictx,err)
67 & erestrictucoarse,err)
76 & erestrictufine,err)
80 & erestrictui,err)
82 call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
84 & bufine,err)
88 &//'t502-operator.h:setup'//char(0),qf_setup,err)
89 call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
[all …]
H A Dt521-operator-f.f9015 integer ceed,err,i,j,k
60 call ceedinit(trim(arg)//char(0),ceed,err)
70 call ceedvectorcreate(ceed,d*ndofs,x,err)
72 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
75 call ceedvectorcreate(ceed,nqptstet,qdatatet,err)
76 call ceedvectorcreate(ceed,nqptshex,qdatahex,err)
101 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictxtet,err)
104 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictutet,err)
107 & nqptstet,stridesutet,erestrictuitet,err)
112 & qweight,bxtet,err)
[all …]
H A Dt520-operator-f.f9015 integer ceed,err,i,j,k
59 call ceedinit(trim(arg)//char(0),ceed,err)
69 call ceedvectorcreate(ceed,d*ndofs,x,err)
71 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
74 call ceedvectorcreate(ceed,nqptstet,qdatatet,err)
75 call ceedvectorcreate(ceed,nqptshex,qdatahex,err)
100 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictxtet,err)
102 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictutet,err)
105 & nqptstet,stridesutet,erestrictuitet,err)
110 & qweight,bxtet,err)
[all …]
H A Dt522-operator-f.f9015 integer ceed,err,i,j,k
60 call ceedinit(trim(arg)//char(0),ceed,err)
70 call ceedvectorcreate(ceed,d*ndofs,x,err)
72 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
75 call ceedvectorcreate(ceed,nqptstet*d*(d+1)/2,qdatatet,err)
76 call ceedvectorcreate(ceed,nqptshex*d*(d+1)/2,qdatahex,err)
101 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictxtet,err)
104 & ceed_mem_host,ceed_use_pointer,indxtet,erestrictutet,err)
107 & d*(d+1)/2*nqptstet,stridesqdtet,erestrictqditet,err)
112 & qweight,bxtet,err)
[all …]
H A Dt553-operator-f.f906 integer ceed,err,i,j variable
40 call ceedinit(trim(arg)//char(0),ceed,err)
50 & ceed_use_pointer,indx,erestrictx,err)
58 & ceed_mem_host,ceed_use_pointer,inducoarse,erestrictucoarse,err)
66 & ceed_mem_host,ceed_use_pointer,indufine,erestrictufine,err)
70 & erestrictui,err)
72 call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
74 & bufine,err)
76 call ceedqfunctioncreateinteriorbyname(ceed,"Mass1DBuild",qf_setup,err)
77 call ceedqfunctioncreateinteriorbyname(ceed,"MassApply",qf_mass,err)
[all …]
H A Dt505-operator-f.f9011 integer ceed,err,i,j
38 call ceedinit(trim(arg)//char(0),ceed,err)
49 & ceed_use_pointer,indx,erestrictx,err)
58 & ceed_use_pointer,indu,erestrictu,err)
61 & erestrictui,err)
63 call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
64 call ceedbasiscreatetensorh1lagrange(ceed,1,1,p,q,ceed_gauss,bu,err)
68 &//'t500-operator.h:setup'//char(0),qf_setup,err)
69 call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
70 call ceedqfunctionaddinput(qf_setup,'dx',1,ceed_eval_grad,err)
[all …]
H A Dt502-operator-f.f9011 integer ceed,err,i,j
38 call ceedinit(trim(arg)//char(0),ceed,err)
49 & ceed_use_pointer,indx,erestrictx,err)
58 & ceed_use_pointer,indu,erestrictu,err)
61 & erestrictui,err)
63 call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
64 call ceedbasiscreatetensorh1lagrange(ceed,1,2,p,q,ceed_gauss,bu,err)
68 &//'t502-operator.h:setup'//char(0),qf_setup,err)
69 call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
70 call ceedqfunctionaddinput(qf_setup,'dx',1,ceed_eval_grad,err)
[all …]
H A Dt504-operator-f.f9011 integer ceed,err,i,j
35 call ceedinit(trim(arg)//char(0),ceed,err)
43 & ceed_use_pointer,indx,erestrictx,err)
52 & ceed_use_pointer,indu,erestrictu,err)
55 & erestrictui,err)
57 call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
58 call ceedbasiscreatetensorh1lagrange(ceed,1,2,p,q,ceed_gauss,bu,err)
62 &//'t500-operator.h:setup'//char(0),qf_setup,err)
63 call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
64 call ceedqfunctionaddinput(qf_setup,'dx',1,ceed_eval_grad,err)
[all …]
H A Dt531-operator-f.f9011 integer ceed,err,i,j,k
40 call ceedinit(trim(arg)//char(0),ceed,err)
49 call ceedvectorcreate(ceed,d*ndofs,x,err)
51 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
59 call ceedvectorcreate(ceed,ndofs,u,err)
61 call ceedvectorsetarray(u,ceed_mem_host,ceed_use_pointer,uu,uoffset,err)
62 call ceedvectorcreate(ceed,ndofs,v,err)
63 call ceedvectorcreate(ceed,ndofs,v_lin,err)
66 call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata,err)
82 & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
[all …]
H A Dt500-operator-f.f9011 integer ceed,err,i,j
37 call ceedinit(trim(arg)//char(0),ceed,err)
48 & ceed_use_pointer,indx,erestrictx,err)
57 & ceed_use_pointer,indu,erestrictu,err)
60 & erestrictui,err)
62 call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
63 call ceedbasiscreatetensorh1lagrange(ceed,1,1,p,q,ceed_gauss,bu,err)
67 &//'t500-operator.h:setup'//char(0),qf_setup,err)
68 call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
69 call ceedqfunctionaddinput(qf_setup,'dx',1,ceed_eval_grad,err)
[all …]
H A Dt503-operator-f.f9011 integer ceed,err,i,j
38 call ceedinit(trim(arg)//char(0),ceed,err)
40 call ceedvectorcreate(ceed,nu,u,err)
41 call ceedvectorsetvalue(u,1.d0,err)
43 call ceedvectorcreate(ceed,nu,v,err)
48 call ceedvectorcreate(ceed,nx,x,err)
50 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
52 call ceedvectorcreate(ceed,nelem*q,qdata,err)
59 & ceed_use_pointer,indx,erestrictx,err)
68 & ceed_use_pointer,indu,erestrictu,err)
[all …]
H A Dt501-operator-f.f9011 integer ceed,err,i,j
38 call ceedinit(trim(arg)//char(0),ceed,err)
49 & ceed_use_pointer,indx,erestrictx,err)
58 & ceed_use_pointer,indu,erestrictu,err)
61 & erestrictui,err)
63 call ceedbasiscreatetensorh1lagrange(ceed,1,1,2,q,ceed_gauss,bx,err)
64 call ceedbasiscreatetensorh1lagrange(ceed,1,1,p,q,ceed_gauss,bu,err)
68 &//'t500-operator.h:setup'//char(0),qf_setup,err)
69 call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
70 call ceedqfunctionaddinput(qf_setup,'dx',1,ceed_eval_grad,err)
[all …]
H A Dt536-operator-f.f9015 integer ceed,err,i
48 call ceedinit(trim(arg)//char(0),ceed,err)
57 call ceedvectorcreate(ceed,d*ndofs,x,err)
59 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
62 call ceedvectorcreate(ceed,nqpts,qdata_mass,err)
63 call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata_diff,err)
88 & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
91 & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
94 & stridesu,erestrictui,err)
98 & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
[all …]
H A Dt530-operator-f.f9011 integer ceed,err,i,j,k
40 call ceedinit(trim(arg)//char(0),ceed,err)
49 call ceedvectorcreate(ceed,d*ndofs,x,err)
51 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
54 call ceedvectorcreate(ceed,nqpts,qdata,err)
70 & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
73 & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
76 & stridesu,erestrictui,err)
80 & bx,err)
82 & bu,err)
[all …]
H A Dt533-operator-f.f9011 integer ceed,err,i,j,k
39 call ceedinit(trim(arg)//char(0),ceed,err)
48 call ceedvectorcreate(ceed,d*ndofs,x,err)
50 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
53 call ceedvectorcreate(ceed,nqpts,qdata,err)
69 & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
72 & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
75 & stridesu,erestrictui,err)
79 & bx,err)
81 & bu,err)
[all …]
H A Dt534-operator-f.f9011 integer ceed,err,i,j,k
39 call ceedinit(trim(arg)//char(0),ceed,err)
48 call ceedvectorcreate(ceed,d*ndofs,x,err)
50 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,arrx,xoffset,err)
53 call ceedvectorcreate(ceed,nqpts*d*(d+1)/2,qdata,err)
69 & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
72 & ceed_mem_host,ceed_use_pointer,indx,erestrictu,err)
75 & stridesu,erestrictui,err)
79 & d*(d+1)/2*nqpts,stridesqd,erestrictqi,err)
83 & bx,err)
[all …]
H A Dt402-qfunction-f.f9011 integer ceed,err
28 call ceedinit(trim(arg)//char(0),ceed,err)
32 &//'t400-qfunction.h:setup'//char(0),qf_setup,err)
33 call ceedqfunctionaddinput(qf_setup,'w', 1,ceed_eval_weight,err)
34 call ceedqfunctionaddoutput(qf_setup,'qdata',1,ceed_eval_none,err)
38 &//'t400-qfunction.h:mass'//char(0),qf_mass,err)
39 call ceedqfunctionaddinput(qf_mass,'qdata',1,ceed_eval_none,err)
40 call ceedqfunctionaddinput(qf_mass,'u',1,ceed_eval_interp,err)
41 call ceedqfunctionaddoutput(qf_mass,'v',1,ceed_eval_interp,err)
43 call ceedqfunctionview(qf_setup,err)
[all …]
H A Dt511-operator-f.f9015 integer ceed,err,i
51 call ceedinit(trim(arg)//char(0),ceed,err)
80 & ceed_mem_host,ceed_use_pointer,indx,erestrictx,err)
83 & ceed_use_pointer,indx,erestrictu,err)
86 & erestrictui,err)
90 & bx,err)
93 & bu,err)
97 &//'t510-operator.h:setup'//char(0),qf_setup,err)
98 call ceedqfunctionaddinput(qf_setup,'weight',1,ceed_eval_weight,err)
99 call ceedqfunctionaddinput(qf_setup,'x',d*d,ceed_eval_grad,err)
[all …]

123