part_fields.F90 File Reference

#include "precomp.h"
#include "deposition.inc"
#include "get_field.inc"

Include dependency graph for part_fields.F90:

Data Types
interface	part_fields::deposition

Modules
module	part_fields
	Particle-to-fields and fields-to-particle operations.

Macros
#define	NIDBAS   1
#define	W_LENGTH   4
#define	W_TYPE   real(kind=R4)
#define	DEPOSITION   CONCAT(deposition_r4_bas,NIDBAS)
#define	DEPOSITION_BY_PART   CONCAT(deposition_r4_by_part_bas,NIDBAS)
#define	DEPOSITION_BY_CELL   CONCAT(deposition_r4_by_cell_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR   CONCAT(deposition_r4_by_color_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r4_by_color_buf_bas,NIDBAS)
#define	SPLINES   CONCAT(splines_bas,NIDBAS)
#define	W_LENGTH   8
#define	W_TYPE   real(kind=r8)
#define	DEPOSITION   CONCAT(deposition_r8_bas,NIDBAS)
#define	DEPOSITION_BY_PART   CONCAT(deposition_r8_by_part_bas,NIDBAS)
#define	DEPOSITION_BY_CELL   CONCAT(deposition_r8_by_cell_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR   CONCAT(deposition_r8_by_color_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r8_by_color_buf_bas,NIDBAS)
#define	SPLINES   CONCAT(splines_bas,NIDBAS)
#define	GET_FIELD   CONCAT(get_field_bas,NIDBAS)
#define	GET_FIELD_BY_PART   CONCAT(get_field_by_part_bas,NIDBAS)
#define	GET_FIELD_BY_CELL   CONCAT(get_field_by_cell_bas,NIDBAS)
#define	SPLINES   CONCAT(splines_bas,NIDBAS)
#define	GRAD_SPLINES   CONCAT(grad_splines_bas,NIDBAS)
#define	NIDBAS   2
#define	W_LENGTH   4
#define	W_TYPE   real(kind=R4)
#define	DEPOSITION   CONCAT(deposition_r4_bas,NIDBAS)
#define	DEPOSITION_BY_PART   CONCAT(deposition_r4_by_part_bas,NIDBAS)
#define	DEPOSITION_BY_CELL   CONCAT(deposition_r4_by_cell_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR   CONCAT(deposition_r4_by_color_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r4_by_color_buf_bas,NIDBAS)
#define	SPLINES   CONCAT(splines_bas,NIDBAS)
#define	W_LENGTH   8
#define	W_TYPE   real(kind=r8)
#define	DEPOSITION   CONCAT(deposition_r8_bas,NIDBAS)
#define	DEPOSITION_BY_PART   CONCAT(deposition_r8_by_part_bas,NIDBAS)
#define	DEPOSITION_BY_CELL   CONCAT(deposition_r8_by_cell_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR   CONCAT(deposition_r8_by_color_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r8_by_color_buf_bas,NIDBAS)
#define	SPLINES   CONCAT(splines_bas,NIDBAS)
#define	GET_FIELD   CONCAT(get_field_bas,NIDBAS)
#define	GET_FIELD_BY_PART   CONCAT(get_field_by_part_bas,NIDBAS)
#define	GET_FIELD_BY_CELL   CONCAT(get_field_by_cell_bas,NIDBAS)
#define	SPLINES   CONCAT(splines_bas,NIDBAS)
#define	GRAD_SPLINES   CONCAT(grad_splines_bas,NIDBAS)
#define	NIDBAS   3
#define	W_LENGTH   4
#define	W_TYPE   real(kind=R4)
#define	DEPOSITION   CONCAT(deposition_r4_bas,NIDBAS)
#define	DEPOSITION_BY_PART   CONCAT(deposition_r4_by_part_bas,NIDBAS)
#define	DEPOSITION_BY_CELL   CONCAT(deposition_r4_by_cell_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR   CONCAT(deposition_r4_by_color_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r4_by_color_buf_bas,NIDBAS)
#define	SPLINES   CONCAT(splines_bas,NIDBAS)
#define	W_LENGTH   8
#define	W_TYPE   real(kind=r8)
#define	DEPOSITION   CONCAT(deposition_r8_bas,NIDBAS)
#define	DEPOSITION_BY_PART   CONCAT(deposition_r8_by_part_bas,NIDBAS)
#define	DEPOSITION_BY_CELL   CONCAT(deposition_r8_by_cell_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR   CONCAT(deposition_r8_by_color_bas,NIDBAS)
#define	DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r8_by_color_buf_bas,NIDBAS)
#define	SPLINES   CONCAT(splines_bas,NIDBAS)
#define	GET_FIELD   CONCAT(get_field_bas,NIDBAS)
#define	GET_FIELD_BY_PART   CONCAT(get_field_by_part_bas,NIDBAS)
#define	GET_FIELD_BY_CELL   CONCAT(get_field_by_cell_bas,NIDBAS)
#define	SPLINES   CONCAT(splines_bas,NIDBAS)
#define	GRAD_SPLINES   CONCAT(grad_splines_bas,NIDBAS)

Functions/Subroutines
subroutine, public	part_fields::init_module (nidbas_, ns_, nchi_, nphi_, iz_offset_, ds_, dchi_, dphi_, xmin_, nl_gradgyr_, nsel_depos_, nsel_get_field_, nbin_x_, nbin_y_, nbin_z_, color_nbin_x_, color_nbin_y_)
	Initialize module variables.
subroutine	part_fields::init_deposition_by_part
	Initialization routine for deposition by particle.
subroutine	part_fields::init_deposition_by_cell
	Initialization routine for deposition by cell.
subroutine	part_fields::init_deposition_by_color
	Initialization routine for deposition using the color scheme algorithm.
subroutine	part_fields::init_deposition_by_color_buf
	Initialization routine for deposition using the buffered color scheme algorithm.
subroutine	part_fields::deposition_r4_bas1 (np, x, y, z, w, rhs, nl_depos, displs, first)
	Deposit marker attribute to field with splines of order 1.
subroutine	part_fields::deposition_r4_by_part_bas1 (np, x, y, z, w, rhs, nl_depos, first)
	Loop on particles version of deposition_r4_bas1.
subroutine	part_fields::deposition_r4_by_cell_bas1 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Loop on cells version of deposition_r4_bas1.
subroutine	part_fields::deposition_r4_by_color_bas1 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Color scheme algorithm version of deposition_r4_bas1.
subroutine	four_color_reduction (color_number)
	Performs the color charge/current deposition.
subroutine	four_color_reduction_vectorized (color_number)
	Performs the vecorized color charge/current deposition.
subroutine	part_fields::deposition_r4_by_color_buf_bas1 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Buffer color scheme algorithm version of deposition_r4_bas1.
subroutine	four_color_reduction_buffered (color_number)
	Performs the color charge/current deposition.
subroutine	four_color_reduction_buffered_vectorized (color_number)
	Performs the vecorized color charge/current deposition.
subroutine	part_fields::deposition_r8_bas1 (np, x, y, z, w, rhs, nl_depos, displs, first)
	Deposit marker attribute to field with splines of order 1.
subroutine	part_fields::deposition_r8_by_part_bas1 (np, x, y, z, w, rhs, nl_depos, first)
	Loop on particles version of deposition_r8_bas1.
subroutine	part_fields::deposition_r8_by_cell_bas1 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Loop on cells version of deposition_r8_bas1.
subroutine	part_fields::deposition_r8_by_color_bas1 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Color scheme algorithm version of deposition_r8_bas1.
subroutine	part_fields::deposition_r8_by_color_buf_bas1 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Buffer color scheme algorithm version of deposition_r8_bas1.
subroutine	part_fields::get_field_bas1 (pot_coef, np, x, y, z, displs, pot, dpot_dx, dpot_dy, dpot_dz)
	Compute the field and/or its gradient at marker positions with splines of order 1.
subroutine	part_fields::get_field_by_part_bas1 (pot_coef, np, x, y, z, pot, dpot_dx, dpot_dy, dpot_dz)
	Loop on particles version of get_field_bas1.
subroutine	part_fields::get_field_by_cell_bas1 (pot_coef, np, x, y, z, displs, pot, dpot_dx, dpot_dy, dpot_dz)
	Loop on cells version of get_field_bas1.
subroutine	part_fields::deposition_r4_bas2 (np, x, y, z, w, rhs, nl_depos, displs, first)
	Deposit marker attribute to field with splines of order 2.
subroutine	part_fields::deposition_r4_by_part_bas2 (np, x, y, z, w, rhs, nl_depos, first)
	Loop on particles version of deposition_r4_bas2.
subroutine	part_fields::deposition_r4_by_cell_bas2 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Loop on cells version of deposition_r4_bas2.
subroutine	part_fields::deposition_r4_by_color_bas2 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Color scheme algorithm version of deposition_r4_bas2.
subroutine	part_fields::deposition_r4_by_color_buf_bas2 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Buffer color scheme algorithm version of deposition_r4_bas2.
subroutine	part_fields::deposition_r8_bas2 (np, x, y, z, w, rhs, nl_depos, displs, first)
	Deposit marker attribute to field with splines of order 2.
subroutine	part_fields::deposition_r8_by_part_bas2 (np, x, y, z, w, rhs, nl_depos, first)
	Loop on particles version of deposition_r8_bas2.
subroutine	part_fields::deposition_r8_by_cell_bas2 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Loop on cells version of deposition_r8_bas2.
subroutine	part_fields::deposition_r8_by_color_bas2 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Color scheme algorithm version of deposition_r8_bas2.
subroutine	part_fields::deposition_r8_by_color_buf_bas2 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Buffer color scheme algorithm version of deposition_r8_bas2.
subroutine	part_fields::get_field_bas2 (pot_coef, np, x, y, z, displs, pot, dpot_dx, dpot_dy, dpot_dz)
	Compute the field and/or its gradient at marker positions with splines of order 2.
subroutine	part_fields::get_field_by_part_bas2 (pot_coef, np, x, y, z, pot, dpot_dx, dpot_dy, dpot_dz)
	Loop on particles version of get_field_bas2.
subroutine	part_fields::get_field_by_cell_bas2 (pot_coef, np, x, y, z, displs, pot, dpot_dx, dpot_dy, dpot_dz)
	Loop on cells version of get_field_bas2.
subroutine	part_fields::deposition_r4_bas3 (np, x, y, z, w, rhs, nl_depos, displs, first)
	Deposit marker attribute to field with splines of order 3.
subroutine	part_fields::deposition_r4_by_part_bas3 (np, x, y, z, w, rhs, nl_depos, first)
	Loop on particles version of deposition_r4_bas3.
subroutine	part_fields::deposition_r4_by_cell_bas3 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Loop on cells version of deposition_r4_bas3.
subroutine	part_fields::deposition_r4_by_color_bas3 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Color scheme algorithm version of deposition_r4_bas3.
subroutine	part_fields::deposition_r4_by_color_buf_bas3 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Buffer color scheme algorithm version of deposition_r4_bas3.
subroutine	part_fields::deposition_r8_bas3 (np, x, y, z, w, rhs, nl_depos, displs, first)
	Deposit marker attribute to field with splines of order 3.
subroutine	part_fields::deposition_r8_by_part_bas3 (np, x, y, z, w, rhs, nl_depos, first)
	Loop on particles version of deposition_r8_bas3.
subroutine	part_fields::deposition_r8_by_cell_bas3 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Loop on cells version of deposition_r8_bas3.
subroutine	part_fields::deposition_r8_by_color_bas3 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Color scheme algorithm version of deposition_r8_bas3.
subroutine	part_fields::deposition_r8_by_color_buf_bas3 (np, x, y, z, w, rhs, displs, nl_depos, first)
	Buffer color scheme algorithm version of deposition_r8_bas3.
subroutine	part_fields::get_field_bas3 (pot_coef, np, x, y, z, displs, pot, dpot_dx, dpot_dy, dpot_dz)
	Compute the field and/or its gradient at marker positions with splines of order 3.
subroutine	part_fields::get_field_by_part_bas3 (pot_coef, np, x, y, z, pot, dpot_dx, dpot_dy, dpot_dz)
	Loop on particles version of get_field_bas3.
subroutine	part_fields::get_field_by_cell_bas3 (pot_coef, np, x, y, z, displs, pot, dpot_dx, dpot_dy, dpot_dz)
	Loop on cells version of get_field_bas3.
subroutine	part_fields::deposition_r8 (np, x, y, z, w, rhs, nl_depos, displs, first)
	Deposit some marker attribute to field with the proper splines order.
subroutine	part_fields::deposition_r4 (np, x, y, z, w, rhs, nl_depos, displs, first)
	Deposit some marker attribute to field with the proper splines order (r4).
subroutine	part_fields::nullify_rhs_omp (ithread)
	Set rhs_omp to 0.
subroutine	part_fields::nullify_rhs (rhs)
	Set rhs to 0.
subroutine	part_fields::reduction_threads (rhs)
	Sum up OpenMP threads rhs replications.
subroutine, public	part_fields::get_field (pot_coef, np, x, y, z, displs, pot, dpot_dx, dpot_dy, dpot_dz)
	Compute field and/or its gradient at marker positions with the proper spline order.
pure real(kind=r8) function, dimension(0:1)	part_fields::splines_bas1 (x)
	Evaluate linear B-splines at point x in interval [0, 1].
pure real(kind=r8) function, dimension(0:2)	part_fields::splines_bas2 (x)
	Evaluate quadratic B-splines at point x in interval [0, 1].
pure real(kind=r8) function, dimension(0:3)	part_fields::splines_bas3 (x)
	Evaluate cubic B-splines at point x in interval [0, 1].
pure real(kind=r8) function, dimension(0:1)	part_fields::grad_splines_bas1 (x)
	Evaluate linear B-spline gradients at point x in interval [0, 1].
pure real(kind=r8) function, dimension(0:2)	part_fields::grad_splines_bas2 (x)
	Evaluate quadratic B-spline gradients at point x in interval [0, 1].
pure real(kind=r8) function, dimension(0:3)	part_fields::grad_splines_bas3 (x)
	Evaluate cubic B-spline gradients at point x in interval [0, 1].

Variables
integer, save	part_fields::nidbas
	Spline order.
integer, save	part_fields::nx
	Number of radial intervals.
integer, save	part_fields::ny
	Number of poloidal intervals.
integer, save	part_fields::nz
	Number of local toroidal intervals.
integer, save	part_fields::iz_offset
	Starting toroidal interval.
real(kind=r8), save	part_fields::dx_inv
	Inverse radial mesh size.
real(kind=r8), save	part_fields::dy_inv
	Inverse poloidal mesh size.
real(kind=r8), save	part_fields::dz_inv
	Inverse toroidal mesh size.
real(kind=r8), save	part_fields::xmin
	Inner boundary position.
logical, save	part_fields::nl_gradgyr
	Take gradient of gyroaverage potential instead of gyroaverage gradient of potential.
integer, save	part_fields::nsel_depos
	Deposition method.
integer, save	part_fields::nsel_get_field
	Get field method.
integer, save	part_fields::nbin_x
	Number of radial bins.
integer, save	part_fields::nbin_y
	Number of poloidal bins.
integer, save	part_fields::nbin_z
	Number of local toroidal bins.
integer, save	part_fields::color_nbin_x
	Number of radial bins for color scheme.
integer, save	part_fields::color_nbin_y
	Number of poloidal bins for color scheme.
real(kind=r8), dimension(:,:,:,:), allocatable, save	part_fields::rhs_omp
	Working array for deposition (field replicated among OpenMP threads).
integer, dimension(:,:), allocatable, save	part_fields::bin_array
	Array containing the index of the particles in a bucket.
real(kind=r8), dimension(:,:,:), allocatable, save	part_fields::color_buffer
	Buffer used for the buffered version of color scheme.
integer, save	part_fields::number_of_bins_per_bucket
integer, save	part_fields::number_of_buckets
	Number of bins per bucket and total # of buckets.
integer, save	part_fields::nbin_x_avg
integer, save	part_fields::nbin_y_avg
	Number of sorting bins in each color bucket.
logical, save	part_fields::use_vectorized = .false.
	Flag to use the vectorized version.
integer, save	part_fields::grid_cells_in_x_color_bucket
	Number of grid cell per bucket in s.
integer, save	part_fields::grid_cells_in_y_color_bucket
	Number of grid cell per bucket in chi.
integer, save	part_fields::k_start
integer, save	part_fields::k_end
	Indexes of the local subdomain.

Macro Definition Documentation

DEPOSITION [1/6]

#define DEPOSITION   CONCAT(deposition_r4_bas,NIDBAS)

DEPOSITION [2/6]

#define DEPOSITION   CONCAT(deposition_r4_bas,NIDBAS)

DEPOSITION [3/6]

#define DEPOSITION   CONCAT(deposition_r4_bas,NIDBAS)

DEPOSITION [4/6]

#define DEPOSITION   CONCAT(deposition_r8_bas,NIDBAS)

DEPOSITION [5/6]

#define DEPOSITION   CONCAT(deposition_r8_bas,NIDBAS)

DEPOSITION [6/6]

#define DEPOSITION   CONCAT(deposition_r8_bas,NIDBAS)

DEPOSITION_BY_CELL [1/6]

#define DEPOSITION_BY_CELL   CONCAT(deposition_r4_by_cell_bas,NIDBAS)

DEPOSITION_BY_CELL [2/6]

#define DEPOSITION_BY_CELL   CONCAT(deposition_r4_by_cell_bas,NIDBAS)

DEPOSITION_BY_CELL [3/6]

#define DEPOSITION_BY_CELL   CONCAT(deposition_r4_by_cell_bas,NIDBAS)

DEPOSITION_BY_CELL [4/6]

#define DEPOSITION_BY_CELL   CONCAT(deposition_r8_by_cell_bas,NIDBAS)

DEPOSITION_BY_CELL [5/6]

#define DEPOSITION_BY_CELL   CONCAT(deposition_r8_by_cell_bas,NIDBAS)

DEPOSITION_BY_CELL [6/6]

#define DEPOSITION_BY_CELL   CONCAT(deposition_r8_by_cell_bas,NIDBAS)

DEPOSITION_BY_COLOR [1/6]

#define DEPOSITION_BY_COLOR   CONCAT(deposition_r4_by_color_bas,NIDBAS)

DEPOSITION_BY_COLOR [2/6]

#define DEPOSITION_BY_COLOR   CONCAT(deposition_r4_by_color_bas,NIDBAS)

DEPOSITION_BY_COLOR [3/6]

#define DEPOSITION_BY_COLOR   CONCAT(deposition_r4_by_color_bas,NIDBAS)

DEPOSITION_BY_COLOR [4/6]

#define DEPOSITION_BY_COLOR   CONCAT(deposition_r8_by_color_bas,NIDBAS)

DEPOSITION_BY_COLOR [5/6]

#define DEPOSITION_BY_COLOR   CONCAT(deposition_r8_by_color_bas,NIDBAS)

DEPOSITION_BY_COLOR [6/6]

#define DEPOSITION_BY_COLOR   CONCAT(deposition_r8_by_color_bas,NIDBAS)

DEPOSITION_BY_COLOR_BUF [1/6]

#define DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r4_by_color_buf_bas,NIDBAS)

DEPOSITION_BY_COLOR_BUF [2/6]

#define DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r4_by_color_buf_bas,NIDBAS)

DEPOSITION_BY_COLOR_BUF [3/6]

#define DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r4_by_color_buf_bas,NIDBAS)

DEPOSITION_BY_COLOR_BUF [4/6]

#define DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r8_by_color_buf_bas,NIDBAS)

DEPOSITION_BY_COLOR_BUF [5/6]

#define DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r8_by_color_buf_bas,NIDBAS)

DEPOSITION_BY_COLOR_BUF [6/6]

#define DEPOSITION_BY_COLOR_BUF   CONCAT(deposition_r8_by_color_buf_bas,NIDBAS)

DEPOSITION_BY_PART [1/6]

#define DEPOSITION_BY_PART   CONCAT(deposition_r4_by_part_bas,NIDBAS)

DEPOSITION_BY_PART [2/6]

#define DEPOSITION_BY_PART   CONCAT(deposition_r4_by_part_bas,NIDBAS)

DEPOSITION_BY_PART [3/6]

#define DEPOSITION_BY_PART   CONCAT(deposition_r4_by_part_bas,NIDBAS)

DEPOSITION_BY_PART [4/6]

#define DEPOSITION_BY_PART   CONCAT(deposition_r8_by_part_bas,NIDBAS)

DEPOSITION_BY_PART [5/6]

#define DEPOSITION_BY_PART   CONCAT(deposition_r8_by_part_bas,NIDBAS)

DEPOSITION_BY_PART [6/6]

#define DEPOSITION_BY_PART   CONCAT(deposition_r8_by_part_bas,NIDBAS)

GET_FIELD [1/3]

#define GET_FIELD   CONCAT(get_field_bas,NIDBAS)

GET_FIELD [2/3]

#define GET_FIELD   CONCAT(get_field_bas,NIDBAS)

GET_FIELD [3/3]

#define GET_FIELD   CONCAT(get_field_bas,NIDBAS)

GET_FIELD_BY_CELL [1/3]

#define GET_FIELD_BY_CELL   CONCAT(get_field_by_cell_bas,NIDBAS)

GET_FIELD_BY_CELL [2/3]

#define GET_FIELD_BY_CELL   CONCAT(get_field_by_cell_bas,NIDBAS)

GET_FIELD_BY_CELL [3/3]

#define GET_FIELD_BY_CELL   CONCAT(get_field_by_cell_bas,NIDBAS)

GET_FIELD_BY_PART [1/3]

#define GET_FIELD_BY_PART   CONCAT(get_field_by_part_bas,NIDBAS)

GET_FIELD_BY_PART [2/3]

#define GET_FIELD_BY_PART   CONCAT(get_field_by_part_bas,NIDBAS)

GET_FIELD_BY_PART [3/3]

#define GET_FIELD_BY_PART   CONCAT(get_field_by_part_bas,NIDBAS)

GRAD_SPLINES [1/3]

#define GRAD_SPLINES   CONCAT(grad_splines_bas,NIDBAS)

GRAD_SPLINES [2/3]

#define GRAD_SPLINES   CONCAT(grad_splines_bas,NIDBAS)

GRAD_SPLINES [3/3]

#define GRAD_SPLINES   CONCAT(grad_splines_bas,NIDBAS)

NIDBAS [1/3]

#define NIDBAS   3

NIDBAS [2/3]

#define NIDBAS   2

NIDBAS [3/3]

#define NIDBAS   1

SPLINES [1/9]

#define SPLINES   CONCAT(splines_bas,NIDBAS)

SPLINES [2/9]

#define SPLINES   CONCAT(splines_bas,NIDBAS)

SPLINES [3/9]

#define SPLINES   CONCAT(splines_bas,NIDBAS)

SPLINES [4/9]

#define SPLINES   CONCAT(splines_bas,NIDBAS)

SPLINES [5/9]

#define SPLINES   CONCAT(splines_bas,NIDBAS)

SPLINES [6/9]

#define SPLINES   CONCAT(splines_bas,NIDBAS)

SPLINES [7/9]

#define SPLINES   CONCAT(splines_bas,NIDBAS)

SPLINES [8/9]

#define SPLINES   CONCAT(splines_bas,NIDBAS)

SPLINES [9/9]

#define SPLINES   CONCAT(splines_bas,NIDBAS)

W_LENGTH [1/6]

#define W_LENGTH   8

W_LENGTH [2/6]

#define W_LENGTH   4

W_LENGTH [3/6]

#define W_LENGTH   8

W_LENGTH [4/6]

#define W_LENGTH   4

W_LENGTH [5/6]

#define W_LENGTH   8

W_LENGTH [6/6]

#define W_LENGTH   4

W_TYPE [1/6]

#define W_TYPE   real(kind=R4)

W_TYPE [2/6]

#define W_TYPE   real(kind=R4)

W_TYPE [3/6]

#define W_TYPE   real(kind=R4)

W_TYPE [4/6]

#define W_TYPE   real(kind=r8)

W_TYPE [5/6]

#define W_TYPE   real(kind=r8)

W_TYPE [6/6]

#define W_TYPE   real(kind=r8)

Function/Subroutine Documentation

four_color_reduction()

subroutine four_color_reduction ( integer, intent(in) color_number )

private

Performs the color charge/current deposition.

Date

05/2017

Parameters

[in]

color_number

Number of the color to perform (1, 2, 3 or 4)

four_color_reduction_buffered()

subroutine four_color_reduction_buffered ( integer, intent(in) color_number )

private

Performs the color charge/current deposition.

Date

05/2017

Parameters

[in]

color_number

Number of the color to perform (1, 2, 3 or 4)

four_color_reduction_buffered_vectorized()

subroutine four_color_reduction_buffered_vectorized ( integer, intent(in) color_number )

private

Performs the vecorized color charge/current deposition.

Date

05/2017

Parameters

[in]

color_number

Number of the color to perform (1, 2, 3 or 4)

four_color_reduction_vectorized()

subroutine four_color_reduction_vectorized ( integer, intent(in) color_number )

private

Performs the vecorized color charge/current deposition.

Date

05/2017

Parameters

[in]

color_number

Number of the color to perform (1, 2, 3 or 4)