This routine builds the quadblock at one particular grid point in the Gaussian
grid and for one particular Gaussian weight.
For a 2x2 block at index in the top-left block we have
as index of the bottom-right corner of the 2x2 block. The other
corners are then filled by subtracting one from an index.
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
complex(kind=dp),
|
intent(inout) |
|
|
:: |
quadblock(:,:) |
|
|
type(matrix_elements_t),
|
intent(in) |
|
|
:: |
elements |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
x |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
x0 |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
x1 |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
weight |
|
|
type(dims_t),
|
intent(in) |
|
|
:: |
dims |
|