| /libCEED/tests/ |
| H A D | t531-operator-f.h | 3 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 7 real*8 v1(1) 13 v1(i+q*0)=w*(u1(i+q*2)*u1(i+q*2)+u1(i+q*3)*u1(i+q*3)) 14 v1(i+q*1)=w*(u1(i+q*0)*u1(i+q*0)+u1(i+q*1)*u1(i+q*1)) 15 v1(i+q*2)=-w*(u1(i+q*0)*u1(i+q*2)+u1(i+q*2)*u1(i+q*3)) 22 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 26 real*8 v1(1) 33 v1(i+q*0)=u2(i+q*0)*du0+u2(i+q*1)*du1 34 v1(i+q*1)=u2(i+q*1)*du0+u2(i+q*2)*du1 41 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) [all …]
|
| H A D | t532-operator-f.h | 3 & u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,& 8 real*8 v1(1) 12 v1(i)=u2(i)*(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2)) 19 & u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,& 24 real*8 v1(1) 30 v1(i+q*0)=w*(u1(i+q*2)*u1(i+q*2)+u1(i+q*3)*u1(i+q*3)) 31 v1(i+q*1)=w*(u1(i+q*0)*u1(i+q*0)+u1(i+q*1)*u1(i+q*1)) 32 v1(i+q*2)=-w*(u1(i+q*0)*u1(i+q*2)+u1(i+q*2)*u1(i+q*3)) 39 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 45 real*8 v1(1) [all …]
|
| H A D | t502-operator-f.h | 3 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 7 real*8 v1(1) 11 v1(i)=u1(i)*u2(i) 18 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 22 real*8 v1(1) 26 v1(i)=u2(i)*u1(i) 27 v1(q+i)=u2(q+i)*u1(i)
|
| H A D | t534-operator-f.h | 3 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 7 real*8 v1(1) 13 v1(i+q*0)=w*(u1(i+q*2)*u1(i+q*2)+u1(i+q*3)*u1(i+q*3)) 14 v1(i+q*1)=-w*(u1(i+q*0)*u1(i+q*2)+u1(i+q*2)*u1(i+q*3)) 15 v1(i+q*2)=w*(u1(i+q*0)*u1(i+q*0)+u1(i+q*1)*u1(i+q*1)) 22 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 26 real*8 v1(1) 33 v1(i+q*0)=u2(i+q*0)*du0+u2(i+q*2)*du1 34 v1(i+q*1)=u2(i+q*2)*du0+u2(i+q*1)*du1
|
| H A D | t522-operator-f.h | 3 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 7 real*8 v1(1) 13 v1(i+0*q)=w*(u2(i+2*q)*u2(i+2*q)+u2(i+3*q)*u2(i+3*q)) 14 v1(i+1*q)=w*(u2(i+0*q)*u2(i+0*q)+u2(i+1*q)*u2(i+1*q)) 15 v1(i+2*q)=w*(u2(i+0*q)*u2(i+2*q)+u2(i+1*q)*u2(i+3*q)) 22 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 26 real*8 v1(1) 30 v1(i+0*q)=u1(i+0*q)*u2(i+0*q)+u1(i+2*q)*u2(i+1*q) 31 v1(i+1*q)=u1(i+2*q)*u2(i+0*q)+u1(i+1*q)*u2(i+1*q)
|
| H A D | t535-operator-f.h | 3 & u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,& 8 real*8 v1(1) 12 v1(i)=u2(i)*(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2)) 19 & u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,& 24 real*8 v1(1) 30 v1(i+q*0)=w*(u1(i+q*2)*u1(i+q*2)+u1(i+q*3)*u1(i+q*3)) 31 v1(i+q*1)=w*(u1(i+q*0)*u1(i+q*0)+u1(i+q*1)*u1(i+q*1)) 32 v1(i+q*2)=-w*(u1(i+q*0)*u1(i+q*2)+u1(i+q*2)*u1(i+q*3)) 39 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 45 real*8 v1(1) [all …]
|
| H A D | t500-operator-f.h | 3 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 7 real*8 v1(1) 11 v1(i)=u1(i)*u2(i) 18 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 22 real*8 v1(1) 26 v1(i)=u2(i)*u1(i)
|
| H A D | t401-qfunction-f.h | 3 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 6 real*8 v1(8) 10 v1(i)=u1(i) 17 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 21 real*8 v1(8) 25 v1(i)=ctx(5)*u1(i)*u2(i)
|
| H A D | t400-qfunction-f.h | 3 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 6 real*8 v1(8) 10 v1(i)=u1(i) 17 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 21 real*8 v1(8) 25 v1(i)=u1(i)*u2(i)
|
| H A D | t501-operator-f.h | 3 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 7 real*8 v1(1) 11 v1(i)=u1(i)*u2(i) 18 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 22 real*8 v1(1) 26 v1(i)=u2(i)*u1(i)
|
| H A D | t540-operator-f.h | 3 & u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,& 8 real*8 v1(1) 12 v1(i)=u2(i)*(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2)) 19 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 23 real*8 v1(1) 28 v1(i) = u1(i)*u2(i)
|
| H A D | t530-operator-f.h | 3 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 7 real*8 v1(1) 11 v1(i)=u1(i)*(u2(i+q*0)*u2(i+q*3)-u2(i+q*1)*u2(i+q*2)) 18 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 22 real*8 v1(1) 26 v1(i)=u2(i)*u1(i)
|
| H A D | t510-operator-f.h | 3 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 7 real*8 v1(1) 11 v1(i)=u1(i)*(u2(i+q*0)*u2(i+q*3)-u2(i+q*1)*u2(i+q*2)) 18 & u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,ierr) 22 real*8 v1(1) 26 v1(i)=u2(i)*u1(i)
|
| /libCEED/julia/LibCEED.jl/test/ |
| H A D | runtests.jl | 76 v1 = rand(CeedScalar, n) 77 v2 = CeedVector(c, v1) 78 @test @witharray_read(a = v2, mtype = MEM_HOST, a == v1) 79 @test Vector(v2) == v1 80 v[] = v1 82 @test norm(v, p) ≈ norm(v1, p) 85 @test witharray_read(sum, v) == sum(v1) 87 @test @witharray(a = v, mtype = MEM_HOST, all(a .== CeedScalar(1.0)./v1)) 101 setarray!(v, MEM_HOST, USE_POINTER, v1) 103 @test @witharray_read(a = v, a == v1) [all …]
|
| H A D | rundevtests.jl | 36 v1 = CeedVector(c, v) 40 apply!(comp_op, v1, v2) 41 @test @witharray_read(a1 = v1, @witharray_read(a2 = v2, a1 == a2))
|
| /libCEED/examples/fluids/qfunctions/ |
| H A D | differential_filter.h | 37 CeedScalar(*v1)[CEED_Q_VLA] = (CeedScalar(*)[CEED_Q_VLA])out[1]; in DifferentialFilter_RHS() local 52 v1[DIFF_FILTER_VELOCITY_SQUARED_XX][i] = wdetJ * s.Y.velocity[0] * s.Y.velocity[0]; in DifferentialFilter_RHS() 53 v1[DIFF_FILTER_VELOCITY_SQUARED_YY][i] = wdetJ * s.Y.velocity[1] * s.Y.velocity[1]; in DifferentialFilter_RHS() 54 v1[DIFF_FILTER_VELOCITY_SQUARED_ZZ][i] = wdetJ * s.Y.velocity[2] * s.Y.velocity[2]; in DifferentialFilter_RHS() 55 v1[DIFF_FILTER_VELOCITY_SQUARED_YZ][i] = wdetJ * s.Y.velocity[1] * s.Y.velocity[2]; in DifferentialFilter_RHS() 56 v1[DIFF_FILTER_VELOCITY_SQUARED_XZ][i] = wdetJ * s.Y.velocity[0] * s.Y.velocity[2]; in DifferentialFilter_RHS() 57 v1[DIFF_FILTER_VELOCITY_SQUARED_XY][i] = wdetJ * s.Y.velocity[0] * s.Y.velocity[1]; in DifferentialFilter_RHS()
|
| /libCEED/examples/nek/bps/ |
| H A D | bps.usr | 15 $ u8,u9,u10,u11,u12,u13,u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8, 18 C Input: u1,u2,u3,q Output: v1,v2,ierr 24 real*8 v1(q) 59 v1(i)=u3(i)*jacmq 72 $ u8,u9,u10,u11,u12,u13,u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8, 75 C Input: u1,u2,q Output: v1,ierr 80 real*8 v1(q) 84 v1(i)=u2(i)*u1(i) 91 $ u8,u9,u10,u11,u12,u13,u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8, 94 C Input: u1,u2,u3,q Output: v1,v2,ierr [all …]
|
| /libCEED/interface/ |
| H A D | ceed-fortran.c | 768 …CeedScalar *v1, CeedScalar *v2, CeedScalar *v3, CeedScalar *v4, CeedScalar *v5, CeedScalar *v6, Ce… in fCeedQFunctionCreateInterior() argument 886 …int *u10, int *u11, int *u12, int *u13, int *u14, int *u15, int *v, int *v1, int *v2, int *v3, int… in fCeedQFunctionApply() argument 912 out[1] = *v1 == FORTRAN_NULL ? NULL : CeedVector_dict[*v1]; in fCeedQFunctionApply()
|
| /libCEED/include/ |
| H A D | ceed-impl.h | 305 …CeedScalar *v1, CeedScalar *v2, CeedScalar *v3, CeedScalar *v4, CeedScalar *v5, CeedScalar *v6, Ce…
|
| /libCEED/julia/LibCEED.jl/src/ |
| H A D | CeedVector.jl | 269 documentation](https://docs.julialang.org/en/v1/manual/performance-tips) and related [GitHub
|