| /libCEED/tests/ |
| H A D | t531-operator-f.f90 | 25 integer ndofs,nqpts,nx,ny 27 parameter(ny=2) 28 parameter(ndofs=(nx*2+1)*(ny*2+1)) 44 do j=0,ny*2 46 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)+i*0.5 55 do j=0,ny*2 56 uu(i+j*(nx*2+1)+1)=i*nx+j*ny
|
| H A D | t531-operator.c | 19 CeedInt nx = 3, ny = 2; in main() local 20 CeedInt num_dofs = (nx * 2 + 1) * (ny * 2 + 1), num_qpts = num_elem * q * q; in main() 31 for (CeedInt j = 0; j < ny * 2 + 1; j++) { in main() 33 x_array[i + j * (nx * 2 + 1) + 1 * num_dofs] = (CeedScalar)j / (2 * ny) + 0.5 * i; in main() 44 for (CeedInt j = 0; j < ny * 2 + 1; j++) { in main() 45 u_array[i + j * (nx * 2 + 1)] = i * nx + j * ny; in main()
|
| H A D | t533-operator-f.f90 | 24 integer ndofs,nqpts,nx,ny 26 parameter(ny=2) 27 parameter(ndofs=(nx*2+1)*(ny*2+1)) 43 do j=0,ny*2 45 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
|
| H A D | t524-operator-f.f90 | 32 integer ndofs,nqptstet,nqptshex,nqpts,nx,ny,nxtet,nytet,nxhex 34 parameter(ny=3) 38 parameter(ndofs=(nx*2+1)*(ny*2+1)) 63 do i=0,ny*2 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)
|
| H A D | t521-operator-f.f90 | 32 integer ndofs,nqptstet,nqptshex,nqpts,nx,ny,nxtet,nytet,nxhex 34 parameter(ny=3) 38 parameter(ndofs=(nx*2+1)*(ny*2+1)) 63 do i=0,ny*2 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)
|
| H A D | t520-operator-f.f90 | 32 integer ndofs,nqptstet,nqptshex,nqpts,nx,ny,nxtet,nytet,nxhex 34 parameter(ny=3) 38 parameter(ndofs=(nx*2+1)*(ny*2+1)) 62 do i=0,ny*2 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)
|
| H A D | t522-operator-f.f90 | 32 integer ndofs,nqptstet,nqptshex,nqpts,nx,ny,nxtet,nytet,nxhex 34 parameter(ny=3) 38 parameter(ndofs=(nx*2+1)*(ny*2+1)) 63 do i=0,ny*2 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)
|
| H A D | t534-operator-f.f90 | 24 integer ndofs,nqpts,nx,ny 26 parameter(ny=2) 27 parameter(ndofs=(nx*2+1)*(ny*2+1)) 43 do j=0,ny*2 45 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
|
| H A D | t530-operator-f.f90 | 24 integer ndofs,nqpts,nx,ny 26 parameter(ny=2) 27 parameter(ndofs=(nx*2+1)*(ny*2+1)) 44 do j=0,ny*2 46 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
|
| H A D | t524-operator.c | 30 CeedInt nx = 3, ny = 3, nx_tet = 3, ny_tet = 1, nx_hex = 3; in main() local 32 …CeedInt num_dofs = (nx * 2 + 1) * (ny * 2 + 1), num_qpts_tet = num_elem_tet * q_tet, num_qpt… in main() 43 for (CeedInt i = 0; i < ny * 2 + 1; i++) { in main() 45 x_array[i + j * (ny * 2 + 1) + 0 * num_dofs] = (CeedScalar)i / (2 * ny); in main() 46 x_array[i + j * (ny * 2 + 1) + 1 * num_dofs] = (CeedScalar)j / (2 * nx); in main()
|
| H A D | t533-operator.c | 19 CeedInt nx = 3, ny = 2; in main() local 20 CeedInt num_dofs = (nx * 2 + 1) * (ny * 2 + 1), num_qpts = num_elem * q * q; in main() 32 for (CeedInt j = 0; j < ny * 2 + 1; j++) { in main() 34 x_array[i + j * (nx * 2 + 1) + 1 * num_dofs] = (CeedScalar)j / (2 * ny); in main()
|
| H A D | t535-operator-f.f90 | 24 integer ndofs,nqpts,nx,ny 26 parameter(ny=2) 27 parameter(ndofs=(nx*2+1)*(ny*2+1)) 43 do j=0,ny*2 45 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
|
| H A D | t530-operator.c | 19 CeedInt nx = 3, ny = 2; in main() local 20 CeedInt num_dofs = (nx * 2 + 1) * (ny * 2 + 1), num_qpts = num_elem * q * q; in main() 30 for (CeedInt j = 0; j < ny * 2 + 1; j++) { in main() 32 x_array[i + j * (nx * 2 + 1) + 1 * num_dofs] = (CeedScalar)j / (2 * ny); in main()
|
| H A D | t511-operator-f.f90 | 28 integer ndofs,nqpts,nx,ny 30 parameter(ny=2) 31 parameter(ndofs=(nx*2+1)*(ny*2+1)) 57 arrx(i+1+ndofs)=val*(1.d0/(ny*2.d0))
|
| H A D | t510-operator-f.f90 | 28 integer ndofs,nqpts,nx,ny 30 parameter(ny=2) 31 parameter(ndofs=(nx*2+1)*(ny*2+1)) 56 arrx(i+1+ndofs)=val*(1.d0/(ny*2.d0))
|
| H A D | t532-operator-f.f90 | 25 integer ndofs,nqpts,nx,ny 27 parameter(ny=2) 28 parameter(ndofs=(nx*2+1)*(ny*2+1)) 45 do j=0,ny*2 47 arrx(i+j*(nx*2+1)+1*ndofs+1)=1.d0*j/(2*ny)
|
| H A D | t510-operator.c | 21 CeedInt nx = 3, ny = 2; in main() local 23 CeedInt num_dofs = (nx * 2 + 1) * (ny * 2 + 1), num_qpts = num_elem * q; in main() 36 x_array[i + num_dofs] = (1. / (ny * 2)) * (CeedScalar)(i / (nx * 2 + 1)); in main()
|
| H A D | t511-operator.c | 20 CeedInt nx = 3, ny = 2; in main() local 22 CeedInt num_dofs = (nx * 2 + 1) * (ny * 2 + 1), num_qpts = num_elem * q; in main() 35 x_array[i + num_dofs] = (1. / (ny * 2)) * (CeedScalar)(i / (nx * 2 + 1)); in main()
|
| H A D | t532-operator.c | 19 CeedInt nx = 3, ny = 2; in main() local 20 CeedInt num_dofs = (nx * 2 + 1) * (ny * 2 + 1), num_qpts = num_elem * q * q; in main() 31 for (CeedInt j = 0; j < ny * 2 + 1; j++) { in main() 33 x_array[i + j * (nx * 2 + 1) + 1 * num_dofs] = (CeedScalar)j / (2 * ny); in main()
|
| H A D | t582-operator.c | 21 CeedInt nx = 3, ny = 2; in main() local 23 CeedInt num_dofs = (nx * 2 + 1) * (ny * 2 + 1), num_qpts = num_elem * q; in main() 37 x_array[i + num_dofs] = (1. / (ny * 2)) * (CeedScalar)(i / (nx * 2 + 1)); in main()
|
| H A D | t581-operator.c | 21 CeedInt nx = 3, ny = 2; in main() local 23 CeedInt num_dofs = (nx * 2 + 1) * (ny * 2 + 1), num_qpts = num_elem * q; in main() 37 x_array[i + num_dofs] = (1. / (ny * 2)) * (CeedScalar)(i / (nx * 2 + 1)); in main()
|
| H A D | t536-operator-f.f90 | 28 integer ndofs,nqpts,nx,ny 30 parameter(ny=2) 31 parameter(ndofs=(nx*2+1)*(ny*2+1)) 55 arrx(i+1+ndofs)=val*(1.d0/(ny*2.d0))
|
| H A D | t523-operator-f.f90 | 32 integer ndofs,nqptstet,nqptshex,nqpts,nx,ny,nxtet,nytet,nxhex 34 parameter(ny=3) 38 parameter(ndofs=(nx*2+1)*(ny*2+1))
|
| H A D | t523-operator.c | 30 CeedInt nx = 3, ny = 3, nx_tet = 3, ny_tet = 1, nx_hex = 3; in main() local 32 …CeedInt num_dofs = (nx * 2 + 1) * (ny * 2 + 1), num_qpts_tet = num_elem_tet * q_tet, num_qpt… in main()
|
| /libCEED/python/tests/ |
| H A D | test-5-operator.py | 589 nx, ny = 3, 2 590 ndofs = (nx * 2 + 1) * (ny * 2 + 1) 598 x_array[i + ndofs] = (1. / (ny * 2)) * (i / (nx * 2 + 1)) 696 nx, ny = 3, 2 697 ndofs = (nx * 2 + 1) * (ny * 2 + 1) 705 x_array[i + ndofs] = (1. / (ny * 2)) * (i / (nx * 2 + 1)) 803 nx, ny = 3, 3 806 ndofs = (nx * 2 + 1) * (ny * 2 + 1) 812 for i in range(ny * 2 + 1): 814 x_array[i + j * (ny * 2 + 1)] = i / (2 * ny) [all …]
|