Home
last modified time | relevance | path

Searched refs:u2 (Results 1 – 17 of 17) sorted by relevance

/libCEED/tests/
H A Dt522-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
6 real*8 u2(1)
12 w = u1(i)/(u2(i+0*q)*u2(i+3*q)-u2(i+1*q)*u2(i+2*q))
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))
21 subroutine diff(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
25 real*8 u2(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 Dt532-operator-f.h2 subroutine setup_mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,&
7 real*8 u2(1)
12 v1(i)=u2(i)*(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
18 subroutine setup_diff(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,&
23 real*8 u2(1)
29 w=u2(i)/(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
38 subroutine apply(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
42 real*8 u2(1)
52 v1(i) = u2(i)*u4(i)
63 subroutine apply_lin(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,&
[all …]
H A Dt531-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
6 real*8 u2(1)
12 w=u2(i)/(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
21 subroutine diff(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
25 real*8 u2(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
40 subroutine diff_lin(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
44 real*8 u2(1)
52 v1(i+q*0)=u2(i+q*0)*du0+u2(i+q*1)*du1
[all …]
H A Dt530-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
6 real*8 u2(1)
11 v1(i)=u1(i)*(u2(i+q*0)*u2(i+q*3)-u2(i+q*1)*u2(i+q*2))
17 subroutine mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
21 real*8 u2(1)
26 v1(i)=u2(i)*u1(i)
H A Dt510-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
6 real*8 u2(1)
11 v1(i)=u1(i)*(u2(i+q*0)*u2(i+q*3)-u2(i+q*1)*u2(i+q*2))
17 subroutine mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
21 real*8 u2(1)
26 v1(i)=u2(i)*u1(i)
H A Dt502-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
6 real*8 u2(1)
11 v1(i)=u1(i)*u2(i)
17 subroutine mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
21 real*8 u2(1)
26 v1(i)=u2(i)*u1(i)
27 v1(q+i)=u2(q+i)*u1(i)
H A Dt534-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
6 real*8 u2(1)
12 w=u2(i)/(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
21 subroutine diff(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
25 real*8 u2(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 Dt500-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
6 real*8 u2(1)
11 v1(i)=u1(i)*u2(i)
17 subroutine mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
21 real*8 u2(1)
26 v1(i)=u2(i)*u1(i)
H A Dt501-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
6 real*8 u2(1)
11 v1(i)=u1(i)*u2(i)
17 subroutine mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
21 real*8 u2(1)
26 v1(i)=u2(i)*u1(i)
H A Dt540-operator-f.h2 subroutine setup_mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,&
7 real*8 u2(1)
12 v1(i)=u2(i)*(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
18 subroutine apply(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
22 real*8 u2(1)
28 v1(i) = u1(i)*u2(i)
H A Dt535-operator-f.h2 subroutine setup_mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,&
7 real*8 u2(1)
12 v1(i)=u2(i)*(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
18 subroutine setup_diff(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,&
23 real*8 u2(1)
29 w=u2(i)/(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
38 subroutine apply(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
42 real*8 u2(1)
52 v1(i) = u2(i)*u4(i)
H A Dt401-qfunction-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
16 subroutine mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
20 real*8 u2(8)
25 v1(i)=ctx(5)*u1(i)*u2(i)
H A Dt400-qfunction-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
16 subroutine mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
20 real*8 u2(8)
25 v1(i)=u1(i)*u2(i)
/libCEED/examples/nek/bps/
H A Dbps.usr14 subroutine masssetupf(ctx,q,u1,u2,u3,u4,u5,u6,u7,
18 C Input: u1,u2,u3,q Output: v1,v2,ierr
22 real*8 u2(9*q)
32 a11=u2(i+q*0)
33 a12=u2(i+q*3)
34 a13=u2(i+q*6)
36 a21=u2(i+q*1)
37 a22=u2(i+q*4)
38 a23=u2(i+q*7)
40 a31=u2(i+q*2)
[all …]
/libCEED/julia/LibCEED.jl/test/
H A Druntests.jl450 u2 = [1.0, 2.0, 1.0]
451 v2 = apply(b2, u2)
457 u2[1] = -1.0
458 u2[2] = 1.0
459 u2[3] = 2.0
460 v2 = apply(b2, u2)
/libCEED/interface/
H A Dceed-fortran.c765 …void (*f)(void *ctx, int *nq, const CeedScalar *u, const CeedScalar *u1, const CeedScalar *u2, con… in fCeedQFunctionCreateInterior() argument
885 CEED_EXTERN void fCeedQFunctionApply(int *qf, int *Q, int *u, int *u1, int *u2, int *u3, int *u4, i… in fCeedQFunctionApply() argument
894 in[2] = *u2 == FORTRAN_NULL ? NULL : CeedVector_dict[*u2]; in fCeedQFunctionApply()
/libCEED/include/
H A Dceed-impl.h302 …void (*f)(void *ctx, int *nq, const CeedScalar *u, const CeedScalar *u1, const CeedScalar *u2, con…