Home
last modified time | relevance | path

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

/libCEED/tests/
H A Dt535-operator-f.h2 subroutine setup_mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,&
6 real*8 u1(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,&
22 real*8 u1(1)
29 w=u2(i)/(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
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))
38 subroutine apply(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
[all …]
H A Dt534-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
5 real*8 u1(1)
12 w=u2(i)/(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
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))
21 subroutine diff(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
24 real*8 u1(1)
31 du0=u1(i+q*0)
32 du1=u1(i+q*1)
H A Dt532-operator-f.h2 subroutine setup_mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,&
6 real*8 u1(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,&
22 real*8 u1(1)
29 w=u2(i)/(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
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))
38 subroutine apply(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
[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,&
5 real*8 u1(1)
12 w=u2(i)/(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
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))
21 subroutine diff(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
24 real*8 u1(1)
31 du0=u1(i+q*0)
32 du1=u1(i+q*1)
[all …]
H A Dt540-operator-f.h2 subroutine setup_mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,&
6 real*8 u1(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,&
21 real*8 u1(1)
28 v1(i) = u1(i)*u2(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,&
5 real*8 u1(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,&
20 real*8 u1(1)
26 v1(i)=u2(i)*u1(i)
27 v1(q+i)=u2(q+i)*u1(i)
H A Dt522-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
5 real*8 u1(1)
12 w = u1(i)/(u2(i+0*q)*u2(i+3*q)-u2(i+1*q)*u2(i+2*q))
21 subroutine diff(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
24 real*8 u1(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 Dt500-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
5 real*8 u1(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,&
20 real*8 u1(1)
26 v1(i)=u2(i)*u1(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,&
5 real*8 u1(8)
10 v1(i)=u1(i)
16 subroutine mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
19 real*8 u1(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,&
5 real*8 u1(8)
10 v1(i)=u1(i)
16 subroutine mass(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
19 real*8 u1(8)
25 v1(i)=u1(i)*u2(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,&
5 real*8 u1(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,&
20 real*8 u1(1)
26 v1(i)=u2(i)*u1(i)
H A Dt530-operator-f.h2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
5 real*8 u1(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,&
20 real*8 u1(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,&
5 real*8 u1(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,&
20 real*8 u1(1)
26 v1(i)=u2(i)*u1(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
21 real*8 u1(3*q)
63 $ *dsqrt(u1(i+q*0)*u1(i+q*0)
64 $ +u1(i+q*1)*u1(i+q*1)
65 $ +u1(i+q*2)*u1(i+q*2))
71 subroutine massf(ctx,q,u1,u2,u3,u4,u5,u6,u7,
75 C Input: u1,u2,q Output: v1,ierr
78 real*8 u1(q)
84 v1(i)=u2(i)*u1(i)
[all …]
/libCEED/julia/LibCEED.jl/test/
H A Druntests.jl425 u1 = ones(Float64, p1)
426 v1 = apply(b1, u1)
/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
893 in[1] = *u1 == FORTRAN_NULL ? NULL : CeedVector_dict[*u1]; 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…