field_routines.f90

Go to the documentation of this file.

MODULE field_routines

  USE base_routines
  USE basis_routines
  USE comp_environment
  USE coordinate_routines
  USE cmiss_mpi
  USE distributed_matrix_vector
  USE domain_mappings
  USE kinds
  USE input_output
  USE iso_varying_string
  USE lists
  USE maths
#ifndef NOMPIMOD
  USE mpi
#endif
  USE mesh_routines
  USE node_routines
  USE strings
  USE types

#include "macros.h"  

  IMPLICIT NONE

#ifdef NOMPIMOD
#include "mpif.h"
#endif

  PRIVATE

  !Module parameters

  INTEGER(INTG), PARAMETER :: field_independent_type=1
  INTEGER(INTG), PARAMETER :: field_dependent_type=2

  INTEGER(INTG), PARAMETER :: field_scalar_dimension_type=1
  INTEGER(INTG), PARAMETER :: field_vector_dimension_type=2
  INTEGER(INTG), PARAMETER :: field_tensor_dimension_type=3

  INTEGER(INTG), PARAMETER :: field_geometric_type=1
  INTEGER(INTG), PARAMETER :: field_fibre_type=2
  INTEGER(INTG), PARAMETER :: field_general_type=3
  INTEGER(INTG), PARAMETER :: field_material_type=4
  INTEGER(INTG), PARAMETER :: field_geometric_general_type=5

  INTEGER(INTG), PARAMETER :: field_constant_interpolation=1
  INTEGER(INTG), PARAMETER :: field_element_based_interpolation=2
  INTEGER(INTG), PARAMETER :: field_node_based_interpolation=3
  INTEGER(INTG), PARAMETER :: field_grid_point_based_interpolation=4
  INTEGER(INTG), PARAMETER :: field_gauss_point_based_interpolation=5
  INTEGER(INTG), PARAMETER :: field_data_point_based_interpolation=6

  INTEGER(INTG), PARAMETER :: field_number_of_variable_types=48
  INTEGER(INTG), PARAMETER :: field_number_of_variable_subtypes=4
  INTEGER(INTG), PARAMETER :: field_u_variable_type=1
  INTEGER(INTG), PARAMETER :: field_deludeln_variable_type=2
  INTEGER(INTG), PARAMETER :: field_deludelt_variable_type=3
  INTEGER(INTG), PARAMETER :: field_del2udelt2_variable_type=4
  INTEGER(INTG), PARAMETER :: field_v_variable_type=5
  INTEGER(INTG), PARAMETER :: field_delvdeln_variable_type=6
  INTEGER(INTG), PARAMETER :: field_delvdelt_variable_type=7
  INTEGER(INTG), PARAMETER :: field_del2vdelt2_variable_type=8
  INTEGER(INTG), PARAMETER :: field_u1_variable_type=9
  INTEGER(INTG), PARAMETER :: field_delu1deln_variable_type=10
  INTEGER(INTG), PARAMETER :: field_delu1delt_variable_type=11
  INTEGER(INTG), PARAMETER :: field_del2u1delt2_variable_type=12
  INTEGER(INTG), PARAMETER :: field_u2_variable_type=13
  INTEGER(INTG), PARAMETER :: field_delu2deln_variable_type=14
  INTEGER(INTG), PARAMETER :: field_delu2delt_variable_type=15
  INTEGER(INTG), PARAMETER :: field_del2u2delt2_variable_type=16
  INTEGER(INTG), PARAMETER :: field_u3_variable_type=17
  INTEGER(INTG), PARAMETER :: field_delu3deln_variable_type=18
  INTEGER(INTG), PARAMETER :: field_delu3delt_variable_type=19
  INTEGER(INTG), PARAMETER :: field_del2u3delt2_variable_type=20
  INTEGER(INTG), PARAMETER :: field_u4_variable_type=21
  INTEGER(INTG), PARAMETER :: field_delu4deln_variable_type=22
  INTEGER(INTG), PARAMETER :: field_delu4delt_variable_type=23
  INTEGER(INTG), PARAMETER :: field_del2u4delt2_variable_type=24
  INTEGER(INTG), PARAMETER :: field_u5_variable_type=25
  INTEGER(INTG), PARAMETER :: field_delu5deln_variable_type=26
  INTEGER(INTG), PARAMETER :: field_delu5delt_variable_type=27
  INTEGER(INTG), PARAMETER :: field_del2u5delt2_variable_type=28
  INTEGER(INTG), PARAMETER :: field_u6_variable_type=29
  INTEGER(INTG), PARAMETER :: field_delu6deln_variable_type=30
  INTEGER(INTG), PARAMETER :: field_delu6delt_variable_type=31
  INTEGER(INTG), PARAMETER :: field_del2u6delt2_variable_type=32
  INTEGER(INTG), PARAMETER :: field_u7_variable_type=33
  INTEGER(INTG), PARAMETER :: field_delu7deln_variable_type=34
  INTEGER(INTG), PARAMETER :: field_delu7delt_variable_type=35
  INTEGER(INTG), PARAMETER :: field_del2u7delt2_variable_type=36
  INTEGER(INTG), PARAMETER :: field_u8_variable_type=37
  INTEGER(INTG), PARAMETER :: field_delu8deln_variable_type=38
  INTEGER(INTG), PARAMETER :: field_delu8delt_variable_type=39
  INTEGER(INTG), PARAMETER :: field_del2u8delt2_variable_type=40
  INTEGER(INTG), PARAMETER :: field_u9_variable_type=41
  INTEGER(INTG), PARAMETER :: field_delu9deln_variable_type=42
  INTEGER(INTG), PARAMETER :: field_delu9delt_variable_type=43
  INTEGER(INTG), PARAMETER :: field_del2u9delt2_variable_type=44
  INTEGER(INTG), PARAMETER :: field_u10_variable_type=45
  INTEGER(INTG), PARAMETER :: field_delu10deln_variable_type=46
  INTEGER(INTG), PARAMETER :: field_delu10delt_variable_type=47
  INTEGER(INTG), PARAMETER :: field_del2u10delt2_variable_type=48
  
  INTEGER(INTG), PARAMETER :: field_constant_dof_type=1
  INTEGER(INTG), PARAMETER :: field_element_dof_type=2
  INTEGER(INTG), PARAMETER :: field_node_dof_type=3
  INTEGER(INTG), PARAMETER :: field_grid_point_dof_type=4
  INTEGER(INTG), PARAMETER :: field_gauss_point_dof_type=5
  INTEGER(INTG), PARAMETER :: field_data_point_dof_type=6
   
  INTEGER(INTG), PARAMETER :: field_intg_type=1
  INTEGER(INTG), PARAMETER :: field_sp_type=2
  INTEGER(INTG), PARAMETER :: field_dp_type=3
  INTEGER(INTG), PARAMETER :: field_l_type=4
   
  INTEGER(INTG), PARAMETER :: field_separated_component_dof_order=1
  INTEGER(INTG), PARAMETER :: field_contiguous_component_dof_order=2

  INTEGER(INTG), PARAMETER :: field_number_of_set_types=99
  INTEGER(INTG), PARAMETER :: field_values_set_type=1
  INTEGER(INTG), PARAMETER :: field_boundary_conditions_set_type=2
  INTEGER(INTG), PARAMETER :: field_initial_values_set_type=3
  INTEGER(INTG), PARAMETER :: field_incremental_values_set_type=4
  INTEGER(INTG), PARAMETER :: field_analytic_values_set_type=5
  INTEGER(INTG), PARAMETER :: field_previous_values_set_type=6
  INTEGER(INTG), PARAMETER :: field_mean_predicted_displacement_set_type=7
  INTEGER(INTG), PARAMETER :: field_velocity_values_set_type=8
  INTEGER(INTG), PARAMETER :: field_initial_velocity_set_type=9
  INTEGER(INTG), PARAMETER :: field_previous_velocity_set_type=9
  INTEGER(INTG), PARAMETER :: field_mean_predicted_velocity_set_type=10
  INTEGER(INTG), PARAMETER :: field_acceleration_values_set_type=11
  INTEGER(INTG), PARAMETER :: field_initial_acceleration_set_type=12
  INTEGER(INTG), PARAMETER :: field_previous_acceleration_set_type=12
  INTEGER(INTG), PARAMETER :: field_mean_predicted_acceleration_set_type=13
  INTEGER(INTG), PARAMETER :: field_predicted_displacement_set_type=14
  INTEGER(INTG), PARAMETER :: field_predicted_velocity_set_type=15
  INTEGER(INTG), PARAMETER :: field_predicted_acceleration_set_type=16
  INTEGER(INTG), PARAMETER :: field_residual_set_type=17
  INTEGER(INTG), PARAMETER :: field_previous_residual_set_type=18
  INTEGER(INTG), PARAMETER :: field_mesh_displacement_set_type=19
  INTEGER(INTG), PARAMETER :: field_mesh_velocity_set_type=20
  INTEGER(INTG), PARAMETER :: field_boundary_set_type=21
  INTEGER(INTG), PARAMETER :: field_input_data1_set_type=22
  INTEGER(INTG), PARAMETER :: field_input_data2_set_type=23
  INTEGER(INTG), PARAMETER :: field_input_data3_set_type=24
  INTEGER(INTG), PARAMETER :: field_input_vel1_set_type=25
  INTEGER(INTG), PARAMETER :: field_input_vel2_set_type=26
  INTEGER(INTG), PARAMETER :: field_input_vel3_set_type=27
  INTEGER(INTG), PARAMETER :: field_input_label_set_type=28
  INTEGER(INTG), PARAMETER :: field_pressure_values_set_type=29
  INTEGER(INTG), PARAMETER :: field_previous_pressure_set_type=30
  INTEGER(INTG), PARAMETER :: field_relative_velocity_set_type=31
  INTEGER(INTG), PARAMETER :: field_negative_mesh_velocity_set_type=32
  INTEGER(INTG), PARAMETER :: field_previous_iteration_values_set_type=33
  INTEGER(INTG), PARAMETER :: field_impermeable_flag_values_set_type=34
  INTEGER(INTG), PARAMETER :: field_integrated_neumann_set_type=35
  INTEGER(INTG), PARAMETER :: field_upwind_values_set_type=36
  INTEGER(INTG), PARAMETER :: field_previous_upwind_values_set_type=37

  INTEGER(INTG), PARAMETER :: field_no_scaling=0
  INTEGER(INTG), PARAMETER :: field_unit_scaling=1
  INTEGER(INTG), PARAMETER :: field_arc_length_scaling=2
  INTEGER(INTG), PARAMETER :: field_arithmetic_mean_scaling=3
  INTEGER(INTG), PARAMETER :: field_geometric_mean_scaling=4
  INTEGER(INTG), PARAMETER :: field_harmonic_mean_scaling=5
  
  INTEGER(INTG), PARAMETER :: field_all_components_type=1
  INTEGER(INTG), PARAMETER :: field_geometric_components_type=2
  INTEGER(INTG), PARAMETER :: field_nongeometric_components_type=3

  !Module types

  !Module variables

  !Interfaces

  INTERFACE field_componentinterpolationcheck
    MODULE PROCEDURE field_component_interpolation_check
  END INTERFACE field_componentinterpolationcheck

  INTERFACE field_componentinterpolationget
    MODULE PROCEDURE field_component_interpolation_get
  END INTERFACE field_componentinterpolationget

   INTERFACE field_componentinterpolationset
    MODULE PROCEDURE field_component_interpolation_set
  END INTERFACE field_componentinterpolationset

  INTERFACE field_componentinterpolationsetandlock
    MODULE PROCEDURE field_component_interpolation_set_and_lock
  END INTERFACE field_componentinterpolationsetandlock

  INTERFACE field_component_label_get
    MODULE PROCEDURE field_component_label_get_c
    MODULE PROCEDURE field_component_label_get_vs
  END INTERFACE field_component_label_get
  
  INTERFACE field_componentlabelget
    MODULE PROCEDURE field_component_label_get_c
    MODULE PROCEDURE field_component_label_get_vs
  END INTERFACE field_componentlabelget
  
  INTERFACE field_component_label_set
    MODULE PROCEDURE field_component_label_set_c
    MODULE PROCEDURE field_component_label_set_vs
  END INTERFACE field_component_label_set
  
  INTERFACE field_componentlabelset
    MODULE PROCEDURE field_component_label_set_c
    MODULE PROCEDURE field_component_label_set_vs
  END INTERFACE field_componentlabelset
  
  INTERFACE field_component_label_set_and_lock
    MODULE PROCEDURE field_component_label_set_and_lock_c
    MODULE PROCEDURE field_component_label_set_and_lock_vs
  END INTERFACE field_component_label_set_and_lock
  
  INTERFACE field_componentlabelsetandlock
    MODULE PROCEDURE field_component_label_set_and_lock_c
    MODULE PROCEDURE field_component_label_set_and_lock_vs
  END INTERFACE field_componentlabelsetandlock
  
  INTERFACE field_componentmeshcomponentcheck
    MODULE PROCEDURE field_component_mesh_component_check
  END INTERFACE field_componentmeshcomponentcheck

  INTERFACE field_componentmeshcomponentget
    MODULE PROCEDURE field_component_mesh_component_get
  END INTERFACE field_componentmeshcomponentget

  INTERFACE field_componentmeshcomponentset
    MODULE PROCEDURE field_component_mesh_component_set
  END INTERFACE field_componentmeshcomponentset

  INTERFACE field_componentmeshcomponentsetandlock
    MODULE PROCEDURE field_component_mesh_component_set_and_lock
  END INTERFACE field_componentmeshcomponentsetandlock

  INTERFACE field_component_values_initialise
    MODULE PROCEDURE field_component_values_initialise_intg
    MODULE PROCEDURE field_component_values_initialise_sp
    MODULE PROCEDURE field_component_values_initialise_dp
    MODULE PROCEDURE field_component_values_initialise_l
  END INTERFACE field_component_values_initialise

  INTERFACE field_componentvaluesinitialise
    MODULE PROCEDURE field_component_values_initialise_intg
    MODULE PROCEDURE field_component_values_initialise_sp
    MODULE PROCEDURE field_component_values_initialise_dp
    MODULE PROCEDURE field_component_values_initialise_l
  END INTERFACE field_componentvaluesinitialise

  INTERFACE field_coordinatesystemget
    MODULE PROCEDURE field_coordinate_system_get
  END INTERFACE field_coordinatesystemget
  
  INTERFACE field_createfinish
    MODULE PROCEDURE field_create_finish
  END INTERFACE field_createfinish

  INTERFACE field_create_start
    MODULE PROCEDURE field_create_start_interface
    MODULE PROCEDURE field_create_start_region
  END INTERFACE field_create_start
  
  INTERFACE field_createstart
    MODULE PROCEDURE field_create_start_interface
    MODULE PROCEDURE field_create_start_region
  END INTERFACE field_createstart
  
  INTERFACE field_destroy
    MODULE PROCEDURE field_destroy
  END INTERFACE field_destroy
  
  INTERFACE field_datatypecheck
    MODULE PROCEDURE field_data_type_check
  END INTERFACE field_datatypecheck
  
  INTERFACE field_datatypeget
    MODULE PROCEDURE field_data_type_get
  END INTERFACE field_datatypeget
  
  INTERFACE field_datatypeset
    MODULE PROCEDURE field_data_type_set
  END INTERFACE field_datatypeset
  
  INTERFACE field_datatypesetandlock
    MODULE PROCEDURE field_data_type_set_and_lock
  END INTERFACE field_datatypesetandlock
  
  INTERFACE field_dependenttypecheck
    MODULE PROCEDURE field_dependent_type_check
  END INTERFACE field_dependenttypecheck
  
  INTERFACE field_dependenttypeget
    MODULE PROCEDURE field_dependent_type_get
  END INTERFACE field_dependenttypeget
  
  INTERFACE field_dependenttypeset
    MODULE PROCEDURE field_dependent_type_set
  END INTERFACE field_dependenttypeset
  
  INTERFACE field_dependenttypesetandlock
    MODULE PROCEDURE field_dependent_type_set_and_lock
  END INTERFACE field_dependenttypesetandlock
  
  INTERFACE field_dimensioncheck
    MODULE PROCEDURE field_dimension_check
  END INTERFACE field_dimensioncheck
  
  INTERFACE field_dimensionget
    MODULE PROCEDURE field_dimension_get
  END INTERFACE field_dimensionget
  
  INTERFACE field_dimensionset
    MODULE PROCEDURE field_dimension_set
  END INTERFACE field_dimensionset
  
  INTERFACE field_dimensionsetandlock
    MODULE PROCEDURE field_dimension_set_and_lock
  END INTERFACE field_dimensionsetandlock
  
  INTERFACE field_dofordertypecheck
    MODULE PROCEDURE field_dof_order_type_check
  END INTERFACE field_dofordertypecheck
  
  INTERFACE field_dofordertypeget
    MODULE PROCEDURE field_dof_order_type_get
  END INTERFACE field_dofordertypeget
  
  INTERFACE field_dofordertypeset
    MODULE PROCEDURE field_dof_order_type_set
  END INTERFACE field_dofordertypeset
  
  INTERFACE field_dofordertypesetandlock
    MODULE PROCEDURE field_dof_order_type_set_and_lock
  END INTERFACE field_dofordertypesetandlock
  
  INTERFACE field_geometricfieldget
    MODULE PROCEDURE field_geometric_field_get
  END INTERFACE field_geometricfieldget
  
  INTERFACE field_geometricfieldset
    MODULE PROCEDURE field_geometric_field_set
  END INTERFACE field_geometricfieldset
  
  INTERFACE field_geometricfieldsetandlock
    MODULE PROCEDURE field_geometric_field_set_and_lock
  END INTERFACE field_geometricfieldsetandlock
  
  INTERFACE field_interpolategauss
    MODULE PROCEDURE field_interpolate_gauss
  END INTERFACE field_interpolategauss
  
  INTERFACE field_interpolatexi
    MODULE PROCEDURE field_interpolate_xi
  END INTERFACE field_interpolatexi
  
  INTERFACE field_interpolatenode
    MODULE PROCEDURE field_interpolate_node
  END INTERFACE field_interpolatenode
  
  INTERFACE field_interpolatefieldnode
    MODULE PROCEDURE field_interpolate_field_node
  END INTERFACE field_interpolatefieldnode

  INTERFACE field_interpolatelocalfacegauss
    MODULE PROCEDURE field_interpolate_local_face_gauss
  END INTERFACE field_interpolatelocalfacegauss
  
  INTERFACE field_interpolatedpointmetricscalculate
    MODULE PROCEDURE field_interpolated_point_metrics_calculate
  END INTERFACE field_interpolatedpointmetricscalculate
  
  INTERFACE field_interpolatedpointsfinalise
    MODULE PROCEDURE field_interpolated_points_finalise
  END INTERFACE field_interpolatedpointsfinalise
  
  INTERFACE field_interpolatedpointsinitialise
    MODULE PROCEDURE field_interpolated_points_initialise
  END INTERFACE field_interpolatedpointsinitialise
  
  INTERFACE field_interpolationparameterselementget
    MODULE PROCEDURE field_interpolation_parameters_element_get
  END INTERFACE field_interpolationparameterselementget
  
  INTERFACE field_interpolationparametersfinalise
    MODULE PROCEDURE field_interpolation_parameters_finalise
  END INTERFACE field_interpolationparametersfinalise
  
  INTERFACE field_interpolationparametersinitialise
    MODULE PROCEDURE field_interpolation_parameters_initialise
  END INTERFACE field_interpolationparametersinitialise
  
  INTERFACE field_interpolationparametersfaceget
    MODULE PROCEDURE field_interpolation_parameters_face_get
  END INTERFACE field_interpolationparametersfaceget
  
  INTERFACE field_interpolationparameterslineget
    MODULE PROCEDURE field_interpolation_parameters_line_get
  END INTERFACE field_interpolationparameterslineget
  
  INTERFACE field_label_get
    MODULE PROCEDURE field_label_get_c
    MODULE PROCEDURE field_label_get_vs
  END INTERFACE field_label_get
  
  INTERFACE field_labelget
    MODULE PROCEDURE field_label_get_c
    MODULE PROCEDURE field_label_get_vs
  END INTERFACE field_labelget
  
  INTERFACE field_label_set
    MODULE PROCEDURE field_label_set_c
    MODULE PROCEDURE field_label_set_vs
  END INTERFACE field_label_set
  
  INTERFACE field_labelset
    MODULE PROCEDURE field_label_set_c
    MODULE PROCEDURE field_label_set_vs
  END INTERFACE field_labelset
  
  INTERFACE field_label_set_and_lock
    MODULE PROCEDURE field_label_set_and_lock_c
    MODULE PROCEDURE field_label_set_and_lock_vs
  END INTERFACE field_label_set_and_lock
  
  INTERFACE field_labelsetandlock
    MODULE PROCEDURE field_label_set_and_lock_c
    MODULE PROCEDURE field_label_set_and_lock_vs
  END INTERFACE field_labelsetandlock

  INTERFACE field_meshdecompositionget
    MODULE PROCEDURE field_mesh_decomposition_get
  END INTERFACE field_meshdecompositionget
  
  INTERFACE field_meshdecompositionset
    MODULE PROCEDURE field_mesh_decomposition_set
  END INTERFACE field_meshdecompositionset
  
  INTERFACE field_meshdecompositionsetandlock
    MODULE PROCEDURE field_mesh_decomposition_set_and_lock
  END INTERFACE field_meshdecompositionsetandlock
  
  INTERFACE field_numberofcomponentscheck
    MODULE PROCEDURE field_number_of_components_check
  END INTERFACE field_numberofcomponentscheck
  
  INTERFACE field_numberofcomponentsget
    MODULE PROCEDURE field_number_of_components_get
  END INTERFACE field_numberofcomponentsget
  
  INTERFACE field_numberofcomponentsset
    MODULE PROCEDURE field_number_of_components_set
  END INTERFACE field_numberofcomponentsset
  
  INTERFACE field_numberofcomponentssetandlock
    MODULE PROCEDURE field_number_of_components_set_and_lock
  END INTERFACE field_numberofcomponentssetandlock
  
  INTERFACE field_numberofvariablescheck
    MODULE PROCEDURE field_number_of_variables_check
  END INTERFACE field_numberofvariablescheck
  
  INTERFACE field_numberofvariablesget
    MODULE PROCEDURE field_number_of_variables_get
  END INTERFACE field_numberofvariablesget
  
  INTERFACE field_numberofvariablesset
    MODULE PROCEDURE field_number_of_variables_set
  END INTERFACE field_numberofvariablesset
  
  INTERFACE field_numberofvariablessetandlock
    MODULE PROCEDURE field_number_of_variables_set_and_lock
  END INTERFACE field_numberofvariablessetandlock
  
  INTERFACE field_parameter_sets_add
    MODULE PROCEDURE field_parameter_sets_add_dp
    MODULE PROCEDURE field_parameter_sets_add_dp1
  END INTERFACE field_parameter_sets_add

  INTERFACE field_parametersetsadd
    MODULE PROCEDURE field_parameter_sets_add_dp
    MODULE PROCEDURE field_parameter_sets_add_dp1
  END INTERFACE field_parametersetsadd

  INTERFACE field_parametersetscopy
    MODULE PROCEDURE field_parameter_sets_copy
  END INTERFACE field_parametersetscopy
  
  INTERFACE field_parametersetdestroy
    MODULE PROCEDURE field_parameter_set_destroy
  END INTERFACE field_parametersetdestroy
  
  INTERFACE field_parametersetget
    MODULE PROCEDURE field_parameter_set_get
  END INTERFACE field_parametersetget
  
  INTERFACE field_parameter_set_add_constant
    MODULE PROCEDURE field_parameter_set_add_constant_intg
    MODULE PROCEDURE field_parameter_set_add_constant_sp
    MODULE PROCEDURE field_parameter_set_add_constant_dp
    MODULE PROCEDURE field_parameter_set_add_constant_l
  END INTERFACE field_parameter_set_add_constant

  INTERFACE field_parametersetaddconstant
    MODULE PROCEDURE field_parameter_set_add_constant_intg
    MODULE PROCEDURE field_parameter_set_add_constant_sp
    MODULE PROCEDURE field_parameter_set_add_constant_dp
    MODULE PROCEDURE field_parameter_set_add_constant_l
  END INTERFACE field_parametersetaddconstant

  INTERFACE field_parameter_set_add_local_dof
    MODULE PROCEDURE field_parameter_set_add_local_dof_intg
    MODULE PROCEDURE field_parameter_set_add_local_dof_sp
    MODULE PROCEDURE field_parameter_set_add_local_dof_dp
    MODULE PROCEDURE field_parameter_set_add_local_dof_l
  END INTERFACE field_parameter_set_add_local_dof

  INTERFACE field_parametersetaddlocaldof
    MODULE PROCEDURE field_parameter_set_add_local_dof_intg
    MODULE PROCEDURE field_parameter_set_add_local_dof_sp
    MODULE PROCEDURE field_parameter_set_add_local_dof_dp
    MODULE PROCEDURE field_parameter_set_add_local_dof_l
  END INTERFACE field_parametersetaddlocaldof

  INTERFACE field_parameter_set_add_element
    MODULE PROCEDURE field_parameter_set_add_element_intg
    MODULE PROCEDURE field_parameter_set_add_element_sp
    MODULE PROCEDURE field_parameter_set_add_element_dp
    MODULE PROCEDURE field_parameter_set_add_element_l
  END INTERFACE field_parameter_set_add_element
  
  INTERFACE field_parametersetaddelement
    MODULE PROCEDURE field_parameter_set_add_element_intg
    MODULE PROCEDURE field_parameter_set_add_element_sp
    MODULE PROCEDURE field_parameter_set_add_element_dp
    MODULE PROCEDURE field_parameter_set_add_element_l
  END INTERFACE field_parametersetaddelement
  
  INTERFACE field_parameter_set_add_local_element
    MODULE PROCEDURE field_parameter_set_add_local_element_intg
    MODULE PROCEDURE field_parameter_set_add_local_element_sp
    MODULE PROCEDURE field_parameter_set_add_local_element_dp
    MODULE PROCEDURE field_parameter_set_add_local_element_l
  END INTERFACE field_parameter_set_add_local_element

  INTERFACE field_parametersetaddlocalelement
    MODULE PROCEDURE field_parameter_set_add_local_element_intg
    MODULE PROCEDURE field_parameter_set_add_local_element_sp
    MODULE PROCEDURE field_parameter_set_add_local_element_dp
    MODULE PROCEDURE field_parameter_set_add_local_element_l
  END INTERFACE field_parametersetaddlocalelement

  INTERFACE field_parameter_set_add_node
    MODULE PROCEDURE field_parameter_set_add_node_intg
    MODULE PROCEDURE field_parameter_set_add_node_sp
    MODULE PROCEDURE field_parameter_set_add_node_dp
    MODULE PROCEDURE field_parameter_set_add_node_l
  END INTERFACE field_parameter_set_add_node
  
  INTERFACE field_parametersetaddnode
    MODULE PROCEDURE field_parameter_set_add_node_intg
    MODULE PROCEDURE field_parameter_set_add_node_sp
    MODULE PROCEDURE field_parameter_set_add_node_dp
    MODULE PROCEDURE field_parameter_set_add_node_l
  END INTERFACE field_parametersetaddnode
  
  INTERFACE field_parameter_set_add_local_node
    MODULE PROCEDURE field_parameter_set_add_local_node_intg
    MODULE PROCEDURE field_parameter_set_add_local_node_sp
    MODULE PROCEDURE field_parameter_set_add_local_node_dp
    MODULE PROCEDURE field_parameter_set_add_local_node_l
  END INTERFACE field_parameter_set_add_local_node

  INTERFACE field_parametersetaddlocalnode
    MODULE PROCEDURE field_parameter_set_add_local_node_intg
    MODULE PROCEDURE field_parameter_set_add_local_node_sp
    MODULE PROCEDURE field_parameter_set_add_local_node_dp
    MODULE PROCEDURE field_parameter_set_add_local_node_l
  END INTERFACE field_parametersetaddlocalnode

  INTERFACE field_parametersetcreate
    MODULE PROCEDURE field_parameter_set_create
  END INTERFACE field_parametersetcreate
  
  INTERFACE field_parametersetcreated
    MODULE PROCEDURE field_parameter_set_created
  END INTERFACE field_parametersetcreated
  
  INTERFACE field_parameter_set_data_get
    MODULE PROCEDURE field_parameter_set_data_get_intg
    MODULE PROCEDURE field_parameter_set_data_get_sp
    MODULE PROCEDURE field_parameter_set_data_get_dp
    MODULE PROCEDURE field_parameter_set_data_get_l
  END INTERFACE field_parameter_set_data_get
 
  INTERFACE field_parametersetdataget
    MODULE PROCEDURE field_parameter_set_data_get_intg
    MODULE PROCEDURE field_parameter_set_data_get_sp
    MODULE PROCEDURE field_parameter_set_data_get_dp
    MODULE PROCEDURE field_parameter_set_data_get_l
  END INTERFACE field_parametersetdataget
 
  INTERFACE field_parameter_set_data_restore
    MODULE PROCEDURE field_parameter_set_data_restore_intg
    MODULE PROCEDURE field_parameter_set_data_restore_sp
    MODULE PROCEDURE field_parameter_set_data_restore_dp
    MODULE PROCEDURE field_parameter_set_data_restore_l
  END INTERFACE field_parameter_set_data_restore
 
  INTERFACE field_parametersetdatarestore
    MODULE PROCEDURE field_parameter_set_data_restore_intg
    MODULE PROCEDURE field_parameter_set_data_restore_sp
    MODULE PROCEDURE field_parameter_set_data_restore_dp
    MODULE PROCEDURE field_parameter_set_data_restore_l
  END INTERFACE field_parametersetdatarestore
 
  INTERFACE field_parameter_set_get_constant
    MODULE PROCEDURE field_parameter_set_get_constant_intg
    MODULE PROCEDURE field_parameter_set_get_constant_sp
    MODULE PROCEDURE field_parameter_set_get_constant_dp
    MODULE PROCEDURE field_parameter_set_get_constant_l
  END INTERFACE field_parameter_set_get_constant
  
  INTERFACE field_parametersetgetconstant
    MODULE PROCEDURE field_parameter_set_get_constant_intg
    MODULE PROCEDURE field_parameter_set_get_constant_sp
    MODULE PROCEDURE field_parameter_set_get_constant_dp
    MODULE PROCEDURE field_parameter_set_get_constant_l
  END INTERFACE field_parametersetgetconstant
  
  INTERFACE field_parametersetgetdatapoint
    MODULE PROCEDURE field_parametersetgetdatapointintg
    MODULE PROCEDURE field_parametersetgetdatapointsp
    MODULE PROCEDURE field_parametersetgetdatapointdp
    MODULE PROCEDURE field_parametersetgetdatapointl
  END INTERFACE field_parametersetgetdatapoint

  INTERFACE field_parameter_set_get_element
    MODULE PROCEDURE field_parameter_set_get_element_intg
    MODULE PROCEDURE field_parameter_set_get_element_sp
    MODULE PROCEDURE field_parameter_set_get_element_dp
    MODULE PROCEDURE field_parameter_set_get_element_l
  END INTERFACE field_parameter_set_get_element
  
  INTERFACE field_parametersetgetelement
    MODULE PROCEDURE field_parameter_set_get_element_intg
    MODULE PROCEDURE field_parameter_set_get_element_sp
    MODULE PROCEDURE field_parameter_set_get_element_dp
    MODULE PROCEDURE field_parameter_set_get_element_l
  END INTERFACE field_parametersetgetelement
  
  INTERFACE field_parameter_set_get_local_dof
    MODULE PROCEDURE field_parameter_set_get_local_dof_intg
    MODULE PROCEDURE field_parameter_set_get_local_dof_sp
    MODULE PROCEDURE field_parameter_set_get_local_dof_dp
    MODULE PROCEDURE field_parameter_set_get_local_dof_l
  END INTERFACE field_parameter_set_get_local_dof

  INTERFACE field_parametersetgetlocaldof
    MODULE PROCEDURE field_parameter_set_get_local_dof_intg
    MODULE PROCEDURE field_parameter_set_get_local_dof_sp
    MODULE PROCEDURE field_parameter_set_get_local_dof_dp
    MODULE PROCEDURE field_parameter_set_get_local_dof_l
  END INTERFACE field_parametersetgetlocaldof

  INTERFACE field_parameter_set_get_node
    MODULE PROCEDURE field_parameter_set_get_node_intg
    MODULE PROCEDURE field_parameter_set_get_node_sp
    MODULE PROCEDURE field_parameter_set_get_node_dp
    MODULE PROCEDURE field_parameter_set_get_node_l
  END INTERFACE field_parameter_set_get_node

  INTERFACE field_parametersetgetnode
    MODULE PROCEDURE field_parameter_set_get_node_intg
    MODULE PROCEDURE field_parameter_set_get_node_sp
    MODULE PROCEDURE field_parameter_set_get_node_dp
    MODULE PROCEDURE field_parameter_set_get_node_l
  END INTERFACE field_parametersetgetnode

  INTERFACE field_parametersetgetlocalnode
    MODULE PROCEDURE field_parametersetgetlocalnode_intg
    MODULE PROCEDURE field_parametersetgetlocalnode_sp
    MODULE PROCEDURE field_parametersetgetlocalnode_dp
    MODULE PROCEDURE field_parametersetgetlocalnode_l
  END INTERFACE field_parametersetgetlocalnode

  INTERFACE field_parametersetgetlocalelement
    MODULE PROCEDURE field_parametersetgetlocalelement_intg
    MODULE PROCEDURE field_parametersetgetlocalelement_sp
    MODULE PROCEDURE field_parametersetgetlocalelement_dp
    MODULE PROCEDURE field_parametersetgetlocalelement_l
  END INTERFACE field_parametersetgetlocalelement

  INTERFACE field_parametersetgetgausspoint
    MODULE PROCEDURE field_parametersetgetgausspointdp
  END INTERFACE field_parametersetgetgausspoint
  
  INTERFACE field_parameter_set_get_gauss_point
    MODULE PROCEDURE field_parametersetgetgausspointdp
  END INTERFACE field_parameter_set_get_gauss_point
  
  INTERFACE field_parametersetgetlocalgausspoint
    MODULE PROCEDURE field_parametersetgetlocalgausspointdp
  END INTERFACE field_parametersetgetlocalgausspoint
  
  INTERFACE field_parametersetoutput
    MODULE PROCEDURE field_parameter_set_output
  END INTERFACE field_parametersetoutput
  
  INTERFACE field_parametersetupdatefinish
    MODULE PROCEDURE field_parameter_set_update_finish
  END INTERFACE field_parametersetupdatefinish
  
  INTERFACE field_parametersetupdatestart
    MODULE PROCEDURE field_parameter_set_update_start
  END INTERFACE field_parametersetupdatestart
  
  INTERFACE field_parameter_set_update_constant
    MODULE PROCEDURE field_parameter_set_update_constant_intg
    MODULE PROCEDURE field_parameter_set_update_constant_sp
    MODULE PROCEDURE field_parameter_set_update_constant_dp
    MODULE PROCEDURE field_parameter_set_update_constant_l
  END INTERFACE field_parameter_set_update_constant
  
  INTERFACE field_parametersetupdateconstant
    MODULE PROCEDURE field_parameter_set_update_constant_intg
    MODULE PROCEDURE field_parameter_set_update_constant_sp
    MODULE PROCEDURE field_parameter_set_update_constant_dp
    MODULE PROCEDURE field_parameter_set_update_constant_l
  END INTERFACE field_parametersetupdateconstant
  
  INTERFACE field_parametersetupdatedatapoint
    MODULE PROCEDURE field_parametersetupdatedatapointintg
    MODULE PROCEDURE field_parametersetupdatedatapointsp
    MODULE PROCEDURE field_parametersetupdatedatapointdp
    MODULE PROCEDURE field_parametersetupdatedatapointl
  END INTERFACE field_parametersetupdatedatapoint

  INTERFACE field_parameter_set_update_local_dof
    MODULE PROCEDURE field_parameter_set_update_local_dof_intg
    MODULE PROCEDURE field_parameter_set_update_local_dof_sp
    MODULE PROCEDURE field_parameter_set_update_local_dof_dp
    MODULE PROCEDURE field_parameter_set_update_local_dof_l
  END INTERFACE field_parameter_set_update_local_dof

  INTERFACE field_parametersetupdatelocaldof
    MODULE PROCEDURE field_parameter_set_update_local_dof_intg
    MODULE PROCEDURE field_parameter_set_update_local_dof_sp
    MODULE PROCEDURE field_parameter_set_update_local_dof_dp
    MODULE PROCEDURE field_parameter_set_update_local_dof_l
  END INTERFACE field_parametersetupdatelocaldof

  INTERFACE field_parameter_set_update_local_dofs
    MODULE PROCEDURE field_parameter_set_update_local_dofs_dp
  END INTERFACE field_parameter_set_update_local_dofs

  INTERFACE field_parametersetupdatelocaldofs
    MODULE PROCEDURE field_parameter_set_update_local_dofs_dp
  END INTERFACE field_parametersetupdatelocaldofs

  INTERFACE field_parameter_set_update_element
    MODULE PROCEDURE field_parameter_set_update_element_intg
    MODULE PROCEDURE field_parameter_set_update_element_sp
    MODULE PROCEDURE field_parameter_set_update_element_dp
    MODULE PROCEDURE field_parameter_set_update_element_l
  END INTERFACE field_parameter_set_update_element
  
  INTERFACE field_parametersetupdateelement
    MODULE PROCEDURE field_parameter_set_update_element_intg
    MODULE PROCEDURE field_parameter_set_update_element_sp
    MODULE PROCEDURE field_parameter_set_update_element_dp
    MODULE PROCEDURE field_parameter_set_update_element_l
  END INTERFACE field_parametersetupdateelement
  
  INTERFACE field_parameter_set_update_local_element
    MODULE PROCEDURE field_parametersetupdatelocalelementintg
    MODULE PROCEDURE field_parameter_set_update_local_element_sp
    MODULE PROCEDURE field_parameter_set_update_local_element_dp
    MODULE PROCEDURE field_parameter_set_update_local_element_l
  END INTERFACE field_parameter_set_update_local_element

  INTERFACE field_parametersetupdatelocalelement
    MODULE PROCEDURE field_parametersetupdatelocalelementintg
    MODULE PROCEDURE field_parameter_set_update_local_element_sp
    MODULE PROCEDURE field_parameter_set_update_local_element_dp
    MODULE PROCEDURE field_parameter_set_update_local_element_l
  END INTERFACE field_parametersetupdatelocalelement

  INTERFACE field_parameter_set_update_node
    MODULE PROCEDURE field_parameter_set_update_node_intg
    MODULE PROCEDURE field_parameter_set_update_node_sp
    MODULE PROCEDURE field_parameter_set_update_node_dp
    MODULE PROCEDURE field_parameter_set_update_node_l
  END INTERFACE field_parameter_set_update_node
  
  INTERFACE field_parametersetupdatenode
    MODULE PROCEDURE field_parameter_set_update_node_intg
    MODULE PROCEDURE field_parameter_set_update_node_sp
    MODULE PROCEDURE field_parameter_set_update_node_dp
    MODULE PROCEDURE field_parameter_set_update_node_l
  END INTERFACE field_parametersetupdatenode
  
  INTERFACE field_parameter_set_update_local_node
    MODULE PROCEDURE field_parameter_set_update_local_node_intg
    MODULE PROCEDURE field_parameter_set_update_local_node_sp
    MODULE PROCEDURE field_parameter_set_update_local_node_dp
    MODULE PROCEDURE field_parameter_set_update_local_node_l
  END INTERFACE field_parameter_set_update_local_node

  INTERFACE field_parametersetupdatelocalnode
    MODULE PROCEDURE field_parameter_set_update_local_node_intg
    MODULE PROCEDURE field_parameter_set_update_local_node_sp
    MODULE PROCEDURE field_parameter_set_update_local_node_dp
    MODULE PROCEDURE field_parameter_set_update_local_node_l
  END INTERFACE field_parametersetupdatelocalnode

  INTERFACE field_parametersetupdategausspoint
    MODULE PROCEDURE field_parametersetupdategausspointintg
    MODULE PROCEDURE field_parametersetupdategausspointsp
    MODULE PROCEDURE field_parametersetupdategausspointdp
    MODULE PROCEDURE field_parametersetupdategausspointl
  END INTERFACE field_parametersetupdategausspoint

  INTERFACE field_parameter_set_update_gauss_point
    MODULE PROCEDURE field_parametersetupdategausspointintg
    MODULE PROCEDURE field_parametersetupdategausspointsp
    MODULE PROCEDURE field_parametersetupdategausspointdp
    MODULE PROCEDURE field_parametersetupdategausspointl
  END INTERFACE field_parameter_set_update_gauss_point

  INTERFACE field_parametersetupdatelocalgausspoint
    MODULE PROCEDURE field_parametersetupdatelocalgausspointdp
  END INTERFACE field_parametersetupdatelocalgausspoint

  INTERFACE field_parametersetupdateelementdatapoint
    MODULE PROCEDURE field_parametersetupdateelementdatapointdp
  END INTERFACE field_parametersetupdateelementdatapoint

  INTERFACE field_parameter_set_interpolate_single_xi
    MODULE PROCEDURE field_parametersetinterpolatesinglexidp
  END INTERFACE field_parameter_set_interpolate_single_xi

  INTERFACE field_parametersetinterpolatesinglexi
    MODULE PROCEDURE field_parametersetinterpolatesinglexidp
  END INTERFACE field_parametersetinterpolatesinglexi

  INTERFACE field_parameter_set_interpolate_multiple_xi
    MODULE PROCEDURE field_parametersetinterpolatemultiplexidp
  END INTERFACE field_parameter_set_interpolate_multiple_xi

  INTERFACE field_parametersetinterpolatemultiplexi
    MODULE PROCEDURE field_parametersetinterpolatemultiplexidp
  END INTERFACE field_parametersetinterpolatemultiplexi

  INTERFACE field_parameter_set_interpolate_single_gauss
    MODULE PROCEDURE field_parametersetinterpolatesinglegaussdp
  END INTERFACE field_parameter_set_interpolate_single_gauss

  INTERFACE field_parametersetinterpolatesinglegauss
    MODULE PROCEDURE field_parametersetinterpolatesinglegaussdp
  END INTERFACE field_parametersetinterpolatesinglegauss

  INTERFACE field_parameter_set_interpolate_multiple_gauss
    MODULE PROCEDURE field_parametersetinterpolatemultiplegaussdp
  END INTERFACE field_parameter_set_interpolate_multiple_gauss

  INTERFACE field_parametersetinterpoaltemultiplegauss
    MODULE PROCEDURE field_parametersetinterpolatemultiplegaussdp
  END INTERFACE field_parametersetinterpoaltemultiplegauss

  INTERFACE field_parametersetvectorget
    MODULE PROCEDURE field_parameter_set_vector_get
  END INTERFACE field_parametersetvectorget

  INTERFACE field_physicalpointsfinalise
    MODULE PROCEDURE field_physical_points_finalise
  END INTERFACE field_physicalpointsfinalise

  INTERFACE field_physicalpointsinitialise
    MODULE PROCEDURE field_physical_points_initialise
  END INTERFACE field_physicalpointsinitialise

  INTERFACE field_regionget
    MODULE PROCEDURE field_region_get
  END INTERFACE field_regionget

  INTERFACE field_scalingtypecheck
    MODULE PROCEDURE field_scaling_type_check
  END INTERFACE field_scalingtypecheck

  INTERFACE field_scalingtypeget
    MODULE PROCEDURE field_scaling_type_get
  END INTERFACE field_scalingtypeget

  INTERFACE field_scalingtypeset
    MODULE PROCEDURE field_scaling_type_set
  END INTERFACE field_scalingtypeset

  INTERFACE field_scalingtypesetandlock
    MODULE PROCEDURE field_scaling_type_set_and_lock
  END INTERFACE field_scalingtypesetandlock

  INTERFACE field_typecheck
    MODULE PROCEDURE field_type_check
  END INTERFACE field_typecheck

  INTERFACE field_typeget
    MODULE PROCEDURE field_type_get
  END INTERFACE field_typeget

  INTERFACE field_typeset
    MODULE PROCEDURE field_type_set
  END INTERFACE field_typeset

  INTERFACE field_typesetandlock
    MODULE PROCEDURE field_type_set_and_lock
  END INTERFACE field_typesetandlock

  INTERFACE field_user_number_find
    MODULE PROCEDURE field_user_number_find_interface
    MODULE PROCEDURE field_user_number_find_region
  END INTERFACE field_user_number_find
  
  INTERFACE field_usernumberfind
    MODULE PROCEDURE field_user_number_find_interface
    MODULE PROCEDURE field_user_number_find_region
  END INTERFACE field_usernumberfind
  
  INTERFACE field_user_number_to_field
    MODULE PROCEDURE field_user_number_to_field_interface
    MODULE PROCEDURE field_user_number_to_field_region
  END INTERFACE field_user_number_to_field
  
  INTERFACE field_usernumbertofield
    MODULE PROCEDURE field_user_number_to_field_interface
    MODULE PROCEDURE field_user_number_to_field_region
  END INTERFACE field_usernumbertofield
  
  INTERFACE field_variableget
    MODULE PROCEDURE field_variable_get
  END INTERFACE field_variableget

  INTERFACE field_variable_label_get
    MODULE PROCEDURE field_variable_label_get_c
    MODULE PROCEDURE field_variable_label_get_vs
  END INTERFACE field_variable_label_get
  
  INTERFACE field_variablelabelget
    MODULE PROCEDURE field_variable_label_get_c
    MODULE PROCEDURE field_variable_label_get_vs
  END INTERFACE field_variablelabelget
  
  INTERFACE field_variable_label_set
    MODULE PROCEDURE field_variable_label_set_c
    MODULE PROCEDURE field_variable_label_set_vs
  END INTERFACE field_variable_label_set
  
  INTERFACE field_variablelabelset
    MODULE PROCEDURE field_variable_label_set_c
    MODULE PROCEDURE field_variable_label_set_vs
  END INTERFACE field_variablelabelset
  
  INTERFACE field_variable_label_set_and_lock
    MODULE PROCEDURE field_variable_label_set_and_lock_c
    MODULE PROCEDURE field_variable_label_set_and_lock_vs
  END INTERFACE field_variable_label_set_and_lock

  INTERFACE field_variablelabelsetandlock
    MODULE PROCEDURE field_variable_label_set_and_lock_c
    MODULE PROCEDURE field_variable_label_set_and_lock_vs
  END INTERFACE field_variablelabelsetandlock

  INTERFACE field_variabletypecheck
    MODULE PROCEDURE field_variable_type_check
  END INTERFACE field_variabletypecheck

  INTERFACE field_variabletypescheck
    MODULE PROCEDURE field_variable_types_check
  END INTERFACE field_variabletypescheck

  INTERFACE field_variabletypesget
    MODULE PROCEDURE field_variable_types_get
  END INTERFACE field_variabletypesget

  INTERFACE field_variabletypesset
    MODULE PROCEDURE field_variable_types_set
  END INTERFACE field_variabletypesset

  INTERFACE field_variabletypessetandlock
    MODULE PROCEDURE field_variable_types_set_and_lock
  END INTERFACE field_variabletypessetandlock

  INTERFACE fields_initialise
    MODULE PROCEDURE fields_initialise_interface
    MODULE PROCEDURE fields_initialise_region
  END INTERFACE fields_initialise

  PUBLIC field_independent_type,field_dependent_type

  PUBLIC field_scalar_dimension_type,field_vector_dimension_type,field_tensor_dimension_type

  PUBLIC field_geometric_type,field_fibre_type,field_general_type,field_material_type,field_geometric_general_type

  PUBLIC field_constant_interpolation,field_element_based_interpolation,field_node_based_interpolation, &
    & field_grid_point_based_interpolation,field_gauss_point_based_interpolation,field_data_point_based_interpolation

  PUBLIC field_constant_dof_type,field_element_dof_type,field_node_dof_type,field_grid_point_dof_type,field_gauss_point_dof_type, &
    & field_data_point_dof_type

  PUBLIC field_number_of_variable_types,field_number_of_variable_subtypes,field_number_of_set_types, &
    & field_u_variable_type,field_deludeln_variable_type,field_deludelt_variable_type, &
    & field_del2udelt2_variable_type,field_v_variable_type,field_delvdeln_variable_type,field_delvdelt_variable_type, &
    & field_del2vdelt2_variable_type,&
    & field_u1_variable_type,field_delu1deln_variable_type,field_delu1delt_variable_type,field_del2u1delt2_variable_type,&
    & field_u2_variable_type,field_delu2deln_variable_type,field_delu2delt_variable_type,field_del2u2delt2_variable_type,&
    & field_u3_variable_type,field_delu3deln_variable_type,field_delu3delt_variable_type,field_del2u3delt2_variable_type,&
    & field_u4_variable_type,field_delu4deln_variable_type,field_delu4delt_variable_type,field_del2u4delt2_variable_type,&
    & field_u5_variable_type,field_delu5deln_variable_type,field_delu5delt_variable_type,field_del2u5delt2_variable_type,&
    & field_u6_variable_type,field_delu6deln_variable_type,field_delu6delt_variable_type,field_del2u6delt2_variable_type,&
    & field_u7_variable_type,field_delu7deln_variable_type,field_delu7delt_variable_type,field_del2u7delt2_variable_type,&
    & field_u8_variable_type,field_delu8deln_variable_type,field_delu8delt_variable_type,field_del2u8delt2_variable_type,&
    & field_u9_variable_type,field_delu9deln_variable_type,field_delu9delt_variable_type,field_del2u9delt2_variable_type,&
    & field_u10_variable_type,field_delu10deln_variable_type,field_delu10delt_variable_type,field_del2u10delt2_variable_type

  PUBLIC field_intg_type,field_sp_type,field_dp_type,field_l_type

  PUBLIC field_separated_component_dof_order,field_contiguous_component_dof_order

  PUBLIC field_values_set_type,field_boundary_conditions_set_type,field_initial_values_set_type,field_incremental_values_set_type, &
    & field_analytic_values_set_type,field_previous_values_set_type,field_mean_predicted_displacement_set_type, &
    & field_velocity_values_set_type,field_initial_velocity_set_type,field_previous_velocity_set_type, &
    & field_mean_predicted_velocity_set_type,field_acceleration_values_set_type,field_initial_acceleration_set_type, &
    & field_previous_acceleration_set_type,field_mean_predicted_acceleration_set_type,field_predicted_displacement_set_type, &
    & field_predicted_velocity_set_type,field_predicted_acceleration_set_type,field_residual_set_type, & 
    & field_previous_residual_set_type,field_mesh_displacement_set_type,field_mesh_velocity_set_type,field_boundary_set_type, &
    & field_input_data1_set_type, field_input_data2_set_type, field_input_data3_set_type, field_pressure_values_set_type, &
    & field_previous_pressure_set_type, field_relative_velocity_set_type, field_negative_mesh_velocity_set_type, &
    & field_previous_iteration_values_set_type, &
    & field_input_vel1_set_type,field_input_vel2_set_type,field_input_vel3_set_type,field_input_label_set_type, &
    & field_impermeable_flag_values_set_type,field_integrated_neumann_set_type,field_upwind_values_set_type, &
    & field_previous_upwind_values_set_type

  PUBLIC field_no_scaling,field_unit_scaling,field_arc_length_scaling,field_harmonic_mean_scaling,field_arithmetic_mean_scaling, &
    & field_geometric_mean_scaling
    
  PUBLIC field_all_components_type,field_geometric_components_type,field_nongeometric_components_type

  PUBLIC field_coordinate_system_get

  PUBLIC field_coordinatesystemget

  PUBLIC field_component_dof_get_constant,field_component_dof_get_user_element,field_component_dof_get_user_node, &
    & field_componentdofgetuserdatapoint

  PUBLIC field_component_interpolation_check,field_component_interpolation_get,field_component_interpolation_set, &
    & field_component_interpolation_set_and_lock

  PUBLIC field_componentinterpolationcheck,field_componentinterpolationget,field_componentinterpolationset, &
    & field_componentinterpolationsetandlock

  PUBLIC field_component_label_get,field_component_label_set,field_component_label_set_and_lock

  PUBLIC field_componentlabelget,field_componentlabelset,field_componentlabelsetandlock

  PUBLIC field_component_mesh_component_check,field_component_mesh_component_get,field_component_mesh_component_set, &
    & field_component_mesh_component_set_and_lock

  PUBLIC field_componentmeshcomponentcheck,field_componentmeshcomponentget,field_componentmeshcomponentset, &
    & field_componentmeshcomponentsetandlock
  
  PUBLIC field_component_values_initialise

  PUBLIC field_componentvaluesinitialise

  PUBLIC field_create_finish,field_create_start

  PUBLIC field_createfinish,field_createstart

  PUBLIC field_dataprojectionset

  PUBLIC field_data_type_check,field_data_type_get,field_data_type_set,field_data_type_set_and_lock

  PUBLIC field_datatypecheck,field_datatypeget,field_datatypeset,field_datatypesetandlock

  PUBLIC field_destroy

  PUBLIC field_geometricgeneralfieldget

  PUBLIC field_dependent_type_check,field_dependent_type_get,field_dependent_type_set,field_dependent_type_set_and_lock

  PUBLIC field_dependenttypecheck,field_dependenttypeget,field_dependenttypeset,field_dependenttypesetandlock

  PUBLIC field_dimension_check,field_dimension_get,field_dimension_set,field_dimension_set_and_lock

  PUBLIC field_dimensioncheck,field_dimensionget,field_dimensionset,field_dimensionsetandlock

  PUBLIC field_dof_order_type_check,field_dof_order_type_get,field_dof_order_type_set,field_dof_order_type_set_and_lock

  PUBLIC field_dofordertypecheck,field_dofordertypeget,field_dofordertypeset,field_dofordertypesetandlock

  PUBLIC field_geometric_field_get,field_geometric_field_set,field_geometric_field_set_and_lock

  PUBLIC field_geometricfieldget,field_geometricfieldset,field_geometricfieldsetandlock

  PUBLIC field_geometricparameterselementlinelengthget, field_geometricparameterselementvolumeget

  PUBLIC field_interpolate_gauss,field_interpolate_xi,field_interpolate_node,field_interpolate_field_node, &
    & field_interpolate_local_face_gauss

  PUBLIC field_interpolategauss,field_interpolatexi,field_interpolatenode,field_interpolatefieldnode,field_interpolatelocalfacegauss

  PUBLIC field_positionnormaltangentscalculateintptmetric,field_positionnormaltangentscalculatenode

  PUBLIC field_interpolated_point_metrics_calculate

  PUBLIC field_interpolatedpointmetricscalculate,field_interpolatedpointsmetricsfinalise,field_interpolatedpointsmetricsinitialise
  
  PUBLIC field_interpolated_points_finalise,field_interpolated_points_initialise

  PUBLIC field_interpolatedpointsfinalise,field_interpolatedpointsinitialise

  PUBLIC field_interpolation_parameters_element_get,field_interpolation_parameters_finalise, &
    & field_interpolation_parameters_initialise,field_interpolation_parameters_line_get, &
    & field_interpolation_parameters_face_get
  
  PUBLIC field_interpolationparametersfinalise,field_interpolationparametersinitialise
    
  PUBLIC field_interpolationparameterselementget,field_interpolationparametersfaceget,field_interpolationparameterslineget

  PUBLIC field_interpolationparametersscalefactorselementget,field_interpolationparametersscalefactorslineget, &
    & field_interpolationparametersscalefactorsfaceget

  PUBLIC field_label_get,field_label_set,field_label_set_and_lock
  
  PUBLIC field_mesh_decomposition_get,field_mesh_decomposition_set,field_mesh_decomposition_set_and_lock

  PUBLIC field_meshdecompositionget,field_meshdecompositionset,field_meshdecompositionsetandlock

  PUBLIC field_number_of_components_check,field_number_of_components_get,field_number_of_components_set, &
    & field_number_of_components_set_and_lock

  PUBLIC field_numberofcomponentscheck,field_numberofcomponentsget,field_numberofcomponentsset,field_numberofcomponentssetandlock

  PUBLIC field_number_of_variables_check,field_number_of_variables_get,field_number_of_variables_set, &
    & field_number_of_variables_set_and_lock

  PUBLIC field_numberofvariablescheck,field_numberofvariablesget,field_numberofvariablesset,field_numberofvariablessetandlock
  
  PUBLIC field_parameter_sets_add

  PUBLIC field_parametersetsadd
  
  PUBLIC field_parameter_sets_copy

  PUBLIC field_parametersetscopy

  PUBLIC field_parameter_set_destroy

  PUBLIC field_parametersetdestroy

  PUBLIC field_parameterstofieldparameterscopy

  PUBLIC field_parameter_set_get

  PUBLIC field_parametersetget
  
  PUBLIC field_parameter_set_add_constant,field_parameter_set_add_local_dof,field_parameter_set_add_element, &
    & field_parameter_set_add_local_element,field_parameter_set_add_node,field_parameter_set_add_local_node

  PUBLIC field_parametersetaddconstant,field_parametersetaddlocaldof,field_parametersetaddelement, &
    & field_parametersetaddlocalelement,field_parametersetaddnode,field_parametersetaddlocalnode
  
  PUBLIC field_parameter_set_create

  PUBLIC field_parametersetcreate

  PUBLIC field_parameter_set_created

  PUBLIC field_parametersetensurecreated,field_parametersetcreated

  PUBLIC field_parameter_set_data_get,field_parameter_set_data_restore

  PUBLIC field_parametersetdataget,field_parametersetdatarestore

  PUBLIC field_parameter_set_get_constant,field_parameter_set_get_element, &
    & field_parameter_set_get_local_dof,field_parameter_set_get_node, &
    & field_parameter_set_get_gauss_point

  PUBLIC field_parametersetgetconstant,field_parametersetgetdatapoint,field_parametersetgetelement, &
    & field_parametersetgetlocalelement,field_parametersetgetlocaldof,field_parametersetgetnode, &
    & field_parametersetgetlocalnode,field_parametersetgetgausspoint,field_parametersetgetlocalgausspoint

  PUBLIC field_parameter_set_output

  PUBLIC field_parametersetoutput

  PUBLIC field_parameter_set_update_finish,field_parameter_set_update_start

  PUBLIC field_parametersetupdatefinish,field_parametersetupdatestart

  PUBLIC field_parameter_set_update_constant,field_parameter_set_update_local_dof,field_parameter_set_update_local_dofs, &
    & field_parameter_set_update_element,field_parameter_set_update_local_element,field_parameter_set_update_node, &
    & field_parameter_set_update_local_node,field_parameter_set_update_gauss_point

  PUBLIC field_parametersetupdateconstant,field_parametersetupdatedatapoint,field_parametersetupdateelement, &
    & field_parametersetupdatelocalelement,field_parametersetupdateelementdatapoint,field_parametersetupdategausspoint, &
    & field_parametersetupdatelocalgausspoint,field_parametersetupdatelocaldof,field_parametersetupdatelocaldofs, &
    & field_parametersetupdatenode,field_parametersetupdatelocalnode

  PUBLIC field_parametersetnodescalefactorget,field_parametersetnodescalefactorset, &
    & field_parametersetnodescalefactorsget,field_parametersetnodescalefactorsset, &
    & field_parametersetnodenumberofscalefactordofsget

  PUBLIC field_parameter_set_interpolate_single_xi, field_parameter_set_interpolate_multiple_xi

  PUBLIC field_parametersetinterpolatesinglexi,field_parametersetinterpolatemultiplexi

  PUBLIC field_parameter_set_interpolate_single_gauss, field_parameter_set_interpolate_multiple_gauss

  PUBLIC field_parametersetinterpolatesinglegauss,field_parametersetinterpoaltemultiplegauss

  PUBLIC field_parameter_set_vector_get

  PUBLIC field_parametersetvectorget

  PUBLIC field_physical_points_finalise,field_physical_points_initialise

  PUBLIC field_physicalpointsfinalise,field_physicalpointsinitialise

  PUBLIC field_region_get

  PUBLIC field_regionget

  PUBLIC field_scaling_type_check,field_scaling_type_get,field_scaling_type_set,field_scaling_type_set_and_lock

  PUBLIC field_scalingtypecheck,field_scalingtypeget,field_scalingtypeset,field_scalingtypesetandlock

  PUBLIC field_type_check,field_type_get,field_type_set,field_type_set_and_lock

  PUBLIC field_typecheck,field_typeget,field_typeset,field_typesetandlock
  
  PUBLIC field_user_number_find, field_user_number_to_field

  PUBLIC field_usernumberfind,field_usernumbertofield

  PUBLIC field_variable_get

  PUBLIC field_variableget

  PUBLIC field_variable_label_get,field_variable_label_set,field_variable_label_set_and_lock

  PUBLIC field_variablelabelget,field_variablelabelset,field_variablelabelsetandlock

  PUBLIC field_variable_type_check

  PUBLIC field_variabletypecheck

  PUBLIC field_variable_types_check,field_variable_types_get,field_variable_types_set,field_variable_types_set_and_lock

  PUBLIC field_variabletypescheck,field_variabletypesget,field_variabletypesset,field_variabletypessetandlock

  PUBLIC fields_finalise,fields_initialise

  PUBLIC mesh_embedding_push_data, mesh_embedding_pull_gauss_point_data, field_parameter_set_get_gauss_point_coord
   
CONTAINS

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_interpolation_check(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,INTERPOLATION_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: interpolation_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_INTERPOLATION_CHECK",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
              SELECT CASE(interpolation_type)
              CASE(field_constant_interpolation)
                IF(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE/=field_constant_interpolation) THEN
                  local_error="Invalid interpolation type. The interpolation type for component number "// &
                    & trim(number_to_vstring(component_number,"*",err,error))// &
                    & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                    & trim(number_to_vstring(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                    & " which is not constant interpolation."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE(field_element_based_interpolation)
                IF(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE/=field_element_based_interpolation) THEN
                  local_error="Invalid interpolation type. The interpolation type for component number "// &
                    & trim(number_to_vstring(component_number,"*",err,error))// &
                    & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                    & trim(number_to_vstring(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                    & " which is not element based interpolation."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE(field_node_based_interpolation)
                IF(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE/=field_node_based_interpolation) THEN
                  local_error="Invalid interpolation type. The interpolation type for component number "// &
                    & trim(number_to_vstring(component_number,"*",err,error))// &
                    & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                    & trim(number_to_vstring(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                    & " which is not node based interpolation."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE(field_grid_point_based_interpolation)
                IF(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE/=field_grid_point_based_interpolation) THEN
                  local_error="Invalid interpolation type. The interpolation type for component number "// &
                    & trim(number_to_vstring(component_number,"*",err,error))// &
                    & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                    & trim(number_to_vstring(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                    & " which is not grid point based interpolation."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE(field_gauss_point_based_interpolation)
                IF(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE/=field_gauss_point_based_interpolation) THEN
                  local_error="Invalid interpolation type. The interpolation type for component number "// &
                    & trim(number_to_vstring(component_number,"*",err,error))// &
                    & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                    & trim(number_to_vstring(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                    & " which is not Gauss point based interpolation."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE(field_data_point_based_interpolation)
                IF(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE/=field_data_point_based_interpolation) THEN
                  local_error="Invalid interpolation type. The interpolation type for component number "// &
                    & trim(number_to_vstring(component_number,"*",err,error))// &
                    & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                    & trim(number_to_vstring(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                    & " which is not data point based interpolation."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE DEFAULT
                local_error="The specified interpolation type of "//trim(number_to_vstring(interpolation_type,"*",err,error))// &
                  & " is invalid."
                CALL flagerror(local_error,err,error,*999)
              END SELECT
            ELSE
              local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " components."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_INTERPOLATION_CHECK")
    RETURN
999 errorsexits("FIELD_COMPONENT_INTERPOLATION_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_component_interpolation_check

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_interpolation_get(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,INTERPOLATION_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(OUT) :: interpolation_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_INTERPOLATION_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
              interpolation_type=field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE
            ELSE
              local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " components."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_INTERPOLATION_GET")
    RETURN
999 errorsexits("FIELD_COMPONENT_INTERPOLATION_GET",err,error)
    RETURN 1
  END SUBROUTINE field_component_interpolation_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_interpolation_set(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,INTERPOLATION_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: interpolation_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_INTERPOLATION_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN          
          IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
            IF(any(field%CREATE_VALUES_CACHE%VARIABLE_TYPES==variable_type)) THEN
              IF(component_number>=1.AND.component_number<=field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)) THEN
                IF(field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED(component_number,variable_type)) THEN
                  local_error="The interpolation type has been locked for component number "// &
                    & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
                  CALL flagerror(local_error,err,error,*999)
                ELSE
                  SELECT CASE(interpolation_type)                
                  CASE(field_constant_interpolation)
                    field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(component_number,variable_type)=interpolation_type
                  CASE(field_element_based_interpolation)
                    field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(component_number,variable_type)=interpolation_type
                  CASE(field_node_based_interpolation)
                    field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(component_number,variable_type)=interpolation_type
                  CASE(field_grid_point_based_interpolation)
                    field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(component_number,variable_type)=interpolation_type
                  CASE(field_gauss_point_based_interpolation)
                    field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(component_number,variable_type)=interpolation_type
                  CASE(field_data_point_based_interpolation)
                    field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(component_number,variable_type)=interpolation_type
                  CASE DEFAULT
                    local_error="The specified interpolation type of "// &
                      & trim(number_to_vstring(interpolation_type,"*",err,error))//" is invalid."
                    CALL flagerror(local_error,err,error,*999)
                  END SELECT
                ENDIF
              ELSE
                local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                  & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                  & trim(number_to_vstring(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type),"*",err,error))// &
                  & " components."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_INTERPOLATION_SET")
    RETURN
999 errorsexits("FIELD_COMPONENT_INTERPOLATION_SET",err,error)
    RETURN 1
  END SUBROUTINE field_component_interpolation_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_interpolation_set_and_lock(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,INTERPOLATION_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: interpolation_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_INTERPOLATION_SET_AND_LOCK",err,error,*999)

    CALL field_component_interpolation_set(field,variable_type,component_number,interpolation_type,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED(component_number,variable_type)=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_INTERPOLATION_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_COMPONENT_INTERPOLATION_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_component_interpolation_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_dof_get_constant(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,LOCAL_DOF,GLOBAL_DOF,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(OUT) :: local_dof
    INTEGER(INTG), INTENT(OUT) :: global_dof
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
    
    enters("FIELD_COMPONENT_DOF_GET_CONSTANT",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
              SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                IF(ASSOCIATED(field_variable%DOMAIN_MAPPING)) THEN
                  local_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                  global_dof=field_variable%DOMAIN_MAPPING%LOCAL_TO_GLOBAL_MAP(local_dof)
                ELSE
                  local_error="The field variable domain mapping is not associated for variable type "// &
                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE(field_element_based_interpolation)
                local_error="Can not get the dof by constant for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE(field_node_based_interpolation)
                local_error="Can not get the dof by constant for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE(field_grid_point_based_interpolation)
                local_error="Can not get the dof by constant for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                local_error="Can not get the dof by constant for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                CALL flagerror(local_error,err,error,*999)  
              CASE(field_data_point_based_interpolation)
                local_error="Can not get the dof by constant for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                CALL flagerror(local_error,err,error,*999)                
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                  & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                  & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              END SELECT
            ELSE
              local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " components."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)            
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_COMPONENT_DOF_GET_CONSTANT")
    RETURN
999 errorsexits("FIELD_COMPONENT_DOF_GET_CONSTANT",err,error)
    RETURN 1
  END SUBROUTINE field_component_dof_get_constant
  
  !
  !================================================================================================================================
  !

  SUBROUTINE field_componentdofgetuserdatapoint(field,variableType,userDataPointNumber,componentNumber,localDof, &
    & globaldof,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: userdatapointnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    INTEGER(INTG), INTENT(OUT) :: localdof
    INTEGER(INTG), INTENT(OUT) :: globaldof
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    LOGICAL :: ghostdatapoint,userdatapointexists
    INTEGER(INTG) :: decompositionlocaldatapointnumber
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror
    
    enters("Field_componentDofGetUserDataPoint",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
              SELECT CASE(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                localerror="Can not get the dof by user data point for component number "// &
                  & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                CALL flag_error(localerror,err,error,*999)
              CASE(field_element_based_interpolation)
                localerror="Can not get the dof by user data point for component number "// &
                  & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                CALL flagerror(localerror,err,error,*999)
              CASE(field_node_based_interpolation)
                localerror="Can not get the dof by user data point for component number "// &
                  & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                CALL flagerror(localerror,err,error,*999)
              CASE(field_grid_point_based_interpolation)
                localerror="Can not get the dof by user data point for component number "// &
                  & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                CALL flagerror(localerror,err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                localerror="Can not get the dof by user data point for component number "// &
                  & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                CALL flagerror(localerror,err,error,*999)
              CASE(field_data_point_based_interpolation)
                decomposition=>fieldvariable%COMPONENTS(componentnumber)%DOMAIN%DECOMPOSITION
                IF(ASSOCIATED(decomposition)) THEN
                  decompositiontopology=>decomposition%TOPOLOGY
                  userdatapointexists=.true.
                  IF(ASSOCIATED(decompositiontopology)) THEN
                    CALL decompositiontopology_datapointcheckexists(decompositiontopology,userdatapointnumber,userdatapointexists, &
                      & decompositionlocaldatapointnumber,ghostdatapoint,err,error,*999)
                    IF(userdatapointexists) THEN
                      localdof=fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                        & data_point_param2dof_map%DATA_POINTS(decompositionlocaldatapointnumber)
                      globaldof=fieldvariable%DOMAIN_MAPPING%LOCAL_TO_GLOBAL_MAP(localdof)
                    ELSE
                      localerror="The specified user data point number of "// &
                        & trim(number_to_vstring(userdatapointnumber,"*",err,error))// &
                        & " does not exist in the domain for field component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    ENDIF
                  ELSE
                    CALL flagerror("Decomposition topology is not associated.",err,error,*999)
                  ENDIF
                ELSE
                  CALL flagerror("Decomposition is not associated.",err,error,*999)
                ENDIF
              CASE DEFAULT
                localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                  & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                  & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              END SELECT
            ELSE
              localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " components."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("Field_componentDofGetUserDataPoint")
    RETURN
999 errorsexits("Field_componentDofGetUserDataPoint",err,error)
    RETURN 1
  END SUBROUTINE field_componentdofgetuserdatapoint

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_dof_get_user_element(FIELD,VARIABLE_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER,LOCAL_DOF, &
    & global_dof,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(OUT) :: local_dof
    INTEGER(INTG), INTENT(OUT) :: global_dof
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
    
    enters("FIELD_COMPONENT_DOF_GET_USER_ELEMENT",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
              SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                local_error="Can not get the dof by user element for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE(field_element_based_interpolation)
                decomposition=>field%DECOMPOSITION
                IF(ASSOCIATED(decomposition)) THEN
                  decomposition_topology=>decomposition%TOPOLOGY
                  CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                    & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                  IF(user_element_exists) THEN
                    IF(ASSOCIATED(field_variable%DOMAIN_MAPPING)) THEN
                      local_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                        & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                      global_dof=field_variable%DOMAIN_MAPPING%LOCAL_TO_GLOBAL_MAP(local_dof)
                    ELSE
                      CALL flagerror("The field variable domain mapping is not associated.",err,error,*999)
                    ENDIF
                  ELSE
                    local_error="The specified user element number of "// &
                      & trim(number_to_vstring(user_element_number,"*",err,error))// &
                      & " does not exist in the decomposition for field component number "// &
                      & trim(number_to_vstring(component_number,"*",err,error))//" of field variable "// &
                      & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                      & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  CALL flagerror("Field decomposition is not associated.",err,error,*999)
                ENDIF
              CASE(field_node_based_interpolation)
                local_error="Can not get the dof by user element for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE(field_grid_point_based_interpolation)
                local_error="Can not get the dof by user element for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                local_error="Can not get the dof by user element for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE(field_data_point_based_interpolation)
                local_error="Can not get the dof by user element for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                  & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                  & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              END SELECT
            ELSE
              local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " components."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_COMPONENT_DOF_GET_USER_ELEMENT")
    RETURN
999 errorsexits("FIELD_COMPONENT_DOF_GET_USER_ELEMENT",err,error)
    RETURN 1
  END SUBROUTINE field_component_dof_get_user_element

  !
  !================================================================================================================================
  !
  SUBROUTINE field_component_dof_get_user_node(FIELD,VARIABLE_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER,USER_NODE_NUMBER, & 
    & component_number,local_dof,global_dof,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(OUT) :: local_dof
    INTEGER(INTG), INTENT(OUT) :: global_dof
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_DOF_GET_USER_NODE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
              SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                local_error="Can not get the dof by user node for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE(field_element_based_interpolation)
                local_error="Can not get the dof by user node for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE(field_node_based_interpolation)
                domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(domain)) THEN
                  domain_topology=>domain%TOPOLOGY
                  CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                    & domain_local_node_number,ghost_node,err,error,*999)
                  IF(user_node_exists) THEN
                    IF(ASSOCIATED(field_variable%DOMAIN_MAPPING)) THEN
                      IF(derivative_number>0.AND.derivative_number<=field_variable%COMPONENTS(component_number)% &
                        & param_to_dof_map%NODE_PARAM2DOF_MAP%NODES(domain_local_node_number)%NUMBER_OF_DERIVATIVES) &
                        & THEN
                        local_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                          & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% & 
                          & versions(version_number)
                        global_dof=field_variable%DOMAIN_MAPPING%LOCAL_TO_GLOBAL_MAP(local_dof)
                      ELSE
                        local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                          & " is invalid for user node number "// &
                          & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                          & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                          & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                          & trim(number_to_vstring(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                          & node_param2dof_map%NODES(domain_local_node_number)%NUMBER_OF_DERIVATIVES, &
                          & "*",err,error))//" derivatives."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    ELSE
                      CALL flagerror("The field variable domain mapping is not associated.",err,error,*999)
                    ENDIF
                  ELSE
                    local_error="The specified user node number of "// &
                      & trim(number_to_vstring(user_node_number,"*",err,error))// &
                      & " does not exist in the domain for field component number "// &
                      & trim(number_to_vstring(component_number,"*",err,error))//" of field variable "// &
                      & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                      & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  CALL flagerror("Field variable component domain is not associated.",err,error,*999)
                ENDIF
              CASE(field_grid_point_based_interpolation)
                local_error="Can not get the dof by user node for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                local_error="Can not get the dof by user node for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE(field_data_point_based_interpolation)
                local_error="Can not get the dof by user node for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                CALL flagerror(local_error,err,error,*999)
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                  & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                  & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              END SELECT
            ELSE
              local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " components."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_DOF_GET_USER_NODE")
    RETURN
999 errorsexits("FIELD_COMPONENT_DOF_GET_USER_NODE",err,error)
    RETURN 1
  END SUBROUTINE field_component_dof_get_user_node

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_label_get_c(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: c_length,vs_length
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
    
    enters("FIELD_COMPONENT_LABEL_GET_C",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
              c_length=len(label)
              vs_length=len_trim(field_variable%COMPONENTS(component_number)%COMPONENT_LABEL)
              IF(c_length>vs_length) THEN
                label=char(len_trim(field_variable%COMPONENTS(component_number)%COMPONENT_LABEL))
              ELSE
                label=char(field_variable%COMPONENTS(component_number)%COMPONENT_LABEL,c_length)
              ENDIF
            ELSE
              local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " components."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_LABEL_GET_C")
    RETURN
999 errorsexits("FIELD_COMPONENT_LABEL_GET_C",err,error)
    RETURN 1
  END SUBROUTINE field_component_label_get_c

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_label_get_vs(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
    
    enters("FIELD_COMPONENT_LABEL_GET_VS",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
              label=field_variable%COMPONENTS(component_number)%COMPONENT_LABEL
            ELSE
              local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " components."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_LABEL_GET_VS")
    RETURN
999 errorsexits("FIELD_COMPONENT_LABEL_GET_VS",err,error)
    RETURN 1
  END SUBROUTINE field_component_label_get_vs

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_label_set_c(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_LABEL_SET_C",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
            IF(any(field%CREATE_VALUES_CACHE%VARIABLE_TYPES==variable_type)) THEN              
              IF(component_number>=1.AND.component_number<=field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)) THEN
                IF(field%CREATE_VALUES_CACHE%COMPONENT_LABELS_LOCKED(component_number,variable_type)) THEN
                  local_error="The component label has been locked for component number "// &
                    & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
                  CALL flagerror(local_error,err,error,*999)
                ELSE
                  field%CREATE_VALUES_CACHE%COMPONENT_LABELS(component_number,variable_type)=label
                ENDIF
              ELSE
                local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                  & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                  & trim(number_to_vstring(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type),"*",err,error))// &
                  & " components."
                CALL flagerror(local_error,err,error,*999)
              ENDIF                
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_LABEL_SET_C")
    RETURN
999 errorsexits("FIELD_COMPONENT_LABEL_SET_C",err,error)
    RETURN 1
  END SUBROUTINE field_component_label_set_c

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_label_set_vs(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_VARIABLE_LABEL_SET_VS",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
            IF(any(field%CREATE_VALUES_CACHE%VARIABLE_TYPES==variable_type)) THEN              
              IF(component_number>=1.AND.component_number<=field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)) THEN
                IF(field%CREATE_VALUES_CACHE%COMPONENT_LABELS_LOCKED(component_number,variable_type)) THEN
                  local_error="The component label has been locked for component number "// &
                    & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
                  CALL flagerror(local_error,err,error,*999)
                ELSE
                  field%CREATE_VALUES_CACHE%COMPONENT_LABELS(component_number,variable_type)=label
                ENDIF
              ELSE
                local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                  & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                  & trim(number_to_vstring(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type),"*",err,error))// &
                  & " components."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_LABEL_SET_VS")
    RETURN
999 errorsexits("FIELD_COMPONENT_LABEL_SET_VS",err,error)
    RETURN 1
  END SUBROUTINE field_component_label_set_vs

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_label_set_and_lock_c(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_LABEL_SET_AND_LOCK_C",err,error,*999)

    CALL field_component_label_set(field,variable_type,component_number,label,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%COMPONENT_LABELS_LOCKED(component_number,variable_type)=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_COMPONENT_LABEL_SET_AND_LOCK_C")
    RETURN
999 errorsexits("FIELD_COMPONENT_LABEL_SET_AND_LOCK_C",err,error)
    RETURN 1
  END SUBROUTINE field_component_label_set_and_lock_c

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_label_set_and_lock_vs(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_LABEL_SET_AND_LOCK_VS",err,error,*999)

    CALL field_component_label_set(field,variable_type,component_number,label,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%COMPONENT_LABELS_LOCKED(component_number,variable_type)=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_COMPONENT_LABEL_SET_AND_LOCK_VS")
    RETURN
999 errorsexits("FIELD_COMPONENT_LABEL_SET_AND_LOCK_VS",err,error)
    RETURN 1
  END SUBROUTINE field_component_label_set_and_lock_vs

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_mesh_component_check(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,MESH_COMPONENT,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: mesh_component
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_MESH_COMPONENT_CHECK",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
              IF(field_variable%COMPONENTS(component_number)%MESH_COMPONENT_NUMBER/=mesh_component) THEN
                local_error="Invalid mesh component number. The mesh component number for component number "// &
                  & trim(number_to_vstring(component_number,"*",err,error))// &
                  & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                  & trim(number_to_vstring(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " which is does correspond to the specified mesh component number of "// &
                  & trim(number_to_vstring(mesh_component,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " components."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The field variable type must be > 1 and <= "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_MESH_COMPONENT_CHECK")
    RETURN
999 errorsexits("FIELD_COMPONENT_MESH_COMPONENT_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_component_mesh_component_check
  
  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_mesh_component_get(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,MESH_COMPONENT,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(OUT) :: mesh_component
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_MESH_COMPONENT_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
              mesh_component=field_variable%COMPONENTS(component_number)%MESH_COMPONENT_NUMBER
            ELSE
              local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " components."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The field variable type must be > 1 and <= "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_MESH_COMPONENT_GET")
    RETURN
999 errorsexits("FIELD_COMPONENT_MESH_COMPONENT_GET",err,error)
    RETURN 1
  END SUBROUTINE field_component_mesh_component_get
  
  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_mesh_component_set(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,MESH_COMPONENT_NUMBER,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: mesh_component_number
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(mesh_type), POINTER :: mesh   
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_MESH_COMPONENT_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        decomposition=>field%DECOMPOSITION
        IF(ASSOCIATED(decomposition)) THEN
          mesh=>decomposition%MESH
          IF(ASSOCIATED(mesh)) THEN
            IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
              IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
                IF(any(field%CREATE_VALUES_CACHE%VARIABLE_TYPES==variable_type)) THEN
                  IF(component_number>=1.AND.component_number<=field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)) THEN
                    IF(field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED(component_number,variable_type)) THEN
                      local_error="The mesh component has been locked for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
                      CALL flagerror(local_error,err,error,*999)
                    ELSE
                      SELECT CASE(field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(component_number,variable_type))
! Should set anyway in case user changes interpolation(?) Needed by finite elasticity / material field - Sander  
!                      CASE(FIELD_CONSTANT_INTERPOLATION)
!                        LOCAL_ERROR="Can not set a mesh component for field component number "// &
!                          & TRIM(NUMBER_TO_VSTRING(COMPONENT_NUMBER,"*",ERR,ERROR))// &
!                          & " of variable type "//TRIM(NUMBER_TO_VSTRING(VARIABLE_TYPE,"*",ERR,ERROR))// &
!                          & " of field number "//TRIM(NUMBER_TO_VSTRING(FIELD%USER_NUMBER,"*",ERR,ERROR))// &
!                          & " which has constant interpolation."
!                        CALL FlagError(LOCAL_ERROR,ERR,ERROR,*999)
                      CASE(field_element_based_interpolation,field_node_based_interpolation,field_grid_point_based_interpolation, &
                        & field_gauss_point_based_interpolation, field_constant_interpolation,field_data_point_based_interpolation)
                        IF(mesh_component_number>0.AND.mesh_component_number<=mesh%NUMBER_OF_COMPONENTS) THEN
                          field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(component_number,variable_type)=mesh_component_number
                        ELSE
                          local_error="Mesh component number "//trim(number_to_vstring(mesh_component_number,"*",err,error))// &
                            & " is invalid. The component number must be between 1 and "// &
                            & trim(number_to_vstring(mesh%NUMBER_OF_COMPONENTS,"*",err,error))// &
                            & " for mesh number "//trim(number_to_vstring(mesh%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      CASE DEFAULT
                        local_error="The interpolation type "//trim(number_to_vstring(field%CREATE_VALUES_CACHE% &
                          & interpolation_type(component_number,variable_type),"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                        CALL flagerror(local_error,err,error,*999)
                      END SELECT
                    ENDIF
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type),"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                  & " is invalid. The field variable type must be > 1 and <= "// &
                  & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF              
            ELSE
              CALL flagerror("Field create values cache is not associated.",err,error,*999)
            ENDIF
          ELSE
            local_error="The decomposition mesh is not associated for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The decomposition is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COMPONENT_MESH_COMPONENT_SET")
    RETURN
999 errorsexits("FIELD_COMPONENT_MESH_COMPONENT_SET",err,error)
    RETURN 1
  END SUBROUTINE field_component_mesh_component_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_mesh_component_set_and_lock(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,MESH_COMPONENT_NUMBER,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: mesh_component_number
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_COMPONENT_MESH_COMPONENT_SET_AND_LOCK",err,error,*999)

    CALL field_component_mesh_component_set(field,variable_type,component_number,mesh_component_number,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED(component_number,variable_type)=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    RETURN
999 errorsexits("FIELD_COMPONENT_MESH_COMPONENT_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_component_mesh_component_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_values_initialise_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: element_idx,derivative_idx,version_idx,field_dof,node_idx,partial_deriv_idx,gauss_point_idx,max_ngp
    INTEGER(INTG), POINTER :: field_parameters(:)
    TYPE(domain_type), POINTER :: component_domain
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(domain_elements_type), POINTER :: domain_elements
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(field_parameter_set_type), POINTER :: field_parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
   
    enters("FIELD_COMPONENT_VALUES_INITIALISE_INTG",err,error,*999)

    NULLIFY(field_parameters)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        !Check the variable type
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            !Check the data type
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              !Check the component number
              IF(component_number>0.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                !Check the from set type input
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  field_parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(field_parameter_set)) THEN
                    !Get the parameters values
                    CALL distributed_vector_data_get(field_parameter_set%PARAMETERS,field_parameters,err,error,*999)
                    !Set the field components to give a constant value. Note that as the value is constant we can set the ghost dofs
                    !and not worry about updating the field parameter set.
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                      field_parameters(field_dof)=VALUE
                    CASE(field_element_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_elements=>domain_topology%ELEMENTS
                          IF(ASSOCIATED(domain_elements)) THEN
                            DO element_idx=1,domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                              field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                & element_param2dof_map%ELEMENTS(element_idx)
                              field_parameters(field_dof)=VALUE
                            ENDDO !element_idx
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_nodes=>domain_topology%NODES
                          IF(ASSOCIATED(domain_nodes)) THEN
                            DO node_idx=1,domain_nodes%TOTAL_NUMBER_OF_NODES
                              DO derivative_idx=1,domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                                DO version_idx=1,domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions
                                  field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(node_idx)%DERIVATIVES(derivative_idx)%VERSIONS(version_idx)
                                  partial_deriv_idx= &
                                    & domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%PARTIAL_DERIVATIVE_INDEX
                                  SELECT CASE(partial_deriv_idx)
                                  CASE(no_part_deriv)
                                    field_parameters(field_dof)=VALUE
                                  CASE(part_deriv_s1)
                                    field_parameters(field_dof)=1_intg
                                  CASE(part_deriv_s1_s1)
                                    field_parameters(field_dof)=0_intg
                                  CASE(part_deriv_s2)
                                    field_parameters(field_dof)=1_intg
                                  CASE(part_deriv_s2_s2)
                                    field_parameters(field_dof)=0_intg
                                  CASE(part_deriv_s1_s2)
                                    field_parameters(field_dof)=0_intg
                                  CASE(part_deriv_s3)
                                    field_parameters(field_dof)=1_intg
                                  CASE(part_deriv_s3_s3)
                                    field_parameters(field_dof)=0_intg
                                  CASE(part_deriv_s1_s3)
                                    field_parameters(field_dof)=0_intg
                                  CASE(part_deriv_s2_s3)
                                    field_parameters(field_dof)=0_intg
                                  CASE(part_deriv_s1_s2_s3)
                                    field_parameters(field_dof)=0_intg
                                  CASE DEFAULT
                                    local_error="The partial derivative index of "// &
                                      & trim(number_to_vstring(partial_deriv_idx,"*",err,error))//" for node number "// &
                                      & trim(number_to_vstring(node_idx,"*",err,error))//" and derivative number "// &
                                      & trim(number_to_vstring(derivative_idx,"*",err,error))//" is invalid."
                                    CALL flagerror(local_error,err,error,*999)
                                  END SELECT
                                ENDDO !version_idx
                              ENDDO !derivative_idx
                            ENDDO !node_idx
                          ELSE
                            CALL flagerror("Domain topology nodes is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      CALL flagerror("Not implemented.",err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_elements=>domain_topology%ELEMENTS
                          IF(ASSOCIATED(domain_elements)) THEN 
                            !GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS(gauss_point_idx,element_idx)=variable_local_ny
                            max_ngp=SIZE(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                              & gauss_point_param2dof_map%GAUSS_POINTS,1)
                            DO element_idx=1,domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                              DO gauss_point_idx=1,max_ngp ! could be just element's gauss_point_idx
                                field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & gauss_point_param2dof_map%GAUSS_POINTS(gauss_point_idx,element_idx)
                                field_parameters(field_dof)=VALUE
                              ENDDO !gauss_point_idx
                            ENDDO !element_idx
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_data_point_based_interpolation)
                      CALL flagerror("Not implemented.",err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                    !Restore the  parameter set 
                    CALL distributed_vector_data_restore(field_parameter_set%PARAMETERS,field_parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created on variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// & 
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable component number of "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" is invalid for a variable type of "//&
                  & trim(number_to_vstring(variable_type,"*",err,error))//" on field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                  & ". The number of components must be between 1 and "// &
                  & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not match the integer data type of the specified value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is not defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The field variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE

        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_COMPONENT_VALUES_INITIALISE_INTG")
    RETURN
999 errorsexits("FIELD_COMPONENT_VALUES_INITIALISE_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_component_values_initialise_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_values_initialise_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: element_idx,derivative_idx,version_idx,field_dof,node_idx,partial_deriv_idx,gauss_point_idx,max_ngp
    REAL(SP), POINTER :: field_parameters(:)
    TYPE(domain_type), POINTER :: component_domain
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(domain_elements_type), POINTER :: domain_elements
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(field_parameter_set_type), POINTER :: field_parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
   
    enters("FIELD_COMPONENT_VALUES_INITIALISE_SP",err,error,*999)

    NULLIFY(field_parameters)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        !Check the variable type
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            !Check the data type
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              !Check the component number
              IF(component_number>0.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                !Check the from set type input
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  field_parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(field_parameter_set)) THEN
                    !Get the parameters values
                    CALL distributed_vector_data_get(field_parameter_set%PARAMETERS,field_parameters,err,error,*999)
                    !Set the field components to give a constant value. Note that as the value is constant we can set the ghost dofs
                    !and not worry about updating the field parameter set.
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                      field_parameters(field_dof)=VALUE
                    CASE(field_element_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_elements=>domain_topology%ELEMENTS
                          IF(ASSOCIATED(domain_elements)) THEN
                            DO element_idx=1,domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                              field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                & element_param2dof_map%ELEMENTS(element_idx)
                              field_parameters(field_dof)=VALUE
                            ENDDO !element_idx
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_nodes=>domain_topology%NODES
                          IF(ASSOCIATED(domain_nodes)) THEN
                            DO node_idx=1,domain_nodes%TOTAL_NUMBER_OF_NODES
                              DO derivative_idx=1,domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                                DO version_idx=1,domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions
                                  field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(node_idx)%DERIVATIVES(derivative_idx)%VERSIONS(version_idx)
                                  partial_deriv_idx= &
                                    & domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%PARTIAL_DERIVATIVE_INDEX
                                  SELECT CASE(partial_deriv_idx)
                                  CASE(no_part_deriv)
                                    field_parameters(field_dof)=VALUE
                                  CASE(part_deriv_s1)
                                    field_parameters(field_dof)=1.0_sp
                                  CASE(part_deriv_s1_s1)
                                    field_parameters(field_dof)=0.0_sp
                                  CASE(part_deriv_s2)
                                    field_parameters(field_dof)=1.0_sp
                                  CASE(part_deriv_s2_s2)
                                    field_parameters(field_dof)=0.0_sp
                                  CASE(part_deriv_s1_s2)
                                    field_parameters(field_dof)=0.0_sp
                                  CASE(part_deriv_s3)
                                    field_parameters(field_dof)=1.0_sp
                                  CASE(part_deriv_s3_s3)
                                    field_parameters(field_dof)=0.0_sp
                                  CASE(part_deriv_s1_s3)
                                    field_parameters(field_dof)=0.0_sp
                                  CASE(part_deriv_s2_s3)
                                    field_parameters(field_dof)=0.0_sp
                                  CASE(part_deriv_s1_s2_s3)
                                    field_parameters(field_dof)=0.0_sp
                                  CASE DEFAULT
                                    local_error="The partial derivative index of "// &
                                      & trim(number_to_vstring(partial_deriv_idx,"*",err,error))//" for node number "// &
                                      & trim(number_to_vstring(node_idx,"*",err,error))//" and derivative number "// &
                                      & trim(number_to_vstring(derivative_idx,"*",err,error))//" is invalid."
                                    CALL flagerror(local_error,err,error,*999)
                                  END SELECT
                                ENDDO !version_idx
                              ENDDO !derivative_idx
                            ENDDO !node_idx
                          ELSE
                            CALL flagerror("Domain topology nodes is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      CALL flagerror("Not implemented.",err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_elements=>domain_topology%ELEMENTS
                          IF(ASSOCIATED(domain_elements)) THEN 
                            !GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS(gauss_point_idx,element_idx)=variable_local_ny
                            max_ngp=SIZE(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                              & gauss_point_param2dof_map%GAUSS_POINTS,1)
                            DO element_idx=1,domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                              DO gauss_point_idx=1,max_ngp ! could be just element's gauss_point_idx
                                field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & gauss_point_param2dof_map%GAUSS_POINTS(gauss_point_idx,element_idx)
                                field_parameters(field_dof)=VALUE
                              ENDDO !gauss_point_idx
                            ENDDO !element_idx
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                    !Restore the  parameter set 
                    CALL distributed_vector_data_restore(field_parameter_set%PARAMETERS,field_parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created on variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// & 
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable component number of "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" is invalid for a variable type of "//&
                  & trim(number_to_vstring(variable_type,"*",err,error))//" on field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                  & ". The number of components must be between 1 and "// &
                  & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not match the single precision data type of the specified value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is not defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The field variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_COMPONENT_VALUES_INITIALISE_SP")
    RETURN
999 errorsexits("FIELD_COMPONENT_VALUES_INITIALISE_SP",err,error)
    RETURN 1
  END SUBROUTINE field_component_values_initialise_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_values_initialise_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: elementidx,derivative_idx,version_idx,field_dof,node_idx,partial_deriv_idx,gauss_point_idx,max_ngp, &
      & dataPointIdx,localDataPointNumber
    REAL(DP), POINTER :: field_parameters(:)
    TYPE(domain_type), POINTER :: component_domain
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(domain_elements_type), POINTER :: domain_elements
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(decompositiondatapointstype), POINTER :: decompositiondata
    TYPE(field_parameter_set_type), POINTER :: field_parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
   
    enters("FIELD_COMPONENT_VALUES_INITIALISE_DP",err,error,*999)

    NULLIFY(field_parameters)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        !Check the variable type
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            !Check the data type
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              !Check the component number
              IF(component_number>0.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                !Check the from set type input
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  field_parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(field_parameter_set)) THEN
                    !Get the parameters values
                    CALL distributed_vector_data_get(field_parameter_set%PARAMETERS,field_parameters,err,error,*999)
                    !Set the field components to give a constant value. Note that as the value is constant we can set the ghost dofs
                    !and not worry about updating the field parameter set.
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                      field_parameters(field_dof)=VALUE
                    CASE(field_element_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_elements=>domain_topology%ELEMENTS
                          IF(ASSOCIATED(domain_elements)) THEN
                            DO elementidx=1,domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                              field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                & element_param2dof_map%ELEMENTS(elementidx)
                              field_parameters(field_dof)=VALUE
                            ENDDO !elementIdx
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_nodes=>domain_topology%NODES
                          IF(ASSOCIATED(domain_nodes)) THEN
                            DO node_idx=1,domain_nodes%TOTAL_NUMBER_OF_NODES
                              DO derivative_idx=1,domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                                DO version_idx=1,domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions
                                  field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(node_idx)%DERIVATIVES(derivative_idx)%VERSIONS(version_idx)
                                  partial_deriv_idx= &
                                    & domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%PARTIAL_DERIVATIVE_INDEX
                                  SELECT CASE(partial_deriv_idx)
                                  CASE(no_part_deriv)
                                    field_parameters(field_dof)=VALUE
                                  CASE(part_deriv_s1)
                                    field_parameters(field_dof)=1.0_dp
                                  CASE(part_deriv_s1_s1)
                                    field_parameters(field_dof)=0.0_dp
                                  CASE(part_deriv_s2)
                                    field_parameters(field_dof)=1.0_dp
                                  CASE(part_deriv_s2_s2)
                                    field_parameters(field_dof)=0.0_dp
                                  CASE(part_deriv_s1_s2)
                                    field_parameters(field_dof)=0.0_dp
                                  CASE(part_deriv_s3)
                                    field_parameters(field_dof)=1.0_dp
                                  CASE(part_deriv_s3_s3)
                                    field_parameters(field_dof)=0.0_dp
                                  CASE(part_deriv_s1_s3)
                                    field_parameters(field_dof)=0.0_dp
                                  CASE(part_deriv_s2_s3)
                                    field_parameters(field_dof)=0.0_dp
                                  CASE(part_deriv_s1_s2_s3)
                                    field_parameters(field_dof)=0.0_dp
                                  CASE DEFAULT
                                    local_error="The partial derivative index of "// &
                                      & trim(number_to_vstring(partial_deriv_idx,"*",err,error))//" for node number "// &
                                      & trim(number_to_vstring(node_idx,"*",err,error))//" and derivative number "// &
                                      & trim(number_to_vstring(derivative_idx,"*",err,error))//" is invalid."
                                    CALL flagerror(local_error,err,error,*999)
                                  END SELECT
                                ENDDO !version_idx
                              ENDDO !derivative_idx
                            ENDDO !node_idx
                          ELSE
                            CALL flagerror("Domain topology nodes is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      CALL flagerror("Not implemented.",err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_elements=>domain_topology%ELEMENTS
                          IF(ASSOCIATED(domain_elements)) THEN 
                            !GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS(gauss_point_idx,elementIdx)=variable_local_ny
                            max_ngp=SIZE(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                              & gauss_point_param2dof_map%GAUSS_POINTS,1)
                            DO elementidx=1,domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                              DO gauss_point_idx=1,max_ngp ! could be just element's gauss_point_idx
                                field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & gauss_point_param2dof_map%GAUSS_POINTS(gauss_point_idx,elementidx)
                                field_parameters(field_dof)=VALUE
                              ENDDO !gauss_point_idx
                            ENDDO !elementIdx
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_data_point_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_elements=>domain_topology%ELEMENTS
                          IF(ASSOCIATED(domain_elements)) THEN
                            decompositiondata=>field_variable%COMPONENTS(component_number)%DOMAIN%DECOMPOSITION%TOPOLOGY%dataPoints
                            IF(ASSOCIATED(decompositiondata)) THEN
                              DO elementidx=1,domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                                DO datapointidx=1,decompositiondata%elementDataPoint(elementidx)%numberOfProjectedData
                                  localdatapointnumber=decompositiondata%elementDataPoint(elementidx)%dataIndices(datapointidx)% &
                                    & localnumber
                                  field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & data_point_param2dof_map%DATA_POINTS(localdatapointnumber)
                                  field_parameters(field_dof)=VALUE
                                ENDDO !dataPointIdx                             
                              ENDDO !elementIdx
                            ELSE
                              CALL flagerror("Decomposition data point topology is not associated.",err,error,*999)
                            ENDIF
                            
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                    !Restore the  parameter set 
                    CALL distributed_vector_data_restore(field_parameter_set%PARAMETERS,field_parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created on variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// & 
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable component number of "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" is invalid for a variable type of "//&
                  & trim(number_to_vstring(variable_type,"*",err,error))//" on field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                  & ". The number of components must be between 1 and "// &
                  & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not match the double precision data type of the specified value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is not defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The field variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_COMPONENT_VALUES_INITIALISE_DP")
    RETURN
999 errorsexits("FIELD_COMPONENT_VALUES_INITIALISE_DP",err,error)
    RETURN 1
  END SUBROUTINE field_component_values_initialise_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_component_values_initialise_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: element_idx,derivative_idx,version_idx,field_dof,node_idx,partial_deriv_idx
    LOGICAL, POINTER :: field_parameters(:)
    TYPE(domain_type), POINTER :: component_domain
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(domain_elements_type), POINTER :: domain_elements
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(field_parameter_set_type), POINTER :: field_parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
   
    enters("FIELD_COMPONENT_VALUES_INITIALISE_L",err,error,*999)

    NULLIFY(field_parameters)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        !Check the variable type
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            !Check the data type
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              !Check the component number
              IF(component_number>0.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                !Check the from set type input
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  field_parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(field_parameter_set)) THEN
                    !Get the parameters values
                    CALL distributed_vector_data_get(field_parameter_set%PARAMETERS,field_parameters,err,error,*999)
                    !Set the field components to give a constant value. Note that as the value is constant we can set the ghost dofs
                    !and not worry about updating the field parameter set.
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                      field_parameters(field_dof)=VALUE
                    CASE(field_element_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_elements=>domain_topology%ELEMENTS
                          IF(ASSOCIATED(domain_elements)) THEN
                            DO element_idx=1,domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                              field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                & element_param2dof_map%ELEMENTS(element_idx)
                              field_parameters(field_dof)=VALUE
                            ENDDO !element_idx
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      component_domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(component_domain)) THEN
                        domain_topology=>component_domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          domain_nodes=>domain_topology%NODES
                          IF(ASSOCIATED(domain_nodes)) THEN
                            DO node_idx=1,domain_nodes%TOTAL_NUMBER_OF_NODES
                              DO derivative_idx=1,domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                                DO version_idx=1,domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions
                                  field_dof=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(node_idx)%DERIVATIVES(derivative_idx)%VERSIONS(version_idx)
                                  partial_deriv_idx= &
                                    & domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%PARTIAL_DERIVATIVE_INDEX
                                  SELECT CASE(partial_deriv_idx)
                                  CASE(no_part_deriv)
                                    field_parameters(field_dof)=VALUE
                                  CASE(part_deriv_s1)
                                    field_parameters(field_dof)=.true.
                                  CASE(part_deriv_s1_s1)
                                    field_parameters(field_dof)=.false.
                                  CASE(part_deriv_s2)
                                    field_parameters(field_dof)=.true.
                                  CASE(part_deriv_s2_s2)
                                    field_parameters(field_dof)=.false.
                                  CASE(part_deriv_s1_s2)
                                    field_parameters(field_dof)=.false.
                                  CASE(part_deriv_s3)
                                    field_parameters(field_dof)=.true.
                                  CASE(part_deriv_s3_s3)
                                    field_parameters(field_dof)=.false.
                                  CASE(part_deriv_s1_s3)
                                    field_parameters(field_dof)=.false.
                                  CASE(part_deriv_s2_s3)
                                    field_parameters(field_dof)=.false.
                                  CASE(part_deriv_s1_s2_s3)
                                    field_parameters(field_dof)=.false.
                                  CASE DEFAULT
                                    local_error="The partial derivative index of "// &
                                      & trim(number_to_vstring(partial_deriv_idx,"*",err,error))//" for node number "// &
                                      & trim(number_to_vstring(node_idx,"*",err,error))//" and derivative number "// &
                                      & trim(number_to_vstring(derivative_idx,"*",err,error))//" is invalid."
                                    CALL flagerror(local_error,err,error,*999)
                                  END SELECT
                                ENDDO !version_idx
                              ENDDO !derivative_idx
                            ENDDO !node_idx
                          ELSE
                            CALL flagerror("Domain topology nodes is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      CALL flagerror("Not implemented.",err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      CALL flagerror("Not implemented.",err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      CALL flagerror("Not implemented.",err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                    !Restore the  parameter set 
                    CALL distributed_vector_data_restore(field_parameter_set%PARAMETERS,field_parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created on variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// & 
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable component number of "// &
                  & trim(number_to_vstring(component_number,"*",err,error))//" is invalid for a variable type of "//&
                  & trim(number_to_vstring(variable_type,"*",err,error))//" on field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                  & ". The number of components must be between 1 and "// &
                  & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not match the logical data type of the specified value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is not defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The field variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_COMPONENT_VALUES_INITIALISE_L")
    RETURN
999 errorsexits("FIELD_COMPONENT_VALUES_INITIALISE_L",err,error)
    RETURN 1
  END SUBROUTINE field_component_values_initialise_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_coordinate_system_get(FIELD,COORDINATE_SYSTEM,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(interface_type), POINTER :: interface
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: local_error

    enters("FIELD_COORDINATE_SYSTEM_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(coordinate_system)) THEN
        CALL flagerror("Coordinate system is already associated.",err,error,*999)
      ELSE
        NULLIFY(coordinate_system)
        NULLIFY(interface)
        region=>field%REGION
        IF(ASSOCIATED(region)) THEN
          coordinate_system=>region%COORDINATE_SYSTEM
          IF(.NOT.ASSOCIATED(coordinate_system)) THEN
            local_error="The coordinate system is not associated for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" of region number "// &
              & trim(number_to_vstring(region%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          interface=>field%INTERFACE
          IF(ASSOCIATED(interface)) THEN
            coordinate_system=>interface%COORDINATE_SYSTEM
            IF(.NOT.ASSOCIATED(coordinate_system)) THEN
              local_error="The coordinate system is not associated for field number "// &
                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" of interface number "// &
                & trim(number_to_vstring(interface%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF         
          ELSE
            local_error="The region or interface is not associated for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_COORDINATE_SYSTEM_GET")
    RETURN
999 errorsexits("FIELD_COORDINATE_SYSTEM_GET",err,error)
    RETURN 1
  END SUBROUTINE field_coordinate_system_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_data_type_check(FIELD,VARIABLE_TYPE,DATA_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: data_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_DATA_TYPE_CHECK",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            SELECT CASE(data_type)              
            CASE(field_intg_type)
              IF(field_variable%DATA_TYPE/=field_intg_type) THEN
                local_error="Invalid data type. The data type for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                  & trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " which is not an integer data type."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE(field_sp_type)
              IF(field_variable%DATA_TYPE/=field_sp_type) THEN
                local_error="Invalid data type. The data type for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                  & trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " which is not a single precision data type."
                CALL flagerror(local_error,err,error,*999)




              ENDIF
            CASE(field_dp_type)
              IF(field_variable%DATA_TYPE/=field_dp_type) THEN
                local_error="Invalid data type. The data type for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                  & trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " which is not a double precision data type."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
             CASE(field_l_type)
               IF(field_variable%DATA_TYPE/=field_l_type) THEN
                 local_error="Invalid data type. The data type for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                  & trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " which is not a logical data type."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE DEFAULT
              local_error="The specified data type of "//trim(number_to_vstring(data_type,"*",err,error))// &
                & " is invalid."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DATA_TYPE_CHECK")
    RETURN
999 errorsexits("FIELD_DATA_TYPE_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_data_type_check

  !
  !================================================================================================================================
  !

  SUBROUTINE field_data_type_get(FIELD,VARIABLE_TYPE,DATA_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(OUT) :: data_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_DATA_TYPE_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            data_type=field_variable%DATA_TYPE
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DATA_TYPE_GET")
    RETURN
999 errorsexits("FIELD_DATA_TYPE_GET",err,error)
    RETURN 1
  END SUBROUTINE field_data_type_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_data_type_set(FIELD,VARIABLE_TYPE,DATA_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: data_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_DATA_TYPE_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN          
          IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN            
            IF(any(field%CREATE_VALUES_CACHE%VARIABLE_TYPES==variable_type)) THEN
              IF(field%CREATE_VALUES_CACHE%DATA_TYPES_LOCKED(variable_type)) THEN
                local_error="The data type has been locked for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
                CALL flagerror(local_error,err,error,*999)
              ELSE
                SELECT CASE(data_type)                
                CASE(field_intg_type)
                  field%CREATE_VALUES_CACHE%DATA_TYPES(variable_type)=field_intg_type
                CASE(field_sp_type)
                  field%CREATE_VALUES_CACHE%DATA_TYPES(variable_type)=field_sp_type
                CASE(field_dp_type)
                  field%CREATE_VALUES_CACHE%DATA_TYPES(variable_type)=field_dp_type
                CASE(field_l_type)
                  field%CREATE_VALUES_CACHE%DATA_TYPES(variable_type)=field_l_type
                CASE DEFAULT
                  local_error="The specified data type of "//trim(number_to_vstring(data_type,"*",err,error))// &
                    & " is invalid."
                  CALL flagerror(local_error,err,error,*999)
                END SELECT
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          CALL flagerror("Field create values cache is not associated.",err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DATA_TYPE_SET")
    RETURN
999 errorsexits("FIELD_DATA_TYPE_SET",err,error)
    RETURN 1
  END SUBROUTINE field_data_type_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_data_type_set_and_lock(FIELD,VARIABLE_TYPE,DATA_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: data_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_DATA_TYPE_SET_AND_LOCK",err,error,*999)

    CALL field_data_type_set(field,variable_type,data_type,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%DATA_TYPES_LOCKED(variable_type)=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
 
    exits("FIELD_DATA_TYPE_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_DATA_TYPE_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_data_type_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dof_order_type_check(FIELD,VARIABLE_TYPE,DOF_ORDER_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: dof_order_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_DOF_ORDER_TYPE_CHECK",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            SELECT CASE(dof_order_type)              
            CASE(field_separated_component_dof_order)
              IF(field_variable%DOF_ORDER_TYPE/=field_separated_component_dof_order) THEN
                local_error="Invalid DOF order type. The DOF order type for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                  & trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " which is not a separated component DOF order type."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE(field_contiguous_component_dof_order)
              IF(field_variable%DOF_ORDER_TYPE/=field_contiguous_component_dof_order) THEN
                local_error="Invalid DOF order type. The DOF order type for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                  & trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " which is not a contiguous component DOF order type."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE DEFAULT
              local_error="The specified DOF order type of "//trim(number_to_vstring(dof_order_type,"*",err,error))// &
                & " is invalid."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DOF_ORDER_TYPE_CHECK")
    RETURN
999 errorsexits("FIELD_DOF_ORDER_TYPE_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_dof_order_type_check

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dof_order_type_get(FIELD,VARIABLE_TYPE,DOF_ORDER_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(OUT) :: dof_order_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_DOF_ORDER_TYPE_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            dof_order_type=field_variable%DOF_ORDER_TYPE
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)



        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DOF_ORDER_TYPE_GET")
    RETURN
999 errorsexits("FIELD_DOF_ORDER_TYPE_GET",err,error)
    RETURN 1
  END SUBROUTINE field_dof_order_type_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dof_order_type_set(FIELD,VARIABLE_TYPE,DOF_ORDER_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: dof_order_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx
    LOGICAL :: same_interpolation,same_mesh_component
    TYPE(varying_string) :: local_error

    enters("FIELD_DOF_ORDER_TYPE_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN          
          IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN            
            IF(any(field%CREATE_VALUES_CACHE%VARIABLE_TYPES==variable_type)) THEN
              IF(field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES_LOCKED(variable_type)) THEN
                local_error="The DOF order type has been locked for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
                CALL flagerror(local_error,err,error,*999)
              ELSE
                SELECT CASE(dof_order_type)                
                CASE(field_separated_component_dof_order)
                  field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES(variable_type)=field_separated_component_dof_order
                CASE(field_contiguous_component_dof_order)
                  same_interpolation=.true.
                  same_mesh_component=.true.
                  DO component_idx=2,field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)
                    IF(field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(component_idx,variable_type)/= &
                      & field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(1,variable_type)) THEN
                      same_interpolation=.false.
                      EXIT
                    ENDIF
                    IF(field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(component_idx,variable_type)/= &
                      & field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(1,variable_type)) THEN
                      same_mesh_component=.false.
                      EXIT
                    ENDIF
                  ENDDO !component_idx
                  IF(same_interpolation.AND.same_mesh_component) THEN
                    field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES(variable_type)=field_contiguous_component_dof_order
                  ELSE
                    CALL flagerror("Invalid field variable component set. For continguous component DOF "// &
                      & "ordering the field variable components must have the same interpolation type and mesh components.", &
                      & err,error,*999)
                  ENDIF
                CASE DEFAULT
                  local_error="The specified DOF order type of "//trim(number_to_vstring(dof_order_type,"*",err,error))// &
                    & " is invalid."
                  CALL flagerror(local_error,err,error,*999)
                END SELECT
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          CALL flagerror("Field create values cache is not associated.",err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DOF_ORDER_TYPE_SET")
    RETURN
999 errorsexits("FIELD_DOF_ORDER_TYPE_SET",err,error)
    RETURN 1
  END SUBROUTINE field_dof_order_type_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dof_order_type_set_and_lock(FIELD,VARIABLE_TYPE,DOF_ORDER_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: dof_order_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_DOF_ORDER_TYPE_SET_AND_LOCK",err,error,*999)

    CALL field_dof_order_type_set(field,variable_type,dof_order_type,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES_LOCKED(variable_type)=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
 
    exits("FIELD_DOF_ORDER_TYPE_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_DOF_ORDER_TYPE_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_dof_order_type_set_and_lock

  !

  !================================================================================================================================
  !

  SUBROUTINE field_variable_component_finalise(FIELD_VARIABLE_COMPONENT,ERR,ERROR,*)

    !Argument variables
    TYPE(field_variable_component_type) :: field_variable_component
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_VARIABLE_COMPONENT_FINALISE",err,error,*999)

    field_variable_component%COMPONENT_LABEL=""
    CALL fieldvariablecomponent_parametertodofmapfinalise(field_variable_component,err,error,*999)

    exits("FIELD_VARIABLE_COMPONENT_FINALISE")
    RETURN
999 errorsexits("FIELD_VARIABLE_COMPONENT_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_variable_component_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_component_initialise(FIELD_VARIABLE,COMPONENT_NUMBER,ERR,ERROR,*)

    !Argument variables
    TYPE(field_variable_type), POINTER :: field_variable
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: comp_number,derivativeidx,dummy_err,ne,variable_type, ngp, maxinterp,globalelementnumber,nodeidx,numparameters
    TYPE(basis_type), POINTER :: basis
    TYPE(decomposition_type), POINTER :: decomposition    
    TYPE(domain_type), POINTER :: domain
    TYPE(field_type), POINTER :: field
    TYPE(mesh_type), POINTER :: mesh
    TYPE(varying_string) :: dummy_error,local_error

    enters("FIELD_VARIABLE_COMPONENT_INITIALISE",err,error,*998)

    IF(ASSOCIATED(field_variable)) THEN
      field=>field_variable%FIELD
      IF(ASSOCIATED(field)) THEN
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          variable_type=field_variable%VARIABLE_TYPE
          IF(ALLOCATED(field_variable%COMPONENTS)) THEN
            IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
              field_variable%COMPONENTS(component_number)%COMPONENT_NUMBER=component_number
              field_variable%COMPONENTS(component_number)%FIELD_VARIABLE=>field_variable
              decomposition=>field%DECOMPOSITION
              IF(ASSOCIATED(decomposition)) THEN
                mesh=>decomposition%MESH
                IF(ASSOCIATED(mesh)) THEN
                  comp_number=field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(component_number,variable_type)
                  IF(comp_number>0.AND.comp_number<=mesh%NUMBER_OF_COMPONENTS) THEN
                    field_variable%COMPONENTS(component_number)%MESH_COMPONENT_NUMBER=comp_number
                    field_variable%COMPONENTS(component_number)%DOMAIN=>decomposition%DOMAIN(comp_number)%PTR
                    domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                    IF(.NOT.ASSOCIATED(domain)) THEN
                      local_error="Field component "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                        & " does not have a domain associated."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                  ELSE
                    local_error="The mesh component number of "//trim(number_to_vstring(comp_number,"*",err,error))// &
                      & " for field component "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                      & " is invalid. The component number must be between 1 and "// &
                      & trim(number_to_vstring(mesh%NUMBER_OF_COMPONENTS,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="Decomposition mesh is not associated for field number "// &
                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="Decomposition is not associated for field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)                  
              ENDIF
              field_variable%COMPONENTS(component_number)%COMPONENT_LABEL=""
              field_variable%COMPONENTS(component_number)%COMPONENT_LABEL= &
                & field%CREATE_VALUES_CACHE%COMPONENT_LABELS(component_number,variable_type)
              field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE= &
                field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(component_number,variable_type)
              SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                field_variable%COMPONENTS(component_number)%maxNumberElementInterpolationParameters=1
                field_variable%COMPONENTS(component_number)%maxNumberNodeInterpolationParameters=0
              CASE(field_element_based_interpolation)
                field_variable%COMPONENTS(component_number)%maxNumberElementInterpolationParameters=1
                field_variable%COMPONENTS(component_number)%maxNumberNodeInterpolationParameters=0
              CASE(field_node_based_interpolation)
                field_variable%COMPONENTS(component_number)%maxNumberElementInterpolationParameters=-1
                DO ne=1,domain%TOPOLOGY%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS
                  basis=>domain%TOPOLOGY%ELEMENTS%ELEMENTS(ne)%BASIS
                  IF(basis%NUMBER_OF_ELEMENT_PARAMETERS>field_variable%COMPONENTS(component_number)% &
                    & maxnumberelementinterpolationparameters) field_variable%COMPONENTS(component_number)% &
                    & maxnumberelementinterpolationparameters=basis%NUMBER_OF_ELEMENT_PARAMETERS
                ENDDO !ne
                field_variable%COMPONENTS(component_number)%maxNumberNodeInterpolationParameters=-1
                DO nodeidx=1,domain%TOPOLOGY%NODES%TOTAL_NUMBER_OF_NODES
                  numparameters=0
                  DO derivativeidx=1,domain%TOPOLOGY%NODES%NODES(nodeidx)%NUMBER_OF_DERIVATIVES
                    numparameters=numparameters+domain%TOPOLOGY%NODES%NODES(nodeidx)%DERIVATIVES(derivativeidx)%numberOfVersions
                  ENDDO !derivativeIdx
                  IF(numparameters>field_variable%COMPONENTS(component_number)%maxNumberNodeInterpolationParameters) &
                    & field_variable%COMPONENTS(component_number)%maxNumberNodeInterpolationParameters=numparameters
                ENDDO !nodeIdx
              CASE(field_grid_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)             
              CASE(field_gauss_point_based_interpolation) ! ?
                maxinterp = -1
                DO ne=1,domain%TOPOLOGY%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS
                  basis=>domain%TOPOLOGY%ELEMENTS%ELEMENTS(ne)%BASIS
                  ngp = basis%QUADRATURE%QUADRATURE_SCHEME_MAP(basis_default_quadrature_scheme)%PTR%NUMBER_OF_GAUSS
                  IF(ngp > maxinterp) maxinterp = ngp
                ENDDO
                field_variable%COMPONENTS(component_number)%maxNumberElementInterpolationParameters = maxinterp
                field_variable%COMPONENTS(component_number)%maxNumberNodeInterpolationParameters = 0
              CASE(field_data_point_based_interpolation)
                WRITE(*,*) "In datapointbasedinterpolation"
                field_variable%COMPONENTS(component_number)%maxNumberElementInterpolationParameters=-1
                WRITE(*,*) "DOMAIN%TOPOLOGY%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS", domain%TOPOLOGY%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS
                DO ne=1,domain%TOPOLOGY%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS
                  WRITE(*,*) "In forloop", ne
                  globalelementnumber=decomposition%TOPOLOGY%ELEMENTS%ELEMENTS(ne)%GLOBAL_NUMBER
                  WRITE(*,*) "DECOMPOSITION%TOPOLOGY%ELEMENTS%ELEMENTS(ne)%GLOBAL_NUMBER", &
                      & decomposition%TOPOLOGY%ELEMENTS%ELEMENTS(ne)%GLOBAL_NUMBER
                  WRITE(*,*) "Before if"
                  IF(ASSOCIATED(decomposition%TOPOLOGY%dataPoints)) THEN
                    WRITE(*,*) "DECOMPOSITION%TOPOLOGY%dataPoints%numberOfElementDataPoints(globalElementNumber)"
                  ELSE
                    WRITE(*,*) "NOT ALLOCATED"
                  ENDIF
                  IF(decomposition%TOPOLOGY%dataPoints%numberOfElementDataPoints(globalelementnumber)> &
                      & field_variable%COMPONENTS(component_number)%maxNumberElementInterpolationParameters) THEN
                    field_variable%COMPONENTS(component_number)%maxNumberElementInterpolationParameters= &
                      &  decomposition%TOPOLOGY%dataPoints%numberOfElementDataPoints(globalelementnumber)
                    WRITE(*,*) "In if loop"
                  ENDIF
                ENDDO
                field_variable%COMPONENTS(component_number)%maxNumberNodeInterpolationParameters=0
                WRITE(*,*) "BEFORE PARAM TO DOF MAP"
              CASE DEFAULT
                local_error="The interpolation type of "//trim(number_to_vstring(field_variable% &
                  & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                  & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                  & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is invalid."
              END SELECT
              CALL fieldvariablecomponent_parametertodofmapinitialise(field_variable%COMPONENTS(component_number), &
                & err,error,*999)
            ELSE
              local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
              CALL flagerror(local_error,err,error,*998)
            ENDIF
          ELSE
            CALL flagerror("Field variable components have not been allocated.",err,error,*998)
          ENDIF
        ELSE
          CALL flagerror("Field create values cache is not associated.",err,error,*998)
        ENDIF
      ELSE
        CALL flagerror("Field variable field is not associated.",err,error,*998)
      ENDIF
    ELSE
      CALL flagerror("Field variable is is not associated.",err,error,*998)
    ENDIF

    exits("FIELD_VARIABLE_COMPONENT_INITIALISE")
    RETURN
999 CALL field_variable_component_finalise(field_variable%COMPONENTS(component_number),dummy_err,dummy_error,*998)
998 errorsexits("FIELD_VARIABLE_COMPONENT_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_variable_component_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE fieldvariablecomponent_parametertodofmapfinalise(FIELD_VARIABLE_COMPONENT,ERR,ERROR,*)

    !Argument variables
    TYPE(field_variable_component_type) :: field_variable_component
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FieldVariableComponent_ParameterToDofMapFinalise",err,error,*999)

    IF(ALLOCATED(field_variable_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES))  &
      & DEALLOCATE(field_variable_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES)
    IF(ALLOCATED(field_variable_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS))  &
      & DEALLOCATE(field_variable_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS)
    IF(ALLOCATED(field_variable_component%PARAM_TO_DOF_MAP%GRID_POINT_PARAM2DOF_MAP%GRID_POINTS))  &
      & DEALLOCATE(field_variable_component%PARAM_TO_DOF_MAP%GRID_POINT_PARAM2DOF_MAP%GRID_POINTS)
    IF(ALLOCATED(field_variable_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS))  &
      & DEALLOCATE(field_variable_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS)
    IF(ALLOCATED(field_variable_component%PARAM_TO_DOF_MAP%DATA_POINT_PARAM2DOF_MAP%DATA_POINTS))  &
      & DEALLOCATE(field_variable_component%PARAM_TO_DOF_MAP%DATA_POINT_PARAM2DOF_MAP%DATA_POINTS)
    field_variable_component%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS=0
    field_variable_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS=0
    field_variable_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS=0
    field_variable_component%PARAM_TO_DOF_MAP%GRID_POINT_PARAM2DOF_MAP%NUMBER_OF_GRID_POINT_PARAMETERS=0
    field_variable_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%NUMBER_OF_GAUSS_POINT_PARAMETERS=0
    field_variable_component%PARAM_TO_DOF_MAP%DATA_POINT_PARAM2DOF_MAP%NUMBER_OF_DATA_POINT_PARAMETERS=0

    exits("FieldVariableComponent_ParameterToDofMapFinalise")
    RETURN
999 errors("FieldVariableComponent_ParameterToDofMapFinalise",err,error)
    exits("FieldVariableComponent_ParameterToDofMapFinalise")
    RETURN 1
    
  END SUBROUTINE fieldvariablecomponent_parametertodofmapfinalise

  !
  !================================================================================================================================
  !

  SUBROUTINE fieldvariablecomponent_parametertodofmapinitialise(FIELD_VARIABLE_COMPONENT,ERR,ERROR,*)

    !Argument variables
    TYPE(field_variable_component_type) :: field_variable_component
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FieldVariableComponent_ParameterToDofMapInitialise",err,error,*999)

    field_variable_component%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS=0
    field_variable_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS=0
    field_variable_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS=0
    field_variable_component%PARAM_TO_DOF_MAP%GRID_POINT_PARAM2DOF_MAP%NUMBER_OF_GRID_POINT_PARAMETERS=0
    field_variable_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%NUMBER_OF_GAUSS_POINT_PARAMETERS=0
    field_variable_component%PARAM_TO_DOF_MAP%DATA_POINT_PARAM2DOF_MAP%NUMBER_OF_DATA_POINT_PARAMETERS=0

    exits("FieldVariableComponent_ParameterToDofMapInitialise")
    RETURN
999 errors("FieldVariableComponent_ParameterToDofMapInitialise",err,error)
    exits("FieldVariableComponent_ParameterToDofMapInitialise")
    RETURN 1
    
  END SUBROUTINE fieldvariablecomponent_parametertodofmapinitialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_components_finalise(FIELD_VARIABLE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_variable_type) :: field_variable
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx

    enters("FIELD_VARIABLE_COMPONENTS_FINALISE",err,error,*999)

    IF(ALLOCATED(field_variable%COMPONENTS)) THEN
      DO component_idx=1,SIZE(field_variable%COMPONENTS,1)
        CALL field_variable_component_finalise(field_variable%COMPONENTS(component_idx),err,error,*999)
      ENDDO !component_idx
      DEALLOCATE(field_variable%COMPONENTS)
    ENDIF
    field_variable%NUMBER_OF_COMPONENTS=0

    exits("FIELD_VARIABLE_COMPONENTS_FINALISE")
    RETURN
999 errorsexits("FIELD_VARIABLE_COMPONENTS_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_variable_components_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_components_initialise(FIELD,VARIABLE_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_VARIABLE_COMPONENTS_INITIALISE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(ALLOCATED(field_variable%COMPONENTS)) THEN
              CALL flagerror("Field variable already has allocated components.",err,error,*999)
            ELSE
              ALLOCATE(field_variable%COMPONENTS(field_variable%NUMBER_OF_COMPONENTS),stat=err)
              IF(err/=0) CALL flagerror("Could not allocate field variable components.",err,error,*999)
              DO component_idx=1,field_variable%NUMBER_OF_COMPONENTS
                CALL field_variable_component_initialise(field_variable,component_idx,err,error,*999)
              ENDDO !component_idx
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        CALL flagerror("Field create values cache is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLE_COMPONENTS_INITIALISE")
    RETURN
999 errorsexits("FIELD_VARIABLE_COMPONENTS_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_variable_components_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_create_finish(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: componentidx,parametersetidx,scalingidx,variableidx
    TYPE(varying_string) :: local_error

    enters("FIELD_CREATE_FINISH",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has already been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        !Check field has a decomposition associated
        IF(ASSOCIATED(field%DECOMPOSITION)) THEN
          !Check for field validity
          CALL fieldvariablescheck(field,err,error,*999)
          !Initialise the components
          CALL field_variables_initialise(field,err,error,*999)
          IF(ASSOCIATED(field%GEOMETRIC_FIELD)) THEN
            CALL field_create_values_cache_finalise(field%CREATE_VALUES_CACHE,err,error,*999)
            field%FIELD_FINISHED=.true.
            !Calculate dof mappings
            CALL field_mappings_calculate(field,err,error,*999)
            !Set up the geometric parameters
            CALL field_geometric_parameters_initialise(field,err,error,*999)
            !Initialise the scalings
            CALL field_scalings_initialise(field,err,error,*999)
            !Initialise the field parameter sets 
            CALL field_parameter_sets_initialise(field,err,error,*999)
          ELSE
            CALL flagerror("Field does not have a geometric field associated.",err,error,*999)
          ENDIF
        ELSE
          CALL flagerror("Field does not have a mesh decomposition associated.",err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string_value(diagnostic_output_type,"",field%USER_NUMBER,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"Field number : ",field%USER_NUMBER,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Global number = ",field%GLOBAL_NUMBER,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  User number = ",field%USER_NUMBER,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Label = ",field%LABEL,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Dependent type = ",field%DEPENDENT_TYPE,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field type = ",field%TYPE,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of variables = ",field%NUMBER_OF_VARIABLES,err,error,*999)
      IF(diagnostics2) THEN
        DO variableidx=1,field%NUMBER_OF_VARIABLES
          CALL write_string_value(diagnostic_output_type,"    Variable : ",variableidx,err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Variable Type = ",variableidx,err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Variable Label = ",field%VARIABLES(variableidx)%VARIABLE_LABEL, &
            & err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Dimension = ",field%VARIABLES(variableidx)%DIMENSION, &
            & err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Data type = ",field%VARIABLES(variableidx)%DATA_TYPE, &
            & err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      DOF order type = ",field%VARIABLES(variableidx)%DOF_ORDER_TYPE, &
            & err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Max num element interpolation parameters = ",field% &
            & variables(variableidx)%maxNumberElementInterpolationParameters,err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Max num node interpolation parameters = ",field% &
            & variables(variableidx)%maxNumberNodeInterpolationParameters,err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Number of DOFs = ",field%VARIABLES(variableidx)% &
            & number_of_dofs,err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Total number of DOFs = ",field%VARIABLES(variableidx)% &
            & total_number_of_dofs,err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Number of global DOFs = ",field%VARIABLES(variableidx)% &
            & number_of_global_dofs,err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Number of components = ",field%VARIABLES(variableidx)% &
            & number_of_components,err,error,*999)
          IF(diagnostics3) THEN
            DO componentidx=1,field%VARIABLES(variableidx)%NUMBER_OF_COMPONENTS
              CALL write_string_value(diagnostic_output_type,"        Component : ",componentidx,err,error,*999)
              CALL write_string_value(diagnostic_output_type,"          Component label = ",field%VARIABLES(variableidx)% &
                components(componentidx)%COMPONENT_LABEL,err,error,*999)
              CALL write_string_value(diagnostic_output_type,"          Interpolation type = ",field%VARIABLES(variableidx)% &
                components(componentidx)%INTERPOLATION_TYPE,err,error,*999)
              CALL write_string_value(diagnostic_output_type,"          Mesh component number = ",field%VARIABLES(variableidx)% &
                components(componentidx)%MESH_COMPONENT_NUMBER,err,error,*999)
              CALL write_string_value(diagnostic_output_type,"          Scaling index = ",field%VARIABLES(variableidx)% &
                components(componentidx)%SCALING_INDEX,err,error,*999)
              CALL write_string_value(diagnostic_output_type,"          Max num element interpolation parameters = ",field% &
                & variables(variableidx)%COMPONENTS(componentidx)%maxNumberElementInterpolationParameters,err,error,*999)
              CALL write_string_value(diagnostic_output_type,"          Max num node interpolation parameters = ",field% &
                & variables(variableidx)%COMPONENTS(componentidx)%maxNumberNodeInterpolationParameters,err,error,*999)         
            ENDDO !componentIdx
          ENDIF
          CALL write_string_value(diagnostic_output_type,"      Number of parameter sets = ",field%VARIABLES(variableidx)% &
            & parameter_sets%NUMBER_OF_PARAMETER_SETS,err,error,*999)
          IF(diagnostics3) THEN
            DO parametersetidx=1,field%VARIABLES(variableidx)%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS
              CALL write_string_value(diagnostic_output_type,"        Parameter set index : ",parametersetidx,err,error,*999)
              CALL write_string_value(diagnostic_output_type,"          Set type : ",field%VARIABLES(variableidx)% &
                & parameter_sets%PARAMETER_SETS(parametersetidx)%PTR%SET_TYPE,err,error,*999)
            ENDDO !parameterSetIdx
          ENDIF
        ENDDO !variableIdx
      ENDIF
      CALL write_string_value(diagnostic_output_type,"  Scaling type = ",field%SCALINGS%SCALING_TYPE,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of scaling indices = ",field%SCALINGS%NUMBER_OF_SCALING_INDICES, &
        & err,error,*999)
      IF(diagnostics2) THEN
        DO scalingidx=1,field%SCALINGS%NUMBER_OF_SCALING_INDICES
          CALL write_string_value(diagnostic_output_type,"    Scaling index : ",scalingidx,err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Mesh component number : ",field%SCALINGS%SCALINGS(scalingidx)% &
            & mesh_component_number,err,error,*999)
        ENDDO !scalingIdx
      ENDIF
    ENDIF

    exits("FIELD_CREATE_FINISH")
    RETURN
999 errorsexits("FIELD_CREATE_FINISH",err,error)
    RETURN 1
  END SUBROUTINE field_create_finish

  !
  !================================================================================================================================
  !

  SUBROUTINE field_create_start_generic(FIELDS,USER_NUMBER,FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(fields_type), POINTER :: fields
    INTEGER(INTG), INTENT(IN) :: user_number
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: field_no
    TYPE(field_type), POINTER :: new_field
    TYPE(field_ptr_type), POINTER :: new_fields(:)

    NULLIFY(new_field)
    NULLIFY(new_fields)

    enters("FIELD_CREATE_START_GENERIC",err,error,*998)

    IF(ASSOCIATED(fields)) THEN
      IF(ASSOCIATED(field)) THEN
        CALL flagerror("Field is already associated.",err,error,*998)
      ELSE
        !Set default field properties
        CALL field_initialise(new_field,err,error,*999)
        new_field%GLOBAL_NUMBER=fields%NUMBER_OF_FIELDS+1
        new_field%USER_NUMBER=user_number
        new_field%LABEL="Field "//trim(number_to_vstring(user_number,"*",err,error))
        IF(err/=0) GOTO 999
        new_field%FIELDS=>fields
        NULLIFY(new_field%REGION)
        NULLIFY(new_field%INTERFACE)
        new_field%GEOMETRIC_FIELD=>new_field
        new_field%NUMBER_OF_VARIABLES=1
        new_field%SCALINGS%SCALING_TYPE=field_arithmetic_mean_scaling
        new_field%SCALINGS%NUMBER_OF_SCALING_INDICES=0
        NULLIFY(new_field%CREATE_VALUES_CACHE)
        !Add new field into list of fields 
        ALLOCATE(new_fields(fields%NUMBER_OF_FIELDS+1),stat=err)
        IF(err/=0) CALL flagerror("Could not allocate new fields.",err,error,*999)
        DO field_no=1,fields%NUMBER_OF_FIELDS
          new_fields(field_no)%PTR=>fields%FIELDS(field_no)%PTR
        ENDDO !field_no
        new_fields(fields%NUMBER_OF_FIELDS+1)%PTR=>new_field
        IF(ASSOCIATED(fields%FIELDS)) DEALLOCATE(fields%FIELDS)
        fields%FIELDS=>new_fields
        fields%NUMBER_OF_FIELDS=fields%NUMBER_OF_FIELDS+1
        field=>new_field
      ENDIF
    ELSE
      CALL flagerror("Fields is not associated.",err,error,*998)
    ENDIF

    exits("FIELD_CREATE_START_GENERIC")
    RETURN
999 IF(ASSOCIATED(new_field)) DEALLOCATE(new_field)
    IF(ASSOCIATED(new_fields)) DEALLOCATE(new_fields)
    NULLIFY(field)
998 errorsexits("FIELD_CREATE_START_GENERIC",err,error)
    RETURN 1
  END SUBROUTINE field_create_start_generic

  !
  !================================================================================================================================
  !

  SUBROUTINE field_create_start_interface(USER_NUMBER,INTERFACE,FIELD,ERR,ERROR,*)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: user_number
    TYPE(interface_type), POINTER :: interface
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error    

    enters("FIELD_CREATE_START_INTERFACE",err,error,*999)

    IF(ASSOCIATED(interface)) THEN
      IF(ASSOCIATED(field)) THEN
        CALL flagerror("Field is already associated.",err,error,*999)
      ELSE
        NULLIFY(field)
        IF(ASSOCIATED(interface%FIELDS)) THEN
          CALL field_user_number_find_generic(user_number,interface%FIELDS,field,err,error,*999)
          IF(ASSOCIATED(field)) THEN
            local_error="Field number "//trim(number_to_vstring(user_number,"*",err,error))// &
              & " has already been created on interface number "//trim(number_to_vstring(interface%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ELSE
            CALL field_create_start_generic(interface%FIELDS,user_number,field,err,error,*999)
            field%INTERFACE=>INTERFACE
            CALL field_create_values_cache_initialise(field,err,error,*999)
          ENDIF
        ELSE
          local_error="The fields on interface number "//trim(number_to_vstring(interface%USER_NUMBER,"*",err,error))// &
            & " are not associated."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Interface is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_CREATE_START_INTERFACE")
    RETURN
999 errorsexits("FIELD_CREATE_START_INTERFACE",err,error)
    RETURN 1
    
  END SUBROUTINE field_create_start_interface

  !
  !================================================================================================================================
  !

  SUBROUTINE field_create_start_region(USER_NUMBER,REGION,FIELD,ERR,ERROR,*)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: user_number
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_CREATE_START_REGION",err,error,*999)

    IF(ASSOCIATED(region)) THEN
      IF(ASSOCIATED(field)) THEN
        CALL flagerror("Field is already associated.",err,error,*999)
      ELSE
        NULLIFY(field)
        IF(ASSOCIATED(region%FIELDS)) THEN
          CALL field_user_number_find_generic(user_number,region%FIELDS,field,err,error,*999)
          IF(ASSOCIATED(field)) THEN
            local_error="Field number "//trim(number_to_vstring(user_number,"*",err,error))// &
              & " has already been created on region number "//trim(number_to_vstring(region%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ELSE
            CALL field_create_start_generic(region%FIELDS,user_number,field,err,error,*999)
            field%REGION=>region
            CALL field_create_values_cache_initialise(field,err,error,*999)
          ENDIF
        ELSE
          local_error="The fields on region number "//trim(number_to_vstring(region%USER_NUMBER,"*",err,error))// &
            & " are not associated."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Region is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_CREATE_START_REGION")
    RETURN
999 errorsexits("FIELD_CREATE_START_REGION",err,error)
    RETURN 1
  END SUBROUTINE field_create_start_region

  !
  !================================================================================================================================
  !

  SUBROUTINE field_create_values_cache_finalise(CREATE_VALUES_CACHE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_create_values_cache_type), POINTER :: create_values_cache
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx,variable_idx

    enters("FIELD_CREATE_VALUES_CACHE_FINALISE",err,error,*999)

    IF(ASSOCIATED(create_values_cache)) THEN
      IF(ALLOCATED(create_values_cache%VARIABLE_TYPES)) DEALLOCATE(create_values_cache%VARIABLE_TYPES)
      IF(ALLOCATED(create_values_cache%VARIABLE_LABELS)) THEN
        DO variable_idx=1,SIZE(create_values_cache%VARIABLE_LABELS,1)
          create_values_cache%VARIABLE_LABELS(variable_idx)=""
        ENDDO !variable_idx
        DEALLOCATE(create_values_cache%VARIABLE_LABELS)
      ENDIF
      IF(ALLOCATED(create_values_cache%VARIABLE_LABELS_LOCKED)) DEALLOCATE(create_values_cache%VARIABLE_LABELS_LOCKED)
      IF(ALLOCATED(create_values_cache%DIMENSION)) DEALLOCATE(create_values_cache%DIMENSION)
      IF(ALLOCATED(create_values_cache%DIMENSION_LOCKED)) DEALLOCATE(create_values_cache%DIMENSION_LOCKED)
      IF(ALLOCATED(create_values_cache%DATA_TYPES)) DEALLOCATE(create_values_cache%DATA_TYPES)
      IF(ALLOCATED(create_values_cache%DATA_TYPES_LOCKED)) DEALLOCATE(create_values_cache%DATA_TYPES_LOCKED)
      IF(ALLOCATED(create_values_cache%DOF_ORDER_TYPES)) DEALLOCATE(create_values_cache%DOF_ORDER_TYPES)
      IF(ALLOCATED(create_values_cache%DOF_ORDER_TYPES_LOCKED)) DEALLOCATE(create_values_cache%DOF_ORDER_TYPES_LOCKED)
      IF(ALLOCATED(create_values_cache%NUMBER_OF_COMPONENTS)) DEALLOCATE(create_values_cache%NUMBER_OF_COMPONENTS)
      IF(ALLOCATED(create_values_cache%NUMBER_OF_COMPONENTS_LOCKED)) DEALLOCATE(create_values_cache%NUMBER_OF_COMPONENTS_LOCKED)
      IF(ALLOCATED(create_values_cache%COMPONENT_LABELS)) THEN
        DO variable_idx=1,SIZE(create_values_cache%COMPONENT_LABELS,2)
          DO component_idx=1,SIZE(create_values_cache%COMPONENT_LABELS,1)
            create_values_cache%COMPONENT_LABELS(component_idx,variable_idx)=""
          ENDDO !component_idx
        ENDDO !variable_idx
        DEALLOCATE(create_values_cache%COMPONENT_LABELS)
      ENDIF
      IF(ALLOCATED(create_values_cache%COMPONENT_LABELS_LOCKED)) DEALLOCATE(create_values_cache%COMPONENT_LABELS_LOCKED)
      IF(ALLOCATED(create_values_cache%INTERPOLATION_TYPE)) DEALLOCATE(create_values_cache%INTERPOLATION_TYPE)
      IF(ALLOCATED(create_values_cache%INTERPOLATION_TYPE_LOCKED)) DEALLOCATE(create_values_cache%INTERPOLATION_TYPE_LOCKED)
      IF(ALLOCATED(create_values_cache%MESH_COMPONENT_NUMBER)) DEALLOCATE(create_values_cache%MESH_COMPONENT_NUMBER)
      IF(ALLOCATED(create_values_cache%MESH_COMPONENT_NUMBER_LOCKED)) DEALLOCATE(create_values_cache%MESH_COMPONENT_NUMBER_LOCKED)
      DEALLOCATE(create_values_cache)
    ENDIF
 
    exits("FIELD_CREATE_VALUES_CACHE_FINALISE")
    RETURN
999 errorsexits("FIELD_CREATE_VALUES_CACHE_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_create_values_cache_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_create_values_cache_initialise(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    INTEGER(INTG) :: dummy_err,number_of_components,component_idx,variable_idx
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(varying_string) :: dummy_error,local_error

    enters("FIELD_CREATE_VALUES_CACHE_INITIALISE",err,error,*998)

    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        CALL flagerror("Create values cache is already associated.",err,error,*998)
      ELSE
        ALLOCATE(field%CREATE_VALUES_CACHE,stat=err)
        IF(err/=0) CALL flagerror("Could not allocate create values cache.",err,error,*999)
        SELECT CASE(field%TYPE)
        CASE(field_geometric_type,field_fibre_type,field_geometric_general_type)
          NULLIFY(coordinate_system)
          CALL field_coordinate_system_get(field,coordinate_system,err,error,*999)
          number_of_components=coordinate_system%NUMBER_OF_DIMENSIONS
        CASE(field_general_type,field_material_type)
          number_of_components=1
        CASE DEFAULT
          local_error="The field type of "//trim(number_to_vstring(field%TYPE,"*",err,error))//" is invalid for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        END SELECT
        ALLOCATE(field%CREATE_VALUES_CACHE%VARIABLE_TYPES(field%NUMBER_OF_VARIABLES),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache variable types.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%VARIABLE_LABELS(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache variable labels.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%VARIABLE_LABELS_LOCKED(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache variable labels locked.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%DIMENSION(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache dimension.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%DIMENSION_LOCKED(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache dimension locked.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%DATA_TYPES(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache data types.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%DATA_TYPES_LOCKED(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache data types locked.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache DOF order types.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES_LOCKED(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache DOF order types locked.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache number of components.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS_LOCKED(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache number of components locked.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%COMPONENT_LABELS(number_of_components,field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache component labels.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%COMPONENT_LABELS_LOCKED(number_of_components,field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache component labels locked.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(number_of_components,field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache interpolation type.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED(number_of_components,field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache interpolation type locked.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(number_of_components,field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache mesh component type.",err,error,*999)
        ALLOCATE(field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED(number_of_components,field_number_of_variable_types), &
          & stat=err)
        IF(err/=0) CALL flagerror("Could not allocated create values cache mesh component type locked.",err,error,*999)
        field%CREATE_VALUES_CACHE%LABEL_LOCKED=.false.
        field%CREATE_VALUES_CACHE%DECOMPOSITION_LOCKED=.false.
        field%CREATE_VALUES_CACHE%DEPENDENT_TYPE_LOCKED=.false.
        field%CREATE_VALUES_CACHE%DIMENSION_LOCKED=.false.
        field%CREATE_VALUES_CACHE%NUMBER_OF_VARIABLES_LOCKED=.false.
        field%CREATE_VALUES_CACHE%GEOMETRIC_FIELD_LOCKED=.false.
        field%CREATE_VALUES_CACHE%SCALING_TYPE_LOCKED=.false.
        field%CREATE_VALUES_CACHE%TYPE_LOCKED=.false.
        field%CREATE_VALUES_CACHE%VARIABLE_TYPES=0
        field%CREATE_VALUES_CACHE%VARIABLE_TYPES_LOCKED=.false.
        field%CREATE_VALUES_CACHE%VARIABLE_LABELS=""
        field%CREATE_VALUES_CACHE%VARIABLE_LABELS_LOCKED=.false.
        field%CREATE_VALUES_CACHE%DIMENSION=0
        field%CREATE_VALUES_CACHE%DIMENSION_LOCKED=.false.
        field%CREATE_VALUES_CACHE%DATA_TYPES=0
        field%CREATE_VALUES_CACHE%DATA_TYPES_LOCKED=.false.
        field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES=0
        field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES_LOCKED=.false.
        field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS=0
        field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS_LOCKED=.false.
        field%CREATE_VALUES_CACHE%COMPONENT_LABELS=""
        field%CREATE_VALUES_CACHE%COMPONENT_LABELS_LOCKED=.false.
        field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE=0
        field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED=.false.
        field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER=0
        field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED=.false.
        field%CREATE_VALUES_CACHE%DataProjectionLocked=.false.
        DO variable_idx=1,field%NUMBER_OF_VARIABLES
          field%CREATE_VALUES_CACHE%VARIABLE_TYPES(variable_idx)=variable_idx
          SELECT CASE(variable_idx)
          CASE(field_u_variable_type)
            SELECT CASE(field%TYPE)
            CASE(field_geometric_type)
              field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="Coordinate"
            CASE(field_fibre_type)
              field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="Fibre"
            CASE(field_material_type)
              field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="Material"              
            CASE(field_general_type)
              field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U"
            CASE(field_geometric_general_type)
              field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U"
            CASE DEFAULT
              local_error="The field type of "//trim(number_to_vstring(field%TYPE,"*",err,error))// &
                & " is invalid for field number "// &
                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
          CASE(field_deludeln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U/del n"
          CASE(field_deludelt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U/del t"
          CASE(field_del2udelt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 U/del t^2"
          CASE(field_v_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="V"
          CASE(field_delvdeln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del V/del n"
          CASE(field_delvdelt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del V/del t"
          CASE(field_del2vdelt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 V/del t^2"
          CASE(field_u1_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U1"
          CASE(field_delu1deln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U1/del n"
          CASE(field_delu1delt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U1/del t"
          CASE(field_del2u1delt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 U1/del t^2"
          CASE(field_u2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U2"
          CASE(field_delu2deln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U2/del n"
          CASE(field_delu2delt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U2/del t"
          CASE(field_del2u2delt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 U2/del t^2"
          CASE(field_u3_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U3"
          CASE(field_delu3deln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U3/del n"
          CASE(field_delu3delt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U3/del t"
          CASE(field_del2u3delt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 U3/del t^2"
          CASE(field_u4_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U4"
          CASE(field_delu4deln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U4/del n"
          CASE(field_delu4delt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U4/del t"
          CASE(field_del2u4delt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 U4/del t^2"
          CASE(field_u5_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U5"
          CASE(field_delu5deln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U5/del n"
          CASE(field_delu5delt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U5/del t"
          CASE(field_del2u5delt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 U5/del t^2"
          CASE(field_u6_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U6"
          CASE(field_delu6deln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U6/del n"
          CASE(field_delu6delt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U6/del t"
          CASE(field_del2u6delt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 U6/del t^2"
          CASE(field_u7_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U7"
          CASE(field_delu7deln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U7/del n"
          CASE(field_delu7delt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U7/del t"
          CASE(field_del2u7delt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 U7/del t^2"
          CASE(field_u8_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U8"
          CASE(field_delu8deln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U8/del n"
          CASE(field_delu8delt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U8/del t"
          CASE(field_del2u8delt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 U8/del t^2"
          CASE(field_u9_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U9"
          CASE(field_delu9deln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U9/del n"
          CASE(field_delu9delt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U9/del t"
          CASE(field_del2u9delt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 U/9del t^2"
          CASE(field_u10_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="U10"
          CASE(field_delu10deln_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U10/del n"
          CASE(field_delu10delt_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del U10/del t"
          CASE(field_del2u10delt2_variable_type)
            field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_idx)="del^2 U10/del t^2"
          CASE DEFAULT
            local_error="The variable type of "//trim(number_to_vstring(variable_idx,"*",err,error))//" is invalid."
            CALL flagerror(local_error,err,error,*999)
          END SELECT
          field%CREATE_VALUES_CACHE%DIMENSION(variable_idx)=field_vector_dimension_type
          field%CREATE_VALUES_CACHE%DATA_TYPES(variable_idx)=field_dp_type
          field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES(variable_idx)=field_separated_component_dof_order
          field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_idx)=number_of_components
          DO component_idx=1,number_of_components
            field%CREATE_VALUES_CACHE%COMPONENT_LABELS(component_idx,variable_idx)= &
              & trim(number_to_vstring(component_idx,"*",err,error))






            IF(err/=0) GOTO 999
            field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(component_idx,variable_idx)=field_node_based_interpolation
            field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(component_idx,variable_idx)=1
          ENDDO !component_idx
        ENDDO !variable_idx
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*998)
    ENDIF

    exits("FIELD_CREATE_VALUES_CACHE_INITIALISE")
    RETURN
999 CALL field_create_values_cache_finalise(field%CREATE_VALUES_CACHE,dummy_err,dummy_error,*998)
998 errorsexits("FIELD_CREATE_VALUES_CACHE_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_create_values_cache_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometricgeneralfieldget(field,geometricField,generalFound,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER, INTENT(IN) :: field
    TYPE(field_type), POINTER, INTENT(OUT) :: geometricfield
    LOGICAL, INTENT(OUT) :: generalfound
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: fieldidx
    TYPE(field_type), POINTER :: otherfield
    TYPE(varying_string) :: localerror

    enters("Field_GeometricGeneralFieldGet",err,error,*999)

    NULLIFY(geometricfield)

    ! Check input parameters
    IF(ASSOCIATED(field)) THEN
      IF(field%field_finished) THEN
        IF(.NOT.ASSOCIATED(field%fields)) THEN
          CALL flagerror("Field fields are not associated.",err,error,*999)
        END IF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%user_number,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    END IF
    IF(ASSOCIATED(geometricfield)) THEN
      CALL flagerror("Geometric field is already associated.",err,error,*999)
    END IF

    generalfound=.false.
    ! Find the geometric general field associated with this field
    DO fieldidx=1,field%fields%number_of_fields
      otherfield=>field%fields%fields(fieldidx)%ptr
      IF(ASSOCIATED(otherfield)) THEN
        IF(otherfield%TYPE==field_geometric_general_type) THEN
          geometricfield=>otherfield
          generalfound=.true.
        END IF
      ELSE
        CALL flagerror("Field number "//trim(number_to_vstring(fieldidx,"*",err,error))// &
          & " is not associated.",err,error,*999)
      END IF
    END DO

    IF(.NOT.generalfound) THEN
      ! We couldn't find a geometric general field.
      ! Just return the undeformed geometric field.
      IF(ASSOCIATED(field%geometric_field)) THEN
        geometricfield=>field%geometric_field
      ELSE
        CALL flagerror("Geometric general field not found and geometric field is not associated.",err,error,*999)
      END IF
    END IF

    exits("Field_GeometricGeneralFieldGet")
    RETURN
999 errorsexits("Field_GeometricGeneralFieldGet",err,error)
    RETURN 1
  END SUBROUTINE field_geometricgeneralfieldget

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dependent_type_check(FIELD,DEPENDENT_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: dependent_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_DEPENDENT_TYPE_CHECK",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        SELECT CASE(dependent_type)
        CASE(field_independent_type)
          IF(field%DEPENDENT_TYPE/=field_independent_type) THEN
            local_error="Invalid dependent type. The dependent type of field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%DEPENDENT_TYPE,"*",err,error))// &
              & " which is not an independent field."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE(field_dependent_type)
          IF(field%DEPENDENT_TYPE/=field_dependent_type) THEN
            local_error="Invalid dependent type. The dependent type of field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%DEPENDENT_TYPE,"*",err,error))// &
              & " which is not a dependent field."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE DEFAULT
          local_error="The specified dependent type of "//trim(number_to_vstring(dependent_type,"*",err,error))// &
            & " is invalid."
          CALL flagerror(local_error,err,error,*999)
        END SELECT
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DEPENDENT_TYPE_CHECK")
    RETURN
999 errorsexits("FIELD_DEPENDENT_TYPE_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_dependent_type_check

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dependent_type_get(FIELD,DEPENDENT_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: dependent_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_DEPENDENT_TYPE_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        dependent_type=field%DEPENDENT_TYPE
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DEPENDENT_TYPE_GET")
    RETURN
999 errorsexits("FIELD_DEPENDENT_TYPE_GET",err,error)
    RETURN 1
  END SUBROUTINE field_dependent_type_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dependent_type_set(FIELD,DEPENDENT_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: dependent_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_DEPENDENT_TYPE_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(field%CREATE_VALUES_CACHE%DEPENDENT_TYPE_LOCKED) THEN
            local_error="The dependent type has been locked for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
            CALL flagerror(local_error,err,error,*999)
          ELSE
            SELECT CASE(dependent_type)
            CASE(field_independent_type)
              field%DEPENDENT_TYPE=field_independent_type
            CASE(field_dependent_type)
              field%DEPENDENT_TYPE=field_dependent_type
            CASE DEFAULT
              local_error="The supplied dependent type of "//trim(number_to_vstring(dependent_type,"*",err,error))//" is invalid."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DEPENDENT_TYPE_SET")
    RETURN
999 errorsexits("FIELD_DEPENDENT_TYPE_SET",err,error)
    RETURN 1
  END SUBROUTINE field_dependent_type_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dependent_type_set_and_lock(FIELD,DEPENDENT_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: dependent_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_DEPENDENT_TYPE_SET_AND_LOCK",err,error,*999)

    CALL field_dependent_type_set(field,dependent_type,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%DEPENDENT_TYPE_LOCKED=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_DEPENDENT_TYPE_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_DEPENDENT_TYPE_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_dependent_type_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE field_destroy(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: field_idx,field_position,field_position2
    TYPE(field_type), POINTER :: field2,geometric_field
    TYPE(fields_type), POINTER :: fields
    TYPE(field_ptr_type), POINTER :: new_fields(:),new_fields_using(:)

    NULLIFY(new_fields)
    NULLIFY(new_fields_using)

    enters("FIELD_DESTROY",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      fields=>field%FIELDS
      IF(ASSOCIATED(fields)) THEN
        field_position=field%GLOBAL_NUMBER
        geometric_field=>field%GEOMETRIC_FIELD
        IF(ASSOCIATED(geometric_field)) THEN
          IF(ASSOCIATED(geometric_field%GEOMETRIC_FIELD_PARAMETERS)) THEN
            !Delete this field from the list of fields using the geometric field.
            field_position2=0
            DO field_idx=1,geometric_field%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_FIELDS_USING
              field2=>geometric_field%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING(field_idx)%PTR
              IF(field2%USER_NUMBER==field%USER_NUMBER) THEN
                field_position2=field_idx
                EXIT
              ENDIF
            ENDDO !field_idx
            IF(field_position2/=0) THEN
              ALLOCATE(new_fields_using(geometric_field%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_FIELDS_USING+1),stat=err)
              IF(err/=0) CALL flagerror("Could not allocate new fields using.",err,error,*999)
              DO field_idx=1,geometric_field%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_FIELDS_USING
                IF(field_idx<field_position2) THEN
                  new_fields_using(field_idx)%PTR=>geometric_field%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING(field_idx)%PTR
                ELSE IF(field_idx>field_position2) THEN
                  new_fields_using(field_idx-1)%PTR=>geometric_field%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING(field_idx)%PTR
                ENDIF
              ENDDO !field_idx
              geometric_field%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_FIELDS_USING=geometric_field%GEOMETRIC_FIELD_PARAMETERS% &
                & number_of_fields_using-1
              IF(ASSOCIATED(geometric_field%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING)) &
                & DEALLOCATE(geometric_field%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING)
              geometric_field%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING=>new_fields_using
            ELSE
              !??? Error
            ENDIF
          ENDIF
        ENDIF
        CALL field_finalise(field,err,error,*999)
        IF(fields%NUMBER_OF_FIELDS>1) THEN
          ALLOCATE(new_fields(fields%NUMBER_OF_FIELDS-1),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate new fields.",err,error,*999)
          DO field_idx=1,fields%NUMBER_OF_FIELDS
            IF(field_idx<field_position) THEN
              new_fields(field_idx)%PTR=>fields%FIELDS(field_idx)%PTR
            ELSE IF(field_idx>field_position) THEN
              fields%FIELDS(field_idx)%PTR%GLOBAL_NUMBER=fields%FIELDS(field_idx)%PTR%GLOBAL_NUMBER-1
              new_fields(field_idx-1)%PTR=>fields%FIELDS(field_idx)%PTR
            ENDIF
          ENDDO !field_no
          DEALLOCATE(fields%FIELDS)
          fields%FIELDS=>new_fields
          fields%NUMBER_OF_FIELDS=fields%NUMBER_OF_FIELDS-1
        ELSE
          DEALLOCATE(fields%FIELDS)
          fields%NUMBER_OF_FIELDS=0
        ENDIF
      ELSE
        CALL flagerror("Field fields is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DESTROY")
    RETURN
999 IF(ASSOCIATED(new_fields)) DEALLOCATE(new_fields)
    IF(ASSOCIATED(new_fields_using)) DEALLOCATE(new_fields_using)
    errorsexits("FIELD_DESTROY",err,error)
    RETURN 1
  END SUBROUTINE field_destroy

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dimension_check(FIELD,VARIABLE_TYPE,DIMENSION_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: dimension_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
    
    enters("FIELD_DIMENSION_CHECK",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            SELECT CASE(dimension_type)
            CASE(field_scalar_dimension_type)
              IF(field_variable%DIMENSION/=field_scalar_dimension_type) THEN
                local_error="Invalid dimension type. The dimension type for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                  & trim(number_to_vstring(field_variable%DIMENSION,"*",err,error))// &
                  & " which is not a scalar field."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE(field_vector_dimension_type)
              IF(field_variable%DIMENSION/=field_vector_dimension_type) THEN
                local_error="Invalid dimension type. The dimension type for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                  & trim(number_to_vstring(field_variable%DIMENSION,"*",err,error))// &
                  & " which is not a vector field."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE(field_tensor_dimension_type) 
              IF(field_variable%DIMENSION/=field_tensor_dimension_type) THEN
                local_error="Invalid dimension type. The dimension type for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                  & trim(number_to_vstring(field_variable%DIMENSION,"*",err,error))// &
                  & " which is not a tensor field."
                CALL flagerror(local_error,err,error,*999)
              ENDIF

           CASE DEFAULT
              local_error="The specified dimension type of "//trim(number_to_vstring(dimension_type,"*",err,error))// &
                & " is invalid."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DIMENSION_CHECK")
    RETURN
999 errorsexits("FIELD_DIMENSION_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_dimension_check

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dimension_get(FIELD,VARIABLE_TYPE,DIMENSION,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(OUT) :: dimension
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
    
    enters("FIELD_DIMENSION_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            dimension=field_variable%DIMENSION
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DIMENSION_GET")
    RETURN
999 errorsexits("FIELD_DIMENSION_GET",err,error)
    RETURN 1
  END SUBROUTINE field_dimension_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dimension_set(FIELD,VARIABLE_TYPE,FIELD_DIMENSION,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_dimension
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: number_of_components,new_number_of_components,variable_idx
    INTEGER(INTG), ALLOCATABLE :: new_interpolation_type(:,:),new_mesh_component_number(:,:)
    LOGICAL, ALLOCATABLE :: new_component_labels_locked(:,:),new_interpolation_type_locked(:,:), &
      & NEW_MESH_COMPONENT_NUMBER_LOCKED(:,:)
    TYPE(varying_string) :: local_error
    TYPE(varying_string), ALLOCATABLE :: new_component_labels(:,:)

    enters("FIELD_DIMENSION_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
            IF(any(field%CREATE_VALUES_CACHE%VARIABLE_TYPES==variable_type)) THEN
              IF(field%CREATE_VALUES_CACHE%DIMENSION_LOCKED(variable_type)) THEN
                local_error="The field dimension has been locked for for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
                CALL flagerror(local_error,err,error,*999)
              ELSE
                SELECT CASE(field_dimension)
                CASE(field_scalar_dimension_type)
                  IF(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)/=1) THEN
                    number_of_components=SIZE(field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE,1)
                    new_number_of_components=1
                    !Here, new number of components always >= old_number_of_components
                    DO variable_idx=1,field_number_of_variable_types
                      IF (field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_idx) > new_number_of_components) THEN 
                        IF (variable_idx /= variable_type) THEN
                          new_number_of_components=field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_idx)
                        ENDIF
                      ENDIF
                    ENDDO
                    ALLOCATE(new_component_labels(new_number_of_components,field_number_of_variable_types),stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate new component labels.",err,error,*999)
                    ALLOCATE(new_component_labels_locked(new_number_of_components,field_number_of_variable_types),stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate new component labels locked.",err,error,*999)
                    ALLOCATE(new_interpolation_type(new_number_of_components,field_number_of_variable_types),stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate new interpolation type.",err,error,*999)
                    ALLOCATE(new_interpolation_type_locked(new_number_of_components,field_number_of_variable_types),stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate new interpolation type locked.",err,error,*999)
                    ALLOCATE(new_mesh_component_number(new_number_of_components,field_number_of_variable_types),stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate new mesh component number.",err,error,*999)
                    ALLOCATE(new_mesh_component_number_locked(new_number_of_components,field_number_of_variable_types),stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate new mesh component number locked.",err,error,*999)
                    new_component_labels(1:new_number_of_components,:)= &
                      & field%CREATE_VALUES_CACHE%COMPONENT_LABELS(1:new_number_of_components,:)
                    new_component_labels_locked(1:new_number_of_components,:)= &
                      & field%CREATE_VALUES_CACHE%COMPONENT_LABELS_LOCKED(1:new_number_of_components,:)
                    new_interpolation_type(1:new_number_of_components,:)= &
                      & field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(1:new_number_of_components,:)
                    new_interpolation_type_locked(1:new_number_of_components,:)= &
                      & field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED(1:new_number_of_components,:)
                    new_mesh_component_number(1:new_number_of_components,:)= &
                      & field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(1:new_number_of_components,:)
                    new_mesh_component_number_locked(1:new_number_of_components,:)= &
                      & field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED(1:new_number_of_components,:)

                    CALL move_alloc(new_component_labels,field%CREATE_VALUES_CACHE%COMPONENT_LABELS)
                    CALL move_alloc(new_component_labels_locked,field%CREATE_VALUES_CACHE%COMPONENT_LABELS_LOCKED)
                    CALL move_alloc(new_interpolation_type,field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE)
                    CALL move_alloc(new_interpolation_type_locked,field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED)
                    CALL move_alloc(new_mesh_component_number,field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER)
                    CALL move_alloc(new_mesh_component_number_locked,field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED)

                    field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)=1
                  ENDIF
                  field%CREATE_VALUES_CACHE%DIMENSION(variable_type)=field_scalar_dimension_type
                CASE(field_vector_dimension_type)
                  field%CREATE_VALUES_CACHE%DIMENSION(variable_type)=field_vector_dimension_type
                CASE(field_tensor_dimension_type)
                  field%CREATE_VALUES_CACHE%DIMENSION(variable_type)=field_tensor_dimension_type
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE DEFAULT
                  local_error="The specified field dimension of "//trim(number_to_vstring(field_dimension,"*",err,error))// &
                    & " is invalid."
                  CALL flagerror(local_error,err,error,*999)
                END SELECT
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_DIMENSION_SET")
    RETURN
999 IF(ALLOCATED(new_component_labels)) DEALLOCATE(new_component_labels)
    IF(ALLOCATED(new_component_labels_locked)) DEALLOCATE(new_component_labels_locked)
    IF(ALLOCATED(new_interpolation_type)) DEALLOCATE(new_interpolation_type)
    IF(ALLOCATED(new_interpolation_type_locked)) DEALLOCATE(new_interpolation_type_locked)
    IF(ALLOCATED(new_mesh_component_number)) DEALLOCATE(new_mesh_component_number)
    IF(ALLOCATED(new_mesh_component_number_locked)) DEALLOCATE(new_mesh_component_number_locked)
    errorsexits("FIELD_DIMENSION_SET",err,error)
    RETURN 1
  END SUBROUTINE field_dimension_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dimension_set_and_lock(FIELD,VARIABLE_TYPE,FIELD_DIMENSION,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_dimension
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_DIMENSION_SET_AND_LOCK",err,error,*999)

    CALL field_dimension_set(field,variable_type,field_dimension,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%DIMENSION_LOCKED(variable_type)=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_DIMENSION_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_DIMENSION_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_dimension_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE field_finalise(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_FINALISE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      field%LABEL=""
      CALL field_scalings_finalise(field,err,error,*999)
      CALL field_variables_finalise(field,err,error,*999)
      CALL field_create_values_cache_finalise(field%CREATE_VALUES_CACHE,err,error,*999)
      CALL field_geometric_parameters_finalise(field%GEOMETRIC_FIELD_PARAMETERS,err,error,*999)
      IF(ALLOCATED(field%VARIABLE_TYPE_MAP)) DEALLOCATE(field%VARIABLE_TYPE_MAP)
      DEALLOCATE(field)     
    ENDIF

    exits("FIELD_FINALISE")
    RETURN
999 errorsexits("FIELD_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_initialise(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dummy_err,variable_type_idx
    TYPE(varying_string) :: dummy_error

    enters("FIELD_INITIALISE",err,error,*998)

    IF(ASSOCIATED(field)) THEN
      CALL flagerror("Field is already associated.",err,error,*998)
    ELSE
      ALLOCATE(field,stat=err)
      IF(err/=0) CALL flagerror("Could not allocate field.",err,error,*999)      
      field%GLOBAL_NUMBER=0
      field%USER_NUMBER=0
      field%LABEL=""
      field%FIELD_FINISHED=.false.
      NULLIFY(field%FIELDS)
      NULLIFY(field%REGION)
      field%TYPE=field_geometric_type
      field%DEPENDENT_TYPE=field_independent_type
      NULLIFY(field%DECOMPOSITION)
      field%NUMBER_OF_VARIABLES=0
      NULLIFY(field%GEOMETRIC_FIELD)
      NULLIFY(field%GEOMETRIC_FIELD_PARAMETERS)
      NULLIFY(field%CREATE_VALUES_CACHE)
      ALLOCATE(field%VARIABLE_TYPE_MAP(field_number_of_variable_types),stat=err)
      IF(err/=0) CALL flagerror("Could not allocate field variable type map.",err,error,*999)
      DO variable_type_idx=1,field_number_of_variable_types
        NULLIFY(field%VARIABLE_TYPE_MAP(variable_type_idx)%PTR)
      ENDDO !variable_type_idx
    ENDIF

    exits("FIELD_INITIALISE")
    RETURN
999 CALL field_finalise(field,dummy_err,dummy_error,*998)
998 errorsexits("FIELD_INITIALISE",err,error)
    RETURN 1
    
  END SUBROUTINE field_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolate_gauss(PARTIAL_DERIVATIVE_TYPE,QUADRATURE_SCHEME,GAUSS_POINT_NUMBER,INTERPOLATED_POINT, &
      & err,error,*,componenttype)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: partial_derivative_type
    INTEGER(INTG), INTENT(IN) :: quadrature_scheme
    INTEGER(INTG), INTENT(IN) :: gauss_point_number
    TYPE(field_interpolated_point_type), POINTER :: interpolated_point
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    INTEGER(INTG), OPTIONAL, INTENT(IN) :: componenttype
    !Local Variables
    INTEGER(INTG) :: component_idx,ni,nu
    INTEGER(INTG) :: startcomponentidx,endcomponentidx
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(field_type), POINTER :: field
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    TYPE(varying_string) :: local_error

    enters("FIELD_INTERPOLATE_GAUSS",err,error,*999)

    IF(ASSOCIATED(interpolated_point)) THEN
      interpolation_parameters=>interpolated_point%INTERPOLATION_PARAMETERS
      IF(ASSOCIATED(interpolation_parameters)) THEN
        field=>interpolation_parameters%FIELD
        IF(ASSOCIATED(field)) THEN
          NULLIFY(coordinate_system)
          CALL field_coordinate_system_get(field,coordinate_system,err,error,*999)
          IF(PRESENT(componenttype)) THEN
            SELECT CASE(componenttype)
            CASE(field_all_components_type)
              startcomponentidx=1
              endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
            CASE(field_geometric_components_type)
              IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                startcomponentidx=1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(FIELD_U_VARIABLE_TYPE)%PTR% &
                  & number_of_components
              ELSEIF(interpolation_parameters%FIELD%TYPE==field_geometric_type) THEN
                startcomponentidx=1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
              ELSE
                local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                  & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE(field_nongeometric_components_type)
              IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                startcomponentidx=-interpolation_parameters%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(field_u_variable_type)% &
                  & ptr%NUMBER_OF_COMPONENTS+1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
              ELSE
                local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                  & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE DEFAULT
              local_error="Interpolation component type "//trim(number_to_vstring(componenttype,"*",err,error))//" is not valid."
                CALL flagerror(local_error,err,error,*999)
            END SELECT
          ELSE
            startcomponentidx=1
            endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
          ENDIF
          SELECT CASE(partial_derivative_type)
          CASE(no_part_deriv)
            DO component_idx=startcomponentidx,endcomponentidx
              SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
              CASE(field_element_based_interpolation)
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)              
              CASE(field_node_based_interpolation)
                interpolated_point%VALUES(component_idx,1)=basis_interpolate_gauss(interpolation_parameters%BASES( &
                  & component_idx)%PTR,no_part_deriv,quadrature_scheme,gauss_point_number,interpolation_parameters% &
                  & parameters(:,component_idx),err,error)
                IF(err/=0) GOTO 999
              CASE(field_grid_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(gauss_point_number, &
                  & component_idx)
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(interpolation_parameters% &
                  & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component index "//trim(number_to_vstring(component_idx,"*",err,error))//"."
              END SELECT
              CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                & err,error,*999)
            ENDdo! component_idx
            interpolated_point%PARTIAL_DERIVATIVE_TYPE=no_part_deriv
          CASE(first_part_deriv)
            DO component_idx=startcomponentidx,endcomponentidx
              SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process all the first partial derivatives
                DO ni=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                  nu=partial_derivative_first_derivative_map(ni)
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !ni
              CASE(field_element_based_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process all the first partial derivatives
                DO ni=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                  nu=partial_derivative_first_derivative_map(ni)
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !ni
              CASE(field_node_based_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=basis_interpolate_gauss(interpolation_parameters%BASES( &
                  & component_idx)%PTR,no_part_deriv,quadrature_scheme,gauss_point_number,interpolation_parameters% &
                  & parameters(:,component_idx),err,error)
                IF(err/=0) GOTO 999
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process all the first partial derivatives
                DO ni=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                  nu=partial_derivative_first_derivative_map(ni)
                  interpolated_point%VALUES(component_idx,nu)=basis_interpolate_gauss(interpolation_parameters% &
                    & bases(component_idx)%PTR,nu,quadrature_scheme,gauss_point_number, &
                    & interpolation_parameters%PARAMETERS(:,component_idx),err,error)
                  IF(err/=0) GOTO 999
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !ni
              CASE(field_grid_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(interpolation_parameters% &
                  & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component index "//trim(number_to_vstring(component_idx,"*",err,error))//"."
              END SELECT
            ENDdo! component_idx
            interpolated_point%PARTIAL_DERIVATIVE_TYPE=first_part_deriv
          CASE(second_part_deriv)
            DO component_idx=startcomponentidx,endcomponentidx
              SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process the rest of partial derivatives
                DO nu=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_PARTIAL_DERIVATIVES
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !nu
              CASE(field_element_based_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process the rest of partial derivatives
                DO nu=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_PARTIAL_DERIVATIVES
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !nu
              CASE(field_node_based_interpolation)              
                DO nu=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_PARTIAL_DERIVATIVES
                  interpolated_point%VALUES(component_idx,nu)=basis_interpolate_gauss(interpolation_parameters% &
                    & bases(component_idx)%PTR,nu,quadrature_scheme,gauss_point_number, &
                    & interpolation_parameters%PARAMETERS(:,component_idx),err,error)
                  IF(err/=0) GOTO 999
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDdo! nu
              CASE(field_grid_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(interpolation_parameters% &
                  & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component index "//trim(number_to_vstring(component_idx,"*",err,error))//"."
              END SELECT
            ENDDO !component_idx
            interpolated_point%PARTIAL_DERIVATIVE_TYPE=second_part_deriv
          CASE DEFAULT
            local_error="The partial derivative type of "//trim(number_to_vstring(partial_derivative_type,"*",err,error))// &
              & " is invalid."
            CALL flagerror(local_error,err,error,*999)
          END SELECT
        ELSE
          CALL flagerror("The interpolation parameters field is not associated.",err,error,*999)
        ENDIF
      ELSE
        CALL flagerror("Interpolated point interpolation parameters is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Interpolated point is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_INTERPOLATE_GAUSS")
    RETURN
999 errorsexits("FIELD_INTERPOLATE_GAUSS",err,error)
    RETURN 1
  END SUBROUTINE field_interpolate_gauss

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolate_node(PHYSICAL_DERIVATIVE_TYPE,PARAMETER_SET_TYPE,COMPONENT_NUMBER,NODE_NUMBER, &
    & physical_point,err,error,*)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: physical_derivative_type
    INTEGER(INTG), INTENT(IN) :: parameter_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: node_number
    TYPE(field_physical_point_type), POINTER :: physical_point
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx,element,elem_idx,local_node_number,local_node_idx,number_of_surrounding_elements, &
      & partial_deriv_idx,xi_idx
    REAL(DP) :: xi(3),dx_dxi(3,3),dxi_dx(3,3),det_dx_dxi
    TYPE(basis_type), POINTER :: basis
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_elements_type), POINTER :: elem_topology
    TYPE(domain_nodes_type), POINTER :: nodes_topology
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_type), POINTER :: field
    TYPE(field_interpolated_point_type), POINTER :: field_interpolated_point,geometric_interpolated_point
    TYPE(field_interpolation_parameters_type), POINTER :: field_interpolation_parameters,geometric_interpolation_parameters
    TYPE(field_variable_type), POINTER :: field_variable,geometric_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_INTERPOLATE_NODE",err,error,*999)

    IF(ASSOCIATED(physical_point)) THEN
      field_interpolated_point=>physical_point%FIELD_INTERPOLATED_POINT
      IF(ASSOCIATED(field_interpolated_point)) THEN
        geometric_interpolated_point=>physical_point%GEOMETRIC_INTERPOLATED_POINT
        IF(ASSOCIATED(geometric_interpolated_point)) THEN
          field_interpolation_parameters=>field_interpolated_point%INTERPOLATION_PARAMETERS
          IF(ASSOCIATED(field_interpolation_parameters)) THEN
            geometric_interpolation_parameters=>geometric_interpolated_point%INTERPOLATION_PARAMETERS
            IF(ASSOCIATED(geometric_interpolation_parameters)) THEN
              field_variable=>field_interpolation_parameters%FIELD_VARIABLE
              IF(ASSOCIATED(field_variable)) THEN
                geometric_variable=>geometric_interpolation_parameters%FIELD_VARIABLE
                IF(ASSOCIATED(geometric_variable)) THEN
                  field=>field_variable%FIELD
                  IF(ASSOCIATED(field)) THEN            
                    CALL field_coordinate_system_get(field,coordinate_system,err,error,*999)            
                    IF(component_number>0.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        IF(ASSOCIATED(domain_topology)) THEN
                          nodes_topology=>domain_topology%NODES
                          IF(ASSOCIATED(nodes_topology)) THEN
                            IF(node_number>0.AND.node_number<=nodes_topology%NUMBER_OF_NODES) THEN
                              elem_topology=>domain_topology%ELEMENTS
                              IF(ASSOCIATED(elem_topology)) THEN
                                physical_point%VALUES=0.0_dp
                                IF(physical_derivative_type==no_physical_deriv) THEN
                                  number_of_surrounding_elements=1
                                ELSE
                                  number_of_surrounding_elements=nodes_topology%NODES(node_number)% &
                                    & number_of_surrounding_elements
                                  physical_point%VALUES=0.0_dp
                                ENDIF
                                !Loop over the elements surrounding the node
                                DO elem_idx=1,number_of_surrounding_elements
                                  element=nodes_topology%NODES(node_number)%SURROUNDING_ELEMENTS(elem_idx)
                                  CALL field_interpolation_parameters_element_get(parameter_set_type,element, &
                                    & field_interpolation_parameters,err,error,*999)
                                  basis=>elem_topology%ELEMENTS(element)%BASIS
                                  IF(ASSOCIATED(basis)) THEN
                                    local_node_number=0
                                    DO local_node_idx=1,basis%NUMBER_OF_NODES
                                      IF(elem_topology%ELEMENTS(element)%ELEMENT_NODES(local_node_idx)==node_number) THEN
                                        local_node_number=local_node_idx
                                        EXIT
                                      ENDIF
                                    ENDDO
                                    IF(local_node_number/=0) THEN
                                      CALL basis_local_node_xi_calculate(basis,local_node_number,xi,err,error,*999)  
                                      SELECT CASE(physical_derivative_type)
                                      CASE(no_physical_deriv)
                                        DO component_idx=1,field_variable%NUMBER_OF_COMPONENTS
                                          SELECT CASE(field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
                                          CASE(field_constant_interpolation)
                                            physical_point%VALUES(component_idx)=field_interpolation_parameters% &
                                              & parameters(1,component_idx)
                                          CASE(field_element_based_interpolation)
                                            physical_point%VALUES(component_idx)=field_interpolation_parameters% &
                                              & parameters(1,component_idx)
                                          CASE(field_node_based_interpolation)
                                            physical_point%VALUES(component_idx)=basis_interpolate_xi( &
                                              & field_interpolation_parameters%BASES(component_idx)%PTR,no_part_deriv, &
                                              & xi,field_interpolation_parameters%PARAMETERS(:,component_idx),err,error)
                                            IF(err/=0) GOTO 999
                                          CASE(field_grid_point_based_interpolation)
                                            CALL flagerror("Not implemented.",err,error,*999)
                                          CASE(field_gauss_point_based_interpolation)
                                            CALL flagerror("Not implemented.",err,error,*999)
                                          CASE(field_data_point_based_interpolation)
                                            CALL flagerror("Not implemented.",err,error,*999)
                                          CASE DEFAULT
                                            local_error="The field component interpolation type of "// &
                                              & trim(number_to_vstring(field_variable%COMPONENTS(component_idx)% &
                                              & interpolation_type,"*",err,error))//" is invalid for component index "// &
                                              & trim(number_to_vstring(component_idx,"*",err,error))//"."
                                          END SELECT
                                        ENDdo! component_idx
                                        physical_point%PHYSICAL_DERIVATIVE_TYPE=no_physical_deriv
                                      CASE(gradient_physical_deriv)
                                        DO component_idx=1,field_variable%NUMBER_OF_COMPONENTS
                                          SELECT CASE(field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
                                          CASE(field_constant_interpolation)
                                            !There is no gradient for constant interpolation
                                            physical_point%VALUES(component_idx)=0.0_dp                                            
                                          CASE(field_element_based_interpolation)
                                            !There is no graident for element interpolation
                                            physical_point%VALUES(component_idx)=0.0_dp
                                          CASE(field_node_based_interpolation)
                                            CALL field_interpolation_parameters_element_get(field_values_set_type,element, &
                                              & geometric_interpolation_parameters,err,error,*999)
                                            !Now process all the first partial derivatives
                                            DO xi_idx=1,field_interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                                              partial_deriv_idx=partial_derivative_first_derivative_map(xi_idx)
                                              !Interpolate the field
                                              field_interpolated_point%VALUES(component_idx,partial_deriv_idx) = &
                                                & basis_interpolate_xi(field_interpolation_parameters%BASES(component_idx)%PTR, &
                                                & partial_deriv_idx,xi,field_interpolation_parameters%PARAMETERS(:, &
                                                & component_idx),err,error)
                                              IF(err/=0) GOTO 999
                                              CALL coordinate_interpolation_adjust(coordinate_system,partial_deriv_idx, &
                                                & field_interpolated_point%VALUES(component_idx,partial_deriv_idx),err,error,*999)
                                              geometric_interpolated_point%VALUES(component_idx,partial_deriv_idx) = &
                                                & basis_interpolate_xi(geometric_interpolation_parameters%BASES(component_idx)% &
                                                & ptr,partial_deriv_idx,xi,geometric_interpolation_parameters%PARAMETERS(:, &
                                                & component_idx),err,error)
                                              IF(err/=0) GOTO 999
                                              CALL coordinate_interpolation_adjust(coordinate_system,partial_deriv_idx, &
                                                & geometric_interpolated_point%VALUES(component_idx,partial_deriv_idx), &
                                                & err,error,*999)
                                              dx_dxi(component_idx,xi_idx)=geometric_interpolated_point% &
                                                & values(component_idx,partial_deriv_idx)
                                            ENDDO !xi_idx
                                          CASE(field_grid_point_based_interpolation)
                                            CALL flagerror("Not implemented.",err,error,*999)
                                          CASE(field_gauss_point_based_interpolation)
                                            CALL flagerror("Not implemented.",err,error,*999)
                                          CASE(field_data_point_based_interpolation)
                                            CALL flagerror("Not implemented.",err,error,*999)
                                          CASE DEFAULT
                                            local_error="The field component interpolation type of "// &
                                              & trim(number_to_vstring(field_interpolation_parameters% &
                                              & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                                              & " is invalid for component index "// &
                                              & trim(number_to_vstring(component_idx,"*",err,error))//"."
                                          END SELECT
                                        ENDdo! component_idx
                                        !Form the physical derivative
                                        CALL invert(dx_dxi,dxi_dx,det_dx_dxi,err,error,*999)
                                        DO component_idx=1,field_variable%NUMBER_OF_COMPONENTS
                                          DO xi_idx=1,field_interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                                            partial_deriv_idx=partial_derivative_first_derivative_map(xi_idx)
                                            physical_point%VALUES(component_idx)=physical_point%VALUES(component_idx)+ &
                                              & field_interpolated_point%VALUES(component_idx,partial_deriv_idx)* &
                                              & dxi_dx(xi_idx,component_idx)
                                          ENDDO !xi_idx
                                        ENDDO !component_idx
                                        physical_point%PHYSICAL_DERIVATIVE_TYPE=gradient_physical_deriv
                                      CASE DEFAULT
                                        local_error="The physical derivative type of "// &
                                          & trim(number_to_vstring(physical_derivative_type,"*",err,error))//" is invalid."
                                        CALL flagerror(local_error,err,error,*999)
                                      END SELECT
                                    ELSE
                                      local_error="Could not find the local node for node "// &
                                        & trim(number_to_vstring(node_number,"*",err,error))//" in element number "// &
                                        & trim(number_to_vstring(element,"*",err,error))//"."
                                      CALL flagerror(local_error,err,error,*999)
                                    ENDIF
                                  ELSE
                                    local_error="The basis for element "//trim(number_to_vstring(element,"*",err,error))// &
                                      & " is not associated."
                                    CALL flagerror(local_error,err,error,*999)
                                  ENDIF
                                ENDDO !elem_idx
                                IF(physical_derivative_type==no_physical_deriv) THEN
                                  !Now calculate the average of the interpolated physical point
                                  DO component_idx=1,field_variable%NUMBER_OF_COMPONENTS
                                    SELECT CASE(field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
                                    CASE(field_constant_interpolation)
                                      !Do nothing
                                    CASE(field_element_based_interpolation)
                                      !Do nothing
                                    CASE(field_node_based_interpolation)                                      
                                      physical_point%VALUES(component_idx)=physical_point%VALUES(component_idx)/ &
                                        & REAL(number_of_surrounding_elements,dp)
                                    CASE(field_grid_point_based_interpolation)
                                      CALL flagerror("Not implemented.",err,error,*999)
                                    CASE(field_gauss_point_based_interpolation)
                                      CALL flagerror("Not implemented.",err,error,*999)
                                    CASE(field_data_point_based_interpolation)
                                      CALL flagerror("Not implemented.",err,error,*999)
                                    CASE DEFAULT
                                      local_error="The field component interpolation type of "// &
                                        & trim(number_to_vstring(field_interpolation_parameters% &
                                        & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                                        & " is invalid for component index "// &
                                        & trim(number_to_vstring(component_idx,"*",err,error))//"."
                                    END SELECT
                                  ENDDO !component_idx
                                ENDIF
                              ELSE
                                CALL flagerror("Domain element topology is not associated.",err,error,*999)
                              ENDIF
                            ELSE
                              local_error="The specified node number of "//trim(number_to_vstring(node_number,"*",err,error))// &
                                & " is invalid. The node number needs to be > 0 and <= "// &
                                & trim(number_to_vstring(nodes_topology%NUMBER_OF_NODES,"*",err,error))//"."
                              CALL flagerror(local_error,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Nodes topology is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)          
                      ENDIF
                    ELSE
                      local_error="The specified component number of "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " is invalid. The component number must be > 0 and <= "// &
                        & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                  ELSE
                    CALL flagerror("The field variable field is not associated.",err,error,*999)
                  ENDIF
                ELSE
                  CALL flagerror("The geometric interpolation parameters field variable is not associated.",err,error,*999)
                ENDIF
              ELSE
                CALL flagerror("The field interpolation parameters field variable is not associated.",err,error,*999)
              ENDIF
            ELSE
              CALL flagerror("Geometric interpolated point interpolation parameters is not associated.",err,error,*999)
            ENDIF
          ELSE
            CALL flagerror("Field interpolated point interpolation parameters is not associated.",err,error,*999)
          ENDIF
        ELSE
          CALL flagerror("Physical point geometric interpolated point is not associated.",err,error,*999)
        ENDIF
      ELSE
        CALL flagerror("Physical point field interpolated point is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Physical point is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_INTERPOLATE_NODE")
    RETURN
999 errorsexits("FIELD_INTERPOLATE_NODE",err,error)
    RETURN 1
    
  END SUBROUTINE field_interpolate_node

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolate_field_node(PHYSICAL_DERIVATIVE_TYPE,PARAMETER_SET_TYPE,FIELD,VARIABLE_TYPE,COMPONENT_NUMBER, &
    & node_number,physical_point,err,error,*)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: physical_derivative_type
    INTEGER(INTG), INTENT(IN) :: parameter_set_type
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: node_number
    TYPE(field_physical_point_type), POINTER :: physical_point
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx,element,elem_idx,local_node_number,local_node_idx,number_of_surrounding_elements, &
      & partial_deriv_idx,xi_idx
    REAL(DP) :: xi(3),dx_dxi(3,3),dxi_dx(3,3),det_dx_dxi
    TYPE(basis_type), POINTER :: basis
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_elements_type), POINTER :: elem_topology
    TYPE(domain_nodes_type), POINTER :: nodes_topology
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_type), POINTER :: interp_field
    TYPE(field_interpolated_point_type), POINTER :: field_interpolated_point,geometric_interpolated_point
    TYPE(field_interpolation_parameters_type), POINTER :: field_interpolation_parameters,geometric_interpolation_parameters
    TYPE(field_variable_type), POINTER :: field_variable,interp_variable,geometric_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_INTERPOLATE_FIELD_NODE",err,error,*999)

    IF(ASSOCIATED(physical_point)) THEN
      field_interpolated_point=>physical_point%FIELD_INTERPOLATED_POINT
      IF(ASSOCIATED(field_interpolated_point)) THEN
        geometric_interpolated_point=>physical_point%GEOMETRIC_INTERPOLATED_POINT
        IF(ASSOCIATED(geometric_interpolated_point)) THEN
          field_interpolation_parameters=>field_interpolated_point%INTERPOLATION_PARAMETERS
          IF(ASSOCIATED(field_interpolation_parameters)) THEN
            geometric_interpolation_parameters=>geometric_interpolated_point%INTERPOLATION_PARAMETERS
            IF(ASSOCIATED(geometric_interpolation_parameters)) THEN
              interp_variable=>field_interpolation_parameters%FIELD_VARIABLE
              IF(ASSOCIATED(interp_variable)) THEN
                geometric_variable=>geometric_interpolation_parameters%FIELD_VARIABLE
                IF(ASSOCIATED(geometric_variable)) THEN
                  interp_field=>interp_variable%FIELD
                  IF(ASSOCIATED(interp_field)) THEN
                    NULLIFY(coordinate_system)
                    CALL field_coordinate_system_get(interp_field,coordinate_system,err,error,*999)
                    IF(ASSOCIATED(field)) THEN
                      NULLIFY(field_variable)
                      CALL field_variable_get(field,variable_type,field_variable,err,error,*999)
                      IF(component_number>0.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                        domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                        IF(ASSOCIATED(domain)) THEN
                          domain_topology=>domain%TOPOLOGY
                          IF(ASSOCIATED(domain_topology)) THEN
                            nodes_topology=>domain_topology%NODES
                            IF(ASSOCIATED(nodes_topology)) THEN
                              IF(node_number>0.AND.node_number<=nodes_topology%NUMBER_OF_NODES) THEN
                                elem_topology=>domain_topology%ELEMENTS
                                IF(ASSOCIATED(elem_topology)) THEN
                                  physical_point%VALUES=0.0_dp
                                  IF(physical_derivative_type==no_physical_deriv) THEN
                                    number_of_surrounding_elements=1
                                  ELSE
                                    number_of_surrounding_elements=nodes_topology%NODES(node_number)% &
                                      & number_of_surrounding_elements
                                    physical_point%VALUES=0.0_dp
                                  ENDIF
                                  !Loop over the elements surrounding the node
                                  DO elem_idx=1,number_of_surrounding_elements
                                    element=nodes_topology%NODES(node_number)%SURROUNDING_ELEMENTS(elem_idx)
                                    CALL field_interpolation_parameters_element_get(parameter_set_type,element, &
                                      & field_interpolation_parameters,err,error,*999)
                                    basis=>elem_topology%ELEMENTS(element)%BASIS
                                    IF(ASSOCIATED(basis)) THEN
                                      local_node_number=0
                                      DO local_node_idx=1,basis%NUMBER_OF_NODES
                                        IF(elem_topology%ELEMENTS(element)%ELEMENT_NODES(local_node_idx)==node_number) THEN
                                          local_node_number=local_node_idx
                                          EXIT
                                        ENDIF
                                      ENDDO
                                      IF(local_node_number/=0) THEN
                                        CALL basis_local_node_xi_calculate(basis,local_node_number,xi,err,error,*999)  
                                        SELECT CASE(physical_derivative_type)
                                        CASE(no_physical_deriv)
                                          DO component_idx=1,interp_variable%NUMBER_OF_COMPONENTS
                                            SELECT CASE(interp_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
                                            CASE(field_constant_interpolation)
                                              physical_point%VALUES(component_idx)=field_interpolation_parameters% &
                                                & parameters(1,component_idx)
                                            CASE(field_element_based_interpolation)
                                              physical_point%VALUES(component_idx)=field_interpolation_parameters% &
                                                & parameters(1,component_idx)
                                            CASE(field_node_based_interpolation)
                                              physical_point%VALUES(component_idx)=basis_interpolate_xi( &
                                                & field_interpolation_parameters%BASES(component_idx)%PTR,no_part_deriv, &
                                                & xi,field_interpolation_parameters%PARAMETERS(:,component_idx),err,error)
                                              IF(err/=0) GOTO 999
                                            CASE(field_grid_point_based_interpolation)
                                              CALL flagerror("Not implemented.",err,error,*999)
                                            CASE(field_gauss_point_based_interpolation)
                                              CALL flagerror("Not implemented.",err,error,*999)
                                            CASE(field_data_point_based_interpolation)
                                              CALL flagerror("Not implemented.",err,error,*999)
                                            CASE DEFAULT
                                              local_error="The field component interpolation type of "// &
                                                & trim(number_to_vstring(interp_variable%COMPONENTS(component_idx)% &
                                                & interpolation_type,"*",err,error))//" is invalid for component index "// &
                                                & trim(number_to_vstring(component_idx,"*",err,error))//"."
                                            END SELECT
                                          ENDdo! component_idx
                                          physical_point%PHYSICAL_DERIVATIVE_TYPE=no_physical_deriv
                                        CASE(gradient_physical_deriv)
                                          DO component_idx=1,interp_variable%NUMBER_OF_COMPONENTS
                                            SELECT CASE(interp_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
                                            CASE(field_constant_interpolation)
                                              !There is no gradient for constant interpolation
                                              physical_point%VALUES(component_idx)=0.0_dp
                                            CASE(field_element_based_interpolation)
                                              !There is no graident for element interpolation
                                              physical_point%VALUES(component_idx)=0.0_dp
                                            CASE(field_node_based_interpolation)
                                              CALL field_interpolation_parameters_element_get(field_values_set_type,element, &
                                                & geometric_interpolation_parameters,err,error,*999)
                                              !Now process all the first partial derivatives
                                              DO xi_idx=1,field_interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                                                partial_deriv_idx=partial_derivative_first_derivative_map(xi_idx)
                                                !Interpolate the field
                                                field_interpolated_point%VALUES(component_idx,partial_deriv_idx) = &
                                                  & basis_interpolate_xi(field_interpolation_parameters%BASES(component_idx)%PTR, &
                                                  & partial_deriv_idx,xi,field_interpolation_parameters%PARAMETERS(:, &
                                                  & component_idx),err,error)
                                                IF(err/=0) GOTO 999
                                                CALL coordinate_interpolation_adjust(coordinate_system,partial_deriv_idx, &
                                                  & field_interpolated_point%VALUES(component_idx,partial_deriv_idx),err,error,*999)
                                                geometric_interpolated_point%VALUES(component_idx,partial_deriv_idx) = &
                                                  & basis_interpolate_xi(geometric_interpolation_parameters%BASES(component_idx)% &
                                                  & ptr,partial_deriv_idx,xi,geometric_interpolation_parameters%PARAMETERS(:, &
                                                  & component_idx),err,error)
                                                IF(err/=0) GOTO 999
                                                CALL coordinate_interpolation_adjust(coordinate_system,partial_deriv_idx, &
                                                  & geometric_interpolated_point%VALUES(component_idx,partial_deriv_idx), &
                                                  & err,error,*999)
                                                dx_dxi(component_idx,xi_idx)=geometric_interpolated_point% &
                                                  & values(component_idx,partial_deriv_idx)
                                              ENDDO !xi_idx
                                            CASE(field_grid_point_based_interpolation)
                                              CALL flagerror("Not implemented.",err,error,*999)
                                            CASE(field_gauss_point_based_interpolation)
                                              CALL flagerror("Not implemented.",err,error,*999)
                                            CASE(field_data_point_based_interpolation)
                                              CALL flagerror("Not implemented.",err,error,*999)
                                            CASE DEFAULT
                                              local_error="The field component interpolation type of "// &
                                                & trim(number_to_vstring(field_interpolation_parameters% &
                                                & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                                                & " is invalid for component index "// &
                                                & trim(number_to_vstring(component_idx,"*",err,error))//"."
                                            END SELECT
                                          ENDdo! component_idx
                                          !Form the physical derivative
                                          CALL invert(dx_dxi,dxi_dx,det_dx_dxi,err,error,*999)
                                          DO component_idx=1,interp_variable%NUMBER_OF_COMPONENTS
                                            DO xi_idx=1,field_interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                                              partial_deriv_idx=partial_derivative_first_derivative_map(xi_idx)
                                              physical_point%VALUES(component_idx)=physical_point%VALUES(component_idx)+ &
                                                & field_interpolated_point%VALUES(component_idx,partial_deriv_idx)* &
                                                & dxi_dx(xi_idx,component_idx)
                                            ENDDO !xi_idx
                                          ENDDO !component_idx
                                          physical_point%PHYSICAL_DERIVATIVE_TYPE=gradient_physical_deriv
                                        CASE DEFAULT
                                          local_error="The physical derivative type of "// &
                                            & trim(number_to_vstring(physical_derivative_type,"*",err,error))//" is invalid."
                                          CALL flagerror(local_error,err,error,*999)
                                        END SELECT
                                      ELSE
                                        local_error="Could not find the local node for node "// &
                                          & trim(number_to_vstring(node_number,"*",err,error))//" in element number "// &
                                          & trim(number_to_vstring(element,"*",err,error))//"."
                                        CALL flagerror(local_error,err,error,*999)
                                      ENDIF
                                    ELSE
                                      local_error="The basis for element "//trim(number_to_vstring(element,"*",err,error))// &
                                        & " is not associated."
                                      CALL flagerror(local_error,err,error,*999)
                                    ENDIF
                                  ENDDO !elem_idx
                                  IF(physical_derivative_type==no_physical_deriv) THEN
                                    !Now calculate the average of the interpolated physical point
                                    DO component_idx=1,interp_variable%NUMBER_OF_COMPONENTS
                                      SELECT CASE(interp_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
                                      CASE(field_constant_interpolation)
                                        !Do nothing
                                      CASE(field_element_based_interpolation)
                                        !Do nothing
                                      CASE(field_node_based_interpolation)                                      
                                        physical_point%VALUES(component_idx)=physical_point%VALUES(component_idx)/ &
                                          & REAL(number_of_surrounding_elements,dp)
                                      CASE(field_grid_point_based_interpolation)
                                        CALL flagerror("Not implemented.",err,error,*999)
                                      CASE(field_gauss_point_based_interpolation)
                                        CALL flagerror("Not implemented.",err,error,*999)
                                      CASE(field_data_point_based_interpolation)
                                        CALL flagerror("Not implemented.",err,error,*999)
                                      CASE DEFAULT
                                        local_error="The field component interpolation type of "// &
                                          & trim(number_to_vstring(interp_variable%COMPONENTS(component_idx)% &
                                          & interpolation_type,"*",err,error))// &
                                          & " is invalid for component index "// &
                                          & trim(number_to_vstring(component_idx,"*",err,error))//"."
                                      END SELECT
                                    ENDDO !component_idx
                                  ENDIF
                                ELSE
                                  CALL flagerror("Domain element topology is not associated.",err,error,*999)
                                ENDIF
                              ELSE
                                local_error="The specified node number of "//trim(number_to_vstring(node_number,"*",err,error))// &
                                  & " is invalid. The node number needs to be > 0 and <= "// &
                                  & trim(number_to_vstring(nodes_topology%NUMBER_OF_NODES,"*",err,error))//"."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ELSE
                              CALL flagerror("Nodes topology is not associated.",err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Domain topology is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain is not associated.",err,error,*999)          
                        ENDIF
                      ELSE
                        local_error="The specified component number of "// &
                          & trim(number_to_vstring(component_number,"*",err,error))// &
                          & " is invalid. The component number must be > 0 and <= "// &
                          & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//"."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    ELSE
                      CALL flagerror("Field is not associated.",err,error,*999)
                    ENDIF
                  ELSE
                    CALL flagerror("The field variable field is not associated.",err,error,*999)
                  ENDIF
                ELSE
                  CALL flagerror("The geometric interpolation parameters field variable is not associated.",err,error,*999)
                ENDIF
              ELSE
                CALL flagerror("The field interpolation parameters field variable is not associated.",err,error,*999)
              ENDIF
            ELSE
              CALL flagerror("Geometric interpolated point interpolation parameters is not associated.",err,error,*999)
            ENDIF
          ELSE
            CALL flagerror("Field interpolated point interpolation parameters is not associated.",err,error,*999)
          ENDIF
        ELSE
          CALL flagerror("Physical point geometric interpolated point is not associated.",err,error,*999)
        ENDIF
      ELSE
        CALL flagerror("Physical point field interpolated point is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Physical point is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_INTERPOLATE_FIELD_NODE")
    RETURN
999 errorsexits("FIELD_INTERPOLATE_FIELD_NODE",err,error)
    RETURN 1
    
  END SUBROUTINE field_interpolate_field_node

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolate_local_face_gauss(PARTIAL_DERIVATIVE_TYPE,QUADRATURE_SCHEME,LOCAL_FACE_NUMBER, &
    & gauss_point_number,interpolated_point,err,error,*,componenttype)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: partial_derivative_type
    INTEGER(INTG), INTENT(IN) :: quadrature_scheme
    INTEGER(INTG), INTENT(IN) :: local_face_number
    INTEGER(INTG), INTENT(IN) :: gauss_point_number
    TYPE(field_interpolated_point_type), POINTER :: interpolated_point
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    INTEGER(INTG), OPTIONAL, INTENT(IN) :: componenttype
    !Local Variables
    INTEGER(INTG) :: component_idx,ni,nu,startcomponentidx,endcomponentidx
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(field_type), POINTER :: field
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    TYPE(varying_string) :: local_error

    enters("FIELD_INTERPOLATE_LOCAL_FACE_GAUSS",err,error,*999)

    IF(ASSOCIATED(interpolated_point)) THEN
      interpolation_parameters=>interpolated_point%INTERPOLATION_PARAMETERS
      IF(ASSOCIATED(interpolation_parameters)) THEN
        field=>interpolation_parameters%FIELD
        IF(ASSOCIATED(field)) THEN
          NULLIFY(coordinate_system)
          CALL field_coordinate_system_get(field,coordinate_system,err,error,*999)
          IF(PRESENT(componenttype)) THEN
            SELECT CASE(componenttype)
            CASE(field_all_components_type)
              startcomponentidx=1
              endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
            CASE(field_geometric_components_type)
              IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                startcomponentidx=1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(FIELD_U_VARIABLE_TYPE)%PTR% &
                  & number_of_components
              ELSEIF(interpolation_parameters%FIELD%TYPE==field_geometric_type) THEN
                startcomponentidx=1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
              ELSE
                local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                  & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE(field_nongeometric_components_type)
              IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                startcomponentidx=-interpolation_parameters%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(field_u_variable_type)% &
                  & ptr%NUMBER_OF_COMPONENTS+1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
              ELSE
                local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                  & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE DEFAULT
              local_error="Interpolation component type "//trim(number_to_vstring(componenttype,"*",err,error))//" is not valid."
                CALL flagerror(local_error,err,error,*999)
            END SELECT
          ELSE
            startcomponentidx=1
            endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
          ENDIF
          SELECT CASE(partial_derivative_type)
          CASE(no_part_deriv)
            DO component_idx=startcomponentidx,endcomponentidx
              SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
              CASE(field_element_based_interpolation)
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)              
              CASE(field_node_based_interpolation)
!                 INTERPOLATED_POINT%VALUES(component_idx,1)=BASIS_INTERPOLATE_GAUSS(INTERPOLATION_PARAMETERS%BASES( &
!                   & component_idx)%PTR,NO_PART_DERIV,QUADRATURE_SCHEME,GAUSS_POINT_NUMBER,INTERPOLATION_PARAMETERS% &
!                   & PARAMETERS(:,component_idx),ERR,ERROR)
                interpolated_point%VALUES(component_idx,1)=basis_interpolate_local_face_gauss(interpolation_parameters%BASES( &
                  & component_idx)%PTR,no_part_deriv,quadrature_scheme,local_face_number,gauss_point_number, &
                  & interpolation_parameters%PARAMETERS(:,component_idx),err,error)
                IF(err/=0) GOTO 999
              CASE(field_grid_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_data_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(interpolation_parameters% &
                  & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component index "//trim(number_to_vstring(component_idx,"*",err,error))//"."
              END SELECT
              CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                & err,error,*999)
            ENDdo! component_idx
            interpolated_point%PARTIAL_DERIVATIVE_TYPE=no_part_deriv
          CASE(first_part_deriv)
            DO component_idx=startcomponentidx,endcomponentidx
              SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process all the first partial derivatives
                DO ni=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                  nu=partial_derivative_first_derivative_map(ni)
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !ni
              CASE(field_element_based_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process all the first partial derivatives
                DO ni=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                  nu=partial_derivative_first_derivative_map(ni)
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !ni
              CASE(field_node_based_interpolation)
                !Handle the first case of no partial derivative
!                 INTERPOLATED_POINT%VALUES(component_idx,1)=BASIS_INTERPOLATE_GAUSS(INTERPOLATION_PARAMETERS%BASES( &
!                   & component_idx)%PTR,NO_PART_DERIV,QUADRATURE_SCHEME,GAUSS_POINT_NUMBER,INTERPOLATION_PARAMETERS% &
!                   & PARAMETERS(:,component_idx),ERR,ERROR)
                interpolated_point%VALUES(component_idx,1)=basis_interpolate_local_face_gauss(interpolation_parameters%BASES( &
                  & component_idx)%PTR,no_part_deriv,quadrature_scheme,local_face_number,gauss_point_number, &
                  & interpolation_parameters%PARAMETERS(:,component_idx),err,error)
                IF(err/=0) GOTO 999
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process all the first partial derivatives
                DO ni=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                  nu=partial_derivative_first_derivative_map(ni)
!                   INTERPOLATED_POINT%VALUES(component_idx,nu)=BASIS_INTERPOLATE_GAUSS(INTERPOLATION_PARAMETERS% &
!                     & BASES(component_idx)%PTR,nu,QUADRATURE_SCHEME,GAUSS_POINT_NUMBER, &
!                     & INTERPOLATION_PARAMETERS%PARAMETERS(:,component_idx),ERR,ERROR)
                interpolated_point%VALUES(component_idx,nu)=basis_interpolate_local_face_gauss(interpolation_parameters%BASES( &
                  & component_idx)%PTR,nu,quadrature_scheme,local_face_number,gauss_point_number, &
                  & interpolation_parameters%PARAMETERS(:,component_idx),err,error)
                  IF(err/=0) GOTO 999
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !ni
              CASE(field_grid_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_data_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(interpolation_parameters% &
                  & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component index "//trim(number_to_vstring(component_idx,"*",err,error))//"."
              END SELECT
            ENDdo! component_idx
            interpolated_point%PARTIAL_DERIVATIVE_TYPE=first_part_deriv
          CASE(second_part_deriv)
            DO component_idx=startcomponentidx,endcomponentidx
              SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process the rest of partial derivatives
                DO nu=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_PARTIAL_DERIVATIVES
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !nu
              CASE(field_element_based_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process the rest of partial derivatives
                DO nu=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_PARTIAL_DERIVATIVES
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !nu
              CASE(field_node_based_interpolation)              
                DO nu=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_PARTIAL_DERIVATIVES
!                   INTERPOLATED_POINT%VALUES(component_idx,nu)=BASIS_INTERPOLATE_GAUSS(INTERPOLATION_PARAMETERS% &
!                     & BASES(component_idx)%PTR,nu,QUADRATURE_SCHEME,GAUSS_POINT_NUMBER, &
!                     & INTERPOLATION_PARAMETERS%PARAMETERS(:,component_idx),ERR,ERROR)
                interpolated_point%VALUES(component_idx,nu)=basis_interpolate_local_face_gauss(interpolation_parameters%BASES( &
                  & component_idx)%PTR,nu,quadrature_scheme,local_face_number,gauss_point_number, &
                  & interpolation_parameters%PARAMETERS(:,component_idx),err,error)
                  IF(err/=0) GOTO 999
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDdo! nu
              CASE(field_grid_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_data_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(interpolation_parameters% &
                  & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component index "//trim(number_to_vstring(component_idx,"*",err,error))//"."
              END SELECT
            ENDDO !component_idx
            interpolated_point%PARTIAL_DERIVATIVE_TYPE=second_part_deriv
          CASE DEFAULT
            local_error="The partial derivative type of "//trim(number_to_vstring(partial_derivative_type,"*",err,error))// &
              & " is invalid."
            CALL flagerror(local_error,err,error,*999)
          END SELECT
        ELSE
          CALL flagerror("The interpolation parameters field is not associated.",err,error,*999)
        ENDIF
      ELSE
        CALL flagerror("Interpolated point interpolation parameters is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Interpolated point is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_INTERPOLATE_LOCAL_FACE_GAUSS")
    RETURN
999 errorsexits("FIELD_INTERPOLATE_LOCAL_FACE_GAUSS",err,error)
    RETURN 1
  END SUBROUTINE field_interpolate_local_face_gauss

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolate_xi(PARTIAL_DERIVATIVE_TYPE,XI,INTERPOLATED_POINT,ERR,ERROR,*,componentType)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: partial_derivative_type
    REAL(DP), INTENT(IN) :: xi(:)
    TYPE(field_interpolated_point_type), POINTER :: interpolated_point
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    INTEGER(INTG), OPTIONAL, INTENT(IN) :: componenttype
    !Local Variables
    INTEGER(INTG) :: component_idx,ni,nu,startcomponentidx,endcomponentidx
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(field_type), POINTER :: field
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    TYPE(varying_string) :: local_error

    enters("FIELD_INTERPOLATE_XI",err,error,*999)

    IF(ASSOCIATED(interpolated_point)) THEN
      interpolation_parameters=>interpolated_point%INTERPOLATION_PARAMETERS
      IF(ASSOCIATED(interpolation_parameters)) THEN
        !!TODO: Fix this check. You can have less Xi directions than the mesh number of dimensions e.g., interpolating a line
        !IF(SIZE(XI,1)>=INTERPOLATION_PARAMETERS%FIELD%DECOMPOSITION%MESH%NUMBER_OF_DIMENSIONS) THEN
        field=>interpolation_parameters%FIELD
        IF(ASSOCIATED(field)) THEN
          NULLIFY(coordinate_system)
          CALL field_coordinate_system_get(field,coordinate_system,err,error,*999)
          IF(PRESENT(componenttype)) THEN
            SELECT CASE(componenttype)
            CASE(field_all_components_type)
              startcomponentidx=1
              endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
            CASE(field_geometric_components_type)
              IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                startcomponentidx=1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(FIELD_U_VARIABLE_TYPE)%PTR% &
                  & number_of_components
              ELSEIF(interpolation_parameters%FIELD%TYPE==field_geometric_type) THEN
                startcomponentidx=1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
              ELSE
                local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                  & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE(field_nongeometric_components_type)
              IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                startcomponentidx=-interpolation_parameters%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(field_u_variable_type)% &
                  & ptr%NUMBER_OF_COMPONENTS+1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
              ELSE
                local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                  & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            CASE DEFAULT
              local_error="Interpolation component type "//trim(number_to_vstring(componenttype,"*",err,error))//" is not valid."
                CALL flagerror(local_error,err,error,*999)
            END SELECT
          ELSE
            startcomponentidx=1
            endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
          ENDIF
          SELECT CASE(partial_derivative_type)
          CASE(no_part_deriv)
            DO component_idx=startcomponentidx,endcomponentidx
              SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
              CASE(field_element_based_interpolation)
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)              
              CASE(field_node_based_interpolation)
                interpolated_point%VALUES(component_idx,1)=basis_interpolate_xi(interpolation_parameters% &
                  & bases(component_idx)%PTR,no_part_deriv,xi,interpolation_parameters%PARAMETERS(:,component_idx),err,error)
                IF(err/=0) GOTO 999
              CASE(field_grid_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_data_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(interpolation_parameters% &
                  & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component index "//trim(number_to_vstring(component_idx,"*",err,error))//"."
              END SELECT
              CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                & err,error,*999)
            ENDDO !component_idx
            interpolated_point%PARTIAL_DERIVATIVE_TYPE=no_part_deriv
          CASE(first_part_deriv)
            DO component_idx=startcomponentidx,endcomponentidx
              SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process all the first partial derivatives
                DO ni=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                  nu=partial_derivative_first_derivative_map(ni)
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !ni
              CASE(field_element_based_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process all the first partial derivatives
                DO ni=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                  nu=partial_derivative_first_derivative_map(ni)
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !ni
              CASE(field_node_based_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=basis_interpolate_xi(interpolation_parameters% &
                  & bases(component_idx)%PTR,no_part_deriv,xi,interpolation_parameters%PARAMETERS(:,component_idx),err,error)
                IF(err/=0) GOTO 999
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process all the first partial derivatives
                DO ni=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_XI
                  nu=partial_derivative_first_derivative_map(ni)
                  interpolated_point%VALUES(component_idx,nu)=basis_interpolate_xi(interpolation_parameters% &
                    & bases(component_idx)%PTR,nu,xi,interpolation_parameters%PARAMETERS(:,component_idx), &
                    & err,error)
                  IF(err/=0) GOTO 999
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !ni
              CASE(field_grid_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_data_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(interpolation_parameters% &
                  & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component index "//trim(number_to_vstring(component_idx,"*",err,error))//"."
              END SELECT
            ENDDO !component_idx
            interpolated_point%PARTIAL_DERIVATIVE_TYPE=first_part_deriv
          CASE(second_part_deriv)
            DO component_idx=startcomponentidx,endcomponentidx
              SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process the rest of partial derivatives
                DO nu=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_PARTIAL_DERIVATIVES
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !nu
              CASE(field_element_based_interpolation)
                !Handle the first case of no partial derivative
                interpolated_point%VALUES(component_idx,1)=interpolation_parameters%PARAMETERS(1,component_idx)
                CALL coordinate_interpolation_adjust(coordinate_system,no_part_deriv,interpolated_point%VALUES(component_idx,1), &
                  & err,error,*999)
                !Now process the rest of partial derivatives
                DO nu=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_PARTIAL_DERIVATIVES
                  interpolated_point%VALUES(component_idx,nu)=0.0_dp
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDDO !nu
              CASE(field_node_based_interpolation)              
                DO nu=1,interpolation_parameters%BASES(component_idx)%PTR%NUMBER_OF_PARTIAL_DERIVATIVES
                  interpolated_point%VALUES(component_idx,nu)=basis_interpolate_xi(interpolation_parameters% &
                    & bases(component_idx)%PTR,nu,xi,interpolation_parameters%PARAMETERS(:,component_idx), &
                    & err,error)
                  IF(err/=0) GOTO 999
                  CALL coordinate_interpolation_adjust(coordinate_system,nu,interpolated_point%VALUES(component_idx,nu), &
                    & err,error,*999)
                ENDdo! nu
              CASE(field_grid_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_data_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE DEFAULT
                local_error="The field component interpolation type of "//trim(number_to_vstring(interpolation_parameters% &
                  & field_variable%COMPONENTS(component_idx)%INTERPOLATION_TYPE,"*",err,error))// &
                  & " is invalid for component index "//trim(number_to_vstring(component_idx,"*",err,error))//"."
              END SELECT
            ENDDO !component_idx
            interpolated_point%PARTIAL_DERIVATIVE_TYPE=second_part_deriv
          CASE DEFAULT
            local_error="The partial derivative type of "//trim(number_to_vstring(partial_derivative_type,"*",err,error))// &
              & " is invalid."
            CALL flagerror(local_error,err,error,*999)
          END SELECT
        ELSE
          CALL flagerror("The interpolation parameters field is not associated.",err,error,*999)
        ENDIF
        !ELSE
        !  LOCAL_ERROR="Invalid number of Xi directions. The supplied Xi has "// &
        !    & TRIM(NUMBER_TO_VSTRING(SIZE(XI,1),"*",ERR,ERROR))//" directions and the required number of directions is "// &
        !    & TRIM(NUMBER_TO_VSTRING(INTERPOLATED_POINT%INTERPOLATION_PARAMETERS%FIELD%DECOMPOSITION%MESH%NUMBER_OF_DIMENSIONS, &
        !    & "*",ERR,ERROR))
        !  CALL FlagError(LOCAL_ERROR,ERR,ERROR,*999)
        !ENDIF
      ELSE
        CALL flagerror("Interpolated point interpolation parameters is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Interpolated point is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_INTERPOLATE_XI")
    RETURN
999 errorsexits("FIELD_INTERPOLATE_XI",err,error)
    RETURN 1
  END SUBROUTINE field_interpolate_xi

  !
  !================================================================================================================================
  !

  SUBROUTINE field_positionnormaltangentscalculateintptmetric(INTERPOLATED_POINT_METRICS,reverseNormal, &
    & position,normal,tangents,err,error,*)

    !Argument variables
    TYPE(field_interpolated_point_metrics_type), POINTER, INTENT(IN) :: interpolated_point_metrics
    LOGICAL, INTENT(IN) :: reversenormal
    REAL(DP), INTENT(OUT) :: position(:)
    REAL(DP), INTENT(OUT) :: normal(:)
    REAL(DP), INTENT(OUT) :: tangents(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dimension_idx,xi_idx
    TYPE(field_interpolated_point_type), POINTER :: interpolated_point
    TYPE(varying_string) :: local_error
 
    enters("Field_PositionNormalTangentsCalculateIntPtMetric",err,error,*999)

    IF(ASSOCIATED(interpolated_point_metrics)) THEN
      IF(SIZE(position,1)>=interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS) THEN
        IF(SIZE(normal,1)>=interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS) THEN
          IF(SIZE(tangents,1)>=interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS) THEN
            IF(SIZE(tangents,2)>=interpolated_point_metrics%NUMBER_OF_XI_DIMENSIONS) THEN
              interpolated_point=>interpolated_point_metrics%INTERPOLATED_POINT
              IF(ASSOCIATED(interpolated_point)) THEN
                position=interpolated_point%VALUES(1:interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,no_part_deriv)
                SELECT CASE(interpolated_point_metrics%NUMBER_OF_XI_DIMENSIONS)
                CASE(1) !For lines
                  normal=0.0_dp
                  DO dimension_idx=1,interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS
                    tangents(dimension_idx,1)=interpolated_point_metrics%DX_DXI &
                      & (dimension_idx,1)
                  ENDDO !dimension_idx 
                  tangents(1:interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,1)= &
                    & normalise(tangents(1:interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,1),err,error)
                  normal(1)=tangents(2,1)
                  normal(2)=tangents(1,1)
                  IF(err/=0) GOTO 999     
                CASE(2) !For faces
                  normal=0.0_dp
                  DO xi_idx=1,interpolated_point_metrics%NUMBER_OF_XI_DIMENSIONS
                    DO dimension_idx=1,interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS
                      tangents(dimension_idx,xi_idx)=interpolated_point_metrics%DX_DXI(dimension_idx,xi_idx)
                    ENDDO !dimension_idx
                    tangents(1:interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,xi_idx)= &
                      & normalise(tangents(1:interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,xi_idx),err,error)
                    IF(err/=0) GOTO 999
                  ENDDO !xi_idx
                  CALL cross_product(tangents(1:interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,1), &
                    & tangents(1:interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,2),normal,err,error,*999)
                  IF(reversenormal) normal=-normal
                CASE DEFAULT
                  local_error="The interpolated metrics must be for lines/faces, dimension of " &
                    & //trim(number_to_vstring(interpolated_point_metrics%NUMBER_OF_XI_DIMENSIONS,"*",err,error))//" is invalid."
                  CALL flagerror(local_error,err,error,*999)    
                END SELECT
              ELSE
                CALL flagerror("Interpolated point metrics interpolated point is not associted.",err,error,*999)
              ENDIF
            ELSE
              local_error="The size of the 2nd dimension of tangents of "// &
                & trim(number_to_vstring(SIZE(tangents,2),"*",err,error))//" is too small. The size must be >= "// &
                & trim(number_to_vstring(interpolated_point_metrics%NUMBER_OF_XI_DIMENSIONS,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The size of the 1st dimension of tangents of "// &
              & trim(number_to_vstring(SIZE(tangents,1),"*",err,error))//" is too small. The size must be >= "// &
              & trim(number_to_vstring(interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The size of normal of "//trim(number_to_vstring(SIZE(normal,1),"*",err,error))// &
            & " is too small. The size must be >= "// &
            & trim(number_to_vstring(interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)          
        ENDIF
      ELSE
        local_error="The size of position of "//trim(number_to_vstring(SIZE(position,1),"*",err,error))// &
          & " is too small. The size must be >= "// &
          & trim(number_to_vstring(interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)          
      ENDIF
    ELSE
      CALL flagerror("Interpolated point metrics is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string(diagnostic_output_type,"Interpolated point metrics data:",err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of X dimensions = ", &
        & interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of Xi dimensions = ", &
        & interpolated_point_metrics%NUMBER_OF_XI_DIMENSIONS,err,error,*999)
      CALL write_string_vector(general_output_type,1,1,interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,3,3, &
        & position,'("  Position    :",3(X,E13.6))','(15X,3(X,E13.6))',err,error,*999)
      CALL write_string_vector(general_output_type,1,1,interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,3,3, &
        & normal,'("  Normal      :",3(X,E13.6))','(15X,3(X,E13.6))',err,error,*999)
      CALL write_string(diagnostic_output_type,"  Tangents:",err,error,*999)
      DO xi_idx=1,interpolated_point_metrics%NUMBER_OF_XI_DIMENSIONS
        CALL write_string_value(diagnostic_output_type,"    Tangent : ",xi_idx,err,error,*999)
        CALL write_string_vector(general_output_type,1,1,interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS,3,3, &
          & tangents(:,xi_idx),'("      Tangent :",3(X,E13.6))','(15X,3(X,E13.6))',err,error,*999)        
      ENDDO !xi_idx
    ENDIF
    
    exits("Field_PositionNormalTangentsCalculateIntPtMetric")
    RETURN
999 errors("Field_PositionNormalTangentsCalculateIntPtMetric",err,error)
    exits("Field_PositionNormalTangentsCalculateIntPtMetric")
    RETURN 1
    
  END SUBROUTINE field_positionnormaltangentscalculateintptmetric

  !
  !================================================================================================================================
  !

  SUBROUTINE field_positionnormaltangentscalculatenode(FIELD,VARIABLE_TYPE,COMPONENT_NUMBER,LOCAL_NODE_NUMBER, &
    & position,normal,tangents,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER, INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: local_node_number
    REAL(DP), INTENT(OUT) :: position(:)
    REAL(DP), INTENT(OUT) :: normal(:)
    REAL(DP), INTENT(OUT) :: tangents(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dims,index_match
    INTEGER(INTG) :: nic,component_idx,derivative_idx,xi_idx,element,element_idx,local_node,local_node_idx
    REAL(DP) :: xi(3), vec(3), dxdxi(3,3) ! Note VEC, DXDXI sizes are fixed, but it doesn't matter so much
    INTEGER(INTG) :: tangent_idx,tangent_xi_idx
    TYPE(basis_type), POINTER :: basis
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_elements_type), POINTER :: domain_elements
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: topology
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomp_topology
    TYPE(decomposition_elements_type), POINTER :: decomp_elements
    TYPE(field_type), POINTER :: geometric_field
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(field_interpolation_parameters_ptr_type), POINTER :: interpolation_parameters(:)
    TYPE(field_interpolated_point_ptr_type), POINTER :: interpolated_points(:)
    TYPE(varying_string) :: local_error

    enters("Field_PositionNormalTangentsCalculateNode",err,error,*999)

    NULLIFY(field_variable)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        geometric_field=>field%GEOMETRIC_FIELD
        IF(ASSOCIATED(geometric_field)) THEN
          IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
            CALL field_variable_get(field,variable_type,field_variable,err,error,*999)
            IF(ASSOCIATED(field_variable)) THEN
              dims=geometric_field%VARIABLES(1)%NUMBER_OF_COMPONENTS !\TODO: clean this up
!               DIMS=FIELD_VARIABLE%NUMBER_OF_COMPONENTS !\TODO: clean this up
              IF(component_number>=1.AND.component_number<=dims) THEN
                domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                IF(ASSOCIATED(domain)) THEN
                  topology=>domain%TOPOLOGY
                  IF(ASSOCIATED(topology)) THEN
                    decomposition=>field%DECOMPOSITION
                    IF(ASSOCIATED(decomposition)) THEN
                      decomp_topology=>decomposition%TOPOLOGY
                      IF(ASSOCIATED(decomp_topology)) THEN
                        decomp_elements=>decomp_topology%ELEMENTS
                        IF(ASSOCIATED(decomp_elements)) THEN
                          IF(SIZE(position,1)>=dims) THEN
                            IF(SIZE(normal,1)>=dims) THEN
                              IF(SIZE(tangents,1)>=dims) THEN
                                IF(SIZE(dxdxi,1)>=dims) THEN
                                  SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                                  CASE(field_constant_interpolation)
                                    local_error="Cannot compute the normal at a node for component number "// &
                                      & trim(number_to_vstring(component_number,"*",err,error))//" for variable type "// &
                                      & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                      & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                                      & " which has constant interpolation."
                                    CALL flagerror(local_error,err,error,*999)
                                  CASE(field_element_based_interpolation)
                                    local_error="Cannot compute the normal at a node for component number "// &
                                      & trim(number_to_vstring(component_number,"*",err,error))//" for variable type "// &
                                      & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                      & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based&
                                      & interpolation."
                                    CALL flagerror(local_error,err,error,*999)
                                  CASE(field_node_based_interpolation)
                                    domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                                    IF(ASSOCIATED(domain)) THEN
                                      topology=>domain%TOPOLOGY
                                      IF(ASSOCIATED(topology)) THEN
                                        domain_elements=>topology%ELEMENTS
                                        IF(ASSOCIATED(domain_elements)) THEN
                                          domain_nodes=>topology%NODES
                                          IF(ASSOCIATED(domain_nodes)) THEN
                                            IF(local_node_number>0.AND.local_node_number<=domain_nodes%NUMBER_OF_NODES) THEN
                                              !Normal & tangent will be calculated as averages in all surrounding elements. This is
                                              !because there could be discontinuity in the surface gradients across elements.
                                              position(1:dims)=0.0_dp
                                              dxdxi=0.0_dp
                                              normal(1:dims)=0.0_dp
                                              CALL field_interpolation_parameters_initialise(geometric_field, &
                                                & interpolation_parameters,err,error,*999)
                                              CALL field_interpolated_points_initialise(interpolation_parameters, &
                                                & interpolated_points,err,error,*999)
                                              DO element_idx=1,domain_nodes%NODES(local_node_number)%NUMBER_OF_SURROUNDING_ELEMENTS
                                                element=domain_nodes%NODES(local_node_number)%SURROUNDING_ELEMENTS(element_idx)
                                                basis=>domain_elements%ELEMENTS(element)%BASIS
                                                !Find local node number in the basis
                                                local_node=0
                                                DO local_node_idx=1,basis%NUMBER_OF_NODES
                                                  IF(domain_elements%ELEMENTS(element)%ELEMENT_NODES(local_node_idx)== &
                                                    & local_node_number) THEN
                                                    local_node=local_node_idx
                                                    EXIT
                                                  ENDIF
                                                ENDDO !local_node_idx
                                                !Find the xi position of the node in the element. In most cases this will be 0,1.0 etc
                                                ! but in some cases the geometric field may not contain this node in which case xi can be
                                                ! arbitrary
                                                CALL basis_local_node_xi_calculate(basis,local_node,xi,err,error,*999)
                                                !Interpolate the geometric field at the xi position.
                                                CALL field_interpolation_parameters_element_get(field_values_set_type,element, &
                                                  & interpolation_parameters(field_u_variable_type)%PTR,err,error,*999)
                                                CALL field_interpolate_xi(first_part_deriv,xi(1:basis%NUMBER_OF_XI), &
                                                  & interpolated_points(field_u_variable_type)%PTR,err,error,*999)
                                                !Grab the position. This shouldn't vary between elements so do it once only
                                                IF(element_idx==1) position(1:dims)=interpolated_points(field_u_variable_type)% &
                                                  & ptr%VALUES(1:dims,no_part_deriv)
                                                !Get DXDXI
                                                !\todo: What if the surrounding elements have different number of xi? then DXDXI will be different in size.
                                                !       Which one do we return in that case?
                                                DO component_idx=1,dims
                                                  DO xi_idx=1,basis%NUMBER_OF_XI
                                                    derivative_idx=partial_derivative_first_derivative_map(xi_idx) !2,4,7
                                                    dxdxi(component_idx,xi_idx)=interpolated_points(field_u_variable_type)%PTR% &
                                                      & values(component_idx,derivative_idx) !dx/dxi
                                                  ENDDO
                                                ENDDO
                                                !Calculate the tangents and normal vectors
                                                IF(domain_nodes%NODES(local_node_number)%BOUNDARY_NODE) THEN
                                                  SELECT CASE(basis%TYPE)
                                                  CASE(basis_lagrange_hermite_tp_type)
                                                    DO nic=-basis%NUMBER_OF_XI_COORDINATES,basis%NUMBER_OF_XI_COORDINATES
                                                      IF(decomp_elements%ELEMENTS(element)%ADJACENT_ELEMENTS(abs(nic))% &
                                                        & number_of_adjacent_elements==0) THEN
                                                        IF(nic>0) THEN
                                                          index_match=basis%NUMBER_OF_NODES_XIC(abs(nic))
                                                        ELSEIF(nic<0) THEN
                                                          index_match=1
                                                        ENDIF
                                                        IF(basis%NODE_POSITION_INDEX(local_node,abs(nic))==index_match) THEN
                                                          !1D/2D/3D: tangents and normal
                                                          SELECT CASE(basis%NUMBER_OF_XI)
                                                          CASE(1)
                                                            !There are no tangents. We can provide a normal, but no need to sum and average,
                                                            ! since in a 1D mesh, a boundary node won't be share with other elements.
                                                            normal(1:dims)=dxdxi(1:dims,1)
                                                          CASE(2)
                                                            !One tangent vector, one normal vector
                                                            tangents=0.0_dp
                                                            tangent_xi_idx=other_xi_directions2(abs(nic))
                                                            vec(1:dims)=dxdxi(1:dims,tangent_xi_idx)
                                                            vec(1:dims)=normalise(vec(1:dims),err,error)
                                                            tangents(1:dims,1)=tangents(1:dims,1)+ &
                                                              & vec(1:dims)
                                                            !Normal is the other component in DXDXI (correct?) Ensure the direction is outward
                                                            vec(1:dims)=dxdxi(1:dims,abs(nic))
                                                            IF(nic<0) vec=-vec
                                                            normal(1:dims)=normal(1:dims)+ &
                                                              & normalise(vec(1:dims),err,error)
                                                          CASE(3)
                                                            !Two tangent vectors, one normal vector
                                                            tangents=0.0_dp
                                                            DO tangent_idx=1,2
                                                              tangent_xi_idx=other_xi_directions3(abs(nic),tangent_idx+1,1)
                                                              vec(1:dims)=dxdxi(1:dims,tangent_xi_idx)
                                                              vec(1:dims)=normalise(vec(1:dims),err,error)
                                                              tangents(1:dims,tangent_idx)= &
                                                                & tangents(1:dims,tangent_idx)+vec(1:dims)
                                                            ENDDO
                                                            !Calculate the normal vector
                                                            CALL cross_product(tangents(1:dims,1),tangents(1:dims,2), &
                                                              & vec(1:dims),err,error,*999)
                                                            !Yes below is compicated, but that's what it takes to get the normals pointing outwards
                                                            IF(nic<0) vec=-vec
                                                            IF(abs(nic)==2) vec=-vec
                                                            normal(1:dims)=normal(1:dims)+vec(1:dims)
                                                          CASE DEFAULT
                                                            !Should never happen anyway
                                                          END SELECT
                                                        ENDIF
                                                      ENDIF
                                                    ENDDO !nic
                                                  CASE(basis_simplex_type)
                                                    CALL flagerror("Not implemented.",err,error,*999)
      !                                               DO nic=1,BASIS%NUMBER_OF_XI_COORDINATES
      !                                                 IF(DOMAIN_ELEMENTS%ELEMENTS(element)%ADJACENT_ELEMENTS(nic)% &
      !                                                   & NUMBER_OF_ADJACENT_ELEMENTS==0) THEN
      !                                                   IF(BASIS%NODE_POSITION_INDEX(local_node,nic)==1) THEN
      !                                                     !Area coordinates
      !                                                     SELECT CASE(BASIS%NUMBER-OF_XI)
      !                                                     CASE(1)
      !                                                       
      !                                                     CASE(2)
      !                                                       
      !                                                     CASE(3)
      !                                                       
      !                                                     CASE DEFAULT
      !                                                       !Will never happen anyway
      !                                                     END SELECT
      !                                                   ENDIF
      !                                                 ENDIF
      !                                               ENDDO !nic
                                                  CASE(basis_serendipity_type)
                                                    CALL flagerror("Not implemented.",err,error,*999)
                                                  CASE(basis_auxilliary_type)
                                                    CALL flagerror("Not implemented.",err,error,*999)
                                                  CASE(basis_b_spline_tp_type)
                                                    CALL flagerror("Not implemented.",err,error,*999)
                                                  CASE(basis_fourier_lagrange_hermite_tp_type)
                                                    CALL flagerror("Not implemented.",err,error,*999)
                                                  CASE(basis_extended_lagrange_tp_type)
                                                    CALL flagerror("Not implemented.",err,error,*999)
                                                  CASE DEFAULT
                                                    local_error="The basis type of "//trim(number_to_vstring(basis%TYPE, &
                                                      & "*",err,error))//" is invalid."
                                                    CALL flagerror(local_error,err,error,*999)
                                                  END SELECT
                                                ELSE
                                                  !Node is internal to the mesh. Assign zero normal and tangents
                                                  !Actually, they were already assigned to be zero at the start so do nothing.
                                                ENDIF
                                                  !Calculate tangents from DXDXI: which xi corresponds to normal direction?
                                              ENDDO !element_idx
                                              CALL field_interpolated_points_finalise(interpolated_points,err,error,*999)
                                              CALL field_interpolation_parameters_finalise(interpolation_parameters,err,error,*999)

                                              !Normalise the normal vector
                                              normal(1:dims)=normalise(normal(1:dims),err,error)
                                              !Normalise the tangent vectors
                                              DO tangent_idx=1,basis%NUMBER_OF_XI-1
                                                tangents(1:dims,tangent_idx)=normalise(tangents(1:dims,tangent_idx),err,error)
                                              ENDDO
                                            ELSE
                                              local_error="The local node number of "// &
                                                & trim(number_to_vstring(local_node_number,"*",err,error))// &
                                                & " is invalid for component number "// &
                                                & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                                & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                                                & ". The local node number must be > 0 and <="// &
                                                & trim(number_to_vstring(domain_nodes%NUMBER_OF_NODES,"*",err,error))//"."
                                              CALL flagerror(local_error,err,error,*999)
                                            ENDIF
                                          ELSE
                                            local_error="The domain topology nodes for component number "// &
                                              & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                              & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is not associated."
                                            CALL flagerror(local_error,err,error,*999)
                                          ENDIF
                                        ELSE
                                          local_error="The domain topology elements for component number "// &
                                            & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is not associated."
                                          CALL flagerror(local_error,err,error,*999)
                                        ENDIF
                                      ELSE
                                        local_error="The domain topology for component number "// &
                                          & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                          & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is not associated."
                                        CALL flagerror(local_error,err,error,*999)
                                      ENDIF
                                    ELSE
                                      local_error="The domain for component number "// &
                                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is not associated."
                                      CALL flagerror(local_error,err,error,*999)
                                    ENDIF
                                  CASE(field_grid_point_based_interpolation)
                                    local_error="Cannot compute the normal at a node for component number "// &
                                      & trim(number_to_vstring(component_number,"*",err,error))//" for variable type "// &
                                      & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                      & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                                      & " which has grid point based interpolation."
                                    CALL flagerror(local_error,err,error,*999)
                                  CASE(field_gauss_point_based_interpolation)
                                    local_error="Cannot compute the normal at a node for component number "// &
                                      & trim(number_to_vstring(component_number,"*",err,error))//" for variable type "// &
                                      & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                      & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                                      & " which has Gauss point based interpolation."
                                    CALL flagerror(local_error,err,error,*999)
                                  CASE(field_data_point_based_interpolation)
                                    local_error="Cannot compute the normal at a node for component number "// &
                                      & trim(number_to_vstring(component_number,"*",err,error))//" for variable type "// &
                                      & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                      & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                                      & " which has data point based interpolation."
                                    CALL flagerror(local_error,err,error,*999)
                                  CASE DEFAULT
                                    local_error="The interpolation type of "//trim(number_to_vstring &
                                      & (field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                                      & " is invalid for component number "//trim(number_to_vstring(component_number,"*", &
                                      & err,error))//" for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                                    CALL flagerror(local_error,err,error,*999)
                                  END SELECT
                                ELSE
                                  local_error="The first dimension of the supplied dx/dxi array of "// &
                                    & trim(number_to_vstring(SIZE(dxdxi,1),"*",err,error))// &
                                    & " is too small. The first dimension of the supplied array must be >= "// &
                                    & trim(number_to_vstring(dims,"*",err,error))//"."
                                  CALL flagerror(local_error,err,error,*999)
                                ENDIF
                              ELSE
                                local_error="The first dimension of the supplied tangent array of "// &
                                  & trim(number_to_vstring(SIZE(tangents,1),"*",err,error))// &
                                  & " is too small. The first dimension of the supplied array must be >= "// &
                                  & trim(number_to_vstring(dims,"*",err,error))//"."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ELSE
                              local_error="The size of the supplied normal array of "//trim(number_to_vstring(SIZE(normal,1), &
                                & "*",err,error))//" is too small. The size of the supplied array must be >= "// &
                                & trim(number_to_vstring(dims,"*",err,error))//"."
                              CALL flagerror(local_error,err,error,*999)
                            ENDIF
                          ELSE
                            local_error="The size of the supplied position array of "//trim(number_to_vstring(SIZE(position,1), &
                              & "*",err,error))//" is too small. The size of the supplied array must be >= "// &
                              & trim(number_to_vstring(dims,"*",err,error))//"."
                            CALL flagerror(local_error,err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Decomposition elements is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Decomposition topology is not associated.",err,error,*999)
                      ENDIF
                    ELSE
                      CALL flagerror("Decomposition is not associated.",err,error,*999)
                    ENDIF
                  ELSE
                    CALL flagerror("Domain topology is not associated.",err,error,*999)
                  ENDIF
                ELSE
                  CALL flagerror("Domain is not associated.",err,error,*999)
                ENDIF
              ELSE
                local_error="The field component number of "//trim(number_to_vstring(component_number,"*",err,error))// &
                  & " for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                  & " is invalid. The component number must be > 0 and <= "// &
                  & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The supplied variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The field variable type must be > 1 and <= "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The geometric field is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string(diagnostic_output_type,"Field normal at a node:",err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field number      = ",field%USER_NUMBER,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Variable type     = ",variable_type,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Component number  = ",component_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Local node number = ",local_node_number,err,error,*999)
      CALL write_string_vector(diagnostic_output_type,1,1,dims,3,3,position, &
        & '("  Position          :",3(X,E13.6))','(21X,3(X,E13.6))',err,error,*999)      
      CALL write_string_vector(diagnostic_output_type,1,1,dims,3,3,normal, &
        & '("  Normal            :",3(X,E13.6))','(21X,3(X,E13.6))',err,error,*999)      
    ENDIF
    
    exits("Field_PositionNormalTangentsCalculateNode")
    RETURN
999 errors("Field_PositionNormalTangentsCalculateNode",err,error)
    exits("Field_PositionNormalTangentsCalculateNode")
    RETURN 1
    
  END SUBROUTINE field_positionnormaltangentscalculatenode

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolated_point_finalise(INTERPOLATED_POINT,ERR,ERROR,*)

    !Argument variables
    TYPE(field_interpolated_point_type), POINTER :: interpolated_point
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_INTERPOLATED_POINT_FINALISE",err,error,*999)

    IF(ASSOCIATED(interpolated_point)) THEN
      IF(ALLOCATED(interpolated_point%VALUES)) DEALLOCATE(interpolated_point%VALUES)
      DEALLOCATE(interpolated_point)
    ENDIF

    exits("FIELD_INTERPOLATED_POINT_FINALISE")
    RETURN
999 errorsexits("FIELD_INTERPOLATED_POINT_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_interpolated_point_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolated_point_initialise(INTERPOLATION_PARAMETERS,INTERPOLATED_POINT,ERR,ERROR,*,componentType)

    !Argument variables
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    TYPE(field_interpolated_point_type), POINTER :: interpolated_point
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    INTEGER(INTG), OPTIONAL, INTENT(IN) :: componenttype
    !Local Variables
    INTEGER(INTG) :: dummy_err,number_of_dimensions,numberofcomponents
    TYPE(varying_string) :: dummy_error,localerror

    enters("FIELD_INTERPOLATED_POINT_INITIALISE",err,error,*999)

    IF(ASSOCIATED(interpolation_parameters)) THEN
      IF(ASSOCIATED(interpolation_parameters%FIELD)) THEN
        IF(ASSOCIATED(interpolated_point)) THEN
          CALL flagerror("Interpolated point is already associated.",err,error,*998)
        ELSE
          ALLOCATE(interpolated_point,stat=err)
          IF(err/=0) CALL flagerror("Could not allocate interpolated point",err,error,*999)
          interpolated_point%INTERPOLATION_PARAMETERS=>interpolation_parameters
          number_of_dimensions=interpolation_parameters%FIELD%DECOMPOSITION%MESH%NUMBER_OF_DIMENSIONS
          interpolated_point%MAX_PARTIAL_DERIVATIVE_INDEX=partial_derivative_maximum_map(number_of_dimensions)
          !Calculate the number of components for the interpolated point
          IF(PRESENT(componenttype)) THEN
            SELECT CASE(componenttype)
            CASE(field_all_components_type)
              numberofcomponents=interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
            CASE(field_geometric_components_type)
              IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                numberofcomponents=interpolation_parameters%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(field_u_variable_type)%PTR% &
                  & number_of_components
              ELSEIF(interpolation_parameters%FIELD%TYPE==field_geometric_type) THEN
                numberofcomponents=interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
              ELSE
                localerror="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                  & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            CASE(field_nongeometric_components_type)
              IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                numberofcomponents=interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS-interpolation_parameters% &
                  & field%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(field_u_variable_type)%PTR%NUMBER_OF_COMPONENTS
              ELSE
                localerror="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                  & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            CASE DEFAULT
              localerror="Interpolation component type "//trim(number_to_vstring(componenttype,"*",err,error))//" is not valid."
                CALL flagerror(localerror,err,error,*999)
            END SELECT
          ELSE !.NOT.(PRESENT(componentType)) -default all components
            numberofcomponents=interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
          ENDIF
          ALLOCATE(interpolated_point%VALUES(numberofcomponents,interpolated_point%MAX_PARTIAL_DERIVATIVE_INDEX),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate interpolated point values.",err,error,*999)
          interpolated_point%VALUES=0.0_dp
        ENDIF
      ELSE
        CALL flagerror("Interpolation parameters field is not associated.",err,error,*998)
      ENDIF
    ELSE
      CALL flagerror("Interpolation parameters is not associated.",err,error,*998)
    ENDIF

    exits("FIELD_INTERPOLATED_POINT_INITIALISE")
    RETURN
999 CALL field_interpolated_point_finalise(interpolated_point,dummy_err,dummy_error,*998)
998 errorsexits("FIELD_INTERPOLATED_POINT_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_interpolated_point_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolated_points_finalise(INTERPOLATED_POINTS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_interpolated_point_ptr_type), POINTER :: interpolated_points(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: var_type_idx

    enters("FIELD_INTERPOLATED_POINTS_FINALISE",err,error,*999)

    IF(ASSOCIATED(interpolated_points)) THEN
      DO var_type_idx=1,SIZE(interpolated_points,1)
        CALL field_interpolated_point_finalise(interpolated_points(var_type_idx)%PTR,err,error,*999)
      ENDDO !var_type_idx
      DEALLOCATE(interpolated_points)
    ENDIF

    exits("FIELD_INTERPOLATED_POINTS_FINALISE")
    RETURN
999 errorsexits("FIELD_INTERPOLATED_POINTS_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_interpolated_points_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolated_points_initialise(INTERPOLATION_PARAMETERS,INTERPOLATED_POINTS,ERR,ERROR,*,componentType)

    !Argument variables
    TYPE(field_interpolation_parameters_ptr_type), POINTER :: interpolation_parameters(:)
    TYPE(field_interpolated_point_ptr_type), POINTER :: interpolated_points(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    INTEGER(INTG), OPTIONAL, INTENT(IN) :: componenttype
    !Local Variables
    INTEGER(INTG) :: dummy_err,var_type_idx
    TYPE(varying_string) :: dummy_error

    enters("FIELD_INTERPOLATED_POINTS_INITIALISE",err,error,*998)

    IF(ASSOCIATED(interpolation_parameters)) THEN
      IF(ASSOCIATED(interpolated_points)) THEN
        CALL flagerror("Interpolated point is already associated.",err,error,*998)
      ELSE
        ALLOCATE(interpolated_points(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocate interpolated points",err,error,*999)
        DO var_type_idx=1,field_number_of_variable_types
          NULLIFY(interpolated_points(var_type_idx)%PTR)
          IF(ASSOCIATED(interpolation_parameters(var_type_idx)%PTR)) THEN
            IF(PRESENT(componenttype)) THEN
              CALL field_interpolated_point_initialise(interpolation_parameters(var_type_idx)%PTR, &
                & interpolated_points(var_type_idx)%PTR,err,error,*999,componenttype)
            ELSE
              CALL field_interpolated_point_initialise(interpolation_parameters(var_type_idx)%PTR, &
                & interpolated_points(var_type_idx)%PTR,err,error,*999)
            ENDIF
          ENDIF
        ENDDO !var_type_idx
      ENDIF
    ELSE
      CALL flagerror("Interpolation parameters is not associated.",err,error,*998)
    ENDIF

    exits("FIELD_INTERPOLATED_POINTS_INITIALISE")
    RETURN
999 CALL field_interpolated_points_finalise(interpolated_points,dummy_err,dummy_error,*998)
998 errorsexits("FIELD_INTERPOLATED_POINTS_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_interpolated_points_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolated_point_metrics_calculate(JACOBIAN_TYPE,INTERPOLATED_POINT_METRICS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_interpolated_point_metrics_type), POINTER :: interpolated_point_metrics
    INTEGER(INTG), INTENT(IN) :: jacobian_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(field_type), POINTER :: field
    TYPE(field_interpolated_point_type), POINTER :: interpolated_point
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters

    enters("FIELD_INTERPOLATED_POINT_METRICS_CALCULATE",err,error,*999)

    IF(ASSOCIATED(interpolated_point_metrics)) THEN
      interpolated_point=>interpolated_point_metrics%INTERPOLATED_POINT
      interpolation_parameters=>interpolated_point%INTERPOLATION_PARAMETERS
      interpolated_point_metrics%NUMBER_OF_XI_DIMENSIONS=interpolation_parameters%NUMBER_OF_XI
      field=>interpolation_parameters%FIELD
      IF(field%TYPE==field_geometric_type.OR.field%TYPE==field_fibre_type.OR.field%TYPE==field_general_type &
          & .OR.field%TYPE==field_geometric_general_type) THEN
        NULLIFY(coordinate_system)
        CALL field_coordinate_system_get(field,coordinate_system,err,error,*999)
        CALL coordinate_metrics_calculate(coordinate_system,jacobian_type,interpolated_point_metrics,err,error,*999)
      ELSE
        CALL flagerror("The field is not a geometric or fibre field.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Interpolated point metrics is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_INTERPOLATED_POINT_METRICS_CALCULATE")
    RETURN
999 errorsexits("FIELD_INTERPOLATED_POINT_METRICS_CALCULATE",err,error)
    RETURN 1
  END SUBROUTINE field_interpolated_point_metrics_calculate

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolated_point_metrics_finalise(INTERPOLATED_POINT_METRICS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_interpolated_point_metrics_type), POINTER :: interpolated_point_metrics
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_INTERPOLATED_POINT_METRICS_FINALISE",err,error,*999)

    IF(ASSOCIATED(interpolated_point_metrics)) THEN
      IF(ALLOCATED(interpolated_point_metrics%GL)) DEALLOCATE(interpolated_point_metrics%GL)
      IF(ALLOCATED(interpolated_point_metrics%GU)) DEALLOCATE(interpolated_point_metrics%GU)
      IF(ALLOCATED(interpolated_point_metrics%DX_DXI)) DEALLOCATE(interpolated_point_metrics%DX_DXI)
      IF(ALLOCATED(interpolated_point_metrics%DXI_DX)) DEALLOCATE(interpolated_point_metrics%DXI_DX)
      DEALLOCATE(interpolated_point_metrics)
    ENDIF

    exits("FIELD_INTERPOLATED_POINT_METRICS_FINALISE")
    RETURN
999 errorsexits("FIELD_INTERPOLATED_POINT_METRICS_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_interpolated_point_metrics_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolated_point_metrics_initialise(INTERPOLATED_POINT,INTERPOLATED_POINT_METRICS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_interpolated_point_type), POINTER :: interpolated_point !A pointer to the interpolated point to initliase the interpolated point metrics for
    TYPE(field_interpolated_point_metrics_type), POINTER :: interpolated_point_metrics
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: number_of_xi_dimensions,number_of_x_dimensions
    INTEGER(INTG) :: dummy_err
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(varying_string) :: dummy_error !,LOCAL_ERROR

    enters("FIELD_INTERPOLATED_POINT_METRICS_INITIALISE",err,error,*999)

    IF(ASSOCIATED(interpolated_point)) THEN
      IF(ASSOCIATED(interpolated_point_metrics)) THEN
        CALL flagerror("Interpolated point metrics is already associated.",err,error,*998)
      ELSE
        NULLIFY(coordinate_system)
        CALL field_coordinate_system_get(interpolated_point%INTERPOLATION_PARAMETERS%FIELD,coordinate_system,err,error,*999)
        number_of_x_dimensions=coordinate_system%NUMBER_OF_DIMENSIONS
        number_of_xi_dimensions=interpolated_point%INTERPOLATION_PARAMETERS%FIELD%DECOMPOSITION%MESH%NUMBER_OF_DIMENSIONS
        !Size of interpolated point values may be greater than number of x dimensions, as FIELD_GEOMETRIC_GENERAL_TYPE
        !fields can have geometric components and then other non-geometric components, eg. for dependent fields with
        !geometric components.
        IF(number_of_x_dimensions<=SIZE(interpolated_point%VALUES,1)) THEN
          ALLOCATE(interpolated_point_metrics,stat=err)
          IF(err/=0) CALL flagerror("Could not allocate interpolated point metrics.",err,error,*999)
          ALLOCATE(interpolated_point_metrics%GL(number_of_xi_dimensions,number_of_xi_dimensions),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate interpolated point metrics convariant tensor.",err,error,*999)
          ALLOCATE(interpolated_point_metrics%GU(number_of_xi_dimensions,number_of_xi_dimensions),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate interpolated point metrics contravariant tensor.",err,error,*999)
          ALLOCATE(interpolated_point_metrics%DX_DXI(number_of_x_dimensions,number_of_xi_dimensions),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate interpolated point metrics dX_dXi.",err,error,*999)
          ALLOCATE(interpolated_point_metrics%DXI_DX(number_of_xi_dimensions,number_of_x_dimensions),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate interpolated point metrics dXi_dX.",err,error,*999)
          interpolated_point_metrics%INTERPOLATED_POINT=>interpolated_point
          interpolated_point_metrics%NUMBER_OF_X_DIMENSIONS=number_of_x_dimensions
          interpolated_point_metrics%NUMBER_OF_XI_DIMENSIONS=number_of_xi_dimensions
          interpolated_point_metrics%GL=0.0_dp
          interpolated_point_metrics%GU=0.0_dp
          interpolated_point_metrics%DX_DXI=0.0_dp
          interpolated_point_metrics%DXI_DX=0.0_dp
          interpolated_point_metrics%JACOBIAN=0.0_dp
          interpolated_point_metrics%JACOBIAN_TYPE=0
         !For now don't flag an error if the number of xi dimensions doesn't match the number of x dimensions.
         !Simply do not allocate the metrics information.
!        ELSE
!          LOCAL_ERROR="The number of coordinate dimensions ("//TRIM(NUMBER_TO_VSTRING(NUMBER_OF_X_DIMENSIONS,"*",ERR,ERROR))// &
!            & ") does not match the number of components of the interpolated point ("// &
!            & TRIM(NUMBER_TO_VSTRING(SIZE(INTERPOLATED_POINT%VALUES,1),"*",ERR,ERROR))//")."
!          CALL FlagError(LOCAL_ERROR,ERR,ERROR,*998)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Interpolation point is not associated.",err,error,*998)
    ENDIF

    exits("FIELD_INTERPOLATED_POINT_METRICS_INITIALISE")
    RETURN
999 CALL field_interpolated_point_metrics_finalise(interpolated_point_metrics,dummy_err,dummy_error,*998)
998 errorsexits("FIELD_INTERPOLATED_POINT_METRICS_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_interpolated_point_metrics_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolatedpointsmetricsfinalise(INTERPOLATED_POINTS_METRICS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_interpolated_point_metrics_ptr_type), POINTER :: interpolated_points_metrics(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: var_type_idx

    enters("Field_InterpolatedPointsMetricsFinalise",err,error,*999)

    IF(ASSOCIATED(interpolated_points_metrics)) THEN
      DO var_type_idx=1,SIZE(interpolated_points_metrics,1)
        CALL field_interpolated_point_metrics_finalise(interpolated_points_metrics(var_type_idx)%PTR,err,error,*999)
      ENDDO !var_type_idx
      DEALLOCATE(interpolated_points_metrics)
    ENDIF

    exits("Field_InterpolatedPointsMetricsFinalise")
    RETURN
999 errorsexits("Field_InterpolatedPointsMetricsFinalise",err,error)
    RETURN 1
  END SUBROUTINE field_interpolatedpointsmetricsfinalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolatedpointsmetricsinitialise(INTERPOLATED_POINTS,INTERPOLATED_POINTS_METRICS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_interpolated_point_ptr_type), POINTER :: interpolated_points(:) !A pointer to the interpolated pointS to initliase the interpolated point metrics for
    TYPE(field_interpolated_point_metrics_ptr_type), POINTER :: interpolated_points_metrics(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: variabletypeidx,dummy_err
    TYPE(varying_string) :: dummy_error

    enters("Field_InterpolatedPointsMetricsInitialise",err,error,*999)

    IF(ASSOCIATED(interpolated_points)) THEN
      IF(ASSOCIATED(interpolated_points_metrics)) THEN
        CALL flagerror("Interpolated point metrics is already associated.",err,error,*998)
      ELSE
        ALLOCATE(interpolated_points_metrics(field_number_of_variable_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocate interpolated points metrics.",err,error,*999)
        !Nullify all pointers first so that finalise does not fail on error condition half way through the next loop
        DO variabletypeidx=1,field_number_of_variable_types
          NULLIFY(interpolated_points_metrics(variabletypeidx)%PTR)          
        ENDDO !variableTypeIdx
        DO variabletypeidx=1,field_number_of_variable_types
          IF(ASSOCIATED(interpolated_points(variabletypeidx)%PTR)) &
            & CALL field_interpolated_point_metrics_initialise(interpolated_points(variabletypeidx)%PTR, &
            & interpolated_points_metrics(variabletypeidx)%PTR,err,error,*999)
        ENDDO !variableTypeIdx
      ENDIF
    ELSE
      CALL flagerror("Interpolation points is not associated.",err,error,*998)
    ENDIF

    exits("Field_InterpolatedPointsMetricsInitialise")
    RETURN
999 CALL field_interpolatedpointsmetricsfinalise(interpolated_points_metrics,dummy_err,dummy_error,*998)
998 errorsexits("Field_InterpolatedPointsMetricsInitialise",err,error)
    RETURN 1
  END SUBROUTINE field_interpolatedpointsmetricsinitialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolation_parameter_finalise(INTERPOLATION_PARAMETERS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_INTERPOLATION_PARAMETER_FINALISE",err,error,*999)

    IF(ASSOCIATED(interpolation_parameters)) THEN
      IF(ALLOCATED(interpolation_parameters%BASES)) DEALLOCATE(interpolation_parameters%BASES)
      IF(ALLOCATED(interpolation_parameters%NUMBER_OF_PARAMETERS)) DEALLOCATE(interpolation_parameters%NUMBER_OF_PARAMETERS)
      IF(ALLOCATED(interpolation_parameters%PARAMETERS)) DEALLOCATE(interpolation_parameters%PARAMETERS)
      IF(ALLOCATED(interpolation_parameters%SCALE_FACTORS)) DEALLOCATE(interpolation_parameters%SCALE_FACTORS)      
      DEALLOCATE(interpolation_parameters)
    ENDIF

    exits("FIELD_INTERPOLATION_PARAMETER_FINALISE")
    RETURN
999 errorsexits("FIELD_INTERPOLATION_PARAMETER_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_interpolation_parameter_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolation_parameter_initialise(FIELD_VARIABLE,INTERPOLATION_PARAMETERS,ERR,ERROR,*,componentType)

    !Argument variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    INTEGER(INTG), OPTIONAL, INTENT(IN) :: componenttype
    !Local Variables
    INTEGER(INTG) :: component_idx,dummy_err,numberofcomponents

    TYPE(field_type), POINTER :: field
    TYPE(varying_string) :: dummy_error,localerror

    enters("FIELD_INTERPOLATION_PARAMETER_INITIALISE",err,error,*998)

    IF(ASSOCIATED(field_variable)) THEN
      field=>field_variable%FIELD
      IF(ASSOCIATED(field)) THEN
        IF(ASSOCIATED(interpolation_parameters)) THEN
          CALL flagerror("Interpolation parameters is already associated.",err,error,*998)
        ELSE
          ALLOCATE(interpolation_parameters,stat=err)
          IF(err/=0) CALL flagerror("Could not allocate an interpolation parameter.",err,error,*999)
          interpolation_parameters%FIELD=>field
          interpolation_parameters%FIELD_VARIABLE=>field_variable
          interpolation_parameters%NUMBER_OF_XI=0
          !Calculate the number of components required 
          IF(PRESENT(componenttype)) THEN
            SELECT CASE(componenttype)
            CASE(field_all_components_type)
              numberofcomponents=interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
            CASE(field_geometric_components_type)
              IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                numberofcomponents=interpolation_parameters%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(field_u_variable_type)%PTR% &
                  & number_of_components
              ELSEIF(interpolation_parameters%FIELD%TYPE==field_geometric_type) THEN
                numberofcomponents=interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
              ELSE
                localerror="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                  & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            CASE(field_nongeometric_components_type)
              IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                numberofcomponents=interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS-interpolation_parameters% &
                  & field%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(field_u_variable_type)%PTR%NUMBER_OF_COMPONENTS
              ELSE
                localerror="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                  & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            CASE DEFAULT
              localerror="Interpolation component type "//trim(number_to_vstring(componenttype,"*",err,error))//" is not valid."
                CALL flagerror(localerror,err,error,*999)
            END SELECT
          ELSE
            numberofcomponents=interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
          ENDIF
          ALLOCATE(interpolation_parameters%BASES(numberofcomponents),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate bases.",err,error,*999)
          ALLOCATE(interpolation_parameters%NUMBER_OF_PARAMETERS(numberofcomponents),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate interpolation type.",err,error,*999)
          ALLOCATE(interpolation_parameters%PARAMETERS(field_variable%maxNumberElementInterpolationParameters, &
            & numberofcomponents),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate parameters.",err,error,*999)
          interpolation_parameters%PARAMETERS=0.0_dp
          IF(field%SCALINGS%SCALING_TYPE/=field_no_scaling) THEN
            ALLOCATE(interpolation_parameters%SCALE_FACTORS(field_variable%maxNumberElementInterpolationParameters, &
              & numberofcomponents),stat=err)
            IF(err/=0) CALL flagerror("Could not allocate scale factors.",err,error,*999)
            interpolation_parameters%SCALE_FACTORS=0.0_dp
          ENDIF
          DO component_idx=1,numberofcomponents
            NULLIFY(interpolation_parameters%BASES(component_idx)%PTR)
          ENDDO !component_idx
          interpolation_parameters%NUMBER_OF_PARAMETERS=0
        ENDIF
      ELSE
        CALL flagerror("Field variable field is not associated.",err,error,*998)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*998)
    ENDIF

    exits("FIELD_INTERPOLATION_PARAMETER_INITIALISE")
    RETURN
999 CALL field_interpolation_parameter_finalise(interpolation_parameters,dummy_err,dummy_error,*998)
998 errorsexits("FIELD_INTERPOLATION_PARAMETER_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_interpolation_parameter_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolation_parameters_element_get(PARAMETER_SET_TYPE,ELEMENT_NUMBER,INTERPOLATION_PARAMETERS,ERR,ERROR,*, &
      & componenttype)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parameter_set_type
    INTEGER(INTG), INTENT(IN) :: element_number
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    INTEGER(INTG), OPTIONAL, INTENT(IN) :: componenttype
    !Local Variables
    INTEGER(INTG) :: component_idx,local_derivative_idx,version_idx,global_derivative_idx,element_node_idx,node_idx, &
      & element_parameter_idx,dof_idx,node_scaling_dof_idx,scaling_idx,startComponentIdx,endComponentIdx
    REAL(DP), POINTER :: field_parameter_set_data(:),scale_factors(:)
    TYPE(basis_type), POINTER :: basis
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(domain_elements_type), POINTER :: elements_topology
    TYPE(domain_nodes_type), POINTER :: nodes_topology
    TYPE(field_type), POINTER :: field
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(varying_string) :: local_error

    enters("FIELD_INTERPOLATION_PARAMETERS_ELEMENT_GET",err,error,*999)

    IF(ASSOCIATED(interpolation_parameters)) THEN
      IF(parameter_set_type>0.AND.parameter_set_type<=field_number_of_set_types) THEN
        parameter_set=>interpolation_parameters%FIELD_VARIABLE%PARAMETER_SETS%SET_TYPE(parameter_set_type)%PTR
        IF(ASSOCIATED(parameter_set)) THEN
          NULLIFY(field_parameter_set_data)
          CALL distributed_vector_data_get(parameter_set%PARAMETERS,field_parameter_set_data,err,error,*999)
          field=>interpolation_parameters%FIELD
          IF(ASSOCIATED(field)) THEN
            NULLIFY(coordinate_system)
            CALL field_coordinate_system_get(field,coordinate_system,err,error,*999)
            IF(PRESENT(componenttype)) THEN
              SELECT CASE(componenttype)
              CASE(field_all_components_type)
                startcomponentidx=1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
              CASE(field_geometric_components_type)
                IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                  startcomponentidx=1
                  endComponentIdx=INTERPOLATION_PARAMETERS%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(FIELD_U_VARIABLE_TYPE)%PTR% &
                    & number_of_components
                ELSEIF(interpolation_parameters%FIELD%TYPE==field_geometric_type) THEN
                  startcomponentidx=1
                  endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
                ELSE
                  local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                    & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE(field_nongeometric_components_type)
                IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                  startcomponentidx=interpolation_parameters%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(field_u_variable_type)% &
                    & ptr%NUMBER_OF_COMPONENTS+1
                  endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
                ELSE
                  local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                    & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE DEFAULT
                local_error="Interpolation component type "//trim(number_to_vstring(componenttype,"*",err,error))//" is not valid."
                  CALL flagerror(local_error,err,error,*999)
              END SELECT
            ELSE
              startcomponentidx=1
              endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
            ENDIF
            DO component_idx=startcomponentidx,endcomponentidx
              elements_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%ELEMENTS
              IF(element_number>0.AND.element_number<=elements_topology%TOTAL_NUMBER_OF_ELEMENTS) THEN
                basis=>elements_topology%ELEMENTS(element_number)%BASIS
                interpolation_parameters%BASES(component_idx)%PTR=>basis
                IF(component_idx==1) THEN
                  interpolation_parameters%NUMBER_OF_XI=basis%NUMBER_OF_XI
                ELSE
                  IF(basis%NUMBER_OF_XI/=interpolation_parameters%NUMBER_OF_XI) &
                    & CALL flagerror("Inconsistent number of xi directions???",err,error,*999)
                ENDIF
                SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
                CASE(field_constant_interpolation)
                  dof_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%PARAM_TO_DOF_MAP% &
                    & constant_param2dof_map
                  interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
                  interpolation_parameters%PARAMETERS(1,component_idx)=field_parameter_set_data(dof_idx)
                CASE(field_element_based_interpolation)
                  dof_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%PARAM_TO_DOF_MAP% &
                    & element_param2dof_map%ELEMENTS(element_number)
                  interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
                  interpolation_parameters%PARAMETERS(1,component_idx)=field_parameter_set_data(dof_idx)
                CASE(field_node_based_interpolation)
                  elements_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%ELEMENTS
                  nodes_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%NODES
                  interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=basis%NUMBER_OF_ELEMENT_PARAMETERS
                  SELECT CASE(interpolation_parameters%FIELD%SCALINGS%SCALING_TYPE)
                  CASE(field_no_scaling)
                    DO element_node_idx=1,basis%NUMBER_OF_NODES
                      node_idx=elements_topology%ELEMENTS(element_number)%ELEMENT_NODES(element_node_idx)
                      DO local_derivative_idx=1,basis%NUMBER_OF_DERIVATIVES(element_node_idx)
                        global_derivative_idx=elements_topology%ELEMENTS(element_number)%ELEMENT_DERIVATIVES( &
                          & local_derivative_idx,element_node_idx)
                        version_idx=elements_topology%ELEMENTS(element_number)%elementVersions(local_derivative_idx, &
                          & element_node_idx)
                        element_parameter_idx=basis%ELEMENT_PARAMETER_INDEX(local_derivative_idx,element_node_idx)
                        dof_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%PARAM_TO_DOF_MAP% &
                          & node_param2dof_map%NODES(node_idx)%DERIVATIVES(global_derivative_idx)%VERSIONS(version_idx)
                        interpolation_parameters%PARAMETERS(element_parameter_idx,component_idx)=field_parameter_set_data(dof_idx)
                      ENDDO !local_derivative_idx
                    ENDDO !element_node_idx
                CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
                    scaling_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%SCALING_INDEX
                    NULLIFY(scale_factors)
                    CALL distributed_vector_data_get(interpolation_parameters%FIELD%SCALINGS%SCALINGS(scaling_idx)% &
                      & scale_factors,scale_factors,err,error,*999)
                    DO element_node_idx=1,basis%NUMBER_OF_NODES
                      node_idx=elements_topology%ELEMENTS(element_number)%ELEMENT_NODES(element_node_idx)
                      DO local_derivative_idx=1,basis%NUMBER_OF_DERIVATIVES(element_node_idx)
                        global_derivative_idx=elements_topology%ELEMENTS(element_number)%ELEMENT_DERIVATIVES( & 
                          & local_derivative_idx,element_node_idx)
                        version_idx=elements_topology%ELEMENTS(element_number)%elementVersions( &
                          & local_derivative_idx,element_node_idx)
                        element_parameter_idx=basis%ELEMENT_PARAMETER_INDEX(global_derivative_idx,element_node_idx)
                        dof_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%PARAM_TO_DOF_MAP% &
                          & node_param2dof_map%NODES(node_idx)%DERIVATIVES(global_derivative_idx)%VERSIONS(version_idx)
                        node_scaling_dof_idx= &
                            & nodes_topology%NODES(node_idx)%DERIVATIVES(global_derivative_idx)%DOF_INDEX(version_idx)
                        !INTERPOLATION_PARAMETERS%PARAMETERS(element_parameter_idx,component_idx)=FIELD_PARAMETER_SET_DATA(dof_idx)* &
                        !  & INTERPOLATION_PARAMETERS%FIELD%SCALINGS%SCALINGS(scaling_idx)%SCALE_FACTORS(element_parameter_idx,ELEMENT_NUMBER)
                        !INTERPOLATION_PARAMETERS%PARAMETERS(element_parameter_idx,component_idx)=FIELD_PARAMETER_SET_DATA(dof_idx)* &
                        !  & INTERPOLATION_PARAMETERS%FIELD%SCALINGS%SCALINGS(scaling_idx)%SCALE_FACTORS(global_derivative_idx,node_idx)
                        interpolation_parameters%PARAMETERS(element_parameter_idx,component_idx)=field_parameter_set_data( &
                          & dof_idx)*scale_factors(node_scaling_dof_idx)
                        interpolation_parameters%SCALE_FACTORS(element_parameter_idx,component_idx)=scale_factors( &
                          & node_scaling_dof_idx)
                      ENDDO !local_derivative_idx
                    ENDDO !element_node_idx
                    CALL distributed_vector_data_restore(interpolation_parameters%FIELD%SCALINGS%SCALINGS(scaling_idx)% &
                      & scale_factors,scale_factors,err,error,*999)
                  CASE(field_arc_length_scaling)
                    CALL flagerror("Not implemented.",err,error,*999)
                  CASE DEFAULT
                    local_error="The scaling type of "//trim(number_to_vstring(interpolation_parameters%FIELD%SCALINGS% &
                      & scaling_type,"*",err,error))//" is invalid for field number "// &
                      & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  END SELECT
                CASE(field_gauss_point_based_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE(field_data_point_based_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE DEFAULT
                  local_error="The interpolation type of "//trim(number_to_vstring(interpolation_parameters%FIELD_VARIABLE% &
                    & components(component_idx)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                    & trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
                    & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                END SELECT
              ELSE
                local_error="The element number of "//trim(number_to_vstring(element_number,"*",err,error))// &
                  & " is invalid. The number must be between 1 and "// &
                  & trim(number_to_vstring(elements_topology%TOTAL_NUMBER_OF_ELEMENTS,"*",err,error))// &
                  & " for component number "//trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ENDDO !component_idx
            CALL coordinate_interpolation_parameters_adjust(coordinate_system,interpolation_parameters,err,error,*999)
          ELSE
            CALL flagerror("The interpolation parameters field is not associated.",err,error,*999)
          ENDIF
          CALL distributed_vector_data_restore(parameter_set%PARAMETERS,field_parameter_set_data,err,error,*999)
        ELSE
          local_error="The field parameter set type of "//trim(number_to_vstring(parameter_set_type,"*",err,error))// &
            & " has not been created for field number "// &
            & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="The field parameter set type of "//trim(number_to_vstring(parameter_set_type,"*",err,error))// &
          & " is invalid. The number must be between 1 and "//trim(number_to_vstring(field_number_of_set_types,"*",err,error))// &
          & " for field number "//trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Interpolation parameters is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string(diagnostic_output_type,"Interpolation parameters:",err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field number = ",interpolation_parameters%FIELD%USER_NUMBER,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field variable number = ",interpolation_parameters%FIELD_VARIABLE% &
        & variable_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Parameter set type = ",parameter_set_type,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Element number = ",element_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of components = ",interpolation_parameters%FIELD_VARIABLE% &
        & number_of_components,err,error,*999)
      DO component_idx=startcomponentidx,endcomponentidx
        CALL write_string_value(diagnostic_output_type,"    Component = ",component_idx,err,error,*999)
        CALL write_string_value(diagnostic_output_type,"      Number of parameters = ",interpolation_parameters% &
          & number_of_parameters(component_idx),err,error,*999)
        CALL write_string_vector(diagnostic_output_type,1,1,interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx),4,4, &
          & interpolation_parameters%PARAMETERS(:,component_idx),'("      Parameters :",4(X,E13.6))','(18X,4(X,E13.6))', &
          & err,error,*999)
      ENDDO !component_idx
    ENDIF

    exits("FIELD_INTERPOLATION_PARAMETERS_ELEMENT_GET")
    RETURN
999 errorsexits("FIELD_INTERPOLATION_PARAMETERS_ELEMENT_GET",err,error)
    RETURN 1
  END SUBROUTINE field_interpolation_parameters_element_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolation_parameters_finalise(INTERPOLATION_PARAMETERS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_interpolation_parameters_ptr_type), POINTER :: interpolation_parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: var_type_idx

    enters("FIELD_INTERPOLATION_PARAMETERS_FINALISE",err,error,*999)

    IF(ASSOCIATED(interpolation_parameters)) THEN
      DO var_type_idx=1,SIZE(interpolation_parameters,1)       
        CALL field_interpolation_parameter_finalise(interpolation_parameters(var_type_idx)%PTR,err,error,*999)
      ENDDO !var_type_idx           
      DEALLOCATE(interpolation_parameters)
    ENDIF

    exits("FIELD_INTERPOLATION_PARAMETERS_FINALISE")
    RETURN
999 errorsexits("FIELD_INTERPOLATION_PARAMETERS_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_interpolation_parameters_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolation_parameters_initialise(FIELD,INTERPOLATION_PARAMETERS,ERR,ERROR,*,componentType)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(field_interpolation_parameters_ptr_type), POINTER :: interpolation_parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    INTEGER(INTG), OPTIONAL, INTENT(IN) :: componenttype
    !Local Variables
    INTEGER(INTG) :: dummy_err,var_type_idx
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: dummy_error,local_error

    enters("FIELD_INTERPOLATION_PARAMETERS_INITIALISE",err,error,*998)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(ASSOCIATED(interpolation_parameters)) THEN
          CALL flagerror("Interpolation parameters is already associated.",err,error,*998)
        ELSE
          ALLOCATE(interpolation_parameters(field_number_of_variable_types),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate the interpolation parameters.",err,error,*999)
          DO var_type_idx=1,field_number_of_variable_types
            NULLIFY(interpolation_parameters(var_type_idx)%PTR)
            field_variable=>field%VARIABLE_TYPE_MAP(var_type_idx)%PTR
            IF(PRESENT(componenttype)) THEN
              IF(ASSOCIATED(field_variable)) CALL field_interpolation_parameter_initialise(field_variable, &
                & interpolation_parameters(var_type_idx)%PTR,err,error,*999,componenttype)
            ELSE
              IF(ASSOCIATED(field_variable)) CALL field_interpolation_parameter_initialise(field_variable, &
                & interpolation_parameters(var_type_idx)%PTR,err,error,*999)
            ENDIF
          ENDDO !var_type_idx
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*998)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*998)
    ENDIF

    exits("FIELD_INTERPOLATION_PARAMETERS_INITIALISE")
    RETURN
999 CALL field_interpolation_parameters_finalise(interpolation_parameters,dummy_err,dummy_error,*998)
998 errorsexits("FIELD_INTERPOLATION_PARAMETERS_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_interpolation_parameters_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolation_parameters_line_get(PARAMETER_SET_TYPE,LINE_NUMBER,INTERPOLATION_PARAMETERS,ERR,ERROR,*, &
      & componenttype)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parameter_set_type
    INTEGER(INTG), INTENT(IN) :: line_number
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    INTEGER(INTG), OPTIONAL, INTENT(IN) :: componenttype
    !Local Variables
    INTEGER(INTG) :: component_idx,basis_derivative_idx,derivative_idx,basis_node_idx,version_idx,node_idx,element_parameter_idx, &
      & dof_idx,node_scaling_dof_idx,scaling_idx,startComponentIdx,endComponentIdx
    REAL(DP), POINTER :: field_parameter_set_data(:),scale_factors(:)
    TYPE(basis_type), POINTER :: basis
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(domain_lines_type), POINTER :: lines_topology
    TYPE(domain_nodes_type), POINTER :: nodes_topology
    TYPE(field_type), POINTER :: field
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(varying_string) :: local_error

    enters("FIELD_INTERPOLATION_PARAMETERS_LINE_GET",err,error,*999)

    IF(ASSOCIATED(interpolation_parameters)) THEN
      IF(parameter_set_type>0.AND.parameter_set_type<=field_number_of_set_types) THEN
        parameter_set=>interpolation_parameters%FIELD_VARIABLE%PARAMETER_SETS%SET_TYPE(parameter_set_type)%PTR
        IF(ASSOCIATED(parameter_set)) THEN
          NULLIFY(field_parameter_set_data)
          CALL distributed_vector_data_get(parameter_set%PARAMETERS,field_parameter_set_data,err,error,*999)
          field=>interpolation_parameters%FIELD
          IF(ASSOCIATED(field)) THEN
            NULLIFY(coordinate_system)
            CALL field_coordinate_system_get(field,coordinate_system,err,error,*999)
            IF(PRESENT(componenttype)) THEN
              SELECT CASE(componenttype)
              CASE(field_all_components_type)
                startcomponentidx=1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
              CASE(field_geometric_components_type)
                IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                  startcomponentidx=1
                  endComponentIdx=INTERPOLATION_PARAMETERS%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(FIELD_U_VARIABLE_TYPE)%PTR% &
                    & number_of_components
                ELSEIF(interpolation_parameters%FIELD%TYPE==field_geometric_type) THEN
                  startcomponentidx=1
                  endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
                ELSE
                  local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                    & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE(field_nongeometric_components_type)
                IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                  startcomponentidx=interpolation_parameters%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(field_u_variable_type)% &
                    & ptr%NUMBER_OF_COMPONENTS+1
                  endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
                ELSE
                  local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                    & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE DEFAULT
                local_error="Interpolation component type "//trim(number_to_vstring(componenttype,"*",err,error))//" is not valid."
                  CALL flagerror(local_error,err,error,*999)
              END SELECT
            ELSE
              startcomponentidx=1
              endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
            ENDIF
            DO component_idx=startcomponentidx,endcomponentidx
              lines_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%LINES
              IF(line_number>0.AND.line_number<=lines_topology%NUMBER_OF_LINES) THEN
                basis=>lines_topology%LINES(line_number)%BASIS
                interpolation_parameters%BASES(component_idx)%PTR=>basis
                IF(component_idx==1) THEN
                  interpolation_parameters%NUMBER_OF_XI=basis%NUMBER_OF_XI
                ELSE
                  IF(basis%NUMBER_OF_XI/=interpolation_parameters%NUMBER_OF_XI) &
                    & CALL flagerror("Inconsistent number of xi directions???",err,error,*999)
                ENDIF
                SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
                CASE(field_constant_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE(field_element_based_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE(field_node_based_interpolation)
                  nodes_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%NODES
                  interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=basis%NUMBER_OF_ELEMENT_PARAMETERS
                  SELECT CASE(interpolation_parameters%FIELD%SCALINGS%SCALING_TYPE)
                  CASE(field_no_scaling)
                    DO basis_node_idx=1,basis%NUMBER_OF_NODES
                      node_idx=lines_topology%LINES(line_number)%NODES_IN_LINE(basis_node_idx)
                      DO basis_derivative_idx=1,basis%NUMBER_OF_DERIVATIVES(basis_node_idx)
                        derivative_idx=lines_topology%LINES(line_number)%DERIVATIVES_IN_LINE(1,basis_derivative_idx,basis_node_idx)
                        version_idx=lines_topology%LINES(line_number)%DERIVATIVES_IN_LINE(2,basis_derivative_idx,basis_node_idx)
                        element_parameter_idx=basis%ELEMENT_PARAMETER_INDEX(basis_derivative_idx,basis_node_idx)
                        dof_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%PARAM_TO_DOF_MAP% &
                          & node_param2dof_map%NODES(node_idx)%DERIVATIVES(derivative_idx)%VERSIONS(version_idx)
                        interpolation_parameters%PARAMETERS(element_parameter_idx,component_idx)=field_parameter_set_data(dof_idx)
                      ENDDO !basis_derivative_idx
                    ENDDO !basis_node_idx
                  CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
                    scaling_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%SCALING_INDEX
                    NULLIFY(scale_factors)
                    CALL distributed_vector_data_get(interpolation_parameters%FIELD%SCALINGS%SCALINGS(scaling_idx)% &
                      & scale_factors,scale_factors,err,error,*999)
                    DO basis_node_idx=1,basis%NUMBER_OF_NODES
                      node_idx=lines_topology%LINES(line_number)%NODES_IN_LINE(basis_node_idx)
                      DO basis_derivative_idx=1,basis%NUMBER_OF_DERIVATIVES(basis_node_idx)
                        derivative_idx=lines_topology%LINES(line_number)%DERIVATIVES_IN_LINE(1,basis_derivative_idx,basis_node_idx)
                        version_idx=lines_topology%LINES(line_number)%DERIVATIVES_IN_LINE(2,basis_derivative_idx,basis_node_idx)
                        element_parameter_idx=basis%ELEMENT_PARAMETER_INDEX(basis_derivative_idx,basis_node_idx)
                        dof_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%PARAM_TO_DOF_MAP% &
                          & node_param2dof_map%NODES(node_idx)%DERIVATIVES(derivative_idx)%VERSIONS(version_idx)
                        node_scaling_dof_idx= &
                            & nodes_topology%NODES(node_idx)%DERIVATIVES(derivative_idx)%DOF_INDEX(version_idx)
                        !INTERPOLATION_PARAMETERS%PARAMETERS(element_parameter_idx,component_idx)=FIELD_PARAMETER_SET_DATA(dof_idx)* &
                        !  & INTERPOLATION_PARAMETERS%FIELD%SCALINGS%SCALINGS(scaling_idx)%SCALE_FACTORS(derivative_idx,node_idx)
                        interpolation_parameters%PARAMETERS(element_parameter_idx,component_idx)= &
                          & field_parameter_set_data(dof_idx)*scale_factors(node_scaling_dof_idx)
                        interpolation_parameters%SCALE_FACTORS(element_parameter_idx,component_idx)= &
                          & scale_factors(node_scaling_dof_idx)
                      ENDDO !basis_derivative_idx
                    ENDDO !basis_node_idx
                  CASE(field_arc_length_scaling)
                    CALL flagerror("Not implemented.",err,error,*999)
                  CASE DEFAULT
                    local_error="The scaling type of "//trim(number_to_vstring(interpolation_parameters%FIELD%SCALINGS% &
                      & scaling_type,"*",err,error))//" is invalid for field number "// &
                      & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  END SELECT
                 CASE(field_grid_point_based_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE(field_gauss_point_based_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE(field_data_point_based_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE DEFAULT
                  local_error="The interpolation type of "//trim(number_to_vstring(interpolation_parameters%FIELD_VARIABLE% &
                    & components(component_idx)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                    & trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
                    & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                END SELECT
              ELSE
                local_error="The line number of "//trim(number_to_vstring(line_number,"*",err,error))// &
                  & " is invalid. The number must be between 1 and "// &
                  & trim(number_to_vstring(lines_topology%NUMBER_OF_LINES,"*",err,error))// &
                  & " for component number "//trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)

              ENDIF
            ENDDO !component_idx
            CALL coordinate_interpolation_parameters_adjust(coordinate_system,interpolation_parameters,err,error,*999)
          ELSE
            CALL flagerror("The interpolation parameters field is not associated.",err,error,*999)
          ENDIF
          CALL distributed_vector_data_restore(parameter_set%PARAMETERS,field_parameter_set_data,err,error,*999)
        ELSE
          local_error="The field parameter set type of "//trim(number_to_vstring(parameter_set_type,"*",err,error))// &
            & " has not been created for field number "// &
            & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="The field parameter set type of "//trim(number_to_vstring(parameter_set_type,"*",err,error))// &
          & " is invalid. The number must be between 1 and "//trim(number_to_vstring(field_number_of_set_types,"*",err,error))// &
          & " for field number "//trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Interpolation parameters is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string(diagnostic_output_type,"Interpolation parameters:",err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field number = ",interpolation_parameters%FIELD%USER_NUMBER,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field variable number = ",interpolation_parameters%FIELD_VARIABLE% &
        & variable_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Parameter set type = ",parameter_set_type,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Line number = ",line_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Total number of components = ", &
        & interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Interpolation number of components = ", &
        & endcomponentidx-startcomponentidx+1,err,error,*999)
      DO component_idx=startcomponentidx,endcomponentidx
        CALL write_string_value(diagnostic_output_type,"    Component = ",component_idx,err,error,*999)
        CALL write_string_value(diagnostic_output_type,"      Number of parameters = ",interpolation_parameters% &
          & number_of_parameters(component_idx),err,error,*999)
        CALL write_string_vector(diagnostic_output_type,1,1,interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx),4,4, &
          & interpolation_parameters%PARAMETERS(:,component_idx),'("      Parameters :",4(X,E13.6))','(18X,4(X,E13.6))', &
          & err,error,*999)
      ENDDO !component_idx
    ENDIF

    exits("FIELD_INTERPOLATION_PARAMETERS_LINE_GET")
    RETURN
999 errorsexits("FIELD_INTERPOLATION_PARAMETERS_LINE_GET",err,error)
    RETURN 1
  END SUBROUTINE field_interpolation_parameters_line_get

  !
  !================================================================================================================================
  !
  SUBROUTINE field_interpolation_parameters_face_get(PARAMETER_SET_TYPE,FACE_NUMBER,INTERPOLATION_PARAMETERS,ERR,ERROR,*, &
      & componenttype)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parameter_set_type
    INTEGER(INTG), INTENT(IN) :: face_number
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    INTEGER(INTG), OPTIONAL, INTENT(IN) :: componenttype
    !Local Variables
    INTEGER(INTG) :: component_idx,basis_derivative_idx,derivative_idx,version_idx,basis_node_idx,node_idx,element_parameter_idx, &
      & dof_idx,node_scaling_dof_idx,scaling_idx,startComponentIdx,endComponentIdx
    REAL(DP), POINTER :: field_parameter_set_data(:),scale_factors(:)
    TYPE(basis_type), POINTER :: basis
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(domain_faces_type), POINTER :: faces_topology
    TYPE(domain_nodes_type), POINTER :: nodes_topology
    TYPE(field_type), POINTER :: field
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(varying_string) :: local_error

    enters("FIELD_INTERPOLATION_PARAMETERS_FACE_GET",err,error,*999)

    IF(ASSOCIATED(interpolation_parameters)) THEN
      IF(parameter_set_type>0.AND.parameter_set_type<=field_number_of_set_types) THEN
        parameter_set=>interpolation_parameters%FIELD_VARIABLE%PARAMETER_SETS%SET_TYPE(parameter_set_type)%PTR
        IF(ASSOCIATED(parameter_set)) THEN
          NULLIFY(field_parameter_set_data)
          CALL distributed_vector_data_get(parameter_set%PARAMETERS,field_parameter_set_data,err,error,*999)
          field=>interpolation_parameters%FIELD
          IF(ASSOCIATED(field)) THEN
            NULLIFY(coordinate_system)
            CALL field_coordinate_system_get(field,coordinate_system,err,error,*999)
            IF(PRESENT(componenttype)) THEN
              SELECT CASE(componenttype)
              CASE(field_all_components_type)
                startcomponentidx=1
                endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
              CASE(field_geometric_components_type)
                IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                  startcomponentidx=1
                  endComponentIdx=INTERPOLATION_PARAMETERS%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(FIELD_U_VARIABLE_TYPE)%PTR% &
                    & number_of_components
                ELSEIF(interpolation_parameters%FIELD%TYPE==field_geometric_type) THEN
                  startcomponentidx=1
                  endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
                ELSE
                  local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                    & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE(field_nongeometric_components_type)
                IF(interpolation_parameters%FIELD%TYPE==field_geometric_general_type) THEN
                  startcomponentidx=interpolation_parameters%FIELD%GEOMETRIC_FIELD%VARIABLE_TYPE_MAP(field_u_variable_type)% &
                    & ptr%NUMBER_OF_COMPONENTS+1
                  endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
                ELSE
                  local_error="Field type "//trim(number_to_vstring(interpolation_parameters%FIELD%TYPE,"*",err,error))// &
                    & " is not valid for only interpolating geometric field, use FIELD_GEOMETRIC_GENERAL_TYPE."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              CASE DEFAULT
                local_error="Interpolation component type "//trim(number_to_vstring(componenttype,"*",err,error))//" is not valid."
                  CALL flagerror(local_error,err,error,*999)
              END SELECT
            ELSE
              startcomponentidx=1
              endComponentIdx=INTERPOLATION_PARAMETERS%FIELD_VARIABLE%number_of_components
            ENDIF
            DO component_idx=startcomponentidx,endcomponentidx
              faces_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%FACES
              IF(face_number>0.AND.face_number<=faces_topology%NUMBER_OF_FACES) THEN
                basis=>faces_topology%FACES(face_number)%BASIS
                interpolation_parameters%BASES(component_idx)%PTR=>basis
                IF(component_idx==1) THEN
                  interpolation_parameters%NUMBER_OF_XI=basis%NUMBER_OF_XI
                ELSE
                  IF(basis%NUMBER_OF_XI/=interpolation_parameters%NUMBER_OF_XI) &
                    & CALL flagerror("Inconsistent number of xi directions???",err,error,*999)
                ENDIF
                SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
                CASE(field_constant_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE(field_element_based_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE(field_node_based_interpolation)
                  nodes_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%NODES
                  interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=basis%NUMBER_OF_ELEMENT_PARAMETERS
                  SELECT CASE(interpolation_parameters%FIELD%SCALINGS%SCALING_TYPE)
                  CASE(field_no_scaling)
                    DO basis_node_idx=1,basis%NUMBER_OF_NODES
                      node_idx=faces_topology%FACES(face_number)%NODES_IN_FACE(basis_node_idx)
                      DO basis_derivative_idx=1,basis%NUMBER_OF_DERIVATIVES(basis_node_idx)
                        derivative_idx=faces_topology%FACES(face_number)%DERIVATIVES_IN_FACE(1,basis_derivative_idx,basis_node_idx)
                        version_idx=faces_topology%FACES(face_number)%DERIVATIVES_IN_FACE(2,basis_derivative_idx,basis_node_idx)
                        element_parameter_idx=basis%ELEMENT_PARAMETER_INDEX(basis_derivative_idx,basis_node_idx)
                        dof_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%PARAM_TO_DOF_MAP% &
                          & node_param2dof_map%NODES(node_idx)%DERIVATIVES(derivative_idx)%VERSIONS(version_idx)
                        interpolation_parameters%PARAMETERS(element_parameter_idx,component_idx)=field_parameter_set_data(dof_idx)
                      ENDDO !basis_derivative_idx
                    ENDDO !basis_node_idx
                  CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
                    scaling_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%SCALING_INDEX
                    NULLIFY(scale_factors)
                    CALL distributed_vector_data_get(interpolation_parameters%FIELD%SCALINGS%SCALINGS(scaling_idx)% &
                      & scale_factors,scale_factors,err,error,*999)
                    DO basis_node_idx=1,basis%NUMBER_OF_NODES
                      node_idx=faces_topology%FACES(face_number)%NODES_IN_FACE(basis_node_idx)
                      DO basis_derivative_idx=1,basis%NUMBER_OF_DERIVATIVES(basis_node_idx)
                        derivative_idx=faces_topology%FACES(face_number)%DERIVATIVES_IN_FACE(1,basis_derivative_idx,basis_node_idx)
                        version_idx=faces_topology%FACES(face_number)%DERIVATIVES_IN_FACE(2,basis_derivative_idx,basis_node_idx)
                        element_parameter_idx=basis%ELEMENT_PARAMETER_INDEX(basis_derivative_idx,basis_node_idx)
                        dof_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%PARAM_TO_DOF_MAP% &
                          & node_param2dof_map%NODES(node_idx)%DERIVATIVES(derivative_idx)%VERSIONS(version_idx)
                        node_scaling_dof_idx= &
                            & nodes_topology%NODES(node_idx)%DERIVATIVES(derivative_idx)%DOF_INDEX(version_idx)
                        !INTERPOLATION_PARAMETERS%PARAMETERS(element_parameter_idx,component_idx)=FIELD_PARAMETER_SET_DATA(dof_idx)* &
                        !  & INTERPOLATION_PARAMETERS%FIELD%SCALINGS%SCALINGS(scaling_idx)%SCALE_FACTORS(derivative_idx,node_idx)
                        interpolation_parameters%PARAMETERS(element_parameter_idx,component_idx)= &
                          & field_parameter_set_data(dof_idx)*scale_factors(node_scaling_dof_idx)
                        interpolation_parameters%SCALE_FACTORS(element_parameter_idx,component_idx)= &
                          & scale_factors(node_scaling_dof_idx)
                      ENDDO !basis_derivative_idx
                    ENDDO !basis_node_idx
                  CASE(field_arc_length_scaling)
                    CALL flagerror("Not implemented.",err,error,*999)
                  CASE DEFAULT
                    local_error="The scaling type of "//trim(number_to_vstring(interpolation_parameters%FIELD%SCALINGS% &
                      & scaling_type,"*",err,error))//" is invalid for field number "// &
                      & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  END SELECT
                 CASE(field_grid_point_based_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE(field_gauss_point_based_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE(field_data_point_based_interpolation)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE DEFAULT
                  local_error="The interpolation type of "//trim(number_to_vstring(interpolation_parameters%FIELD_VARIABLE% &
                    & components(component_idx)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                    & trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
                    & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                END SELECT
              ELSE
                local_error="The face number of "//trim(number_to_vstring(face_number,"*",err,error))// &
                  & " is invalid. The number must be between 1 and "// &
                  & trim(number_to_vstring(faces_topology%NUMBER_OF_FACES,"*",err,error))// &
                  & " for component number "//trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ENDDO !component_idx
            CALL coordinate_interpolation_parameters_adjust(coordinate_system,interpolation_parameters,err,error,*999)
          ELSE
            CALL flagerror("The interpolation parameters field is not associated.",err,error,*999)
          ENDIF
          CALL distributed_vector_data_restore(parameter_set%PARAMETERS,field_parameter_set_data,err,error,*999)
        ELSE
          local_error="The field parameter set type of "//trim(number_to_vstring(parameter_set_type,"*",err,error))// &
            & " has not been created for field number "// &
            & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="The field parameter set type of "//trim(number_to_vstring(parameter_set_type,"*",err,error))// &
          & " is invalid. The number must be between 1 and "//trim(number_to_vstring(field_number_of_set_types,"*",err,error))// &
          & " for field number "//trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Interpolation parameters is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string(diagnostic_output_type,"Interpolation parameters:",err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field number = ",interpolation_parameters%FIELD%USER_NUMBER,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field variable number = ",interpolation_parameters%FIELD_VARIABLE% &
        & variable_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Parameter set type = ",parameter_set_type,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Face number = ",face_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Total number of components = ", &
        & interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Interpolation number of components = ", &
        & endcomponentidx-startcomponentidx+1,err,error,*999)
      DO component_idx=startcomponentidx,endcomponentidx
        CALL write_string_value(diagnostic_output_type,"    Component = ",component_idx,err,error,*999)
        CALL write_string_value(diagnostic_output_type,"      Number of parameters = ",interpolation_parameters% &
          & number_of_parameters(component_idx),err,error,*999)
        CALL write_string_vector(diagnostic_output_type,1,1,interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx),4,4, &
          & interpolation_parameters%PARAMETERS(:,component_idx),'("      Parameters :",4(X,E13.6))','(18X,4(X,E13.6))', &
          & err,error,*999)
      ENDDO !component_idx
    ENDIF

    exits("FIELD_INTERPOLATION_PARAMETERS_FACE_GET")
    RETURN
999 errorsexits("FIELD_INTERPOLATION_PARAMETERS_FACE_GET",err,error)
    RETURN 1
  END SUBROUTINE field_interpolation_parameters_face_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolationparametersscalefactorselementget(ELEMENT_NUMBER,INTERPOLATION_PARAMETERS,ERR,ERROR,*)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: element_number
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx,mk,nk,nn,np,ns,ny,scaling_idx,nv
    REAL(DP), POINTER :: scale_factors(:)
    TYPE(basis_type), POINTER :: basis
    TYPE(domain_elements_type), POINTER :: elements_topology
    TYPE(domain_nodes_type), POINTER :: nodes_topology
    TYPE(varying_string) :: local_error

    enters("Field_InterpolationParametersScaleFactorsElementGet",err,error,*999)

    IF(ASSOCIATED(interpolation_parameters)) THEN
      SELECT CASE(interpolation_parameters%FIELD%SCALINGS%SCALING_TYPE)
      CASE(field_no_scaling)
        CALL flagerror("Can not get the scale factors for a field with no scaling.",err,error,*999)
      CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
        DO component_idx=1,interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
          elements_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%ELEMENTS
          IF(element_number>0.AND.element_number<=elements_topology%TOTAL_NUMBER_OF_ELEMENTS) THEN
            basis=>elements_topology%ELEMENTS(element_number)%BASIS
            interpolation_parameters%BASES(component_idx)%PTR=>basis
            SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
            CASE(field_constant_interpolation)             
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_element_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_node_based_interpolation)
              nodes_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%NODES
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=basis%NUMBER_OF_ELEMENT_PARAMETERS
              scaling_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%SCALING_INDEX
              NULLIFY(scale_factors)
              CALL distributed_vector_data_get(interpolation_parameters%FIELD%SCALINGS%SCALINGS(scaling_idx)% &
                & scale_factors,scale_factors,err,error,*999)
              DO nn=1,basis%NUMBER_OF_NODES
                np=elements_topology%ELEMENTS(element_number)%ELEMENT_NODES(nn)
                DO mk=1,basis%NUMBER_OF_DERIVATIVES(nn)
                  nk=elements_topology%ELEMENTS(element_number)%ELEMENT_DERIVATIVES(mk,nn)
                  nv=elements_topology%ELEMENTS(element_number)%elementVersions(mk,nn)
                  ns=basis%ELEMENT_PARAMETER_INDEX(mk,nn)
                  ny=nodes_topology%NODES(np)%DERIVATIVES(nk)%DOF_INDEX(nv)
                  interpolation_parameters%SCALE_FACTORS(ns,component_idx)=scale_factors(ny)
                ENDDO !mk
              ENDDO !nn
              CALL distributed_vector_data_restore(interpolation_parameters%FIELD%SCALINGS%SCALINGS(scaling_idx)% &
                & scale_factors,scale_factors,err,error,*999)
            CASE(field_grid_point_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_gauss_point_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_data_point_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE DEFAULT
              local_error="The interpolation type of "//trim(number_to_vstring(interpolation_parameters%FIELD_VARIABLE% &
              & components(component_idx)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
              & trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
              & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
          ELSE
            local_error="The element number of "//trim(number_to_vstring(element_number,"*",err,error))// &
              & " is invalid. The number must be between 1 and "// &
              & trim(number_to_vstring(elements_topology%TOTAL_NUMBER_OF_ELEMENTS,"*",err,error))// &
              & " for component number "//trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
              & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ENDDO !component_idx
      CASE(field_arc_length_scaling)
        CALL flagerror("Not implemented.",err,error,*999)
      CASE DEFAULT
        local_error="The scaling type of "//trim(number_to_vstring(interpolation_parameters%FIELD%SCALINGS% &
          & scaling_type,"*",err,error))//" is invalid for field number "// &
          & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      END SELECT
    ELSE
      CALL flagerror("Interpolation parameters is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string(diagnostic_output_type,"Interpolation scale factors:",err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field number = ",interpolation_parameters%FIELD%USER_NUMBER,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field variable number = ",interpolation_parameters%FIELD_VARIABLE% &
        & variable_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Element number = ",element_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of components = ",interpolation_parameters%FIELD_VARIABLE% &
        & number_of_components,err,error,*999)
      DO component_idx=1,interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
        CALL write_string_value(diagnostic_output_type,"    Component = ",component_idx,err,error,*999)
        CALL write_string_value(diagnostic_output_type,"      Number of parameters = ",interpolation_parameters% &
          & number_of_parameters(component_idx),err,error,*999)
        CALL write_string_vector(diagnostic_output_type,1,1,interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx),4,4, &
          & interpolation_parameters%SCALE_FACTORS(:,component_idx),'("      Scale factors :",4(X,E13.6))','(21X,4(X,E13.6))', &
          & err,error,*999)
      ENDDO !component_idx
    ENDIF

    exits("Field_InterpolationParametersScaleFactorsElementGet")
    RETURN
999 errors("Field_InterpolationParametersScaleFactorsElementGet",err,error)
    exits("Field_InterpolationParametersScaleFactorsElementGet")
    RETURN 1
    
  END SUBROUTINE field_interpolationparametersscalefactorselementget

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetnodescalefactorget(field,variableType,versionNumber, &
    & derivativenumber,nodeusernumber,componentnumber,scalefactor,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG),  INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: versionnumber
    INTEGER(INTG), INTENT(IN) :: derivativenumber
    INTEGER(INTG), INTENT(IN) :: nodeusernumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(DP), INTENT(OUT) :: scalefactor
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    LOGICAL :: ghostnode,usernodeexists
    INTEGER(INTG) :: domainlocalnodenumber,scalingidx,dofidx
    REAL(DP), POINTER :: fieldscalefactors(:)
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(domain_topology_type), POINTER :: domaintopology
    TYPE(domain_nodes_type), POINTER :: domainnodes
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetNodeScaleFactorGet",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        SELECT CASE(field%SCALINGS%SCALING_TYPE)
        CASE(field_no_scaling)
          CALL flagerror("Can not get the scale factors for a field with no scaling.",err,error,*999)
        CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
          IF(variabletype>0.AND.variabletype<=field_number_of_variable_types) THEN
            fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
            IF(ASSOCIATED(fieldvariable)) THEN
              IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                IF(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE==field_node_based_interpolation)THEN
                  domaintopology=>fieldvariable%COMPONENTS(componentnumber)%DOMAIN%TOPOLOGY
                  CALL domain_topology_node_check_exists(domaintopology,nodeusernumber,usernodeexists, &
                    & domainlocalnodenumber,ghostnode,err,error,*999)
                  IF(usernodeexists) THEN
                    IF(ghostnode) THEN
                      localerror="Cannot get by node for user node "// &
                        & trim(number_to_vstring(nodeusernumber,"*",err,error))//" as it is a ghost node."
                      CALL flagerror(localerror,err,error,*999)
                    ELSE
                      domainnodes=>domaintopology%NODES
                      IF(ASSOCIATED(domainnodes)) THEN
                        IF(derivativenumber>0.AND.derivativenumber<=domainnodes%NODES(domainlocalnodenumber)% &
                          & number_of_derivatives) THEN
                          IF(versionnumber>0.AND.versionnumber<= &
                              & fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                              & node_param2dof_map%NODES(domainlocalnodenumber)%DERIVATIVES(derivativenumber)% &
                              & number_of_versions) THEN
                            ! The field component number is used to determine which scaling index to use.
                            ! The number of scaling indices are set based on the number of mesh components (not field components).
                            scalingidx=fieldvariable%COMPONENTS(componentnumber)%SCALING_INDEX
                            NULLIFY(fieldscalefactors)
                            CALL distributed_vector_data_get(field%SCALINGS%SCALINGS(scalingidx)%SCALE_FACTORS, &
                              & fieldscalefactors,err,error,*999)
                            dofidx=domainnodes%NODES(nodeusernumber)%DERIVATIVES(derivativenumber)%DOF_INDEX(versionnumber)
                            !dofIdx=fieldVariable%COMPONENTS(componentNumber)%PARAM_TO_DOF_MAP% &
                            !  & NODE_PARAM2DOF_MAP%NODES(domainLocalNodeNumber)%DERIVATIVES(derivativeNumber)% &
                            !  & VERSIONS(versionNumber)
                            scalefactor=fieldscalefactors(dofidx)
                            CALL distributed_vector_data_restore(field%SCALINGS%SCALINGS(scalingidx)% &
                              & scale_factors,fieldscalefactors,err,error,*999)
                          ELSE
                            localerror="Version number "//trim(number_to_vstring(versionnumber,"*",err,error))// &
                              & " is invalid for derivative number "// &
                              & trim(number_to_vstring(derivativenumber,"*",err,error))//" of node number "// &
                              & trim(number_to_vstring(nodeusernumber,"*",err,error))//" of component number "// &
                              & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                              & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                              & trim(number_to_vstring(domainnodes%NODES(domainlocalnodenumber)% &
                              & derivatives(derivativenumber)%numberOfVersions,"*",err,error))//" versions "// &
                              & "(note version numbers are indexed directly from the value the user specifies during "// &
                              & "element creation and no record is kept of the total number of versions the user sets."// &
                              & "The maximum version number the user sets defines the total number of versions allocated)."
                            CALL flagerror(localerror,err,error,*999)
                          ENDIF
                        ELSE
                          localerror="Derivative number "//trim(number_to_vstring(derivativenumber,"*",err,error))// &
                            & " is invalid for user node number "// &
                            & trim(number_to_vstring(nodeusernumber,"*",err,error))//" of component number "// &
                            & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                            & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                            & trim(number_to_vstring(domainnodes%NODES(domainlocalnodenumber)% &
                            & number_of_derivatives,"*",err,error))//" derivatives."
                          CALL flagerror(localerror,err,error,*999)
                        ENDIF
                      ENDIF
                    ENDIF
                  ELSE
                    localerror="The specified user node number of "// &
                      & trim(number_to_vstring(nodeusernumber,"*",err,error))// &
                      &  " does not exist in the domain for field component number "// &
                      & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                      & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                      & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The interpolation type of "//trim(number_to_vstring(fieldvariable%COMPONENTS(componentnumber)% &
                    & interpolation_type,"*",err,error))//" is not nodally based for component number "// &
                    & trim(number_to_vstring(componentnumber,"*",err,error))//" of field number "// &
                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                  & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                  & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                  & " components."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        CASE(field_arc_length_scaling)
          CALL flagerror("Not implemented.",err,error,*999)
        CASE DEFAULT
          localerror="The scaling type of "//trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &
            & " is invalid for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END SELECT
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetNodeScaleFactorGet")
    RETURN
999 errorsexits("Field_ParameterSetNodeScaleFactorGet",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetnodescalefactorget

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetnodescalefactorsget(field,variableType,meshComponentNumber,scaleFactors,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG),  INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: meshcomponentnumber
    REAL(DP), INTENT(OUT) :: scalefactors(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: scalingidx
    REAL(DP), POINTER :: fieldscalefactors(:)
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetNodeScaleFactorsGet",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        SELECT CASE(field%SCALINGS%SCALING_TYPE)
        CASE(field_no_scaling)
          CALL flagerror("Can not get the scale factors for a field with no scaling.",err,error,*999)
        CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
          IF(variabletype>0.AND.variabletype<=field_number_of_variable_types) THEN
            fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
            IF(ASSOCIATED(fieldvariable)) THEN
              !The NUMBER_OF_SCALING_INDICES is the same as the number of mesh components (not field components).  
              IF(meshcomponentnumber>=1.AND.meshcomponentnumber<=field%SCALINGS%NUMBER_OF_SCALING_INDICES) THEN
                scalingidx=meshcomponentnumber
                NULLIFY(fieldscalefactors)
                CALL distributed_vector_data_get(field%SCALINGS%SCALINGS(scalingidx)%SCALE_FACTORS, &
                  & fieldscalefactors,err,error,*999)
                scalefactors=fieldscalefactors
                CALL distributed_vector_data_restore(field%SCALINGS%SCALINGS(scalingidx)% &
                  & scale_factors,fieldscalefactors,err,error,*999)
              ELSE
                localerror="Mesh component number "//trim(number_to_vstring(meshcomponentnumber,"*",err,error))// &
                  & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                  & trim(number_to_vstring(field%SCALINGS%NUMBER_OF_SCALING_INDICES,"*",err,error))// &
                  & " components."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        CASE(field_arc_length_scaling)
          CALL flagerror("Not implemented.",err,error,*999)
        CASE DEFAULT
          localerror="The scaling type of "//trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &
            & " is invalid for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END SELECT
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetNodeScaleFactorsGet")
    RETURN
999 errorsexits("Field_ParameterSetNodeScaleFactorsGet",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetnodescalefactorsget

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetnodenumberofscalefactordofsget(field,variableType,meshComponentNumber,numberOfScaleFactorsDofs, &
    & err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG),  INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: meshcomponentnumber
    INTEGER(INTG), INTENT(OUT) :: numberofscalefactorsdofs
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: scalingidx
    REAL(DP), POINTER :: fieldscalefactors(:)
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetNodeNumberOfScaleFactorDofsGet",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        SELECT CASE(field%SCALINGS%SCALING_TYPE)
        CASE(field_no_scaling)
          CALL flagerror("Can not get the scale factors for a field with no scaling.",err,error,*999)
        CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
          IF(variabletype>0.AND.variabletype<=field_number_of_variable_types) THEN
            fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
            IF(ASSOCIATED(fieldvariable)) THEN
              !The NUMBER_OF_SCALING_INDICES is the same as the number of mesh components (not field components).  
              IF(meshcomponentnumber>=1.AND.meshcomponentnumber<=field%SCALINGS%NUMBER_OF_SCALING_INDICES) THEN
                scalingidx=meshcomponentnumber
                NULLIFY(fieldscalefactors)
                CALL distributed_vector_data_get(field%SCALINGS%SCALINGS(scalingidx)%SCALE_FACTORS, &
                  & fieldscalefactors,err,error,*999)
                numberofscalefactorsdofs=SIZE(fieldscalefactors,1)
                CALL distributed_vector_data_restore(field%SCALINGS%SCALINGS(scalingidx)% &
                  & scale_factors,fieldscalefactors,err,error,*999)
              ELSE
                localerror="Mesh component number "//trim(number_to_vstring(meshcomponentnumber,"*",err,error))// &
                  & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                  & trim(number_to_vstring(field%SCALINGS%NUMBER_OF_SCALING_INDICES,"*",err,error))// &
                  & " components."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        CASE(field_arc_length_scaling)
          CALL flagerror("Not implemented.",err,error,*999)
        CASE DEFAULT
          localerror="The scaling type of "//trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &
            & " is invalid for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END SELECT
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetNodeNumberOfScaleFactorDofsGet")
    RETURN
999 errors("Field_ParameterSetNodeNumberOfScaleFactorDofsGet",err,error)
    exits("Field_ParameterSetNodeNumberOfScaleFactorDofsGet")
    RETURN 1
    
  END SUBROUTINE field_parametersetnodenumberofscalefactordofsget

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetnodescalefactorset(field,variableType,versionNumber, &
    & derivativenumber,nodeusernumber,componentnumber,scalefactor,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG),  INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: versionnumber
    INTEGER(INTG), INTENT(IN) :: derivativenumber
    INTEGER(INTG), INTENT(IN) :: nodeusernumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(DP), INTENT(IN) :: scalefactor
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    LOGICAL :: ghostnode,usernodeexists
    INTEGER(INTG) :: domainlocalnodenumber,scalingidx,dofidx
    REAL(DP), POINTER :: fieldscalefactors(:)
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(domain_topology_type), POINTER :: domaintopology
    TYPE(domain_nodes_type), POINTER :: domainnodes
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetNodeScaleFactorSet",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        SELECT CASE(field%SCALINGS%SCALING_TYPE)
        CASE(field_no_scaling)
          CALL flagerror("Can not set the scale factors for a field with no scaling.",err,error,*999)
        CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
          IF(variabletype>0.AND.variabletype<=field_number_of_variable_types) THEN
            fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
            IF(ASSOCIATED(fieldvariable)) THEN
              IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                IF(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE==field_node_based_interpolation)THEN
                  domaintopology=>fieldvariable%COMPONENTS(componentnumber)%DOMAIN%TOPOLOGY
                  CALL domain_topology_node_check_exists(domaintopology,nodeusernumber,usernodeexists, &
                    & domainlocalnodenumber,ghostnode,err,error,*999)
                  IF(usernodeexists) THEN
                    IF(ghostnode) THEN
                      localerror="Cannot update by node for user node "// &
                        & trim(number_to_vstring(nodeusernumber,"*",err,error))//" as it is a ghost node."
                      CALL flagerror(localerror,err,error,*999)
                    ELSE
                      domainnodes=>domaintopology%NODES
                      IF(ASSOCIATED(domainnodes)) THEN
                        IF(derivativenumber>0.AND.derivativenumber<=domainnodes%NODES(domainlocalnodenumber)% &
                          & number_of_derivatives) THEN
                          IF(versionnumber>0.AND.versionnumber<= &
                            & fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                            & node_param2dof_map%NODES(domainlocalnodenumber)%DERIVATIVES(derivativenumber)% &
                            & number_of_versions) THEN

                            ! The field component number is used to determine which scaling index to use.
                            ! The number of scaling indices are set based on the number of mesh components (not field components).
                            scalingidx=fieldvariable%COMPONENTS(componentnumber)%SCALING_INDEX
                            NULLIFY(fieldscalefactors)
                            CALL distributed_vector_data_get(field%SCALINGS%SCALINGS(scalingidx)% &
                              & scale_factors,fieldscalefactors,err,error,*999)
                            dofidx=domainnodes%NODES(nodeusernumber)%DERIVATIVES(derivativenumber)%DOF_INDEX(versionnumber)
                            !dofIdx=fieldVariable%COMPONENTS(componentNumber)%PARAM_TO_DOF_MAP% &
                            !  & NODE_PARAM2DOF_MAP%NODES(domainLocalNodeNumber)%DERIVATIVES(derivativeNumber)% &
                            !  & VERSIONS(versionNumber)
                            fieldscalefactors(dofidx)=scalefactor
                            CALL distributed_vector_data_restore(field%SCALINGS%SCALINGS(scalingidx)% &
                              & scale_factors,fieldscalefactors,err,error,*999)

                          ELSE
                            localerror="Version number "//trim(number_to_vstring(versionnumber,"*",err,error))// &
                              & " is invalid for derivative number "// &
                              & trim(number_to_vstring(derivativenumber,"*",err,error))//" of node number "// &
                              & trim(number_to_vstring(nodeusernumber,"*",err,error))//" of component number "// &
                              & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                              & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                              & trim(number_to_vstring(domainnodes%NODES(domainlocalnodenumber)% &
                              & derivatives(derivativenumber)%numberOfVersions,"*",err,error))//" versions "// &
                              & "(note version numbers are indexed directly from the value the user specifies during "// &
                              & "element creation and no record is kept of the total number of versions the user sets."// &
                              & "The maximum version number the user sets defines the total number of versions allocated)."
                            CALL flagerror(localerror,err,error,*999)
                          ENDIF
                        ELSE
                          localerror="Derivative number "//trim(number_to_vstring(derivativenumber,"*",err,error))// &
                            & " is invalid for user node number "// &
                            & trim(number_to_vstring(nodeusernumber,"*",err,error))//" of component number "// &
                            & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                            & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                            & trim(number_to_vstring(domainnodes%NODES(domainlocalnodenumber)% &
                            & number_of_derivatives,"*",err,error))//" derivatives."
                          CALL flagerror(localerror,err,error,*999)
                        ENDIF
                      ENDIF
                    ENDIF
                  ELSE
                    localerror="The specified user node number of "// &
                      & trim(number_to_vstring(nodeusernumber,"*",err,error))// &
                      &  " does not exist in the domain for field component number "// &
                      & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                      & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                      & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The interpolation type of "//trim(number_to_vstring(fieldvariable%COMPONENTS(componentnumber)% &
                    & interpolation_type,"*",err,error))//" is not nodally based for component number "// &
                    & trim(number_to_vstring(componentnumber,"*",err,error))//" of field number "// &
                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                  & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                  & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                  & " components."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        CASE(field_arc_length_scaling)
          CALL flagerror("Not implemented.",err,error,*999)
        CASE DEFAULT
          localerror="The scaling type of "//trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &
            & " is invalid for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END SELECT
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetNodeScaleFactorSet")
    RETURN
999 errorsexits("Field_ParameterSetNodeScaleFactorSet",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetnodescalefactorset
  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetnodescalefactorsset(field,variableType,meshComponentNumber,scaleFactors,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG),  INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: meshcomponentnumber
    REAL(DP), INTENT(IN) :: scalefactors(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: scalingidx
    REAL(DP), POINTER :: fieldscalefactors(:)
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetNodeScaleFactorsSet",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        SELECT CASE(field%SCALINGS%SCALING_TYPE)
        CASE(field_no_scaling)
          CALL flagerror("Can not set the scale factors for a field with no scaling.",err,error,*999)
        CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
          IF(variabletype>0.AND.variabletype<=field_number_of_variable_types) THEN
            fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
            IF(ASSOCIATED(fieldvariable)) THEN
              !The NUMBER_OF_SCALING_INDICES is the same as the number of mesh components (not field components).  
              IF(meshcomponentnumber>=1.AND.meshcomponentnumber<=field%SCALINGS%NUMBER_OF_SCALING_INDICES) THEN
                scalingidx=meshcomponentnumber
                NULLIFY(fieldscalefactors)
                CALL distributed_vector_data_get(field%SCALINGS%SCALINGS(scalingidx)%SCALE_FACTORS, &
                  & fieldscalefactors,err,error,*999)
                IF(SIZE(fieldscalefactors,1)==SIZE(scalefactors,1)) THEN
                  fieldscalefactors = scalefactors
                ELSE
                  localerror="The input scale factors have dimensions "//trim(number_to_vstring(SIZE(scalefactors),"*",err,error)) &
                    & //" and does not match the expected scale factor dimensions of "// &
                    & trim(number_to_vstring(SIZE(fieldscalefactors),"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
                CALL distributed_vector_data_restore(field%SCALINGS%SCALINGS(scalingidx)% &
                  & scale_factors,fieldscalefactors,err,error,*999)
              ELSE
                localerror="Mesh component number "//trim(number_to_vstring(meshcomponentnumber,"*",err,error))// &
                  & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                  & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                  & trim(number_to_vstring(field%SCALINGS%NUMBER_OF_SCALING_INDICES,"*",err,error))// &
                  & " components."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        CASE(field_arc_length_scaling)
          CALL flagerror("Not implemented.",err,error,*999)
        CASE DEFAULT
          localerror="The scaling type of "//trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &
            & " is invalid for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END SELECT
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetNodeScaleFactorsSet")
    RETURN
999 errorsexits("Field_ParameterSetNodeScaleFactorsSet",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetnodescalefactorsset

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolationparametersscalefactorslineget(LINE_NUMBER,INTERPOLATION_PARAMETERS,ERR,ERROR,*)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: line_number
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx,mk,nk,nn,np,ns,ny,scaling_idx,nv
    REAL(DP), POINTER :: scale_factors(:)
    TYPE(basis_type), POINTER :: basis
    TYPE(domain_lines_type), POINTER :: lines_topology
    TYPE(domain_nodes_type), POINTER :: nodes_topology
    TYPE(varying_string) :: local_error

    enters("Field_InterpolationParametersScaleFactorsLineGet",err,error,*999)

    IF(ASSOCIATED(interpolation_parameters)) THEN
      SELECT CASE(interpolation_parameters%FIELD%SCALINGS%SCALING_TYPE)
      CASE(field_no_scaling)
        CALL flagerror("Can not scale factors for a field with no scaling.",err,error,*999)
      CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
        DO component_idx=1,interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
          lines_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%LINES
          IF(line_number>0.AND.line_number<=lines_topology%NUMBER_OF_LINES) THEN
            basis=>lines_topology%LINES(line_number)%BASIS
            interpolation_parameters%BASES(component_idx)%PTR=>basis
            IF(component_idx==1) THEN
              interpolation_parameters%NUMBER_OF_XI=basis%NUMBER_OF_XI
            ELSE
              IF(basis%NUMBER_OF_XI/=interpolation_parameters%NUMBER_OF_XI) &
                & CALL flagerror("Inconsistent number of xi directions???",err,error,*999)
            ENDIF
            SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
            CASE(field_constant_interpolation)             
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_element_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_node_based_interpolation)
              nodes_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%NODES
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=basis%NUMBER_OF_ELEMENT_PARAMETERS
              scaling_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%SCALING_INDEX
              NULLIFY(scale_factors)
              CALL distributed_vector_data_get(interpolation_parameters%FIELD%SCALINGS%SCALINGS(scaling_idx)% &
                & scale_factors,scale_factors,err,error,*999)
              DO nn=1,basis%NUMBER_OF_NODES
                np=lines_topology%LINES(line_number)%NODES_IN_LINE(nn)
                DO mk=1,basis%NUMBER_OF_DERIVATIVES(nn)
                  nk=lines_topology%LINES(line_number)%DERIVATIVES_IN_LINE(1,mk,nn)
                  nv=lines_topology%LINES(line_number)%DERIVATIVES_IN_LINE(2,mk,nn)
                  ns=basis%ELEMENT_PARAMETER_INDEX(mk,nn)
                  ny=nodes_topology%NODES(np)%DERIVATIVES(nk)%DOF_INDEX(nv)
                  interpolation_parameters%SCALE_FACTORS(ns,component_idx)=scale_factors(ny)
                ENDDO !mk
              ENDDO !nn
              CALL distributed_vector_data_restore(interpolation_parameters%FIELD%SCALINGS%SCALINGS(scaling_idx)% &
                & scale_factors,scale_factors,err,error,*999)
            CASE(field_grid_point_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_gauss_point_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_data_point_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE DEFAULT
              local_error="The interpolation type of "//trim(number_to_vstring(interpolation_parameters%FIELD_VARIABLE% &
              & components(component_idx)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
              & trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
              & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
          ELSE
            local_error="The line number of "//trim(number_to_vstring(line_number,"*",err,error))// &
              & " is invalid. The number must be between 1 and "// &
              & trim(number_to_vstring(lines_topology%NUMBER_OF_LINES,"*",err,error))// &
              & " for component number "//trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
              & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ENDDO !component_idx
      CASE(field_arc_length_scaling)
        CALL flagerror("Not implemented.",err,error,*999)
      CASE DEFAULT
        local_error="The scaling type of "//trim(number_to_vstring(interpolation_parameters%FIELD%SCALINGS% &
          & scaling_type,"*",err,error))//" is invalid for field number "// &
          & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      END SELECT
    ELSE
      CALL flagerror("Interpolation parameters is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string(diagnostic_output_type,"Interpolation scale factors:",err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field number = ",interpolation_parameters%FIELD%USER_NUMBER,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field variable number = ",interpolation_parameters%FIELD_VARIABLE% &
        & variable_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Line number = ",line_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of components = ",interpolation_parameters%FIELD_VARIABLE% &
        & number_of_components,err,error,*999)
      DO component_idx=1,interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
        CALL write_string_value(diagnostic_output_type,"    Component = ",component_idx,err,error,*999)
        CALL write_string_value(diagnostic_output_type,"      Number of parameters = ",interpolation_parameters% &
          & number_of_parameters(component_idx),err,error,*999)
        CALL write_string_vector(diagnostic_output_type,1,1,interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx),4,4, &
          & interpolation_parameters%SCALE_FACTORS(:,component_idx),'("      Scale factors :",4(X,E13.6))','(21X,4(X,E13.6))', &
          & err,error,*999)
      ENDDO !component_idx
    ENDIF

    exits("Field_InterpolationParametersScaleFactorsLineGet")
    RETURN
999 errors("Field_InterpolationParametersScaleFactorsLineGet",err,error)
    exits("Field_InterpolationParametersScaleFactorsLineGet")
    RETURN 1
    
  END SUBROUTINE field_interpolationparametersscalefactorslineget

  !
  !================================================================================================================================
  !

  SUBROUTINE field_interpolationparametersscalefactorsfaceget(FACE_NUMBER,INTERPOLATION_PARAMETERS,ERR,ERROR,*)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: face_number
    TYPE(field_interpolation_parameters_type), POINTER :: interpolation_parameters
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx,mk,nk,nn,np,ns,ny,scaling_idx,nv
    REAL(DP), POINTER :: scale_factors(:)
    TYPE(basis_type), POINTER :: basis
    TYPE(domain_faces_type), POINTER :: faces_topology
    TYPE(domain_nodes_type), POINTER :: nodes_topology
    TYPE(varying_string) :: local_error

    enters("Field_InterpolationParametersScaleFactorsFaceGet",err,error,*999)

    IF(ASSOCIATED(interpolation_parameters)) THEN
      SELECT CASE(interpolation_parameters%FIELD%SCALINGS%SCALING_TYPE)
      CASE(field_no_scaling)
        CALL flagerror("Can not scale factors for a field with no scaling.",err,error,*999)
      CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
        DO component_idx=1,interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
          faces_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%FACES
          IF(face_number>0.AND.face_number<=faces_topology%NUMBER_OF_FACES) THEN
            basis=>faces_topology%FACES(face_number)%BASIS
            interpolation_parameters%BASES(component_idx)%PTR=>basis
            IF(component_idx==1) THEN
              interpolation_parameters%NUMBER_OF_XI=basis%NUMBER_OF_XI
            ELSE
              IF(basis%NUMBER_OF_XI/=interpolation_parameters%NUMBER_OF_XI) &
                & CALL flagerror("Inconsistent number of xi directions???",err,error,*999)
            ENDIF
            SELECT CASE(interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%INTERPOLATION_TYPE)
            CASE(field_constant_interpolation)             
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_element_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_node_based_interpolation)
              nodes_topology=>interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%DOMAIN%TOPOLOGY%NODES
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=basis%NUMBER_OF_ELEMENT_PARAMETERS
              scaling_idx=interpolation_parameters%FIELD_VARIABLE%COMPONENTS(component_idx)%SCALING_INDEX
              NULLIFY(scale_factors)
              CALL distributed_vector_data_get(interpolation_parameters%FIELD%SCALINGS%SCALINGS(scaling_idx)% &
                & scale_factors,scale_factors,err,error,*999)
              DO nn=1,basis%NUMBER_OF_NODES
                np=faces_topology%FACES(face_number)%NODES_IN_FACE(nn)
                DO mk=1,basis%NUMBER_OF_DERIVATIVES(nn)
                  nk=faces_topology%FACES(face_number)%DERIVATIVES_IN_FACE(1,mk,nn)
                  nv=faces_topology%FACES(face_number)%DERIVATIVES_IN_FACE(2,mk,nn)
                  ns=basis%ELEMENT_PARAMETER_INDEX(mk,nn)
                  ny=nodes_topology%NODES(np)%DERIVATIVES(nk)%DOF_INDEX(nv)
                  interpolation_parameters%SCALE_FACTORS(ns,component_idx)=scale_factors(ny)
                ENDDO !mk
              ENDDO !nn
              CALL distributed_vector_data_restore(interpolation_parameters%FIELD%SCALINGS%SCALINGS(scaling_idx)% &
                & scale_factors,scale_factors,err,error,*999)
            CASE(field_grid_point_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_gauss_point_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE(field_data_point_based_interpolation)
              interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx)=1
              interpolation_parameters%PARAMETERS(1,component_idx)=1.0_dp
            CASE DEFAULT
              local_error="The interpolation type of "//trim(number_to_vstring(interpolation_parameters%FIELD_VARIABLE% &
              & components(component_idx)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
              & trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
              & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
          ELSE
            local_error="The face number of "//trim(number_to_vstring(face_number,"*",err,error))// &
              & " is invalid. The number must be between 1 and "// &
              & trim(number_to_vstring(faces_topology%NUMBER_OF_FACES,"*",err,error))// &
              & " for component number "//trim(number_to_vstring(component_idx,"*",err,error))//" of field number "// &
              & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ENDDO !component_idx
      CASE(field_arc_length_scaling)
        CALL flagerror("Not implemented.",err,error,*999)
      CASE DEFAULT
        local_error="The scaling type of "//trim(number_to_vstring(interpolation_parameters%FIELD%SCALINGS% &
          & scaling_type,"*",err,error))//" is invalid for field number "// &
          & trim(number_to_vstring(interpolation_parameters%FIELD%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      END SELECT
    ELSE
      CALL flagerror("Interpolation parameters is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string(diagnostic_output_type,"Interpolation scale factors:",err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field number = ",interpolation_parameters%FIELD%USER_NUMBER,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Field variable number = ",interpolation_parameters%FIELD_VARIABLE% &
        & variable_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Face number = ",face_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of components = ",interpolation_parameters%FIELD_VARIABLE% &
        & number_of_components,err,error,*999)
      DO component_idx=1,interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS
        CALL write_string_value(diagnostic_output_type,"    Component = ",component_idx,err,error,*999)
        CALL write_string_value(diagnostic_output_type,"      Number of parameters = ",interpolation_parameters% &
          & number_of_parameters(component_idx),err,error,*999)
        CALL write_string_vector(diagnostic_output_type,1,1,interpolation_parameters%NUMBER_OF_PARAMETERS(component_idx),4,4, &
          & interpolation_parameters%SCALE_FACTORS(:,component_idx),'("      Scale factors :",4(X,E13.6))','(21X,4(X,E13.6))', &
          & err,error,*999)
      ENDDO !component_idx
    ENDIF

    exits("Field_InterpolationParametersScaleFactorsFaceGet")
    RETURN
999 errors("Field_InterpolationParametersScaleFactorsFaceGet",err,error)
    exits("Field_InterpolationParametersScaleFactorsFaceGet")
    RETURN 1
    
  END SUBROUTINE field_interpolationparametersscalefactorsfaceget

  !
  !================================================================================================================================
  !

  SUBROUTINE field_physical_point_finalise(PHYSICAL_POINT,ERR,ERROR,*)

    !Argument variables
    TYPE(field_physical_point_type), POINTER :: physical_point
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_PHYSICAL_POINT_FINALISE",err,error,*999)

    IF(ASSOCIATED(physical_point)) THEN
      IF(ALLOCATED(physical_point%VALUES)) DEALLOCATE(physical_point%VALUES)
      DEALLOCATE(physical_point)
    ENDIF

    exits("FIELD_PHYSICAL_POINT_FINALISE")
    RETURN
999 errorsexits("FIELD_PHYSICAL_POINT_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_physical_point_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_physical_point_initialise(FIELD_INTERPOLATED_POINT,GEOMETRIC_INTERPOLATED_POINT,PHYSICAL_POINT, &
    & err,error,*)

    !Argument variables
    TYPE(field_interpolated_point_type), POINTER :: field_interpolated_point
    TYPE(field_interpolated_point_type), POINTER :: geometric_interpolated_point
    TYPE(field_physical_point_type), POINTER :: physical_point
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dummy_err
    TYPE(field_type), POINTER :: field,geometric_field
    TYPE(field_interpolation_parameters_type), POINTER :: field_interpolation_parameters,geometric_interpolation_parameters
    TYPE(varying_string) :: dummy_error

    enters("FIELD_PHYSICAL_POINT_INITIALISE",err,error,*999)

    IF(ASSOCIATED(field_interpolated_point)) THEN
      IF(ASSOCIATED(geometric_interpolated_point)) THEN
        field_interpolation_parameters=>field_interpolated_point%INTERPOLATION_PARAMETERS
        IF(ASSOCIATED(field_interpolation_parameters)) THEN
          geometric_interpolation_parameters=>geometric_interpolated_point%INTERPOLATION_PARAMETERS
          IF(ASSOCIATED(geometric_interpolation_parameters)) THEN
            field=>field_interpolation_parameters%FIELD
            IF(ASSOCIATED(field)) THEN
              geometric_field=>geometric_interpolation_parameters%FIELD
              IF(ASSOCIATED(geometric_field)) THEN
                IF(ASSOCIATED(field%GEOMETRIC_FIELD,geometric_field)) THEN
                  IF(ASSOCIATED(physical_point)) THEN
                    CALL flagerror("Physical point is already associated.",err,error,*998)
                  ELSE
                    ALLOCATE(physical_point,stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate physical point",err,error,*999)
                    physical_point%FIELD_INTERPOLATED_POINT=>field_interpolated_point
                    physical_point%GEOMETRIC_INTERPOLATED_POINT=>geometric_interpolated_point
                    physical_point%PHYSICAL_DERIVATIVE_TYPE=0
                    ALLOCATE(physical_point%VALUES(field_interpolation_parameters%FIELD_VARIABLE%NUMBER_OF_COMPONENTS),stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate physical point values.",err,error,*999)
                    physical_point%VALUES=0.0_dp
                  ENDIF
                ELSE
                  CALL flagerror("The field geometric field and the specified geometric field are not associated.", &
                    & err,error,*999)
                ENDIF
              ELSE
                CALL flagerror("Geometric interpolation parameters field is not associated.",err,error,*999)
              ENDIF
            ELSE
              CALL flagerror("Field interpolation parameters field is not associated.",err,error,*999)
            ENDIF
          ELSE
            CALL flagerror("Geometric interpolated point interpolation parameters is not associated.",err,error,*999)
          ENDIF
        ELSE
          CALL flagerror("Field interpolated point interpolation parameters is not associated.",err,error,*999)
        ENDIF
      ELSE
        CALL flagerror("Geometric interpolated point is not associated.",err,error,*998)
      ENDIF
    ELSE
      CALL flagerror("Field interpolated point is not associated.",err,error,*998)
    ENDIF

    exits("FIELD_PHYSICAL_POINT_INITIALISE")
    RETURN
999 CALL field_physical_point_finalise(physical_point,dummy_err,dummy_error,*998)
998 errorsexits("FIELD_PHYSICAL_POINT_INITIALISE",err,error)
    RETURN 1
    
  END SUBROUTINE field_physical_point_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_physical_points_finalise(PHYSICAL_POINTS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_physical_point_ptr_type), POINTER :: physical_points(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: var_type_idx

    enters("FIELD_PHYSICAL_POINTS_FINALISE",err,error,*999)

    IF(ASSOCIATED(physical_points)) THEN
      DO var_type_idx=1,SIZE(physical_points,1)
        CALL field_physical_point_finalise(physical_points(var_type_idx)%PTR,err,error,*999)
      ENDDO !var_type_idx
      DEALLOCATE(physical_points)
    ENDIF

    exits("FIELD_PHYSICAL_POINTS_FINALISE")
    RETURN
999 errorsexits("FIELD_PHYSICAL_POINTS_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_physical_points_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_physical_points_initialise(FIELD_INTERPOLATED_POINTS,GEOMETRIC_INTERPOLATED_POINTS, &
    & physical_points,err,error,*)

    !Argument variables
    TYPE(field_interpolated_point_ptr_type), POINTER :: field_interpolated_points(:)
    TYPE(field_interpolated_point_ptr_type), POINTER :: geometric_interpolated_points(:)
    TYPE(field_physical_point_ptr_type), POINTER :: physical_points(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dummy_err,var_type_idx
    TYPE(varying_string) :: dummy_error

    enters("FIELD_PHYSICAL_POINTS_INITIALISE",err,error,*998)

    IF(ASSOCIATED(field_interpolated_points)) THEN
      IF(ASSOCIATED(geometric_interpolated_points)) THEN
        IF(ASSOCIATED(physical_points)) THEN
          CALL flagerror("Physical points is already associated.",err,error,*998)
        ELSE
          ALLOCATE(physical_points(field_number_of_variable_types),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate physical points.",err,error,*999)
          DO var_type_idx=1,field_number_of_variable_types

            NULLIFY(physical_points(var_type_idx)%PTR)
            IF(ASSOCIATED(field_interpolated_points(var_type_idx)%PTR).AND. &
              & ASSOCIATED(geometric_interpolated_points(var_type_idx)%PTR)) &
              & CALL field_physical_point_initialise(field_interpolated_points(var_type_idx)%PTR, &
              & geometric_interpolated_points(var_type_idx)%PTR,physical_points(var_type_idx)%PTR,err,error,*999)
          ENDDO !var_type_idx
        ENDIF
      ELSE
        CALL flagerror("Geometric interpolated points is not associated.",err,error,*998)
      ENDIF
    ELSE
      CALL flagerror("Field interpolated points is not associated.",err,error,*998)
    ENDIF
    
    exits("FIELD_PHYSICAL_POINTS_INITIALISE")
    RETURN
999 CALL field_physical_points_finalise(physical_points,dummy_err,dummy_error,*998)
998 errorsexits("FIELD_PHYSICAL_POINTS_INITIALISE",err,error)
    RETURN 1
    
  END SUBROUTINE field_physical_points_initialise
  
  !
  !================================================================================================================================
  !

  SUBROUTINE field_mappings_calculate(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: variable_idx,component_idx,domain_type_idx,variable_global_dofs_offset,number_of_global_variable_dofs, &
      & NUMBER_OF_CONSTANT_DOFS,NUMBER_OF_ELEMENT_DOFS,NUMBER_OF_NODE_DOFS,NUMBER_OF_GRID_POINT_DOFS,NUMBER_OF_GAUSS_POINT_DOFS, &
      & NUMBER_OF_LOCAL_VARIABLE_DOFS,TOTAL_NUMBER_OF_VARIABLE_DOFS,NUMBER_OF_DOMAINS,variable_global_ny, &
      & variable_local_ny,domain_idx,domain_no,constant_nyy,element_ny,element_nyy,node_ny,node_nyy,grid_point_nyy, &
      & Gauss_point_nyy,version_idx,derivative_idx,ny,NUMBER_OF_COMPUTATIONAL_NODES, &
      & my_computational_node_number,domain_type_stop,start_idx,stop_idx,element_idx,node_idx,NUMBER_OF_LOCAL, NGP, MAX_NGP, &
      & gp,MPI_IERROR,NUMBER_OF_GLOBAL_DOFS,gauss_point_idx,NUMBER_OF_DATA_POINT_DOFS,data_point_nyy,dataPointIdx,elementIdx, &
      & localDataNumber,globalElementNumber
    INTEGER(INTG), ALLOCATABLE :: variable_local_dofs_offsets(:),variable_ghost_dofs_offsets(:), &
      & localDataParamCount(:),ghostDataParamCount(:)
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_mapping_type), POINTER :: elementsmapping,dofs_mapping,field_variable_dofs_mapping
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_variable_component_type), POINTER :: field_component
    TYPE(varying_string) :: local_error
    TYPE(basis_type), POINTER :: basis

    enters("FIELD_MAPPINGS_CALCULATE",err,error,*999)
    
    IF(ASSOCIATED(field)) THEN
      number_of_computational_nodes=computational_nodes_number_get(err,error)
      IF(err/=0) GOTO 999
      my_computational_node_number=computational_node_number_get(err,error)
      IF(err/=0) GOTO 999
      !Calculate the number of global and local degrees of freedom for the field variables and components. Each field variable
      !component has a set of DOFs so loop over the components for each variable component and count up the DOFs.
      DO variable_idx=1,field%NUMBER_OF_VARIABLES
        number_of_constant_dofs=0
        number_of_element_dofs=0
        number_of_node_dofs=0
        number_of_grid_point_dofs=0
        number_of_gauss_point_dofs=0
        number_of_data_point_dofs=0
        number_of_local_variable_dofs=0
        total_number_of_variable_dofs=0
        number_of_global_variable_dofs=0
        DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
          field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
          SELECT CASE(field_component%INTERPOLATION_TYPE)
          CASE(field_constant_interpolation)
            number_of_constant_dofs=number_of_constant_dofs+1
            number_of_local_variable_dofs=number_of_local_variable_dofs+1
            total_number_of_variable_dofs=total_number_of_variable_dofs+1
            number_of_global_variable_dofs=number_of_global_variable_dofs+1
          CASE(field_element_based_interpolation)
            domain=>field_component%DOMAIN
            domain_topology=>domain%TOPOLOGY
            number_of_element_dofs=number_of_element_dofs+domain_topology%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS
            number_of_local_variable_dofs=number_of_local_variable_dofs+domain_topology%ELEMENTS%NUMBER_OF_ELEMENTS
            total_number_of_variable_dofs=total_number_of_variable_dofs+domain_topology%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS
            number_of_global_variable_dofs=number_of_global_variable_dofs+domain_topology%ELEMENTS%NUMBER_OF_GLOBAL_ELEMENTS
          CASE(field_node_based_interpolation)
            domain=>field_component%DOMAIN
            domain_topology=>domain%TOPOLOGY
            number_of_node_dofs=number_of_node_dofs+domain_topology%DOFS%TOTAL_NUMBER_OF_DOFS
            number_of_local_variable_dofs=number_of_local_variable_dofs+domain_topology%DOFS%NUMBER_OF_DOFS
            total_number_of_variable_dofs=total_number_of_variable_dofs+domain_topology%DOFS%TOTAL_NUMBER_OF_DOFS
            number_of_global_variable_dofs=number_of_global_variable_dofs+domain_topology%DOFS%NUMBER_OF_GLOBAL_DOFS
          CASE(field_grid_point_based_interpolation)
            CALL flagerror("Not implemented.",err,error,*999)
          CASE(field_gauss_point_based_interpolation)
            domain=>field_component%DOMAIN
            domain_topology=>domain%TOPOLOGY
            max_ngp = -1
            DO element_idx=1,domain_topology%ELEMENTS%NUMBER_OF_ELEMENTS
              basis=>domain_topology%ELEMENTS%ELEMENTS(element_idx)%BASIS
              ngp=basis%QUADRATURE%QUADRATURE_SCHEME_MAP(basis_default_quadrature_scheme)%PTR%NUMBER_OF_GAUSS
              max_ngp=max(max_ngp,ngp)
            ENDDO !element_idx
            CALL mpi_allreduce(mpi_in_place,max_ngp,1,mpi_integer,mpi_max,mpi_comm_world,mpi_ierror)
            CALL mpi_error_check("MPI_ALLREDUCE",mpi_ierror,err,error,*999)             
            number_of_gauss_point_dofs=number_of_gauss_point_dofs+domain_topology%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS*max_ngp
            number_of_local_variable_dofs=number_of_local_variable_dofs+domain_topology%ELEMENTS%NUMBER_OF_ELEMENTS*max_ngp
            total_number_of_variable_dofs=total_number_of_variable_dofs+domain_topology%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS*max_ngp
            number_of_global_variable_dofs=number_of_global_variable_dofs+domain_topology%ELEMENTS%NUMBER_OF_GLOBAL_ELEMENTS*max_ngp
          CASE(field_data_point_based_interpolation)
            ! Data points do not have domain topology or mappings, since they're the same across all mesh components
            decompositiontopology=>field%DECOMPOSITION%TOPOLOGY
            number_of_data_point_dofs=number_of_data_point_dofs+decompositiontopology%dataPoints%totalNumberOfDataPoints
            number_of_local_variable_dofs=number_of_local_variable_dofs+decompositiontopology%dataPoints%numberOfDataPoints
            total_number_of_variable_dofs=total_number_of_variable_dofs+decompositiontopology% &
              & datapoints%totalNumberOfDataPoints  
            number_of_global_variable_dofs=number_of_global_variable_dofs+decompositiontopology%dataPoints% &
              & numberofglobaldatapoints
          CASE DEFAULT
            local_error="The interpolation type of "// &
              & trim(number_to_vstring(field%VARIABLES(variable_idx)%COMPONENTS(component_idx)%INTERPOLATION_TYPE, &
              & "*",err,error))//" is invalid for component number "//trim(number_to_vstring(component_idx,"*",err,error))// &
              & " of variable type  "//trim(number_to_vstring(field%VARIABLES(variable_idx)%VARIABLE_TYPE,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          END SELECT
        ENDDO !component_idx
        !Allocate the DOF to parameters (nodes, elements, gauss, components etc.) maps. 
        field%VARIABLES(variable_idx)%NUMBER_OF_DOFS=number_of_local_variable_dofs
        field%VARIABLES(variable_idx)%TOTAL_NUMBER_OF_DOFS=total_number_of_variable_dofs
        field%VARIABLES(variable_idx)%NUMBER_OF_GLOBAL_DOFS=number_of_global_variable_dofs
        ALLOCATE(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(2,total_number_of_variable_dofs),stat=err)
        IF(err/=0) CALL flagerror("Could not allocate dof to parameter map.",err,error,*999)
        field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_DOFS=total_number_of_variable_dofs
        IF(number_of_constant_dofs>0) THEN
          ALLOCATE(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%CONSTANT_DOF2PARAM_MAP(number_of_constant_dofs),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate dof to parameter constant map.",err,error,*999)
          field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_CONSTANT_DOFS=number_of_constant_dofs
        ENDIF
        IF(number_of_element_dofs>0) THEN
          ALLOCATE(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%ELEMENT_DOF2PARAM_MAP(2,number_of_element_dofs),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate dof to parameter element map.",err,error,*999)
          field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_ELEMENT_DOFS=number_of_element_dofs
        ENDIF
        IF(number_of_node_dofs>0) THEN
          ALLOCATE(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NODE_DOF2PARAM_MAP(4,number_of_node_dofs),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate dof to parameter node map.",err,error,*999)
          field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_NODE_DOFS=number_of_node_dofs
        ENDIF
        IF(number_of_grid_point_dofs>0) THEN
          ALLOCATE(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%GRID_POINT_DOF2PARAM_MAP(2,number_of_grid_point_dofs),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate dof to parameter grid point map.",err,error,*999)
          field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_GRID_POINT_DOFS=number_of_grid_point_dofs
        ENDIF
        IF(number_of_gauss_point_dofs>0) THEN
          ALLOCATE(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%GAUSS_POINT_DOF2PARAM_MAP(3,number_of_gauss_point_dofs),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate dof to parameter Gauss point map.",err,error,*999)
          field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_GAUSS_POINT_DOFS=number_of_gauss_point_dofs
        ENDIF
        IF(number_of_data_point_dofs>0) THEN
          ALLOCATE(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DATA_POINT_DOF2PARAM_MAP(3,number_of_data_point_dofs),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate dof to parameter Gauss point map.",err,error,*999)
          field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_DATA_POINT_DOFS=number_of_data_point_dofs
        ENDIF
      ENDDO !variable_idx
      !Allocate the mapping arrays
      decomposition=>field%DECOMPOSITION
      ALLOCATE(variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1),stat=err)
      IF(err/=0) CALL flagerror("Could not allocate variable local dofs offsets.",err,error,*999)
      ALLOCATE(variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1),stat=err)
      IF(err/=0) CALL flagerror("Could not allocate variable ghost dofs offsets.",err,error,*999)
      !We want to ensure that the ghost DOFs are at the end so loop over the DOFs in two passes. The first pass will process
      !the local DOFs for each variable component and the second pass will process the ghost DOFs for each variable component.
      IF(number_of_computational_nodes==1) THEN
        domain_type_stop=1 !Local only
      ELSE
        domain_type_stop=2 !Local+Ghosts
      ENDIF
      !Calculate the local and global numbers and set up the mappings
      DO variable_idx=1,field%NUMBER_OF_VARIABLES
        constant_nyy=0
        element_nyy=0
        node_nyy=0
        grid_point_nyy=0
        gauss_point_nyy=0
        data_point_nyy=0
        variable_local_ny=0
        field_variable_dofs_mapping=>field%VARIABLES(variable_idx)%DOMAIN_MAPPING
        IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
          ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(field%VARIABLES(variable_idx)%NUMBER_OF_GLOBAL_DOFS),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate variable dofs mapping global to local map.",err,error,*999)
          field_variable_dofs_mapping%NUMBER_OF_GLOBAL=field%VARIABLES(variable_idx)%NUMBER_OF_GLOBAL_DOFS
        ENDIF
        !The ordering of the DOFs with respect to components is arbitrary. Allow for two orderings: The first ordering is that
        !all the DOFs from one component are processed before all the DOFs of the next component. This is known as "separated"
        !component DOF ordering. The second ordering is to process all the components for a particular parameter (e.g., node)
        !and then process all the components for the next parameter. This is known as "contiguous" component DOF ordering.
        !Continguous component ordering only works if each of the components has the same DOF structure. For this reason
        !separate component ordering is the default.
        SELECT CASE(field%VARIABLES(variable_idx)%DOF_ORDER_TYPE)
        CASE(field_separated_component_dof_order)
          !Loop over the domain types. Here domain_type_idx=1 for the non-ghosted dofs and =2 for the ghosted dofs.
          variable_ghost_dofs_offsets=0
          DO domain_type_idx=1,domain_type_stop
            variable_global_dofs_offset=0
            variable_local_dofs_offsets=0
            DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
              number_of_local=0
              field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
              SELECT CASE(field_component%INTERPOLATION_TYPE)
              CASE(field_constant_interpolation)
                !Only process the non-ghosted dofs for constant interpolation
                IF(domain_type_idx==1) THEN
                  variable_local_ny=variable_local_ny+1
                  !Allocate and set up global to local domain map for variable mapping
                  IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                    variable_global_ny=1+variable_global_dofs_offset
                    CALL domain_mappings_mapping_global_initialise(field_variable_dofs_mapping% &
                      & global_to_local_map(variable_global_ny),err,error,*999)
                    number_of_domains=number_of_computational_nodes !Constant is in all domains
                    ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(number_of_domains), &
                      & stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local number.", &
                      & err,error,*999)
                    ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(number_of_domains), &
                      & stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map domain number.", &
                      & err,error,*999)
                    ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(number_of_domains), &
                      & stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local type.", &
                      & err,error,*999)
                    !A constant dof is mapped to all domains.
                    field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS=number_of_domains
                    DO domain_idx=1,number_of_domains
                      domain_no=domain_idx-1
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                        & 1+variable_local_dofs_offsets(domain_no)
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)=domain_no
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)= &
                        & domain_local_internal
                    ENDDO !domain_idx
                  ENDIF
                  constant_nyy=constant_nyy+1
                  !Setup dof to parameter map
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(1,variable_local_ny)=field_constant_dof_type
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(2,variable_local_ny)=constant_nyy
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%CONSTANT_DOF2PARAM_MAP(constant_nyy)=component_idx
                  !Setup reverse parameter to dof map
                  field_component%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS=1
                  field_component%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP=variable_local_ny
                  !Adjust the offsets
                  variable_global_dofs_offset=variable_global_dofs_offset+1
                  variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+1
                ENDIF
              CASE(field_element_based_interpolation)
                domain=>field_component%DOMAIN
                domain_topology=>domain%TOPOLOGY
                elementsmapping=>domain%MAPPINGS%ELEMENTS
                IF(domain_type_idx==1) THEN
                  !Allocate parameter to dof map for this field variable component
                  dofs_mapping=>domain%MAPPINGS%ELEMENTS
                  ALLOCATE(field_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS(domain_topology%ELEMENTS% &
                    & total_number_of_elements),stat=err)
                  IF(err/=0) CALL flagerror("Could not allocate field component parameter to dof element map.",err,error,*999)
                  field_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS= &
                    & domain_topology%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS
                  !Handle global dofs domain mapping
                  DO ny=1,elementsmapping%NUMBER_OF_GLOBAL
                    !Handle field variable mappings
                    IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                      variable_global_ny=ny+variable_global_dofs_offset
                      CALL domain_mappings_mapping_global_initialise(field_variable_dofs_mapping% &
                        & global_to_local_map(variable_global_ny),err,error,*999)
                      number_of_domains=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%NUMBER_OF_DOMAINS
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                        & local_number(number_of_domains),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local number.", &
                        & err,error,*999)
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                        & domain_number(number_of_domains),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map domain number.", &
                        & err,error,*999)
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(number_of_domains), &
                        & stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local type.", &
                        & err,error,*999)
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS=number_of_domains
                      DO domain_idx=1,number_of_domains
                        domain_no=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                          & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_NUMBER(domain_idx)+variable_local_dofs_offsets(domain_no)
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)= &
                          & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)= &
                          & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_TYPE(domain_idx)
                      ENDDO !domain_idx
                    ENDIF
                  ENDDO !ny
                  start_idx=1
                  stop_idx=elementsmapping%NUMBER_OF_LOCAL
                  !Adjust the local and ghost offsets
                  IF(component_idx>1) &
                    & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+elementsmapping%NUMBER_OF_DOMAIN_LOCAL
                  variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+ &
                    & elementsmapping%NUMBER_OF_DOMAIN_LOCAL+elementsmapping%NUMBER_OF_DOMAIN_GHOST
                ELSE
                  !Handle global dofs domain mapping. For the second pass adjust the local dof numbers to ensure that the ghost
                  !dofs are at the end of the local dofs.
                  !Adjust the ghost offsets
                  IF(component_idx>1) &
                    & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)-elementsmapping%NUMBER_OF_DOMAIN_LOCAL
                  DO ny=1,elementsmapping%NUMBER_OF_GLOBAL
                    !Adjust variable mapping local numbers
                    IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                      variable_global_ny=ny+variable_global_dofs_offset
                      number_of_domains=field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS
                      DO domain_idx=1,number_of_domains
                        domain_no=field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)
                        IF(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)== &
                          & domain_local_ghost) THEN
                          field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                            & field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)+ &
                            & variable_ghost_dofs_offsets(domain_no)
                        ELSE
                          field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                            & field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)+ &
                            & variable_local_dofs_offsets(domain_no)
                        ENDIF
                      ENDDO !domain_idx
                    ENDIF
                  ENDDO !ny (global)
                  start_idx=elementsmapping%NUMBER_OF_LOCAL+1
                  stop_idx=elementsmapping%TOTAL_NUMBER_OF_LOCAL
                  !Adjust the local offsets
                  variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)-elementsmapping%NUMBER_OF_DOMAIN_GHOST
                ENDIF
                !Adjust the global offset
                variable_global_dofs_offset=variable_global_dofs_offset+elementsmapping%NUMBER_OF_GLOBAL
                !Handle local dofs domain mapping
                DO element_idx=start_idx,stop_idx
                  variable_local_ny=variable_local_ny+1
                  element_nyy=element_nyy+1
                  !Setup dof to parameter map
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(1,variable_local_ny)=field_element_dof_type
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(2,variable_local_ny)=element_nyy
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%ELEMENT_DOF2PARAM_MAP(1,element_nyy)=element_idx
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%ELEMENT_DOF2PARAM_MAP(2,element_nyy)=component_idx
                  !Setup reverse parameter to dof map
                  field_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS(element_idx)=variable_local_ny
                ENDDO !element_idx
              CASE(field_node_based_interpolation)
                domain=>field_component%DOMAIN
                domain_topology=>domain%TOPOLOGY
                dofs_mapping=>domain%MAPPINGS%DOFS
                IF(domain_type_idx==1) THEN
                  ALLOCATE(field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES( &
                    domain_topology%NODES%TOTAL_NUMBER_OF_NODES),stat=err)
                  IF(err/=0) CALL flagerror("Could not allocate field component parameter to dof node map (nodes).",err,error,*999)
                  field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS = & 
                    & domain_topology%NODES%TOTAL_NUMBER_OF_NODES
                  !Loop through and allocate number of derivatives for each node in the domain
                  DO node_idx=1,domain_topology%NODES%TOTAL_NUMBER_OF_NODES
                    ALLOCATE(field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%DERIVATIVES( &
                      & domain_topology%NODES%NODES(node_idx)%NUMBER_OF_DERIVATIVES),stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate field component parameter to dof node map (derivatives).", &
                      & err,error,*999)
                    field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%NUMBER_OF_DERIVATIVES = & 
                      & domain_topology%NODES%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                    DO derivative_idx=1,domain_topology%NODES%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                      ALLOCATE(field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%DERIVATIVES(derivative_idx)% &
                        & versions(domain_topology%NODES%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field component parameter to dof node map (versions).", &
                        & err,error,*999)
                      field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%DERIVATIVES(derivative_idx)% &
                        & number_of_versions = domain_topology%NODES%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions
                    ENDDO !derivative_idx
                  ENDDO !node_idx
                  DO ny=1,dofs_mapping%NUMBER_OF_GLOBAL
                    !Handle variable mapping
                    IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                      variable_global_ny=ny+variable_global_dofs_offset
                      CALL domain_mappings_mapping_global_initialise(field_variable_dofs_mapping% &
                        & global_to_local_map(variable_global_ny),err,error,*999)
                      number_of_domains=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%NUMBER_OF_DOMAINS
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                        & local_number(number_of_domains),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local number.", &
                        & err,error,*999)
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                        & domain_number(number_of_domains),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map domain number.", &
                        & err,error,*999)
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(number_of_domains), &
                        & stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local type.", &
                        & err,error,*999)
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS=number_of_domains
                      DO domain_idx=1,number_of_domains
                        domain_no=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                          & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_NUMBER(domain_idx)+variable_local_dofs_offsets(domain_no)
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)= &
                          & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)= &
                          & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_TYPE(domain_idx)
                      ENDDO !domain_idx
                    ENDIF
                  ENDDO !ny (global)
                  start_idx=1
                  stop_idx=dofs_mapping%NUMBER_OF_LOCAL
                  !Adjust the local and ghost offsets
                  IF(component_idx>1) &
                    & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+dofs_mapping%NUMBER_OF_DOMAIN_LOCAL
                  variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+ &
                    & dofs_mapping%NUMBER_OF_DOMAIN_LOCAL+dofs_mapping%NUMBER_OF_DOMAIN_GHOST
                ELSE
                  !Handle global dofs domain mapping. For the second pass adjust the local dof numbers to ensure that the ghost
                  !dofs are at the end of the local dofs.
                  !Adjust the ghost offsets
                  IF(component_idx>1) &
                    variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)-dofs_mapping%NUMBER_OF_DOMAIN_LOCAL
                  DO ny=1,dofs_mapping%NUMBER_OF_GLOBAL
                    !Adjust variable mapping local numbers
                    IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                      variable_global_ny=ny+variable_global_dofs_offset
                      number_of_domains=field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS
                      DO domain_idx=1,number_of_domains
                        domain_no=field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)
                        IF(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)== &
                          & domain_local_ghost) THEN
                          field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                            & field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)+ &
                            & variable_ghost_dofs_offsets(domain_no)
                        ELSE
                          field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                            & field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)+ &
                            & variable_local_dofs_offsets(domain_no)
                         ENDIF
                      ENDDO !domain_idx
                    ENDIF
                  ENDDO !ny (global)
                  start_idx=dofs_mapping%NUMBER_OF_LOCAL+1
                  stop_idx=dofs_mapping%TOTAL_NUMBER_OF_LOCAL
                  !Adjust the local offsets
                  variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)-dofs_mapping%NUMBER_OF_DOMAIN_GHOST
                ENDIF
                !Adjust the global offset
                variable_global_dofs_offset=variable_global_dofs_offset+dofs_mapping%NUMBER_OF_GLOBAL
                !Handle local dofs domain mapping
                DO ny=start_idx,stop_idx
                  variable_local_ny=variable_local_ny+1
                  node_nyy=node_nyy+1
                  version_idx=domain%TOPOLOGY%DOFS%DOF_INDEX(1,ny)
                  derivative_idx=domain%TOPOLOGY%DOFS%DOF_INDEX(2,ny)
                  node_idx=domain%TOPOLOGY%DOFS%DOF_INDEX(3,ny)
                  !Setup dof to parameter map
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(1,variable_local_ny)=field_node_dof_type
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(2,variable_local_ny)=node_nyy
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NODE_DOF2PARAM_MAP(1,node_nyy)=version_idx
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NODE_DOF2PARAM_MAP(2,node_nyy)=derivative_idx
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NODE_DOF2PARAM_MAP(3,node_nyy)=node_idx
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NODE_DOF2PARAM_MAP(4,node_nyy)=component_idx
                  !Setup reverse parameter to dof map
                  field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%DERIVATIVES(derivative_idx)% &
                    & versions(version_idx) = variable_local_ny
                ENDDO !ny
              CASE(field_grid_point_based_interpolation)
                CALL flagerror("Not implemented.",err,error,*999)
              CASE(field_gauss_point_based_interpolation)
                domain=>field_component%DOMAIN
                elementsmapping=>domain%MAPPINGS%ELEMENTS
                domain_topology=>domain%TOPOLOGY
                IF(domain_type_idx==1) THEN ! domain_type_idx==1 --> non ghosts
                  !Allocate parameter to dof map for this field variable component
                  dofs_mapping=>domain%MAPPINGS%ELEMENTS
                  ! GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS(ng,element_idx). The field variable dof number of ng'th Gauss point in the element_idx'th element based parameter for this field variable component. 
                  ALLOCATE(field_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS(&
                   & max_ngp,domain_topology%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS),stat=err)
                  IF(err/=0) CALL flagerror("Could not allocate field component parameter to dof Gauss point map.",err,error,*999)
                  ! this might be wasteful in worst case, but should generally be ok
                  field_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%NUMBER_OF_GAUSS_POINT_PARAMETERS= &
                  &  domain_topology%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS*max_ngp
                  !Handle global dofs domain mapping
                  DO ny=1,elementsmapping%NUMBER_OF_GLOBAL
                   DO gp=1,max_ngp !
                    !Handle field variable mappings
                    IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                      variable_global_ny= (ny-1) * max_ngp + gp + variable_global_dofs_offset
                      CALL domain_mappings_mapping_global_initialise(field_variable_dofs_mapping% &
                        & global_to_local_map(variable_global_ny),err,error,*999)
                      number_of_domains=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%NUMBER_OF_DOMAINS
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                        & local_number(number_of_domains),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local number.", &
                        & err,error,*999)
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                        & domain_number(number_of_domains),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map domain number.", &
                        & err,error,*999)
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(number_of_domains), &
                        & stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map domain number.", &
                        & err,error,*999)
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS=number_of_domains
                      DO domain_idx=1,number_of_domains
                        domain_no=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                        ! elt local number = 1 -> gp local = 1..max_ngp, etc
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                          & (dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_NUMBER(domain_idx) - 1) * max_ngp + gp  &
                          & + variable_local_dofs_offsets(domain_no)
                        ! domain and type same as element
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)= &
                          & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)= &
                          & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_TYPE(domain_idx)
                      ENDDO !domain_idx
                    ENDIF
                   ENDDO ! gp
                  ENDDO !ny
                  start_idx=1
                  stop_idx=elementsmapping%NUMBER_OF_LOCAL
                  !Adjust the local and ghost offsets
                  IF(component_idx>1) &
                    & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+ &
                    & elementsmapping%NUMBER_OF_DOMAIN_LOCAL*max_ngp
                  variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+ &
                    & (elementsmapping%NUMBER_OF_DOMAIN_LOCAL+elementsmapping%NUMBER_OF_DOMAIN_GHOST)*max_ngp
                ELSE !domain_type_idx==2 --> ghosts
                  !Handle global dofs domain mapping. For the second pass adjust the local dof numbers to ensure that the ghost
                  !dofs are at the end of the local dofs.
                  !Adjust the ghost offsets
                  IF(component_idx>1) &
                    variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)- &
                    & elementsmapping%NUMBER_OF_DOMAIN_LOCAL*max_ngp
                  DO ny=1,elementsmapping%NUMBER_OF_GLOBAL
                   DO gp=1,max_ngp !
                    !Adjust variable mapping local numbers
                    IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                      variable_global_ny= (ny-1) * max_ngp + gp + variable_global_dofs_offset
                      number_of_domains=field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS
                      DO domain_idx=1,number_of_domains
                        domain_no=field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)
                        IF(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)== &
                          & domain_local_ghost) THEN
                          field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                            & field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)+ &
                            & variable_ghost_dofs_offsets(domain_no)
                        ELSE
                          field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                            & field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)+ &
                            & variable_local_dofs_offsets(domain_no)
                        ENDIF
                      ENDDO !domain_idx
                    ENDIF
                   ENDDO ! gp
                  ENDDO !ny (global)
                  start_idx=elementsmapping%NUMBER_OF_LOCAL+1
                  stop_idx=elementsmapping%TOTAL_NUMBER_OF_LOCAL
                  !Adjust the local offsets
                  variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)- &
                    & elementsmapping%NUMBER_OF_DOMAIN_GHOST*max_ngp
                ENDIF ! 2 passes for normal, ghost 
                !Adjust the global offset
                variable_global_dofs_offset=variable_global_dofs_offset+elementsmapping%NUMBER_OF_GLOBAL*max_ngp
                !Handle local dofs domain mapping
                DO element_idx=start_idx,stop_idx
                 DO gp=1,max_ngp !
                  variable_local_ny= variable_local_ny+1
                  gauss_point_nyy  = gauss_point_nyy+1
                   !Setup dof to parameter map
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(1,variable_local_ny)=field_gauss_point_dof_type
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(2,variable_local_ny)=gauss_point_nyy
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%GAUSS_POINT_DOF2PARAM_MAP(1,gauss_point_nyy)=gp
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%GAUSS_POINT_DOF2PARAM_MAP(2,gauss_point_nyy)=element_idx
                  field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%GAUSS_POINT_DOF2PARAM_MAP(3,gauss_point_nyy)=component_idx
                  !Setup reverse parameter to dof map
                  field_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS(gp,element_idx)=variable_local_ny
                 ENDDO !gp
                ENDDO !element_idx                       
              CASE(field_data_point_based_interpolation)
                domain=>field_component%DOMAIN
                elementsmapping=>domain%MAPPINGS%ELEMENTS
                decompositiontopology=>domain%DECOMPOSITION%TOPOLOGY                
                IF(domain_type_idx==1) THEN ! domain_type_idx==1 -> non ghosts
                  !Allocate parameter to dof map for this field variable component
                  !including both local and ghost data points on this computational domain.
                  ALLOCATE(field_component%PARAM_TO_DOF_MAP%DATA_POINT_PARAM2DOF_MAP%DATA_POINTS(decompositiontopology% &
                    & datapoints%totalNumberOfDataPoints),stat=err)
                  IF(err/=0) CALL flagerror("Could not allocate field component parameter to dof data point map.",err,error,*999)
                  ! Number of data points
                  field_component%PARAM_TO_DOF_MAP%DATA_POINT_PARAM2DOF_MAP%NUMBER_OF_DATA_POINT_PARAMETERS= &
                    & decompositiontopology%dataPoints%totalNumberOfDataPoints 
                  ALLOCATE(localdataparamcount(0:decomposition%NUMBER_OF_DOMAINS-1),stat=err)
                  IF(err/=0) CALL flagerror("Could not allocate data point parameter local count.",err,error,*999)
                  ALLOCATE(ghostdataparamcount(0:decomposition%NUMBER_OF_DOMAINS-1),stat=err)
                  IF(err/=0) CALL flagerror("Could not allocate data point parameter ghost count.",err,error,*999)
                  localdataparamcount=0
                  ghostdataparamcount(0:decomposition%NUMBER_OF_DOMAINS-1)=decompositiontopology%dataPoints%numberOfDomainLocal
                  !Looping through global elements and data points in the elements
                  variable_global_ny=variable_global_dofs_offset
                  DO elementidx=1,elementsmapping%NUMBER_OF_GLOBAL
                    DO datapointidx=1,decompositiontopology%dataPoints%numberOfelementDataPoints(elementidx)
                      IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                        variable_global_ny=variable_global_ny+1
                        CALL domain_mappings_mapping_global_initialise(field_variable_dofs_mapping% &
                          & global_to_local_map(variable_global_ny),err,error,*999)
                        number_of_domains=elementsmapping%GLOBAL_TO_LOCAL_MAP(elementidx)%NUMBER_OF_DOMAINS
                        ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                          & local_number(number_of_domains),stat=err)
                        IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local number.", &
                          & err,error,*999)
                        ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                          & domain_number(number_of_domains),stat=err)
                        IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map domain number.", &
                          & err,error,*999)
                        ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                          & local_type(number_of_domains),stat=err)
                        IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local type.", &
                          & err,error,*999)
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS=number_of_domains
                        DO domain_idx=1,number_of_domains
                          domain_no=elementsmapping%GLOBAL_TO_LOCAL_MAP(elementidx)%DOMAIN_NUMBER(domain_idx)
                          IF(elementsmapping%GLOBAL_TO_LOCAL_MAP(elementidx)%LOCAL_TYPE(domain_idx)== &
                            & domain_local_ghost) THEN
                            ghostdataparamcount(domain_no)=ghostdataparamcount(domain_no)+1
                            field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                            & ghostdataparamcount(domain_no)+variable_local_dofs_offsets(domain_no)
                          ELSE
                            localdataparamcount(domain_no)=localdataparamcount(domain_no)+1
                            field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                            & localdataparamcount(domain_no)+variable_local_dofs_offsets(domain_no)
                          ENDIF
                          field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)= &
                            & elementsmapping%GLOBAL_TO_LOCAL_MAP(elementidx)%DOMAIN_NUMBER(domain_idx)
                          field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)= &
                            & elementsmapping%GLOBAL_TO_LOCAL_MAP(elementidx)%LOCAL_TYPE(domain_idx)
                        ENDDO !domain_idx
                      ENDIF
                    ENDDO !dataPointIdx
                  ENDDO !elementIdx 
                  IF(ALLOCATED(localdataparamcount)) DEALLOCATE(localdataparamcount)
                  IF(ALLOCATED(ghostdataparamcount)) DEALLOCATE(ghostdataparamcount)
                  start_idx=1 !the start idx for the elements
                  stop_idx=elementsmapping%NUMBER_OF_LOCAL !the end idx for local elements
                  !Adjust the local and ghost offsets
                  IF(component_idx>1) THEN
                    variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                      & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+ &
                      & decompositiontopology%dataPoints%numberOfDomainLocal
                  ENDIF
                  variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+ &
                    & decompositiontopology%dataPoints%numberOfDomainLocal+decompositiontopology%dataPoints%numberOfDomainGhost
                ELSE  ! domain_type_idx == 2 -> ghosts
                  !Handle global dofs domain mapping. For the second pass adjust the local dof numbers to ensure that the ghost
                  !dofs are at the end of the local dofs.
                  !Adjust the ghost offsets
                  IF(component_idx>1) THEN
                    variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                      & variable_ghost_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)- &
                      & decompositiontopology%dataPoints%numberOfDomainLocal
                  ENDIF
                  !Looping through global elements and data points in the elements
                  variable_global_ny=variable_global_dofs_offset
                  DO elementidx=1,elementsmapping%NUMBER_OF_GLOBAL
                    DO datapointidx=1,decompositiontopology%dataPoints%numberOfelementDataPoints(elementidx)
                      IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                        variable_global_ny=variable_global_ny+1
                        number_of_domains=elementsmapping%GLOBAL_TO_LOCAL_MAP(elementidx)%NUMBER_OF_DOMAINS
                        DO domain_idx=1,number_of_domains
                          domain_no=elementsmapping%GLOBAL_TO_LOCAL_MAP(elementidx)%DOMAIN_NUMBER(domain_idx)
                          IF(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)== &
                            & domain_local_ghost) THEN
                            field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                              & field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)+ &
                              & variable_ghost_dofs_offsets(domain_no)
                          ELSE
                            field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                              & field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)+ &
                              & variable_local_dofs_offsets(domain_no)
                          ENDIF
                        ENDDO
                      ENDIF
                    ENDDO !dataPointIdx
                  ENDDO !elementIdx 
                  !Adjust the local offsets
                  variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                    & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)- &
                    & decompositiontopology%dataPoints%numberOfDomainGhost
                  start_idx=elementsmapping%NUMBER_OF_LOCAL+1 !The start index for ghost elements
                  stop_idx=elementsmapping%TOTAL_NUMBER_OF_LOCAL !The end index for local elements
                ENDIF 
                !Adjust the global offset
                variable_global_dofs_offset=variable_global_dofs_offset+decompositiontopology%dataPoints%&
                  & numberofglobaldatapoints  
                !Handle local dofs domain mapping
                DO elementidx=start_idx,stop_idx
                  globalelementnumber=elementsmapping%LOCAL_TO_GLOBAL_MAP(elementidx)
                  DO datapointidx=1,decompositiontopology%dataPoints%numberOfelementDataPoints(globalelementnumber)
                    variable_local_ny=variable_local_ny+1 !reinitialise for every field variable, field variable dof idx
                    data_point_nyy=data_point_nyy+1 !reinitialise for every field variable, field variable data point dof idx
                    localdatanumber=decompositiontopology%dataPoints%elementDataPoint(elementidx)%dataIndices(datapointidx)% &
                      & localnumber
                    !Setup dof to parameter map
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(1,variable_local_ny)=field_data_point_dof_type
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(2,variable_local_ny)=data_point_nyy
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DATA_POINT_DOF2PARAM_MAP(1,data_point_nyy)=localdatanumber
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DATA_POINT_DOF2PARAM_MAP(2,data_point_nyy)=elementidx
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DATA_POINT_DOF2PARAM_MAP(3,data_point_nyy)=component_idx
                    !Setup reverse parameter to dof map
                    field_component%PARAM_TO_DOF_MAP%DATA_POINT_PARAM2DOF_MAP%DATA_POINTS(localdatanumber)=variable_local_ny
                  ENDDO !dataPointIdx
                ENDDO !elementIdx 
              CASE DEFAULT
                local_error="The interpolation type of "// &
                  & trim(number_to_vstring(field%VARIABLES(variable_idx)%COMPONENTS(component_idx)%INTERPOLATION_TYPE, &
                  & "*",err,error))//" is invalid for component number "//trim(number_to_vstring(component_idx,"*",err,error))// &
                  & " of variable type "//trim(number_to_vstring(field%VARIABLES(variable_idx)%VARIABLE_TYPE,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              END SELECT
            ENDDO !component_idx
          ENDDO !domain_type_idx
        CASE(field_contiguous_component_dof_order)
          !Handle the case where all components for a particular DOF parameter are processed before all the component of the next
          !parameter.
          variable_local_dofs_offsets=0
          variable_global_dofs_offset=0
          variable_ghost_dofs_offsets=0
          IF(field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS>=1) THEN
            SELECT CASE(field%VARIABLES(variable_idx)%COMPONENTS(1)%INTERPOLATION_TYPE)
            CASE(field_constant_interpolation)
              DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
                field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
                variable_local_ny=1+variable_local_dofs_offsets(my_computational_node_number)
                !Allocate and set up global to local domain map for variable mapping
                IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                  variable_global_ny=1+variable_global_dofs_offset
                  CALL domain_mappings_mapping_global_initialise(field_variable_dofs_mapping% &
                    & global_to_local_map(variable_global_ny),err,error,*999)
                  number_of_domains=number_of_computational_nodes !Constant is in all domains
                  ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(number_of_domains), &
                    & stat=err)
                  IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local number.", &
                    & err,error,*999)
                  ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(number_of_domains), &
                    & stat=err)
                  IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map domain number.", &
                    & err,error,*999)
                  ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(number_of_domains), &
                    & stat=err)
                  IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local type.", &
                    & err,error,*999)
                  !A constant dof is mapped to all domains.
                  field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS=number_of_domains
                  DO domain_idx=1,number_of_domains
                    domain_no=domain_idx-1
                    field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                      & 1+variable_local_dofs_offsets(domain_no)
                    field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)=domain_no
                    field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)=domain_local_internal
                  ENDDO !domain_idx
                ENDIF
                constant_nyy=constant_nyy+1
                !Setup dof to parameter map
                field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(1,variable_local_ny)=field_constant_dof_type
                field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(2,variable_local_ny)=constant_nyy
                field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%CONSTANT_DOF2PARAM_MAP(constant_nyy)=component_idx
                !Setup reverse parameter to dof map
                field_component%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS=1
                field_component%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP=variable_local_ny
                !Adjust the offsets
                variable_global_dofs_offset=variable_global_dofs_offset+1
                variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                  & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+1
              ENDDO !component_idx
            CASE(field_element_based_interpolation)
              DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
                field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
                domain=>field_component%DOMAIN
                domain_topology=>domain%TOPOLOGY
                !Allocate parameter to dof map for this field variable component
                ALLOCATE(field_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS(domain_topology%ELEMENTS% &
                  & total_number_of_elements),stat=err)
                IF(err/=0) CALL flagerror("Could not allocate field component parameter to dof element map.",err,error,*999)
                field_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS= &
                  & domain_topology%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS
              ENDDO !component_idx
              !Handle global dofs domain mapping
              element_ny=0
              DO ny=1,elementsmapping%NUMBER_OF_GLOBAL ! elementsMapping has not been associated for this case !?!
                DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
                  field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
                  domain=>field_component%DOMAIN
                  dofs_mapping=>domain%MAPPINGS%ELEMENTS
                  !Handle field variable mappings
                  IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                    element_ny=element_ny+1
                    variable_global_ny=element_ny+variable_global_dofs_offset
                    CALL domain_mappings_mapping_global_initialise(field_variable_dofs_mapping% &
                      & global_to_local_map(variable_global_ny),err,error,*999)
                    number_of_domains=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%NUMBER_OF_DOMAINS
                    ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(number_of_domains), &
                      & stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local number.", &
                      & err,error,*999)
                    ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(number_of_domains), &
                      & stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map domain number.", &
                      & err,error,*999)
                    ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(number_of_domains), &
                      & stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local type.", &
                      & err,error,*999)
                    field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS=number_of_domains
                    DO domain_idx=1,number_of_domains
                      domain_no=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                        & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_NUMBER(domain_idx)+variable_local_dofs_offsets(domain_no)
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)= &
                        & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)= &
                        & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_TYPE(domain_idx)
                    ENDDO !domain_idx
                  ENDIF
                ENDDO !component_idx
              ENDDO !ny
              !Loop over the domain types. Here domain_type_idx=1 for the non-ghosted dofs and =2 for the ghosted dofs.
              DO domain_type_idx=1,domain_type_stop
                IF(domain_type_idx==1) THEN
                  start_idx=1
                  stop_idx=elementsmapping%NUMBER_OF_LOCAL
                ELSE
                  start_idx=elementsmapping%NUMBER_OF_LOCAL+1
                  stop_idx=elementsmapping%TOTAL_NUMBER_OF_LOCAL
                ENDIF
                !Handle local dofs domain mapping
                element_ny=0
                DO element_idx=start_idx,stop_idx
                  DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
                    field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
                    element_ny=element_ny+1
                    variable_local_ny=element_ny+variable_local_dofs_offsets(my_computational_node_number)
                    element_nyy=element_nyy+1
                    !Setup dof to parameter map
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(1,variable_local_ny)=field_element_dof_type
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(2,variable_local_ny)=element_nyy
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%ELEMENT_DOF2PARAM_MAP(1,element_nyy)=element_idx
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%ELEMENT_DOF2PARAM_MAP(2,element_nyy)=component_idx
                    !Setup reverse parameter to dof map
                    field_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS(element_idx)=variable_local_ny
                  ENDDO !component_idx
                ENDDO !element_idx
                !Adjust the offsets
                variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                  &  variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+ &
                  & field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS* &
                  & elementsmapping%NUMBER_OF_DOMAIN_LOCAL
                IF(domain_type_idx==1) THEN
                  variable_global_dofs_offset=variable_global_dofs_offset+field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS* &
                    & elementsmapping%NUMBER_OF_GLOBAL
                ENDIF
              ENDDO !domain_type_idx
            CASE(field_node_based_interpolation)
              DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
                field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
                domain=>field_component%DOMAIN
                domain_topology=>domain%TOPOLOGY
                ALLOCATE(field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(domain_topology%NODES%TOTAL_NUMBER_OF_NODES), &
                  & stat=err)
                IF(err/=0) CALL flagerror("Could not allocate field component parameter to dof node map (nodes).",err,error,*999)
                field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS = &
                  & domain_topology%NODES%TOTAL_NUMBER_OF_NODES
                !Loop through and allocate number of derivatives for each node in the domain
                DO node_idx=1,domain_topology%NODES%TOTAL_NUMBER_OF_NODES
                  ALLOCATE(field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%DERIVATIVES( &
                    & domain_topology%NODES%NODES(node_idx)%NUMBER_OF_DERIVATIVES),stat=err)
                  IF(err/=0) CALL flagerror("Could not allocate field component parameter to dof node map (derivatives).", &
                    & err,error,*999)
                  field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%NUMBER_OF_DERIVATIVES = & 
                    & domain_topology%NODES%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                  DO derivative_idx=1,domain_topology%NODES%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                    ALLOCATE(field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%DERIVATIVES(derivative_idx)% &
                      & versions(domain_topology%NODES%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions),stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate field component parameter to dof node map (versions).", &
                      & err,error,*999)
                    field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%DERIVATIVES(derivative_idx)% &
                      number_of_versions = domain_topology%NODES%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions
                  ENDDO !derivative_idx
                ENDDO !node_idx
              ENDDO !component_idx
              !Handle global dofs domain mapping
              !Should the contiguous components have an inner groupping for derivatives??? i.e., loop over nodes, components then
              !derivatives????
              node_ny=0
              number_of_global_dofs=field%VARIABLES(variable_idx)%COMPONENTS(1)%DOMAIN%MAPPINGS%DOFS%NUMBER_OF_GLOBAL
              DO ny=1,number_of_global_dofs
                DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
                  field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
                  domain=>field_component%DOMAIN
                  dofs_mapping=>domain%MAPPINGS%DOFS
                  !Handle variable mapping
                  IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                    node_ny=node_ny+1
                    variable_global_ny=node_ny+variable_global_dofs_offset
                    CALL domain_mappings_mapping_global_initialise(field_variable_dofs_mapping% &
                      & global_to_local_map(variable_global_ny),err,error,*999)
                    number_of_domains=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%NUMBER_OF_DOMAINS
                    ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                      & local_number(number_of_domains),stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local number.", &
                      & err,error,*999)
                    ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                      & domain_number(number_of_domains),stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map domain number.", &
                      & err,error,*999)
                    ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(number_of_domains), &
                      & stat=err)
                    IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local type.", &
                      & err,error,*999)
                    field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS=number_of_domains
                    DO domain_idx=1,number_of_domains
                      domain_no=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                        & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_NUMBER(domain_idx)+variable_local_dofs_offsets(domain_no)
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)= &
                        & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)= &
                        & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_TYPE(domain_idx)
                    ENDDO !domain_idx
                  ENDIF
                ENDDO !component_idx
              ENDDO !ny (global)
              !Loop over the domain types. Here domain_type_idx=1 for the non-ghosted dofs and =2 for the ghosted dofs.
              DO domain_type_idx=1,domain_type_stop
                IF(domain_type_idx==1) THEN
                  start_idx=1
                  stop_idx=dofs_mapping%NUMBER_OF_LOCAL
                ELSE
                  start_idx=dofs_mapping%NUMBER_OF_LOCAL+1
                  stop_idx=dofs_mapping%TOTAL_NUMBER_OF_LOCAL
                ENDIF
                !Handle local dofs domain mapping
                node_ny=0
                DO ny=start_idx,stop_idx
                  DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
                    field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
                    domain=>field_component%DOMAIN
                    node_ny=node_ny+1
                    variable_local_ny=node_ny+variable_local_dofs_offsets(my_computational_node_number)
                    node_nyy=node_nyy+1
                    version_idx=domain%TOPOLOGY%DOFS%DOF_INDEX(1,ny)
                    derivative_idx=domain%TOPOLOGY%DOFS%DOF_INDEX(2,ny)
                    node_idx=domain%TOPOLOGY%DOFS%DOF_INDEX(3,ny)
                    !Setup dof to parameter map
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(1,variable_local_ny)=field_node_dof_type
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(2,variable_local_ny)=node_nyy
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NODE_DOF2PARAM_MAP(1,node_nyy)=version_idx
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NODE_DOF2PARAM_MAP(2,node_nyy)=derivative_idx
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NODE_DOF2PARAM_MAP(3,node_nyy)=node_idx
                    field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NODE_DOF2PARAM_MAP(4,node_nyy)=component_idx
                    !Setup reverse parameter to dof map
                    field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%DERIVATIVES(derivative_idx)% &
                      & versions(version_idx) = variable_local_ny
                  ENDDO !component_idx
                ENDDO !ny
                !Adjust the offsets
                variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                  & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+ &
                  & field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS* &
                  & dofs_mapping%NUMBER_OF_DOMAIN_LOCAL
                IF(domain_type_idx==1) THEN
                  variable_global_dofs_offset=variable_global_dofs_offset+field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS* &
                    & dofs_mapping%NUMBER_OF_GLOBAL
                ENDIF
              ENDDO !domain_type_idx
            CASE(field_grid_point_based_interpolation)
              CALL flagerror("Not implemented.",err,error,*999)
            CASE(field_gauss_point_based_interpolation)
              DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
                field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
                domain=>field_component%DOMAIN
                domain_topology=>domain%TOPOLOGY
                ALLOCATE(field_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS(max_ngp,domain_topology% &
                  & elements%TOTAL_NUMBER_OF_ELEMENTS),stat=err)
                IF(err/=0) CALL flagerror("Could not allocate field component parameter to dof gauss point map (gauss points).", &
                  & err,error,*999)
                field_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%NUMBER_OF_GAUSS_POINT_PARAMETERS= &
                  & max_ngp*domain_topology%ELEMENTS%TOTAL_NUMBER_OF_ELEMENTS
              ENDDO
              !Handle global dofs domain mapping
              element_ny=0
              number_of_global_dofs=field%VARIABLES(variable_idx)%COMPONENTS(1)%DOMAIN%MAPPINGS%ELEMENTS%NUMBER_OF_GLOBAL
              DO ny=1,number_of_global_dofs
                DO gauss_point_idx=1,max_ngp
                  DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
                    field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
                    domain=>field_component%DOMAIN
                    dofs_mapping=>domain%MAPPINGS%ELEMENTS
                    !Handle variable mapping
                    IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
                      element_ny=element_ny+1
                      variable_global_ny=element_ny+variable_global_dofs_offset
                      CALL domain_mappings_mapping_global_initialise(field_variable_dofs_mapping% &
                        & global_to_local_map(variable_global_ny),err,error,*999)
                      number_of_domains=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%NUMBER_OF_DOMAINS
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                        & local_number(number_of_domains),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local number.", &
                        & err,error,*999)
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)% &
                        & domain_number(number_of_domains),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map domain number.", &
                        & err,error,*999)
                      ALLOCATE(field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(number_of_domains), &
                        & stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate field variable dofs global to local map local type.", &
                        & err,error,*999)
                      field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%NUMBER_OF_DOMAINS=number_of_domains
                      DO domain_idx=1,number_of_domains
                        domain_no=dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_NUMBER(domain_idx)= &
                          & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_NUMBER(domain_idx)+variable_local_dofs_offsets(domain_no)
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%DOMAIN_NUMBER(domain_idx)= &
                          & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%DOMAIN_NUMBER(domain_idx)
                        field_variable_dofs_mapping%GLOBAL_TO_LOCAL_MAP(variable_global_ny)%LOCAL_TYPE(domain_idx)= &
                          & dofs_mapping%GLOBAL_TO_LOCAL_MAP(ny)%LOCAL_TYPE(domain_idx)
                      ENDDO !domain_idx
                    ENDIF
                  ENDDO !component_idx
                ENDDO !gauss_point_idx
              ENDDO !ny (global)
              !Loop over the domain types. Here domain_type_idx=1 for the non-ghosted dofs and =2 for the ghosted dofs.
              DO domain_type_idx=1,domain_type_stop
                IF(domain_type_idx==1) THEN
                  start_idx=1
                  stop_idx=dofs_mapping%NUMBER_OF_LOCAL
                ELSE
                  start_idx=dofs_mapping%NUMBER_OF_LOCAL+1
                  stop_idx=dofs_mapping%TOTAL_NUMBER_OF_LOCAL
                ENDIF
                !Handle local dofs domain mapping
                element_ny=0
                DO ny=start_idx,stop_idx
                  DO gauss_point_idx=1,max_ngp
                    DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
                      field_component=>field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
                      domain=>field_component%DOMAIN
                      element_ny=element_ny+1
                      variable_local_ny=element_ny+variable_local_dofs_offsets(my_computational_node_number)
                      node_nyy=node_nyy+1
                      !Setup dof to parameter map
                      field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(1,variable_local_ny)=field_gauss_point_dof_type
                      field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%DOF_TYPE(2,variable_local_ny)=node_nyy
                      field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%GAUSS_POINT_DOF2PARAM_MAP(1,node_nyy)=gauss_point_idx
                      field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%GAUSS_POINT_DOF2PARAM_MAP(2,node_nyy)=ny !element_idx
                      field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%GAUSS_POINT_DOF2PARAM_MAP(3,node_nyy)=component_idx
                      !Setup reverse parameter to dof map
                      field_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS(gauss_point_idx,ny)= &
                        & variable_local_ny
                    ENDDO !component_idx
                  ENDDO !gauss_point_idx
                ENDDO !ny
                !Adjust the offsets
                variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)= &
                  & variable_local_dofs_offsets(0:decomposition%NUMBER_OF_DOMAINS-1)+ &
                  & field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS* &
                  & dofs_mapping%NUMBER_OF_DOMAIN_LOCAL*max_ngp
                IF(domain_type_idx==1) THEN
                  variable_global_dofs_offset=variable_global_dofs_offset+field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS* &
                    & dofs_mapping%NUMBER_OF_GLOBAL*max_ngp
                ENDIF
              ENDDO !domain_type_idx
            CASE(field_data_point_based_interpolation)
              CALL flagerror("Not implemented.",err,error,*999)
            CASE DEFAULT
              local_error="The interpolation type of "// &
                & trim(number_to_vstring(field%VARIABLES(variable_idx)%COMPONENTS(component_idx)%INTERPOLATION_TYPE, &
                & "*",err,error))//" is invalid for component number 1 of variable type "//trim(number_to_vstring( &
                & field%VARIABLES(variable_idx)%VARIABLE_TYPE,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
          ELSE
            CALL flagerror("The field must have at least one component.",err,error,*999)
          ENDIF
        CASE DEFAULT
          local_error="The DOF order type of "//trim(number_to_vstring(field%VARIABLES(variable_idx)%DOF_ORDER_TYPE, &
              & "*",err,error))//" is invalid for variable type "//trim(number_to_vstring(field%VARIABLES(variable_idx)% &
              & variable_type,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        END SELECT
        IF(ASSOCIATED(field_variable_dofs_mapping)) THEN
          CALL domain_mappings_local_from_global_calculate(field_variable_dofs_mapping,err,error,*999)
        ENDIF
      ENDDO !variable_idx
      IF(ALLOCATED(variable_local_dofs_offsets)) DEALLOCATE(variable_local_dofs_offsets)
      IF(ALLOCATED(variable_ghost_dofs_offsets)) DEALLOCATE(variable_ghost_dofs_offsets)
 
      IF(diagnostics1) THEN
        CALL write_string(diagnostic_output_type,"Field DOF mappings:",err,error,*999)
        CALL write_string_value(diagnostic_output_type,"  Field user number = ",field%USER_NUMBER,err,error,*999)
        CALL write_string_value(diagnostic_output_type,"  Number of variables = ",field%NUMBER_OF_VARIABLES,err,error,*999)
        DO variable_idx=1,field%NUMBER_OF_VARIABLES
          CALL write_string_value(diagnostic_output_type,"  Variable : ",variable_idx,err,error,*999)
          CALL write_string_value(diagnostic_output_type,"    Variable type = ",field%VARIABLES(variable_idx)%VARIABLE_TYPE, &
            & err,error,*999)
          CALL write_string_value(diagnostic_output_type,"    Number of local DOFs = ",field%VARIABLES(variable_idx)% &
            & number_of_dofs,err,error,*999)
          CALL write_string_value(diagnostic_output_type,"    Total number of local DOFs = ",field%VARIABLES(variable_idx)% &
            & total_number_of_dofs,err,error,*999)
          CALL write_string_value(diagnostic_output_type,"    Number of global DOFs = ",field%VARIABLES(variable_idx)% &
            & number_of_global_dofs,err,error,*999)
          CALL write_string(diagnostic_output_type,"    DOF to parameter map:",err,error,*999)
          DO variable_local_ny=1,field%VARIABLES(variable_idx)%TOTAL_NUMBER_OF_DOFS
            CALL write_string_value(diagnostic_output_type,"      DOF : ",variable_local_ny,err,error,*999)
            CALL write_string_vector(diagnostic_output_type,1,1,2,2,2,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP% &
              & dof_type(:,variable_local_ny),'("        DOF type :",2(X,I8))','(18X,2(X,I8))',err,error,*999)
          ENDDO !variable_local_ny
          CALL write_string_value(diagnostic_output_type,"      Number of constant DOFs = ",field%VARIABLES(variable_idx)% &
            & dof_to_param_map%NUMBER_OF_CONSTANT_DOFS,err,error,*999)
          IF(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_CONSTANT_DOFS>0) THEN
            CALL write_string(diagnostic_output_type,"      Constant DOFs:",err,error,*999)
            DO constant_nyy=1,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_CONSTANT_DOFS
              CALL write_string_value(diagnostic_output_type,"      Constant DOF : ",constant_nyy,err,error,*999)
              CALL write_string_fmt_value(diagnostic_output_type,"          DOF 2 Parameters : ", &
                & field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%CONSTANT_DOF2PARAM_MAP(constant_nyy),'(I8)',err,error,*999)
            ENDDO !constant_nyy
          ENDIF
          CALL write_string_value(diagnostic_output_type,"      Number of element DOFs = ",field%VARIABLES(variable_idx)% &
            & dof_to_param_map%NUMBER_OF_ELEMENT_DOFS,err,error,*999)
          IF(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_ELEMENT_DOFS>0) THEN            
            CALL write_string(diagnostic_output_type,"      Element DOFs:",err,error,*999)
            DO element_nyy=1,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_ELEMENT_DOFS
              CALL write_string_value(diagnostic_output_type,"        Element DOF : ",element_nyy,err,error,*999)
              CALL write_string_vector(diagnostic_output_type,1,1,2,2,2,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP% &
                & element_dof2param_map(:,element_nyy),'("          DOF 2 Parameters :",2(X,I8))','(28X,2(X,I8))',err,error,*999)
            ENDDO !element_nyy
          ENDIF
          CALL write_string_value(diagnostic_output_type,"      Number of nodal DOFs = ",field%VARIABLES(variable_idx)% &
            & dof_to_param_map%NUMBER_OF_NODE_DOFS,err,error,*999)
          IF(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_NODE_DOFS>0) THEN
            CALL write_string(diagnostic_output_type,"      Nodal DOFs:",err,error,*999)
            DO node_nyy=1,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_NODE_DOFS
              CALL write_string_value(diagnostic_output_type,"        Node DOF : ",node_nyy,err,error,*999)
              CALL write_string_vector(diagnostic_output_type,1,1,4,4,4,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP% &
                & node_dof2param_map(:,node_nyy),'("          DOF 2 Parameters :",4(X,I8))','(28X,4(X,I8))',err,error,*999)
            ENDDO !node_nyy
          ENDIF
          CALL write_string_value(diagnostic_output_type,"      Number of grid point DOFs = ",field%VARIABLES(variable_idx)% &
            & dof_to_param_map%NUMBER_OF_GRID_POINT_DOFS,err,error,*999)
          IF(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_GRID_POINT_DOFS>0) THEN
            CALL write_string(diagnostic_output_type,"      Grid point DOFs:",err,error,*999)
            DO grid_point_nyy=1,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_GRID_POINT_DOFS
              CALL write_string_value(diagnostic_output_type,"        Grid point DOF : ",grid_point_nyy,err,error,*999)
              CALL write_string_vector(diagnostic_output_type,1,1,2,2,2,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP% &
                & grid_point_dof2param_map(:,grid_point_nyy),'("          DOF 2 Parameters :",2(X,I8))','(28X,2(X,I8))', &
                & err,error,*999)
            ENDDO !node_nyy
          ENDIF
          CALL write_string_value(diagnostic_output_type,"      Number of Gauss point DOFs = ",field%VARIABLES(variable_idx)% &
            & dof_to_param_map%NUMBER_OF_GAUSS_POINT_DOFS,err,error,*999)
          IF(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_GAUSS_POINT_DOFS>0) THEN
            CALL write_string(diagnostic_output_type,"      Gauss point DOFs:",err,error,*999)
            DO gauss_point_nyy=1,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_GAUSS_POINT_DOFS
              CALL write_string_value(diagnostic_output_type,"        Gauss point DOF : ",gauss_point_nyy,err,error,*999)
              CALL write_string_vector(diagnostic_output_type,1,1,3,3,3,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP% &
                & gauss_point_dof2param_map(:,gauss_point_nyy),'("          DOF 2 Parameters :",3(X,I8))','(28X,3(X,I8))', &
                & err,error,*999)
            ENDDO !node_nyy
          ENDIF
          CALL write_string_value(diagnostic_output_type,"      Number of data point DOFs = ",field%VARIABLES(variable_idx)% &
            & dof_to_param_map%NUMBER_OF_DATA_POINT_DOFS,err,error,*999)
          IF(field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_DATA_POINT_DOFS>0) THEN
            CALL write_string(diagnostic_output_type,"      data point DOFs:",err,error,*999)
            DO data_point_nyy=1,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP%NUMBER_OF_DATA_POINT_DOFS
              CALL write_string_value(diagnostic_output_type,"        data point DOF : ",data_point_nyy,err,error,*999)
              CALL write_string_vector(diagnostic_output_type,1,1,3,3,3,field%VARIABLES(variable_idx)%DOF_TO_PARAM_MAP% &
                & data_point_dof2param_map(:,data_point_nyy),'("          DOF 2 Parameters :",3(X,I8))','(28X,3(X,I8))', &
                & err,error,*999)
            ENDDO !node_nyy
          ENDIF
          CALL write_string(diagnostic_output_type,"    Parameter to DOF map:",err,error,*999)
          CALL write_string_value(diagnostic_output_type,"      Number of components = ",field%VARIABLES(variable_idx)% &
            & number_of_components,err,error,*999)
          DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
            field_component => field%VARIABLES(variable_idx)%COMPONENTS(component_idx)
            CALL write_string_value(diagnostic_output_type,"      Component : ",component_idx,err,error,*999)
            CALL write_string_value(diagnostic_output_type,"        Number of constant parameters = ", &
              & field_component%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS,err,error,*999)
            IF(field_component%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
              CALL write_string_value(diagnostic_output_type,"          Constant DOF = ", &
                & field_component%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP,err,error,*999)
            ENDIF
            CALL write_string_value(diagnostic_output_type,"        Number of element parameters = ", &
              & field_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS,err,error,*999)
            IF(field_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS>0) THEN
              DO element_idx=1,field_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS
                CALL write_string_value(diagnostic_output_type,"          Element : ",element_idx,err,error,*999)
                CALL write_string_value(diagnostic_output_type,"            Element DOF = ", &
                  & field_component%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS(element_idx), &
                  & err,error,*999)
              ENDDO !element_idx
            ENDIF
            CALL write_string_value(diagnostic_output_type,"        Number of node parameters = ", &
              & field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS,err,error,*999)
            IF(field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS>0) THEN
              DO node_idx=1,field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS
                CALL write_string_value(diagnostic_output_type,"          Node : ",node_idx,err,error,*999)
                CALL write_string_value(diagnostic_output_type,"          Number of Derivatives = ", &
                  & field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%NUMBER_OF_DERIVATIVES,err,error,*999)
                DO derivative_idx=1,field_component%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                  CALL write_string_value(diagnostic_output_type,"          Derivative : ",derivative_idx,err,error,*999)
                  CALL write_string_vector(diagnostic_output_type,1,1,field_component%PARAM_TO_DOF_MAP% &
                    & node_param2dof_map%NODES(node_idx)%DERIVATIVES(derivative_idx)%NUMBER_OF_VERSIONS,8,8,field_component% &
                    & param_to_dof_map%NODE_PARAM2DOF_MAP%NODES(node_idx)%DERIVATIVES(derivative_idx)%VERSIONS(:), &
                    & '("              Version DOFs :",8(X,I8))','(23X,8(X,I8))',err,error,*999)
                ENDDO !derivative_idx
              ENDDO !node_idx
            ENDIF
            CALL write_string_value(diagnostic_output_type,"        Number of grid point parameters = ", &
              & field_component%PARAM_TO_DOF_MAP%GRID_POINT_PARAM2DOF_MAP%NUMBER_OF_GRID_POINT_PARAMETERS,err,error,*999)
            IF(field_component%PARAM_TO_DOF_MAP%GRID_POINT_PARAM2DOF_MAP%NUMBER_OF_GRID_POINT_PARAMETERS>0) THEN
            ENDIF
            CALL write_string_value(diagnostic_output_type,"        Number of Gauss point parameters = ", &
              & field_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%NUMBER_OF_GAUSS_POINT_PARAMETERS,err,error,*999)
            IF(field_component%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%NUMBER_OF_GAUSS_POINT_PARAMETERS>0) THEN
            ENDIF
            CALL write_string_value(diagnostic_output_type,"        Number of data point parameters = ", &
              & field_component%PARAM_TO_DOF_MAP%DATA_POINT_PARAM2DOF_MAP%NUMBER_OF_DATA_POINT_PARAMETERS,err,error,*999)
            IF(field_component%PARAM_TO_DOF_MAP%DATA_POINT_PARAM2DOF_MAP%NUMBER_OF_DATA_POINT_PARAMETERS>0) THEN
            ENDIF
          ENDDO !component_idx
        ENDDO !variable_idx
      ENDIF

    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_MAPPINGS_CALCULATE")
    RETURN
999 IF(ALLOCATED(variable_local_dofs_offsets)) DEALLOCATE(variable_local_dofs_offsets)
    IF(ALLOCATED(variable_ghost_dofs_offsets)) DEALLOCATE(variable_ghost_dofs_offsets)
    errorsexits("FIELD_MAPPINGS_CALCULATE",err,error)
    RETURN 1
  END SUBROUTINE field_mappings_calculate

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dof_to_param_map_finalise(DOF_TO_PARAM_MAP,ERR,ERROR,*)

    !Argument variables
    TYPE(field_dof_to_param_map_type) :: dof_to_param_map
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_DOF_TO_PARAM_MAP_FINALISE",err,error,*999)

    IF(ALLOCATED(dof_to_param_map%DOF_TYPE)) DEALLOCATE(dof_to_param_map%DOF_TYPE)
    IF(ALLOCATED(dof_to_param_map%CONSTANT_DOF2PARAM_MAP)) DEALLOCATE(dof_to_param_map%CONSTANT_DOF2PARAM_MAP)
    IF(ALLOCATED(dof_to_param_map%ELEMENT_DOF2PARAM_MAP)) DEALLOCATE(dof_to_param_map%ELEMENT_DOF2PARAM_MAP)
    IF(ALLOCATED(dof_to_param_map%NODE_DOF2PARAM_MAP)) DEALLOCATE(dof_to_param_map%NODE_DOF2PARAM_MAP)
    IF(ALLOCATED(dof_to_param_map%GRID_POINT_DOF2PARAM_MAP)) DEALLOCATE(dof_to_param_map%GRID_POINT_DOF2PARAM_MAP)
    IF(ALLOCATED(dof_to_param_map%GAUSS_POINT_DOF2PARAM_MAP)) DEALLOCATE(dof_to_param_map%GAUSS_POINT_DOF2PARAM_MAP)
    IF(ALLOCATED(dof_to_param_map%DATA_POINT_DOF2PARAM_MAP)) DEALLOCATE(dof_to_param_map%DATA_POINT_DOF2PARAM_MAP)
    dof_to_param_map%NUMBER_OF_DOFS=0
    dof_to_param_map%NUMBER_OF_CONSTANT_DOFS=0
    dof_to_param_map%NUMBER_OF_ELEMENT_DOFS=0
    dof_to_param_map%NUMBER_OF_NODE_DOFS=0
    dof_to_param_map%NUMBER_OF_GRID_POINT_DOFS=0
    dof_to_param_map%NUMBER_OF_GAUSS_POINT_DOFS=0
    dof_to_param_map%NUMBER_OF_DATA_POINT_DOFS=0

    exits("FIELD_DOF_TO_PARAM_MAP_FINALISE")
    RETURN
999 errorsexits("FIELD_DOF_TO_PARAM_MAP_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_dof_to_param_map_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dof_to_param_map_initialise(DOF_TO_PARAM_MAP,ERR,ERROR,*)

    !Argument variables
    TYPE(field_dof_to_param_map_type) :: dof_to_param_map
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_DOF_TO_PARAM_INITIALISE",err,error,*999)

    dof_to_param_map%NUMBER_OF_DOFS=0
    dof_to_param_map%NUMBER_OF_CONSTANT_DOFS=0
    dof_to_param_map%NUMBER_OF_ELEMENT_DOFS=0
    dof_to_param_map%NUMBER_OF_NODE_DOFS=0
    dof_to_param_map%NUMBER_OF_GRID_POINT_DOFS=0
    dof_to_param_map%NUMBER_OF_GAUSS_POINT_DOFS=0
    dof_to_param_map%NUMBER_OF_DATA_POINT_DOFS=0

    exits("FIELD_DOF_TO_PARAM_MAP_INITIALISE")
    RETURN
999 errorsexits("FIELD_DOF_TO_PARAM_MAP_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_dof_to_param_map_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometric_field_get(FIELD,GEOMETRIC_FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(field_type), POINTER :: geometric_field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_GEOMETRIC_FIELD_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(ASSOCIATED(geometric_field)) THEN
          CALL flagerror("Geometric field is already associated.",err,error,*999)
        ELSE
          geometric_field=>field%GEOMETRIC_FIELD
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_GEOMETRIC_FIELD_GET")
    RETURN
999 errorsexits("FIELD_GEOMETRIC_FIELD_GET",err,error)
    RETURN 1
  END SUBROUTINE field_geometric_field_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometric_field_set(FIELD,GEOMETRIC_FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(field_type), POINTER :: geometric_field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_GEOMETRIC_FIELD_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(field%CREATE_VALUES_CACHE%GEOMETRIC_FIELD_LOCKED) THEN
            local_error="The geometric field has been locked for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
            CALL flagerror(local_error,err,error,*999)
          ELSE
            IF(ASSOCIATED(field%GEOMETRIC_FIELD)) THEN
              local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                & " already has a geometric field associated."
              CALL flagerror(local_error,err,error,*999)
            ELSE
              IF(ASSOCIATED(field%DECOMPOSITION)) THEN
                IF(ASSOCIATED(geometric_field)) THEN
                  IF(geometric_field%TYPE==field_geometric_type) THEN
                    IF(geometric_field%FIELD_FINISHED) THEN
                      IF(field%DECOMPOSITION%MESH%USER_NUMBER==geometric_field%DECOMPOSITION%MESH%USER_NUMBER) THEN
                        SELECT CASE(field%TYPE)
                        CASE(field_fibre_type,field_general_type,field_material_type,field_geometric_general_type)
                          field%GEOMETRIC_FIELD=>geometric_field
                        CASE(field_geometric_type)
                          CALL flagerror("Can not set the geometric field for a geometric field.",err,error,*999)
                        CASE DEFAULT
                          local_error="The field type "//trim(number_to_vstring(field%TYPE,"*",err,error))//" is invalid."
                          CALL flagerror(local_error,err,error,*999)
                        END SELECT
                      ELSE
                        local_error="The specified field is decomposed on mesh user number "// &
                          & trim(number_to_vstring(field%DECOMPOSITION%MESH%USER_NUMBER,"*",err,error))// &
                          & " and the geometric field is decomposed on mesh user number "// &
                          & trim(number_to_vstring(geometric_field%DECOMPOSITION%MESH%USER_NUMBER,"*",err,error))// &
                          & ". The two fields must use the same mesh."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    ELSE
                      CALL flagerror("The specified geometric field has not been finished.",err,error,*999)
                    ENDIF
                  ELSE
                    CALL flagerror("The specified geometric field is not a geometric field.",err,error,*999)
                  ENDIF
                ELSE
                  CALL flagerror("Geometric field is not associated.",err,error,*999)
                ENDIF
              ELSE
                CALL flagerror("The field does not have a decomposition associated.",err,error,*999)
              ENDIF
            ENDIF
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_GEOMETRIC_FIELD_SET")
    RETURN
999 errorsexits("FIELD_GEOMETRIC_FIELD_SET",err,error)
    RETURN 1
  END SUBROUTINE field_geometric_field_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometric_field_set_and_lock(FIELD,GEOMETRIC_FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(field_type), POINTER :: geometric_field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_GEOMETRIC_FIELD_SET_AND_LOCK",err,error,*999)

    CALL field_geometric_field_set(field,geometric_field,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%GEOMETRIC_FIELD_LOCKED=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_GEOMETRIC_FIELD_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_GEOMETRIC_FIELD_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_geometric_field_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometric_parameters_calculate(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_GEOMETRIC_PARAMETERS_CALCULATE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(field%TYPE==field_geometric_type) THEN
          IF(field%DECOMPOSITION%CALCULATE_LINES) THEN
            CALL field_geometricparameterslinelengthscalculate(field,err,error,*999)
          ENDIF
!          IF(FIELD%DECOMPOSITION%CALCULATE_FACES) THEN !temporarily commented out
!            CALL Field_GeometricParametersFaceAreasCalculate(FIELD,ERR,ERROR,*999) 
!          ENDIF
          CALL field_geometricparameterselementvolumescalculate(field,err,error,*999)
        ELSE
          local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is not a geometric field."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_GEOMETRIC_PARAMETERS_CALCULATE")
    RETURN
999 errorsexits("FIELD_GEOMETRIC_PARAMETERS_CALCULATE",err,error)
    RETURN 1
  END SUBROUTINE field_geometric_parameters_calculate

  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometric_parameters_finalise(GEOMETRIC_PARAMETERS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_geometric_parameters_type), POINTER :: geometric_parameters
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: field_idx
    TYPE(field_type), POINTER :: field2

    enters("FIELD_GEOMETRIC_PARAMETERS_FINALISE",err,error,*999)

    IF(ASSOCIATED(geometric_parameters)) THEN
      !Nullify the geometric field pointer of those fields using this geometric field.
      DO field_idx=1,geometric_parameters%NUMBER_OF_FIELDS_USING
        field2=>geometric_parameters%FIELDS_USING(field_idx)%PTR
        IF(ASSOCIATED(field2)) NULLIFY(field2%GEOMETRIC_FIELD)
      ENDDO !field_idx
      IF(ASSOCIATED(geometric_parameters%FIELDS_USING)) DEALLOCATE(geometric_parameters%FIELDS_USING)
      IF(ALLOCATED(geometric_parameters%LENGTHS)) DEALLOCATE(geometric_parameters%LENGTHS)
!      IF(ALLOCATED(GEOMETRIC_PARAMETERS%AREAS)) DEALLOCATE(GEOMETRIC_PARAMETERS%AREAS) !temporarily commented out
      IF(ALLOCATED(geometric_parameters%VOLUMES)) DEALLOCATE(geometric_parameters%VOLUMES)
      DEALLOCATE(geometric_parameters)
    ENDIF

    exits("FIELD_GEOMETRIC_PARAMETERS_FINALISE")
    RETURN
999 errorsexits("FIELD_GEOMETRIC_PARAMETERS_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_geometric_parameters_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometric_parameters_initialise(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: field_idx
    TYPE(field_ptr_type), POINTER :: new_fields_using(:)

    NULLIFY(new_fields_using)

    enters("FIELD_GEOMETRIC_PARAMETERS_INITIALISE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%TYPE==field_geometric_type) THEN
        !Field is a geometric field
        ALLOCATE(field%GEOMETRIC_FIELD_PARAMETERS,stat=err)
        IF(err/=0) CALL flagerror("Could not allocate geometric field parameters.",err,error,*999)
        IF(field%DECOMPOSITION%CALCULATE_LINES) THEN
          field%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_LINES=field%DECOMPOSITION%TOPOLOGY%LINES%NUMBER_OF_LINES
          ALLOCATE(field%GEOMETRIC_FIELD_PARAMETERS%LENGTHS(field%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_LINES),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate lengths.",err,error,*999)
          field%GEOMETRIC_FIELD_PARAMETERS%LENGTHS=0.0_dp
        ENDIF
!        IF(FIELD%DECOMPOSITION%CALCULATE_FACES) THEN !temporarily commented out
!          FIELD%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_AREAS=FIELD%DECOMPOSITION%TOPOLOGY%FACES%NUMBER_OF_FACES
!          ALLOCATE(FIELD%GEOMETRIC_FIELD_PARAMETERS%AREAS(FIELD%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_AREAS),STAT=ERR)
!          IF(ERR/=0) CALL FlagError("Could not allocate areas.",ERR,ERROR,*999)
!          FIELD%GEOMETRIC_FIELD_PARAMETERS%AREAS=0.0_DP
!        ENDIF
        field%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_VOLUMES=field%DECOMPOSITION%TOPOLOGY%ELEMENTS%NUMBER_OF_ELEMENTS
        ALLOCATE(field%GEOMETRIC_FIELD_PARAMETERS%VOLUMES(field%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_VOLUMES),stat=err)
        IF(err/=0) CALL flag_error("Could not allocate volumes.",err,error,*999)
        field%GEOMETRIC_FIELD_PARAMETERS%VOLUMES=0.0_dp
        

        !The field is a geometric field so it must use itself initiallly
        ALLOCATE(field%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING(1),stat=err)
        IF(err/=0) CALL flagerror("Could not allocate fields using.",err,error,*999)
        field%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING(1)%PTR=>field
        field%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_FIELDS_USING=1
      ELSE
        !Field is not a geometric field
        NULLIFY(field%GEOMETRIC_FIELD_PARAMETERS)
        IF(ASSOCIATED(field%GEOMETRIC_FIELD)) THEN
          !Set the geometric field so that it knows that this field is using it
          ALLOCATE(new_fields_using(field%GEOMETRIC_FIELD%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_FIELDS_USING+1),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate new fields using.",err,error,*999)
          DO field_idx=1,field%GEOMETRIC_FIELD%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_FIELDS_USING
            new_fields_using(field_idx)%PTR=>field%GEOMETRIC_FIELD%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING(field_idx)%PTR
          ENDDO !field_idx
          new_fields_using(field%GEOMETRIC_FIELD%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_FIELDS_USING+1)%PTR=>field
          field%GEOMETRIC_FIELD%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_FIELDS_USING=field%GEOMETRIC_FIELD% &
            & geometric_field_parameters%NUMBER_OF_FIELDS_USING+1
          IF(ASSOCIATED(field%GEOMETRIC_FIELD%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING)) &
            & DEALLOCATE(field%GEOMETRIC_FIELD%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING)
          field%GEOMETRIC_FIELD%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING=>new_fields_using
        ELSE
          CALL flagerror("Field does not have a geometric field associated.",err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_GEOMETRIC_PARAMETERS_INITIALISE")
    RETURN
999 IF(ASSOCIATED(new_fields_using)) DEALLOCATE(new_fields_using)
    errorsexits("FIELD_GEOMETRIC_PARAMETERS_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_geometric_parameters_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometricparameterselementlinelengthget(field,elementNumber,elementLineNumber,lineLength,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG),  INTENT(IN) :: elementnumber
    INTEGER(INTG), INTENT(IN) :: elementlinenumber
    REAL(DP), INTENT(OUT) :: linelength
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local variables
    TYPE(decomposition_element_type), POINTER :: decompositionelement
    TYPE(domain_element_type), POINTER :: domainelement
    TYPE(varying_string) :: localerror
    INTEGER(INTG) :: globallinenumber

    enters("Field_GeometricParametersElementLineLengthGet",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(field%TYPE==field_geometric_type) THEN
          IF(ASSOCIATED(field%GEOMETRIC_FIELD_PARAMETERS)) THEN
            !\todo user to global element maps not in OpenCMISS?
            IF(elementnumber>=1.AND.elementnumber<=field%DECOMPOSITION%TOPOLOGY%ELEMENTS%NUMBER_OF_ELEMENTS) THEN
              domainelement=>field%DECOMPOSITION%DOMAIN(field%DECOMPOSITION%MESH_COMPONENT_NUMBER)%PTR% &
                & topology%ELEMENTS%ELEMENTS(elementnumber)
              decompositionelement=>field%DECOMPOSITION%TOPOLOGY%ELEMENTS%ELEMENTS(elementnumber)
              IF(elementlinenumber>=1.AND.elementlinenumber<=domainelement%BASIS%NUMBER_OF_LOCAL_LINES) THEN
                globallinenumber=decompositionelement%ELEMENT_LINES(elementlinenumber)
                linelength=field%GEOMETRIC_FIELD_PARAMETERS%LENGTHS(globallinenumber)
              ELSE
                localerror="Element basis line number  "//trim(number_to_vstring(elementnumber,"*",err,error))// &
                  & " is not valid and needs to be >=1 and <="//trim(number_to_vstring( &
                  & domainelement%BASIS%NUMBER_OF_LOCAL_LINES,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="Element number "//trim(number_to_vstring(elementnumber,"*",err,error))// &
                & " is not present in this fields decomposition"
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="Geometric parameters are not associated for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is not a geometric field."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_GeometricParametersElementLineLengthGet")
    RETURN
999 errors("Field_GeometricParametersElementLineLengthGet",err,error)
    exits("Field_GeometricParametersElementLineLengthGet")
    RETURN 1
    
  END SUBROUTINE field_geometricparameterselementlinelengthget

  !
  !================================================================================================================================
  !


  SUBROUTINE field_geometricparameterselementvolumeget(field,elementNumber,elementVolume,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG),  INTENT(IN) :: elementnumber
    REAL(DP), INTENT(OUT) :: elementvolume
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local variables
    TYPE(decomposition_element_type), POINTER :: decompositionelement
    TYPE(domain_element_type), POINTER :: domainelement
    TYPE(varying_string) :: localerror
    INTEGER(INTG) :: globallinenumber
    TYPE(coordinate_system_type), POINTER :: coordinatesystem
    enters("Field_GeometricParametersElementVolumeGet",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(field%TYPE==field_geometric_type) THEN
          IF(ASSOCIATED(field%GEOMETRIC_FIELD_PARAMETERS)) THEN
            !\todo user to global element maps not in OpenCMISS?
            
            IF(elementnumber>=1.AND.elementnumber<=field%DECOMPOSITION%TOPOLOGY%ELEMENTS%NUMBER_OF_ELEMENTS) THEN
              domainelement=>field%DECOMPOSITION%DOMAIN(field%DECOMPOSITION%MESH_COMPONENT_NUMBER)%PTR% &
                & topology%ELEMENTS%ELEMENTS(elementnumber)
              decompositionelement=>field%DECOMPOSITION%TOPOLOGY%ELEMENTS%ELEMENTS(elementnumber)
              NULLIFY(coordinatesystem)
              CALL field_coordinatesystemget(field,coordinatesystem,err,error,*999)
              IF(coordinatesystem%NUMBER_OF_DIMENSIONS.EQ.3) THEN 
                elementvolume = field%GEOMETRIC_FIELD_PARAMETERS%VOLUMES(elementnumber)
              ELSE
                localerror = "Volumes can only be calculated for 3D elements."
                CALL flagerror(localerror,err,error,*999)
              ENDIF

            ELSE
              localerror="Element number "//trim(number_to_vstring(elementnumber,"*",err,error))// &
                & " is not present in this fields decomposition"
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="Geometric parameters are not associated for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is not a geometric field."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_GeometricParametersElementVolumeGet")
    RETURN
999 errors("Field_GeometricParametersElementVolumeGet",err,error)
    exits("Field_GeometricParametersElementVolumeGet")
    RETURN 1
    
  END SUBROUTINE field_geometricparameterselementvolumeget

  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometricparameterselementvolumescalculate(field,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dummyerr,ng,ne,max_gauss
    INTEGER(INTG) :: numbergausspoints
    REAL(DP) :: w,elementvolume
    REAL(DP), ALLOCATABLE :: xig(:,:),wig(:),xi(:)
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_topology_type), POINTER :: topology
    TYPE(decomposition_topology_type), POINTER :: decomptopology
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_elements_type), POINTER :: decompelements
    TYPE(basis_type), POINTER:: basis
    TYPE(coordinate_system_type), POINTER :: coordinatesystem
    TYPE(field_interpolated_point_ptr_type), POINTER :: interpolatedpoint(:)
    TYPE(field_interpolated_point_metrics_ptr_type), POINTER :: interpolatedpointmetrics(:)
    TYPE(field_interpolation_parameters_ptr_type), POINTER :: interpolationparameters(:)
    TYPE(varying_string) :: dummyerror,localerror


    NULLIFY(interpolatedpoint)
    NULLIFY(interpolatedpointmetrics)
    NULLIFY(interpolationparameters)
    NULLIFY(fieldvariable)

    enters("Field_GeometricParametersElementVolumesCalculate",err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(field%TYPE==field_geometric_type) THEN
          IF(ASSOCIATED(field%GEOMETRIC_FIELD_PARAMETERS)) THEN
            NULLIFY(coordinatesystem)
            CALL field_coordinatesystemget(field,coordinatesystem,err,error,*999)
            IF(coordinatesystem%NUMBER_OF_DIMENSIONS.EQ.3) THEN !only calculate volumes if the object is in 3D
              CALL field_interpolationparametersinitialise(field,interpolationparameters,err,error,*999)
              CALL field_interpolatedpointsinitialise(interpolationparameters,interpolatedpoint,err,error,*999)
              CALL field_interpolatedpointsmetricsinitialise(interpolatedpoint,interpolatedpointmetrics,err,error,*999)
              !Get basis type for the first component of the mesh defined with this geometric field
              CALL field_variableget(field,field_u_variable_type,fieldvariable,err,error,*999)
              IF(ASSOCIATED(fieldvariable)) THEN
                domain=>fieldvariable%COMPONENTS(1)%DOMAIN
                IF(ASSOCIATED(domain))THEN
                  topology=>domain%TOPOLOGY
                  IF(ASSOCIATED(topology)) THEN
                    decomposition=>field%DECOMPOSITION
                    IF(ASSOCIATED(decomposition)) THEN
                      decomptopology=>decomposition%TOPOLOGY
                      IF(ASSOCIATED(decomptopology)) THEN
                        decompelements=>decomptopology%ELEMENTS
                        IF(ASSOCIATED(decompelements)) THEN
                          basis=>topology%ELEMENTS%ELEMENTS(1)%BASIS  
                          SELECT CASE(basis%TYPE)
                          CASE(basis_lagrange_hermite_tp_type)
                            max_gauss=4*4*4
                            ALLOCATE(xi(3),stat=err)
                            IF(err/=0) CALL flag_error("Could not allocate XI matrix",err,error,*999)
                            ALLOCATE(xig(3,max_gauss),stat=err)
                            IF(err/=0) CALL flag_error("Could not allocate XIG matrix",err,error,*999)
                            ALLOCATE(wig(max_gauss),stat=err)
                            IF(err/=0) CALL flag_error("Could not allocate W matrix",err,error,*999)
                            CALL basis_gauss_points_calculate(basis,4,3,numbergausspoints,xig,wig,err,error,*999)
                          CASE(basis_simplex_type)

                            max_gauss=4*4*4
                            ALLOCATE(xi(4),stat=err)
                            IF(err/=0) CALL flag_error("Could not allocate XI matrix",err,error,*999)
                            ALLOCATE(xig(4,max_gauss),stat=err)
                            IF(err/=0) CALL flag_error("Could not allocate XIG matrix",err,error,*999)
                            ALLOCATE(wig(max_gauss),stat=err)
                            IF(err/=0) CALL flag_error("Could not allocate W matrix",err,error,*999)
                            CALL basis_gauss_points_calculate(basis,4,3,numbergausspoints,xig,wig,err,error,*999)
                           CASE DEFAULT
                            localerror="Basis type "//trim(number_to_vstring(basis%TYPE,"*",err,error))//" &
                              & is invalid or not implemented"
                            CALL flag_error(localerror,err,error,*999)
                          END SELECT
                        ELSE
                          CALL flag_error("Elements are not associated with the decomposition",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flag_error("Decomposition topology is not associated",err,error,*999)
                      ENDIF
                    ELSE
                      CALL flag_error("Decomposition is not associated",err,error,*999)
                    ENDIF
                  ELSE
                    CALL flag_error("Domain topology is not associated",err,error,*999)
                  ENDIF
                ELSE
                  CALL flag_error("Domain is not associated with the geometric field component 1",err,error,*999)
                ENDIF
              ELSE
                CALL flag_error("Field variable is not associated",err,error,*999)
              ENDIF

              SELECT CASE(basis%TYPE)
              CASE(basis_lagrange_hermite_tp_type)
                !Loop over the elements  
                DO ne=1,field%DECOMPOSITION%TOPOLOGY%ELEMENTS%NUMBER_OF_ELEMENTS
                  CALL field_interpolation_parameters_element_get(field_values_set_type,ne, &
                    & interpolationparameters(field_u_variable_type)%PTR,err,error,*999)
                  elementvolume=0.0_dp
                  DO ng=1,numbergausspoints
                    xi(1:3)=xig(1:3,ng)
                    w=wig(ng)
                    CALL field_interpolate_xi(first_part_deriv,xi,interpolatedpoint(field_u_variable_type)%PTR,err,error,*999)
                    CALL field_interpolated_point_metrics_calculate(coordinate_jacobian_volume_type, &
                      & interpolatedpointmetrics(field_u_variable_type)%PTR,err,error,*999)
                    elementvolume=elementvolume+w*interpolatedpointmetrics(field_u_variable_type)%PTR%JACOBIAN
                  ENDDO !ng
                  field%GEOMETRIC_FIELD_PARAMETERS%VOLUMES(ne)=elementvolume
                ENDDO !ne
              CASE(basis_simplex_type)
                !Loop over the elements  
                DO ne=1,field%DECOMPOSITION%TOPOLOGY%ELEMENTS%NUMBER_OF_ELEMENTS
                  CALL field_interpolation_parameters_element_get(field_values_set_type,ne, &
                    & interpolationparameters(field_u_variable_type)%PTR,err,error,*999)
                  elementvolume=0.0_dp
                  DO ng=1,numbergausspoints
                    xi(1:4)=xig(1:4,ng)
                    w=wig(ng)
                    CALL field_interpolate_xi(first_part_deriv,xi,interpolatedpoint(field_u_variable_type)%PTR,err,error,*999)
                    CALL field_interpolated_point_metrics_calculate(coordinate_jacobian_volume_type, &
                      & interpolatedpointmetrics(field_u_variable_type)%PTR,err,error,*999)
                    elementvolume=elementvolume+w*interpolatedpointmetrics(field_u_variable_type)%PTR%JACOBIAN
                  ENDDO !ng
                  elementvolume = elementvolume
                  field%GEOMETRIC_FIELD_PARAMETERS%VOLUMES(ne)=elementvolume
                ENDDO !ne
              CASE DEFAULT
                localerror="Basis type "//trim(number_to_vstring(basis%TYPE,"*",err,error))//" &
                  & is invalid or not implemented"
                CALL flag_error(localerror,err,error,*999)
              END SELECT

              CALL field_interpolated_point_metrics_finalise(interpolatedpointmetrics(field_u_variable_type)%PTR,err,error,*999)
              CALL field_interpolated_points_finalise(interpolatedpoint,err,error,*999)
              CALL field_interpolation_parameters_finalise(interpolationparameters,err,error,*999)
            ENDIF
          ELSE
            localerror="Geometric parameters are not associated for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flag_error(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is not a geometric field."
          CALL flag_error(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flag_error(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flag_error("Field is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string(diagnostic_output_type,"Element volumes:",err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of elements = ", &
        & field%DECOMPOSITION%TOPOLOGY%ELEMENTS%NUMBER_OF_ELEMENTS, &
        & err,error,*999)
      DO ne=1,field%DECOMPOSITION%TOPOLOGY%ELEMENTS%NUMBER_OF_ELEMENTS
        CALL write_string_fmt_two_value(diagnostic_output_type,"    Element ",ne,"(I8)"," volume = ",field% &
          & geometric_field_parameters%VOLUMES(ne),"*",err,error,*999)
      ENDDO !nf
    ENDIF


    exits("Field_GeometricParametersElementVolumesCalculate")
    RETURN
999 IF(ASSOCIATED(interpolatedpoint)) CALL field_interpolated_points_finalise(interpolatedpoint,dummyerr,dummyerror,*999)
    IF(ASSOCIATED(interpolationparameters)) CALL field_interpolation_parameters_finalise(interpolationparameters, &
      & dummyerr,dummyerror,*999)
    errors("Field_GeometricParametersElementVolumesCalculate",err,error)
    exits("Field_GeometricParametersElementVolumesCalculate")
    RETURN 1
  END SUBROUTINE field_geometricparameterselementvolumescalculate



  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometricparameterslinelengthscalculate(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dummy_err,iteration_number,maximum_difference_line,ng,nl
    INTEGER(INTG), PARAMETER :: lines_maximum_number_of_iterations=20
    INTEGER(INTG) :: gauss_start(4) = [ 0,1,3,6 ]
    INTEGER(INTG) :: number_of_gauss_points=4
    REAL(DP) :: last_maximum_length_difference,length_difference,maximum_length_difference,xi(1),w,deriv_norm,line_length, &
      & OLD_LINE_LENGTH
! Doxygen doesn't like this
!    REAL(DP) :: XIG(10) = [ 0.500000000000000_DP, &
!      &                     0.211324865405187_DP,0.788675134594813_DP, &
!      &                     0.112701665379258_DP,0.500000000000000_DP,0.887298334620742_DP, &
!      &                     0.06943184420297349_DP,0.330009478207572_DP,0.669990521792428_DP,0.930568155797026_DP ]
!    REAL(DP) :: WIG(10) = [ 1.000000000000000_DP, &
!      &                     0.500000000000000_DP,0.500000000000000_DP, &
!      &                     0.277777777777778_DP,0.444444444444444_DP,0.277777777777778_DP,
!      &                     0.173927422568727_DP,0.326072577431273_DP,0.326072577431273_DP,0.173927422568727_DP ]
    REAL(DP) :: xig(10),wig(10)
    REAL(DP), PARAMETER :: line_increment_tolerance=convergence_tolerance
    LOGICAL :: iterate,update_fields_using
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(field_interpolated_point_ptr_type), POINTER :: interpolated_point(:)
    TYPE(field_interpolation_parameters_ptr_type), POINTER :: interpolation_parameters(:)
    TYPE(varying_string) :: dummy_error,local_error

    xig = [ 0.500000000000000_dp, &
      &     0.211324865405187_dp,0.788675134594813_dp, &
      &     0.112701665379258_dp,0.500000000000000_dp,0.887298334620742_dp, &
      &     0.06943184420297349_dp,0.330009478207572_dp,0.669990521792428_dp,0.930568155797026_dp ]
    wig = [ 1.000000000000000_dp, &
      &     0.500000000000000_dp,0.500000000000000_dp, &
      &     0.277777777777778_dp,0.444444444444444_dp,0.277777777777778_dp, &
      &     0.173927422568727_dp,0.326072577431273_dp,0.326072577431273_dp,0.173927422568727_dp ]

    NULLIFY(interpolated_point)
    NULLIFY(interpolation_parameters)

    enters("Field_GeometricParametersLineLengthsCalculate",err,error,*997)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(field%TYPE==field_geometric_type) THEN
          IF(ASSOCIATED(field%GEOMETRIC_FIELD_PARAMETERS)) THEN            
            NULLIFY(coordinate_system)
            CALL field_coordinate_system_get(field,coordinate_system,err,error,*999)
            !Iterate to find the line lengths as the line lengths depend on the scaling factors and vise versa.
            CALL field_interpolation_parameters_initialise(field,interpolation_parameters,err,error,*999)
            CALL field_interpolated_points_initialise(interpolation_parameters,interpolated_point,err,error,*999)
            iterate=.true.
            iteration_number=0
            last_maximum_length_difference=0.0_dp
            DO WHILE(iterate.AND.iteration_number<=lines_maximum_number_of_iterations)
              maximum_length_difference=0.0_dp
              maximum_difference_line=1
              !Loop over the lines
              DO nl=1,field%DECOMPOSITION%TOPOLOGY%LINES%NUMBER_OF_LINES
                CALL field_interpolation_parameters_line_get(field_values_set_type,nl, &
                  & interpolation_parameters(field_u_variable_type)%PTR,err,error,*999)
                old_line_length=field%GEOMETRIC_FIELD_PARAMETERS%LENGTHS(nl)
                line_length=0.0_dp
                !Integrate || dr(xi)/dt || from xi=0 to 1 to determine the arc length.
                DO ng=1,number_of_gauss_points
                  xi(1)=xig(gauss_start(number_of_gauss_points)+ng)
                  w=wig(gauss_start(number_of_gauss_points)+ng)
                  CALL field_interpolate_xi(first_part_deriv,xi,interpolated_point(field_u_variable_type)%PTR,err,error,*999)
                  CALL coordinate_derivative_norm(coordinate_system,part_deriv_s1, &
                    & interpolated_point(field_u_variable_type)%PTR,deriv_norm,err,error,*999)
                  line_length=line_length+w*deriv_norm
                ENDDO !ng
                field%GEOMETRIC_FIELD_PARAMETERS%LENGTHS(nl)=line_length
                length_difference=abs(line_length-old_line_length)/(1.0_dp+old_line_length)
                IF(length_difference>maximum_length_difference) THEN
                  maximum_length_difference=length_difference
                  maximum_difference_line=nl
                ENDIF
              ENDDO !nl
              iterate=maximum_length_difference>line_increment_tolerance
              IF(iterate) THEN
                IF(iteration_number==1) THEN
                  last_maximum_length_difference=maximum_length_difference
                ELSE IF(maximum_length_difference<loose_tolerance.AND. &
                  & maximum_length_difference>=last_maximum_length_difference) THEN
                  !Seems to be at a numerical limit
                  iterate=.false.
                ELSE
                  last_maximum_length_difference=maximum_length_difference
                ENDIF
              ENDIF
              iteration_number=iteration_number+1
              IF(diagnostics2) THEN
                CALL write_string(diagnostic_output_type,"Line iteration report:",err,error,*999)
                CALL write_string_value(diagnostic_output_type,"  Number of iterations = ",iteration_number,err,error,*999)
                CALL write_string_value(diagnostic_output_type,"  Maximum length difference = ",maximum_length_difference, &
                  & err,error,*999)
                CALL write_string_value(diagnostic_output_type,"  Difference tolerance = ",line_increment_tolerance, &
                  err,error,*999)
                CALL write_string_value(diagnostic_output_type,"  Maximum difference line = ",maximum_difference_line, &
                  err,error,*999)
              ENDIF
              IF(.NOT.iterate.OR.iteration_number==lines_maximum_number_of_iterations) THEN
                update_fields_using=.true.
              ELSE
                update_fields_using=.false.
              ENDIF
              CALL field_geometricparametersscalefactorsupdate(field,update_fields_using,err,error,*999)
            ENDDO !iterate
            CALL field_interpolated_points_finalise(interpolated_point,err,error,*999)
            CALL field_interpolation_parameters_finalise(interpolation_parameters,err,error,*999)
          ELSE
            local_error="Geometric parameters are not associated for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is not a geometric field."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string(diagnostic_output_type,"Line lengths:",err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of iterations = ",iteration_number,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Maximum length difference = ",maximum_length_difference,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Difference tolerance = ",line_increment_tolerance,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Maximum difference line = ",maximum_difference_line,err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of lines = ",field%DECOMPOSITION%TOPOLOGY%LINES%NUMBER_OF_LINES, &
        & err,error,*999)
      DO nl=1,field%DECOMPOSITION%TOPOLOGY%LINES%NUMBER_OF_LINES
        CALL write_string_fmt_two_value(diagnostic_output_type,"    Line ",nl,"(I8)"," length = ",field% &
          & geometric_field_parameters% LENGTHS(nl),"*",err,error,*999)
      ENDDO !nl
    ENDIF

    exits("Field_GeometricParametersLineLengthsCalculate")
    RETURN
999 IF(ASSOCIATED(interpolated_point)) CALL field_interpolated_points_finalise(interpolated_point,dummy_err,dummy_error,*998)
998 IF(ASSOCIATED(interpolation_parameters)) CALL field_interpolation_parameters_finalise(interpolation_parameters, &
      & dummy_err,dummy_error,*997)
997 errors("Field_GeometricParametersLineLengthsCalculate",err,error)
    exits("Field_GeometricParametersLineLengthsCalculate")
    RETURN 1
    
  END SUBROUTINE field_geometricparameterslinelengthscalculate

  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometricparametersfaceareascalculate(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    INTEGER(INTG) :: dummy_err,ng,nf
    INTEGER(INTG) :: gauss_start(4) = [ 0,1,3,6 ]
    INTEGER(INTG) :: number_of_gauss_points=4
    REAL(DP) :: xi(1),w,face_area
    REAL(DP) :: xig(10),wig(10)
    TYPE(coordinate_system_type), POINTER :: coordinate_system
    TYPE(field_interpolated_point_ptr_type), POINTER :: interpolated_point(:)
    TYPE(field_interpolated_point_metrics_ptr_type), POINTER :: interpolated_point_metrics(:)
    TYPE(field_interpolation_parameters_ptr_type), POINTER :: interpolation_parameters(:)
    TYPE(varying_string) :: dummy_error,local_error

    xig = [ 0.500000000000000_dp, &
      &     0.211324865405187_dp,0.788675134594813_dp, &
      &     0.112701665379258_dp,0.500000000000000_dp,0.887298334620742_dp, &
      &     0.06943184420297349_dp,0.330009478207572_dp,0.669990521792428_dp,0.930568155797026_dp ]
    wig = [ 1.000000000000000_dp, &
      &     0.500000000000000_dp,0.500000000000000_dp, &
      &     0.277777777777778_dp,0.444444444444444_dp,0.277777777777778_dp, &
      &     0.173927422568727_dp,0.326072577431273_dp,0.326072577431273_dp,0.173927422568727_dp ]
    NULLIFY(interpolated_point)
    NULLIFY(interpolated_point_metrics)
    NULLIFY(interpolation_parameters)

    enters("Field_GeometricParametersFaceAreasCalculate",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(field%TYPE==field_geometric_type) THEN
          IF(ASSOCIATED(field%GEOMETRIC_FIELD_PARAMETERS)) THEN
            NULLIFY(coordinate_system)
            CALL field_coordinate_system_get(field,coordinate_system,err,error,*999)
            CALL field_interpolation_parameters_initialise(field,interpolation_parameters,err,error,*999)
            CALL field_interpolated_points_initialise(interpolation_parameters,interpolated_point,err,error,*999)
            CALL field_interpolatedpointsmetricsinitialise(interpolated_point,interpolated_point_metrics,err,error,*999)

            !Loop over the faces
            DO nf=1,field%DECOMPOSITION%TOPOLOGY%FACES%NUMBER_OF_FACES
              CALL field_interpolation_parameters_face_get(field_values_set_type,nf, &
                & interpolation_parameters(field_u_variable_type)%PTR,err,error,*999)
              face_area=0.0_dp
              DO ng=1,number_of_gauss_points
                xi(1)=xig(gauss_start(number_of_gauss_points)+ng)
                w=wig(gauss_start(number_of_gauss_points)+ng)
                CALL field_interpolate_xi(first_part_deriv,xi,interpolated_point(field_u_variable_type)%PTR,err,error,*999)
                CALL field_interpolated_point_metrics_calculate(coordinate_jacobian_area_type, &
                  & interpolated_point_metrics(field_u_variable_type)%PTR,err,error,*999)
                face_area=face_area+w*interpolated_point_metrics(field_u_variable_type)%PTR%JACOBIAN
              ENDDO !ng
              field%GEOMETRIC_FIELD_PARAMETERS%AREAS(nf)=face_area
            ENDDO !nf

            CALL field_interpolatedpointsmetricsfinalise(interpolated_point_metrics,err,error,*999)
            CALL field_interpolated_points_finalise(interpolated_point,err,error,*999)
            CALL field_interpolation_parameters_finalise(interpolation_parameters,err,error,*999)
          ELSE
            local_error="Geometric parameters are not associated for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is not a geometric field."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      CALL write_string(diagnostic_output_type,"Face areas:",err,error,*999)
      CALL write_string_value(diagnostic_output_type,"  Number of faces = ",field%DECOMPOSITION%TOPOLOGY%FACES%NUMBER_OF_FACES, &
        & err,error,*999)
      DO nf=1,field%DECOMPOSITION%TOPOLOGY%FACES%NUMBER_OF_FACES
        CALL write_string_fmt_two_value(diagnostic_output_type,"    Face ",nf,"(I8)"," area = ",field% &
          & geometric_field_parameters%AREAS(nf),"*",err,error,*999)
      ENDDO !nf
    ENDIF

    exits("Field_GeometricParametersFaceAreasCalculate")
    RETURN
999 IF(ASSOCIATED(interpolated_point_metrics)) CALL field_interpolatedpointsmetricsfinalise(interpolated_point_metrics, &
      & dummy_err,dummy_error,*999)
    IF(ASSOCIATED(interpolated_point)) CALL field_interpolated_points_finalise(interpolated_point,dummy_err,dummy_error,*999)
    IF(ASSOCIATED(interpolation_parameters)) CALL field_interpolation_parameters_finalise(interpolation_parameters, &
      & dummy_err,dummy_error,*999)
    errorsexits("Field_GeometricParametersFaceAreasCalculate",err,error)
    RETURN 1
    
  END SUBROUTINE field_geometricparametersfaceareascalculate

  !
  !================================================================================================================================
  !

  SUBROUTINE field_geometricparametersscalefactorsupdate(FIELD,UPDATE_FIELDS_USING,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    LOGICAL, INTENT(IN) :: update_fields_using
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: field_idx,last_field_idx
    TYPE(field_type), POINTER :: field2

    enters("Field_GeometricParametersScaleFactorsUpdate",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%TYPE==field_geometric_type) THEN
        IF(update_fields_using) THEN
          last_field_idx=field%GEOMETRIC_FIELD_PARAMETERS%NUMBER_OF_FIELDS_USING
        ELSE
          last_field_idx=1 !The first field using will be the current field
        ENDIF
        DO field_idx=1,last_field_idx
          field2=>field%GEOMETRIC_FIELD_PARAMETERS%FIELDS_USING(field_idx)%PTR
          CALL field_scalings_calculate(field2,err,error,*999)
        ENDDO !field_idx
      ELSE
        CALL flagerror("Field is not geometric field.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_GeometricParametersScaleFactorsUpdate")
    RETURN
999 errorsexits("Field_GeometricParametersScaleFactorsUpdate",err,error)
    RETURN 1
    
  END SUBROUTINE field_geometricparametersscalefactorsupdate
  
  !
  !================================================================================================================================
  !

  SUBROUTINE field_label_get_c(FIELD,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: c_length,vs_length
    TYPE(varying_string) :: local_error

    enters("FIELD_LABEL_GET_C",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        c_length=len(label)
        vs_length=len_trim(field%LABEL)
        IF(c_length>vs_length) THEN
          label=char(len_trim(field%LABEL))
        ELSE
          label=char(field%LABEL,c_length)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_LABEL_GET_C")
    RETURN
999 errorsexits("FIELD_LABEL_GET_C",err,error)
    RETURN 1
  END SUBROUTINE field_label_get_c

  !
  !================================================================================================================================
  !

  SUBROUTINE field_label_get_vs(FIELD,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_LABEL_GET_VS",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        label=field%LABEL
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_LABEL_GET_VS")
    RETURN
999 errorsexits("FIELD_LABEL_GET_VS",err,error)
    RETURN 1
  END SUBROUTINE field_label_get_vs

  !
  !================================================================================================================================
  !

  SUBROUTINE field_label_set_c(FIELD,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_LABEL_SET_C",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(field%CREATE_VALUES_CACHE%LABEL_LOCKED) THEN
            local_error="The field label has been locked for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
            CALL flagerror(local_error,err,error,*999)
          ELSE
            field%LABEL=label
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_LABEL_SET_C")
    RETURN
999 errorsexits("FIELD_LABEL_SET_C",err,error)
    RETURN 1
  END SUBROUTINE field_label_set_c
  
 !
  !================================================================================================================================
  !

  SUBROUTINE field_label_set_vs(FIELD,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_LABEL_SET_VS",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(field%CREATE_VALUES_CACHE%LABEL_LOCKED) THEN
            local_error="The field label has been locked for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
            CALL flagerror(local_error,err,error,*999)
          ELSE
            field%LABEL=label
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_LABEL_SET_VS")
    RETURN
999 errorsexits("FIELD_LABEL_SET_VS",err,error)
    RETURN 1
  END SUBROUTINE field_label_set_vs
  
  !
  !================================================================================================================================
  !

  SUBROUTINE field_label_set_and_lock_c(FIELD,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_LABEL_SET_AND_LOCK_C",err,error,*999)
    
    CALL field_label_set(field,label,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%LABEL_LOCKED=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_LABEL_SET_AND_LOCK_C")
    RETURN
999 errorsexits("FIELD_LABEL_SET_AND_LOCK_C",err,error)
    RETURN 1
  END SUBROUTINE field_label_set_and_lock_c

  !
  !================================================================================================================================
  !

  SUBROUTINE field_label_set_and_lock_vs(FIELD,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_LABEL_SET_AND_LOCK_VS",err,error,*999)
    
    CALL field_label_set(field,label,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%LABEL_LOCKED=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_LABEL_SET_AND_LOCK_VS")
    RETURN
999 errorsexits("FIELD_LABEL_SET_AND_LOCK_VS",err,error)
    RETURN 1
  END SUBROUTINE field_label_set_and_lock_vs

  !
  !================================================================================================================================
  !

  SUBROUTINE field_mesh_decomposition_get(FIELD,MESH_DECOMPOSITION,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(decomposition_type), POINTER :: mesh_decomposition
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error
    
    enters("FIELD_MESH_DECOMPOSITION_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(ASSOCIATED(mesh_decomposition)) THEN
          CALL flagerror("Mesh decomposition is already associated.",err,error,*999)
        ELSE
          NULLIFY(mesh_decomposition)
          mesh_decomposition=>field%DECOMPOSITION
          IF(.NOT.ASSOCIATED(mesh_decomposition)) CALL flagerror("Field decomposition is not associated.",err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_MESH_DECOMPOSITION_GET")
    RETURN
999 errorsexits("FIELD_MESH_DECOMPOSITION_GET",err,error)
    RETURN 1
  END SUBROUTINE field_mesh_decomposition_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_mesh_decomposition_set(FIELD,MESH_DECOMPOSITION,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(decomposition_type), POINTER :: mesh_decomposition
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(mesh_type), POINTER :: mesh
    TYPE(interface_type), POINTER :: mesh_interface,field_interface
    TYPE(region_type), POINTER :: mesh_region,field_region,parent_region
    TYPE(varying_string) :: local_error

    enters("FIELD_MESH_DECOMPOSITION_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(field%CREATE_VALUES_CACHE%DECOMPOSITION_LOCKED) THEN
            local_error="The mesh decomposition has been locked for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
            CALL flagerror(local_error,err,error,*999)
          ELSE
            IF(ASSOCIATED(mesh_decomposition)) THEN
              mesh=>mesh_decomposition%MESH
              IF(ASSOCIATED(mesh)) THEN
                NULLIFY(mesh_interface)
                mesh_region=>mesh%REGION
                IF(ASSOCIATED(mesh_region)) THEN
                  NULLIFY(field_interface)
                  field_region=>field%REGION
                  IF(ASSOCIATED(field_region)) THEN
                    IF(mesh_region%USER_NUMBER==field_region%USER_NUMBER) THEN
                      field%DECOMPOSITION=>mesh_decomposition
                    ELSE
                      local_error="Inconsitent regions. The field is defined on region number "// &
                        & trim(number_to_vstring(field%REGION%USER_NUMBER,"*",err,error))// &
                        & " and the mesh decomposition is defined on region number "//&
                        & trim(number_to_vstring(mesh_decomposition%MESH%REGION%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                  ELSE
                    field_interface=>field%INTERFACE
                    IF(ASSOCIATED(field_interface)) THEN
                      parent_region=>field_interface%PARENT_REGION
                      IF(ASSOCIATED(parent_region)) THEN
                        local_error="Inconsitent setup. The field is defined on interface number "// &
                          & trim(number_to_vstring(field_interface%USER_NUMBER,"*",err,error))// &
                          & " of parent region number "//trim(number_to_vstring(parent_region%USER_NUMBER,"*",err,error))// &
                          & " and the mesh decomposition is defined on region number "// &
                          & trim(number_to_vstring(mesh_region%USER_NUMBER,"*",err,error))//"."
                        CALL flagerror(local_error,err,error,*999)
                      ELSE
                        CALL flagerror("Field interface has no parent region.",err,error,*999)
                      ENDIF
                    ELSE
                      local_error="Region or interface is not associated for field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                  ENDIF
                ELSE
                  mesh_interface=>mesh%INTERFACE
                  IF(ASSOCIATED(mesh_interface)) THEN
                    parent_region=>mesh_interface%PARENT_REGION
                    IF(ASSOCIATED(parent_region)) THEN
                      field_region=>field%REGION
                      IF(ASSOCIATED(field_region)) THEN
                        local_error="Inconsitent setup. The field is defined on region number "// &
                          & trim(number_to_vstring(field_region%USER_NUMBER,"*",err,error))// &
                          & " and the mesh decomposition is defined on interface number "// &
                          & trim(number_to_vstring(mesh_interface%USER_NUMBER,"*",err,error))// &
                          & " of parent region number "//trim(number_to_vstring(parent_region%USER_NUMBER,"*",err,error))//"."
                        CALL flagerror(local_error,err,error,*999)
                      ELSE
                        field_interface=>field%INTERFACE
                        IF(ASSOCIATED(field_interface)) THEN
                          parent_region=>field_interface%PARENT_REGION
                          IF(ASSOCIATED(parent_region)) THEN
                            IF(mesh_interface%USER_NUMBER==field_interface%USER_NUMBER) THEN
                              field%DECOMPOSITION=>mesh_decomposition
                            ELSE
                              local_error="Inconsitent interfaces. The field is defined on interface number "// &
                                & trim(number_to_vstring(field_interface%USER_NUMBER,"*",err,error))// &
                                & " of parent region number "// &
                                & trim(number_to_vstring(parent_region%USER_NUMBER,"*",err,error))// &
                                & " and the mesh decomposition is defined on region number "//&
                                & trim(number_to_vstring(mesh_region%USER_NUMBER,"*",err,error))//"."
                              CALL flagerror(local_error,err,error,*999)

                            ENDIF
                          ELSE
                            CALL flagerror("Field interface parent region is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          local_error="Region or interface is not associated for field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)                        
                        ENDIF
                      ENDIF
                    ELSE
                      CALL flagerror("Mesh interface parent region is not associated.",err,error,*999)
                    ENDIF
                  ELSE
                    local_error="Region or interface is not associated for mesh number "// &
                      & trim(number_to_vstring(mesh%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)                        
                  ENDIF
                ENDIF
              ELSE
                CALL flagerror("Mesh is not associated for the mesh decomposition.",err,error,*999)
              ENDIF
            ELSE
              CALL flagerror("Mesh decomposition is not assocaited.",err,error,*999)
            ENDIF
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_MESH_DECOMPOSITION_SET")
    RETURN
999 errorsexits("FIELD_MESH_DECOMPOSITION_SET",err,error)
    RETURN 1
  END SUBROUTINE field_mesh_decomposition_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_mesh_decomposition_set_and_lock(FIELD,MESH_DECOMPOSITION,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(decomposition_type), POINTER :: mesh_decomposition
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_MESH_DECOMPOSITION_SET_AND_LOCK",err,error,*999)

    CALL field_mesh_decomposition_set(field,mesh_decomposition,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%DECOMPOSITION_LOCKED=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_MESH_DECOMPOSITION_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_MESH_DECOMPOSITION_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_mesh_decomposition_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE field_dataprojectionset(field,dataProjection,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(data_projection_type), POINTER :: dataprojection
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    TYPE(varying_string) :: localerror

    enters("Field_DataProjectionSet",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has been finished."
        CALL flagerror(localerror,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(field%CREATE_VALUES_CACHE%DataProjectionLocked) THEN
            localerror="The data projection has been locked for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
            CALL flagerror(localerror,err,error,*999)
          ELSE
            IF(ASSOCIATED(dataprojection)) THEN
              field%DataProjection=>dataprojection
            ELSE
              CALL flagerror("Data projection is not associated.",err,error,*999)
            ENDIF
          ENDIF
        ELSE
          localerror="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_DataProjectionSet")
    RETURN
999 errorsexits("Field_DataProjectionSet",err,error)
    RETURN 1
  END SUBROUTINE field_dataprojectionset

  !
  !================================================================================================================================
  !

  SUBROUTINE field_number_of_components_check(FIELD,VARIABLE_TYPE,NUMBER_OF_COMPONENTS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: number_of_components !The number of components in the field variable to check
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_NUMBER_OF_COMPONENTS_CHECK",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%NUMBER_OF_COMPONENTS/=number_of_components) THEN
              local_error="Invalid number of components. The number components for variable type "// &
                & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " which does not correspond to the specified number of components of "// &
                & trim(number_to_vstring(number_of_components,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          ENDIF
        ELSE
          local_error="The supplied variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The field variable type must be > 1 and <= "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_NUMBER_OF_COMPONENTS_CHECK")
    RETURN
999 errorsexits("FIELD_NUMBER_OF_COMPONENTS_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_number_of_components_check

  !
  !================================================================================================================================
  !

  SUBROUTINE field_number_of_components_get(FIELD,VARIABLE_TYPE,NUMBER_OF_COMPONENTS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(OUT) :: number_of_components
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_NUMBER_OF_COMPONENTS_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            number_of_components=field_variable%NUMBER_OF_COMPONENTS
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          ENDIF
        ELSE
          local_error="The supplied variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The field variable type must be > 1 and <= "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_NUMBER_OF_COMPONENTS_GET")
    RETURN
999 errorsexits("FIELD_NUMBER_OF_COMPONENTS_GET",err,error)
    RETURN 1
  END SUBROUTINE field_number_of_components_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_number_of_components_set(FIELD,VARIABLE_TYPE,NUMBER_OF_COMPONENTS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: number_of_components
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx,new_number_of_components,old_number_of_components,overlap_number_of_components,variable_idx
    INTEGER(INTG), ALLOCATABLE :: new_interpolation_type(:,:),new_mesh_component_number(:,:)
    LOGICAL, ALLOCATABLE ::new_component_labels_locked(:,:), new_interpolation_type_locked(:,:), &
      & NEW_MESH_COMPONENT_NUMBER_LOCKED(:,:)
    TYPE(varying_string) :: local_error
    TYPE(varying_string), ALLOCATABLE :: new_component_labels(:,:)

    enters("FIELD_NUMBER_OF_COMPONENTS_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
            IF(any(field%CREATE_VALUES_CACHE%VARIABLE_TYPES==variable_type)) THEN
              IF(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS_LOCKED(variable_type)) THEN
                local_error="The number of components has been locked for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
                CALL flagerror(local_error,err,error,*999)
              ELSE
                SELECT CASE(field%CREATE_VALUES_CACHE%DIMENSION(variable_type))
                CASE(field_scalar_dimension_type)
                  IF(number_of_components/=1) THEN
                    local_error="Scalar fields cannot have "//trim(number_to_vstring(number_of_components,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                CASE(field_vector_dimension_type)
                  IF(number_of_components>0) THEN
                    IF(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)/=number_of_components) THEN
                      old_number_of_components=maxval(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS)
                      new_number_of_components=number_of_components
                        DO variable_idx=1,field_number_of_variable_types
                        IF (field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_idx) > new_number_of_components) THEN 
                          IF (variable_idx /= variable_type) THEN
                            new_number_of_components=field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_idx)
                          ENDIF
                        ENDIF
                      ENDDO
                      overlap_number_of_components=min(old_number_of_components,new_number_of_components)
                      ALLOCATE(new_component_labels(new_number_of_components,field_number_of_variable_types),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate new component labels.",err,error,*999)
                      ALLOCATE(new_component_labels_locked(new_number_of_components,field_number_of_variable_types),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate new component labels locked.",err,error,*999)
                      ALLOCATE(new_interpolation_type(new_number_of_components,field_number_of_variable_types),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate new interpolation type.",err,error,*999)
                      ALLOCATE(new_interpolation_type_locked(new_number_of_components,field_number_of_variable_types),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate new interpolation type locked.",err,error,*999)
                      ALLOCATE(new_mesh_component_number(new_number_of_components,field_number_of_variable_types),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate new mesh component number.",err,error,*999)
                      ALLOCATE(new_mesh_component_number_locked(new_number_of_components,field_number_of_variable_types),stat=err)
                      IF(err/=0) CALL flagerror("Could not allocate new mesh component number locked.",err,error,*999)

                      new_component_labels=''
                      new_component_labels_locked=.false.
                      new_interpolation_type=0
                      new_interpolation_type_locked=.false.
                      new_mesh_component_number=0                   
                      new_mesh_component_number_locked=.false.
                      new_component_labels(1:overlap_number_of_components,:) = &
                        & field%CREATE_VALUES_CACHE%COMPONENT_LABELS(1:overlap_number_of_components,:)
                      new_component_labels_locked(1:overlap_number_of_components,:) = &
                        & field%CREATE_VALUES_CACHE%COMPONENT_LABELS_LOCKED(1:overlap_number_of_components,:)
                      new_interpolation_type(1:overlap_number_of_components,:) = &
                        & field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(1:overlap_number_of_components,:)
                      new_interpolation_type_locked(1:overlap_number_of_components,:) = &
                        & field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED(1:overlap_number_of_components,:)
                      new_mesh_component_number(1:overlap_number_of_components,:) = &
                        & field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(1:overlap_number_of_components,:)
                      new_mesh_component_number_locked(1:overlap_number_of_components,:) = &
                        & field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED(1:overlap_number_of_components,:)
                      !Update remaining terms
                      IF(old_number_of_components<number_of_components) THEN
                        DO variable_idx=1,field_number_of_variable_types
                          DO component_idx=old_number_of_components+1,number_of_components
                            new_component_labels(component_idx,variable_idx)= &
                              & trim(number_to_vstring(component_idx,"*",err,error))
                            IF(err/=0) GOTO 999
                          ENDDO
                          new_interpolation_type(old_number_of_components+1:number_of_components,variable_idx) = &
                            & field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(1,variable_idx)
                          new_mesh_component_number(old_number_of_components+1:number_of_components,variable_idx) = &
                            & field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(1,variable_idx)
                        ENDDO
                      ENDIF

                      CALL move_alloc(new_component_labels,field%CREATE_VALUES_CACHE%COMPONENT_LABELS)
                      CALL move_alloc(new_component_labels_locked,field%CREATE_VALUES_CACHE%COMPONENT_LABELS_LOCKED)
                      CALL move_alloc(new_interpolation_type,field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE)
                      CALL move_alloc(new_interpolation_type_locked,field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED)
                      CALL move_alloc(new_mesh_component_number,field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER)
                      CALL move_alloc(new_mesh_component_number_locked,field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED)

                      field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)=number_of_components
                    ENDIF
                  ELSE
                    local_error="Vector fields cannot have "//trim(number_to_vstring(number_of_components,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                CASE(field_tensor_dimension_type)
                  CALL flagerror("Not implemented.",err,error,*999)
                CASE DEFAULT
                  local_error="Field dimension "//trim(number_to_vstring(field%CREATE_VALUES_CACHE%DIMENSION( &
                    & variable_type),"*",err,error))//" is not valid."
                  CALL flagerror(local_error,err,error,*999)
                END SELECT
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_NUMBER_OF_COMPONENTS_SET")
    RETURN
999 IF(ALLOCATED(new_component_labels)) DEALLOCATE(new_component_labels)
    IF(ALLOCATED(new_component_labels_locked)) DEALLOCATE(new_component_labels_locked)
    IF(ALLOCATED(new_interpolation_type)) DEALLOCATE(new_interpolation_type)
    IF(ALLOCATED(new_interpolation_type_locked)) DEALLOCATE(new_interpolation_type_locked)
    IF(ALLOCATED(new_mesh_component_number)) DEALLOCATE(new_mesh_component_number)
    IF(ALLOCATED(new_mesh_component_number_locked)) DEALLOCATE(new_mesh_component_number_locked)
    errorsexits("FIELD_NUMBER_OF_COMPONENTS_SET",err,error)
    RETURN 1
  END SUBROUTINE field_number_of_components_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_number_of_components_set_and_lock(FIELD,VARIABLE_TYPE,NUMBER_OF_COMPONENTS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: number_of_components
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_NUMBER_OF_COMPONENTS_SET_AND_LOCK",err,error,*999)

    CALL field_number_of_components_set(field,variable_type,number_of_components,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS_LOCKED(variable_type)=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_NUMBER_OF_COMPONENTS_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_NUMBER_OF_COMPONENTS_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_number_of_components_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE field_number_of_variables_check(FIELD,NUMBER_OF_VARIABLES,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: number_of_variables
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_NUMBER_OF_VARIABLES_CHECK",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(field%NUMBER_OF_VARIABLES/=number_of_variables) THEN
          local_error="Invalid number of variables. The number of variables for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
            & trim(number_to_vstring(field%NUMBER_OF_VARIABLES,"*",err,error))// &
            & " which is does correspond to the specified number of variables of "// &
            & trim(number_to_vstring(number_of_variables,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
       ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_NUMBER_OF_VARIABLES_CHECK")
    RETURN
999 errorsexits("FIELD_NUMBER_OF_VARIABLES_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_number_of_variables_check

  !
  !================================================================================================================================
  !

  SUBROUTINE field_number_of_variables_get(FIELD,NUMBER_OF_VARIABLES,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: number_of_variables
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_NUMBER_OF_VARIABLES_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        number_of_variables=field%NUMBER_OF_VARIABLES
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_NUMBER_OF_VARIABLES_GET")
    RETURN
999 errorsexits("FIELD_NUMBER_OF_VARIABLES_GET",err,error)
    RETURN 1
  END SUBROUTINE field_number_of_variables_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_number_of_variables_set(FIELD,NUMBER_OF_VARIABLES,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: number_of_variables
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: variable_idx,variable_idx2,variable_type
    INTEGER(INTG), ALLOCATABLE :: old_variable_types(:)
    LOGICAL :: found
    TYPE(varying_string) :: local_error

    enters("FIELD_NUMBER_OF_VARIABLES_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(field%CREATE_VALUES_CACHE%NUMBER_OF_VARIABLES_LOCKED) THEN
            local_error="The number of variables has been locked field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
            CALL flagerror(local_error,err,error,*999)
          ELSE
            IF(number_of_variables>0.AND.number_of_variables<=field_number_of_variable_types) THEN
              IF(field%NUMBER_OF_VARIABLES/=number_of_variables) THEN
                ALLOCATE(old_variable_types(field%NUMBER_OF_VARIABLES),stat=err)
                IF(err/=0) CALL flagerror("Could not allocate old variable types.",err,error,*999)
                old_variable_types(1:field%NUMBER_OF_VARIABLES)=field%CREATE_VALUES_CACHE%VARIABLE_TYPES(1: &
                  & field%NUMBER_OF_VARIABLES)
                DEALLOCATE(field%CREATE_VALUES_CACHE%VARIABLE_TYPES)
                ALLOCATE(field%CREATE_VALUES_CACHE%VARIABLE_TYPES(number_of_variables),stat=err)
                IF(err/=0) CALL flagerror("Could not allocate variable types.",err,error,*999)
                field%CREATE_VALUES_CACHE%VARIABLE_TYPES=0
                IF(number_of_variables<field%NUMBER_OF_VARIABLES) THEN
                  field%CREATE_VALUES_CACHE%VARIABLE_TYPES(1:number_of_variables)=old_variable_types(1:number_of_variables)
                  DO variable_idx=number_of_variables+1,field%NUMBER_OF_VARIABLES
                    variable_type=old_variable_types(variable_idx)
                    field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_type)=""
                    field%CREATE_VALUES_CACHE%VARIABLE_LABELS_LOCKED(variable_type)=.false.
                    field%CREATE_VALUES_CACHE%DIMENSION(variable_type)=0
                    field%CREATE_VALUES_CACHE%DIMENSION_LOCKED(variable_type)=.false.
                    field%CREATE_VALUES_CACHE%DATA_TYPES(variable_type)=0
                    field%CREATE_VALUES_CACHE%DATA_TYPES_LOCKED(variable_type)=.false.
                    field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES(variable_type)=0
                    field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES_LOCKED(variable_type)=.false.
                    field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)=0
                    field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS_LOCKED(variable_type)=.false.
                    field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(:,variable_type)=0
                    field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED(:,variable_type)=.false.
                    field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(:,variable_type)=0
                    field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED(:,variable_type)=.false.
                  ENDDO !variable_idx
                ELSE
                  field%CREATE_VALUES_CACHE%VARIABLE_TYPES(1:field%NUMBER_OF_VARIABLES)= &
                    & old_variable_types(1:field%NUMBER_OF_VARIABLES)
                  DO variable_idx=field%NUMBER_OF_VARIABLES+1,number_of_variables
                    !Find the next available variable type
                    DO variable_type=1,field_number_of_variable_types
                      found=.false.
                      DO variable_idx2=1,field%NUMBER_OF_VARIABLES
                        IF(field%CREATE_VALUES_CACHE%VARIABLE_TYPES(variable_idx2)==variable_type) THEN
                          found=.true.
                          EXIT
                        ENDIF
                      ENDDO !variable_idx2
                      IF(.NOT.found) EXIT
                    ENDDO !variable_type
                    IF(found) THEN
                      CALL flagerror("Could not find free variable type???",err,error,*999)
                    ELSE
                      field%CREATE_VALUES_CACHE%VARIABLE_TYPES(variable_idx)=variable_type
                      SELECT CASE(variable_type)
                      CASE(field_u_variable_type)
                        field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_type)="U"
                      CASE(field_deludeln_variable_type)
                        field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_type)="del U/del n"
                      CASE(field_deludelt_variable_type)
                        field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_type)="del U/del t"
                      CASE(field_del2udelt2_variable_type)
                        field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_type)="del^2 U/del t^2"
                      CASE(field_v_variable_type)
                        field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_type)="V"
                      CASE(field_delvdeln_variable_type)
                        field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_type)="del V/del n"
                      CASE DEFAULT
                        local_error="The variable type of "//trim(number_to_vstring(variable_type,"*",err,error))//" is invalid."
                        CALL flagerror(local_error,err,error,*999)
                      END SELECT
                      field%CREATE_VALUES_CACHE%VARIABLE_LABELS_LOCKED(variable_type)=.false.
                      field%CREATE_VALUES_CACHE%DIMENSION(variable_type)=field%CREATE_VALUES_CACHE%DIMENSION( &
                        & old_variable_types(1))
                      field%CREATE_VALUES_CACHE%DIMENSION_LOCKED(variable_type)=.false.
                      field%CREATE_VALUES_CACHE%DATA_TYPES(variable_type)=field%CREATE_VALUES_CACHE%DATA_TYPES( &
                        & old_variable_types(1))
                      field%CREATE_VALUES_CACHE%DATA_TYPES_LOCKED(variable_type)=.false.
                      field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES(variable_type)=field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES( &
                        & old_variable_types(1))
                      field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES_LOCKED(variable_type)=.false.
                      field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)=field%CREATE_VALUES_CACHE% &
                        & number_of_components(old_variable_types(1))
                      field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS_LOCKED(variable_type)=.false.
                      field%CREATE_VALUES_CACHE%COMPONENT_LABELS(:,variable_type)=field%CREATE_VALUES_CACHE% &
                        component_labels(:,field%CREATE_VALUES_CACHE%VARIABLE_TYPES(old_variable_types(1)))
                      field%CREATE_VALUES_CACHE%COMPONENT_LABELS_LOCKED(:,variable_type)=.false.
                      field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(:,variable_type)=field%CREATE_VALUES_CACHE% &
                        interpolation_type(:,field%CREATE_VALUES_CACHE%VARIABLE_TYPES(old_variable_types(1)))
                      field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED(:,variable_type)=.false.
                      field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(:,variable_type)=field%CREATE_VALUES_CACHE% &
                        mesh_component_number(:,field%CREATE_VALUES_CACHE%VARIABLE_TYPES(old_variable_types(1)))
                      field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED(:,variable_type)=.false.
                    ENDIF
                  ENDDO !variable_idx
                ENDIF
                DEALLOCATE(old_variable_types)
                field%NUMBER_OF_VARIABLES=number_of_variables
              ENDIF
            ELSE
              local_error="The specified number of variables of "//trim(number_to_vstring(number_of_variables,"*",err,error))// &
                & " is invalid. The number of variables must be between 1 and "// &
                & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_NUMBER_OF_VARIABLES_SET")
    RETURN
999 IF(ALLOCATED(old_variable_types)) DEALLOCATE(old_variable_types)
    errorsexits("FIELD_NUMBER_OF_VARIABLES_SET",err,error)
    RETURN 1
  END SUBROUTINE field_number_of_variables_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_number_of_variables_set_and_lock(FIELD,NUMBER_OF_VARIABLES,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: number_of_variables
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_NUMBER_OF_VARIABLES_SET_AND_LOCK",err,error,*999)

    CALL field_number_of_variables_set(field,number_of_variables,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%NUMBER_OF_VARIABLES_LOCKED=.true.

      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF    
 
    exits("FIELD_NUMBER_OF_VARIABLES_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_NUMBER_OF_VARIABLES_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_number_of_variables_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_sets_add_dp(FIELD,VARIABLE_TYPE,ALPHA,FIELD_FROM_SET_TYPE,FIELD_TO_SET_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    REAL(DP), INTENT(IN) :: alpha(:)
    INTEGER(INTG), INTENT(IN) :: field_from_set_type(:)
    INTEGER(INTG), INTENT(IN) :: field_to_set_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dof_idx,parameter_set_idx
    REAL(DP) :: value
    TYPE(real_dp_ptr_type) :: field_from_parameters(size(field_from_set_type,1))
    TYPE(field_parameter_set_type), POINTER :: field_from_parameter_set,field_to_parameter_set
    TYPE(field_parameter_set_ptr_type) :: field_from_parameter_sets(size(field_from_set_type,1))
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SETS_ADD_DP",err,error,*999)
    
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            !Check the to set type input
            IF(field_to_set_type>0.AND.field_to_set_type<field_number_of_set_types) THEN
              field_to_parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_to_set_type)%PTR
              IF(ASSOCIATED(field_to_parameter_set)) THEN
                IF(SIZE(alpha,1)==SIZE(field_from_set_type,1)) THEN
                  DO parameter_set_idx=1,SIZE(field_from_set_type,1)
                    IF(field_from_set_type(parameter_set_idx)>0.AND. &
                      & field_from_set_type(parameter_set_idx)<field_number_of_set_types) THEN
                      field_from_parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_from_set_type( &
                      & parameter_set_idx))%PTR
                      IF(ASSOCIATED(field_to_parameter_set)) THEN
                        field_from_parameter_sets(parameter_set_idx)%PTR=>field_from_parameter_set
                        NULLIFY(field_from_parameters(parameter_set_idx)%PTR)
                        CALL distributed_vector_data_get(field_from_parameter_sets(parameter_set_idx)%PTR%PARAMETERS, &
                          & field_from_parameters(parameter_set_idx)%PTR,err,error,*999)
                      ELSE
                        local_error="The field from set type of "// &
                          & trim(number_to_vstring(field_from_set_type(parameter_set_idx),"*",err,error))// &
                          & " in parameter set index "//trim(number_to_vstring(parameter_set_idx,"*",err,error))// &
                          & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & "."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    ELSE
                      local_error="The field from set type of "// &
                        & trim(number_to_vstring(field_from_set_type(parameter_set_idx),"*",err,error))// &
                        & " for parameter set index "//trim(number_to_vstring(parameter_set_idx,"*",err,error))// &
                        & " is invalid. The field parameter set type must be between 1 and "// &
                        & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                  ENDDO !parameter_set_idx
                  !Do not need to do an update here as each rank already has the values.
                  !Add the field dofs
                  DO dof_idx=1,field_variable%TOTAL_NUMBER_OF_DOFS
                    VALUE=0.0_dp
                    DO parameter_set_idx=1,SIZE(field_from_set_type,1)
                      VALUE=VALUE+alpha(parameter_set_idx)*field_from_parameters(parameter_set_idx)%PTR(dof_idx)
                    ENDDO !parameter_set_idx
                    CALL distributed_vector_values_add(field_to_parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                  ENDDO !dof_idx
                  !Restore the from parameter set transfer
                  DO parameter_set_idx=1,SIZE(field_from_set_type,1)
                    CALL distributed_vector_data_restore(field_from_parameter_sets(parameter_set_idx)%PTR%PARAMETERS, &
                      & field_from_parameters(parameter_set_idx)%PTR,err,error,*999)
                  ENDDO !parameter_set_idx
                ELSE
                  local_error="The size of the alpha array ("//trim(number_to_vstring(SIZE(alpha,1),"*",err,error))// &
                    & ") does not match the size of the from set type array ("// &
                    & trim(number_to_vstring(SIZE(field_from_set_type,1),"*",err,error))//"."
                ENDIF
              ELSE
                local_error="The field to set type of "//trim(number_to_vstring(field_to_set_type,"*",err,error))// &
                  & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field to set type of "//trim(number_to_vstring(field_to_set_type,"*",err,error))// &
                & " is invalid. The field parameter set type must be between 1 and "// &
                & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_PARAMETER_SETS_ADD_DP")

    RETURN
999 errorsexits("FIELD_PARAMETER_SETS_ADD_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_sets_add_dp
  
 !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_sets_add_dp1(FIELD,VARIABLE_TYPE,ALPHA,FIELD_FROM_SET_TYPE,FIELD_TO_SET_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    REAL(DP), INTENT(IN) :: alpha
    INTEGER(INTG), INTENT(IN) :: field_from_set_type
    INTEGER(INTG), INTENT(IN) :: field_to_set_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_PARAMETER_SETS_ADD_DP1",err,error,*999)
    
    CALL field_parameter_sets_add_dp(field,variable_type,[alpha],[field_from_set_type],field_to_set_type,err,error,*999)
    
    exits("FIELD_PARAMETER_SETS_ADD_DP1")
    RETURN
999 errorsexits("FIELD_PARAMETER_SETS_ADD_DP1",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_sets_add_dp1
  
  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_sets_copy(FIELD,VARIABLE_TYPE,FIELD_FROM_SET_TYPE,FIELD_TO_SET_TYPE,ALPHA,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_from_set_type
    INTEGER(INTG), INTENT(IN) :: field_to_set_type
    REAL(DP), INTENT(IN) :: alpha
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: field_from_parameter_set,field_to_parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SETS_COPY",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            !Check the from set type input
            IF(field_from_set_type>0.AND.field_from_set_type<field_number_of_set_types) THEN
              field_from_parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_from_set_type)%PTR
              IF(ASSOCIATED(field_from_parameter_set)) THEN
                !Check the from set type input
                IF(field_to_set_type>0.AND.field_to_set_type<field_number_of_set_types) THEN
                  field_to_parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_to_set_type)%PTR
                  !Do not need to do an update here as each rank already has the values.
                  IF(ASSOCIATED(field_to_parameter_set)) THEN
                    CALL distributed_vector_copy(field_from_parameter_set%PARAMETERS,field_to_parameter_set%PARAMETERS, &
                      & alpha,err,error,*999)
                  ELSE
                    ! CHECK what needs to be done here: LagrangeMultipliersField does not have SET_TYPE==PREVIOUS_VALUES
                    IF(ASSOCIATED(field%INTERFACE)) THEN
                      !OK if LagrangeMultipliersField?
                    ELSE
                      local_error="The field to set type of "//trim(number_to_vstring(field_to_set_type,"*",err,error))// &
                        & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                  ENDIF
                ELSE
                  local_error="The field to set type of "//trim(number_to_vstring(field_to_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field from set type of "//trim(number_to_vstring(field_from_set_type,"*",err,error))// &
                  & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field from set type of "//trim(number_to_vstring(field_from_set_type,"*",err,error))// &
                & " is invalid. The field parameter set type must be between 1 and "// &
                & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SETS_COPY")
    RETURN
999 errorsexits("FIELD_PARAMETER_SETS_COPY",err,error)
    RETURN 1
    
  END SUBROUTINE field_parameter_sets_copy

  !
  !================================================================================================================================
  !
  
  SUBROUTINE field_parameterstofieldparameterscopy(FROM_FIELD,FROM_VARIABLE_TYPE,FROM_PARAMETER_SET_TYPE, &
    & from_component_number,to_field,to_variable_type,to_parameter_set_type,to_component_number,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: from_field
    INTEGER(INTG), INTENT(IN) :: from_variable_type
    INTEGER(INTG), INTENT(IN) :: from_parameter_set_type
    INTEGER(INTG), INTENT(IN) :: from_component_number
    TYPE(field_type), POINTER :: to_field
    INTEGER(INTG), INTENT(IN) :: to_variable_type
    INTEGER(INTG), INTENT(IN) :: to_parameter_set_type
    INTEGER(INTG), INTENT(IN) :: to_component_number
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: elem_idx,deriv_idx,version_idx,local_ny,node_idx,value_intg,gausspoint_idx
    INTEGER(INTG), POINTER :: from_parameter_data_intg(:)
    REAL(SP) :: value_sp
    REAL(SP), POINTER :: from_parameter_data_sp(:)
    REAL(DP) :: value_dp
    REAL(DP), POINTER :: from_parameter_data_dp(:)
    LOGICAL :: value_l
    LOGICAL, POINTER :: from_parameter_data_l(:)
    TYPE(domain_type), POINTER :: from_domain,to_domain
    TYPE(domain_elements_type), POINTER :: from_domain_elements
    TYPE(domain_nodes_type), POINTER :: from_domain_nodes
    TYPE(domain_topology_type), POINTER :: from_domain_topology
    TYPE(field_variable_type), POINTER :: from_field_variable,to_field_variable
    TYPE(varying_string) :: local_error

    NULLIFY(from_parameter_data_intg)
    NULLIFY(from_parameter_data_sp)
    NULLIFY(from_parameter_data_dp)
    NULLIFY(from_parameter_data_l)
    
    enters("Field_ParametersToFieldParametersCopy",err,error,*999)
    
    IF(ASSOCIATED(from_field)) THEN
      IF(from_field%FIELD_FINISHED) THEN
        IF(from_variable_type>0.AND.from_variable_type<=field_number_of_variable_types) THEN
          from_field_variable=>from_field%VARIABLE_TYPE_MAP(from_variable_type)%PTR
          IF(ASSOCIATED(from_field_variable)) THEN
            IF(from_component_number>=1.AND.from_component_number<=from_field_variable%NUMBER_OF_COMPONENTS) THEN  
              IF(ASSOCIATED(to_field)) THEN
                IF(to_field%FIELD_FINISHED) THEN
                  IF(to_variable_type>0.AND.to_variable_type<=field_number_of_variable_types) THEN
                    to_field_variable=>to_field%VARIABLE_TYPE_MAP(to_variable_type)%PTR
                    IF(ASSOCIATED(to_field_variable)) THEN
                      IF(to_component_number>=1.AND.to_component_number<=to_field_variable%NUMBER_OF_COMPONENTS) THEN
                        from_domain=>from_field_variable%COMPONENTS(from_component_number)%DOMAIN
                        to_domain=>to_field_variable%COMPONENTS(to_component_number)%DOMAIN
                        IF(ASSOCIATED(from_domain)) THEN
                          IF(ASSOCIATED(from_domain,to_domain)) THEN
                            IF(from_field_variable%COMPONENTS(from_component_number)%INTERPOLATION_TYPE== &
                              & to_field_variable%COMPONENTS(to_component_number)%INTERPOLATION_TYPE) THEN
                              IF(from_field_variable%DATA_TYPE==to_field_variable%DATA_TYPE) THEN
                                SELECT CASE(from_field_variable%COMPONENTS(from_component_number)%INTERPOLATION_TYPE)
                                CASE(field_constant_interpolation)
                                  SELECT CASE(from_field_variable%DATA_TYPE)
                                  CASE(field_intg_type)
                                    CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                      & from_parameter_data_intg,err,error,*999)
                                    local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                      & constant_param2dof_map
                                    value_intg=from_parameter_data_intg(local_ny)
                                    CALL field_parameter_set_update_constant(to_field,to_variable_type,to_parameter_set_type, &
                                      & to_component_number,value_intg,err,error,*999)
                                    CALL field_parameter_set_data_restore(from_field,from_variable_type,from_parameter_set_type, &
                                      & from_parameter_data_intg,err,error,*999)
                                  CASE(field_sp_type)
                                    CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                      & from_parameter_data_sp,err,error,*999)
                                    local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                      & constant_param2dof_map
                                    value_sp=from_parameter_data_sp(local_ny)
                                    CALL field_parameter_set_update_constant(to_field,to_variable_type,to_parameter_set_type, &
                                      & to_component_number,value_sp,err,error,*999)
                                    CALL field_parameter_set_data_restore(from_field,from_variable_type,from_parameter_set_type, &
                                      & from_parameter_data_sp,err,error,*999)
                                  CASE(field_dp_type)
                                    CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                      & from_parameter_data_dp,err,error,*999)
                                    local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                      & constant_param2dof_map
                                    value_dp=from_parameter_data_dp(local_ny)
                                    CALL field_parameter_set_update_constant(to_field,to_variable_type,to_parameter_set_type, &
                                      & to_component_number,value_dp,err,error,*999)
                                    CALL field_parameter_set_data_restore(from_field,from_variable_type,from_parameter_set_type, &
                                      & from_parameter_data_dp,err,error,*999)
                                  CASE(field_l_type)
                                    CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                      & from_parameter_data_l,err,error,*999)
                                    local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                      & constant_param2dof_map
                                    value_l=from_parameter_data_l(local_ny)
                                    CALL field_parameter_set_update_constant(to_field,to_variable_type,to_parameter_set_type, &
                                      & to_component_number,value_l,err,error,*999)
                                    CALL field_parameter_set_data_restore(from_field,from_variable_type,from_parameter_set_type, &
                                      & from_parameter_data_l,err,error,*999)
                                   CASE DEFAULT
                                    local_error="The from field variable data type of "// &
                                      & trim(number_to_vstring(from_field_variable%DATA_TYPE,"*",err,error))// &
                                      & " is invalid."
                                    CALL flagerror(local_error,err,error,*999)
                                  END SELECT
                                CASE(field_element_based_interpolation)
                                  from_domain_topology=>from_domain%TOPOLOGY
                                  IF(ASSOCIATED(from_domain_topology)) THEN
                                    from_domain_elements=>from_domain_topology%ELEMENTS
                                    IF(ASSOCIATED(from_domain_elements)) THEN
                                      SELECT CASE(from_field_variable%DATA_TYPE)
                                      CASE(field_intg_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_intg,err,error,*999)
                                        DO elem_idx=1,from_domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                                          local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                            & element_param2dof_map%ELEMENTS(elem_idx)
                                          value_intg=from_parameter_data_intg(local_ny)
                                          CALL field_parameter_set_update_local_element(to_field,to_variable_type, &
                                            & to_parameter_set_type,elem_idx,to_component_number,value_intg,err,error,*999)
                                        ENDDO !elem_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_intg,err,error,*999)
                                      CASE(field_sp_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_sp,err,error,*999)
                                        DO elem_idx=1,from_domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                                          local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                            & element_param2dof_map%ELEMENTS(elem_idx)
                                          value_sp=from_parameter_data_sp(local_ny)
                                          CALL field_parameter_set_update_local_element(to_field,to_variable_type, &
                                            & to_parameter_set_type,elem_idx,to_component_number,value_sp,err,error,*999)
                                        ENDDO !elem_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_sp,err,error,*999)
                                      CASE(field_dp_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_dp,err,error,*999)
                                        DO elem_idx=1,from_domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                                          local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                            & element_param2dof_map%ELEMENTS(elem_idx)
                                          value_dp=from_parameter_data_dp(local_ny)
                                          CALL field_parameter_set_update_local_element(to_field,to_variable_type, &

                                            & to_parameter_set_type,elem_idx,to_component_number,value_dp,err,error,*999)
                                        ENDDO !elem_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_dp,err,error,*999)
                                      CASE(field_l_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_l,err,error,*999)
                                        DO elem_idx=1,from_domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                                          local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                            & element_param2dof_map%ELEMENTS(elem_idx)
                                          value_l=from_parameter_data_l(local_ny)
                                          CALL field_parameter_set_update_local_element(to_field,to_variable_type, &
                                            & to_parameter_set_type,elem_idx,to_component_number,value_l,err,error,*999)
                                        ENDDO !elem_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_l,err,error,*999)
                                      CASE DEFAULT
                                        local_error="The from field variable data type of "// &
                                          & trim(number_to_vstring(from_field_variable%DATA_TYPE,"*",err,error))// &
                                          & " is invalid."
                                        CALL flagerror(local_error,err,error,*999)
                                      END SELECT
                                    ELSE
                                      CALL flagerror("From domain topology elements is not associated.",err,error,*999)
                                    ENDIF
                                  ELSE
                                    CALL flagerror("From domain topology is not associated.",err,error,*999)
                                  ENDIF
                                CASE(field_node_based_interpolation)
                                  from_domain_topology=>from_domain%TOPOLOGY
                                  IF(ASSOCIATED(from_domain_topology)) THEN
                                    from_domain_nodes=>from_domain_topology%NODES
                                    IF(ASSOCIATED(from_domain_nodes)) THEN
                                      SELECT CASE(from_field_variable%DATA_TYPE)
                                      CASE(field_intg_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_intg,err,error,*999)
                                        DO node_idx=1,from_domain_nodes%TOTAL_NUMBER_OF_NODES
                                          DO deriv_idx=1,from_domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                                            DO version_idx=1,from_domain_nodes%NODES(node_idx)%DERIVATIVES(deriv_idx)% &
                                              & numberofversions
                                              local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                                & node_param2dof_map%NODES(node_idx)%DERIVATIVES(deriv_idx)%VERSIONS(version_idx)
                                              value_intg=from_parameter_data_intg(local_ny)
                                              CALL field_parameter_set_update_local_node(to_field,to_variable_type, &
                                                & to_parameter_set_type,version_idx,deriv_idx,node_idx,to_component_number, &
                                                & value_intg,err,error,*999)
                                            ENDDO !version_idx
                                          ENDDO !deriv_idx
                                        ENDDO !node_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_intg,err,error,*999)
                                      CASE(field_sp_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_sp,err,error,*999)
                                        DO node_idx=1,from_domain_nodes%TOTAL_NUMBER_OF_NODES
                                          DO deriv_idx=1,from_domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                                            DO version_idx=1,from_domain_nodes%NODES(node_idx)%DERIVATIVES(deriv_idx)% &
                                              & numberofversions
                                              local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                                & node_param2dof_map%NODES(node_idx)%DERIVATIVES(deriv_idx)%VERSIONS(version_idx)
                                              value_sp=from_parameter_data_sp(local_ny)
                                              CALL field_parameter_set_update_local_node(to_field,to_variable_type, &
                                                & to_parameter_set_type,version_idx,deriv_idx,node_idx,to_component_number, &
                                                & value_sp,err,error,*999)
                                            ENDDO !version_idx
                                          ENDDO !deriv_idx
                                        ENDDO !node_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_sp,err,error,*999)
                                      CASE(field_dp_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_dp,err,error,*999)
                                        DO node_idx=1,from_domain_nodes%TOTAL_NUMBER_OF_NODES
                                          DO deriv_idx=1,from_domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                                            DO version_idx=1,from_domain_nodes%NODES(node_idx)%DERIVATIVES(deriv_idx)% &
                                              & numberofversions
                                              local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                                & node_param2dof_map%NODES(node_idx)%DERIVATIVES(deriv_idx)%VERSIONS(version_idx)
                                              value_dp=from_parameter_data_dp(local_ny)
                                              CALL field_parameter_set_update_local_node(to_field,to_variable_type, &
                                                & to_parameter_set_type,version_idx,deriv_idx,node_idx,to_component_number, &
                                                & value_dp,err,error,*999)
                                            ENDDO !version_idx
                                          ENDDO !deriv_idx
                                        ENDDO !node_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_dp,err,error,*999)
                                      CASE(field_l_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_l,err,error,*999)
                                        DO node_idx=1,from_domain_nodes%TOTAL_NUMBER_OF_NODES
                                          DO deriv_idx=1,from_domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                                            DO version_idx=1,from_domain_nodes%NODES(node_idx)%DERIVATIVES(deriv_idx)% &
                                              & numberofversions
                                              local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                                & node_param2dof_map%NODES(node_idx)%DERIVATIVES(deriv_idx)%VERSIONS(version_idx)
                                              value_l=from_parameter_data_l(local_ny)
                                              CALL field_parameter_set_update_local_node(to_field,to_variable_type, &
                                                & to_parameter_set_type,version_idx,deriv_idx,node_idx,to_component_number, &
                                                & value_l,err,error,*999)
                                            ENDDO !version_idx
                                          ENDDO !deriv_idx
                                        ENDDO !node_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_l,err,error,*999)
                                     CASE DEFAULT
                                        local_error="The from field variable data type of "// &
                                          & trim(number_to_vstring(from_field_variable%DATA_TYPE,"*",err,error))// &
                                          & " is invalid."
                                        CALL flagerror(local_error,err,error,*999)
                                      END SELECT
                                    ELSE
                                      CALL flagerror("From domain topology nodes is not associated.",err,error,*999)
                                    ENDIF
                                  ELSE
                                    CALL flagerror("From domain topology is not associated.",err,error,*999)
                                  ENDIF
                                CASE(field_grid_point_based_interpolation)
                                  CALL flagerror("Not implmented.",err,error,*999)
                                CASE(field_gauss_point_based_interpolation)
                                  ! gp based.
                                  from_domain_topology=>from_domain%TOPOLOGY
                                  IF(ASSOCIATED(from_domain_topology)) THEN
                                    from_domain_elements=>from_domain_topology%ELEMENTS
                                    IF(ASSOCIATED(from_domain_elements)) THEN
                                      SELECT CASE(from_field_variable%DATA_TYPE)
                                      CASE(field_intg_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_intg,err,error,*999)
                                        DO elem_idx=1,from_domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                                          DO gausspoint_idx=1,size(from_field_variable%COMPONENTS(from_component_number)% &
                                              & param_to_dof_map%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS,1)
                                            local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                              & gauss_point_param2dof_map%GAUSS_POINTS(gausspoint_idx,elem_idx)
                                            value_intg=from_parameter_data_intg(local_ny)
                                            local_ny=to_field%VARIABLE_TYPE_MAP(to_variable_type)%PTR%&
                                              &components(to_component_number)%PARAM_TO_DOF_MAP% &
                                              & gauss_point_param2dof_map%GAUSS_POINTS(gausspoint_idx,elem_idx)
                                            CALL distributed_vector_values_set(to_field%VARIABLE_TYPE_MAP(to_variable_type)%PTR%&
                                            & parameter_sets%SET_TYPE(to_parameter_set_type)%PTR%PARAMETERS,local_ny,value_intg,&
                                            & err,error,*999)
                                          ENDDO !gausspoint_idx
                                        ENDDO !elem_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_intg,err,error,*999)
                                      CASE(field_sp_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_sp,err,error,*999)
                                        DO elem_idx=1,from_domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                                          DO gausspoint_idx=1,size(from_field_variable%COMPONENTS(from_component_number)% &
                                              & param_to_dof_map%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS,1)
                                            local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                              & gauss_point_param2dof_map%GAUSS_POINTS(gausspoint_idx,elem_idx)
                                            value_sp=from_parameter_data_sp(local_ny)
                                            local_ny=to_field%VARIABLE_TYPE_MAP(to_variable_type)%PTR%&
                                              &components(to_component_number)%PARAM_TO_DOF_MAP% &
                                              & gauss_point_param2dof_map%GAUSS_POINTS(gausspoint_idx,elem_idx)
                                            CALL distributed_vector_values_set(to_field%VARIABLE_TYPE_MAP(to_variable_type)%PTR%&
                                            & parameter_sets%SET_TYPE(to_parameter_set_type)%PTR%PARAMETERS,local_ny,value_sp,&
                                            & err,error,*999)
                                          ENDDO !gausspoint_idx
                                        ENDDO !elem_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_sp,err,error,*999)
                                      CASE(field_dp_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_dp,err,error,*999)
                                        DO elem_idx=1,from_domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                                          DO gausspoint_idx=1,size(from_field_variable%COMPONENTS(from_component_number)% &
                                              & param_to_dof_map%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS,1)
                                            local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                              & gauss_point_param2dof_map%GAUSS_POINTS(gausspoint_idx,elem_idx)
                                            value_dp=from_parameter_data_dp(local_ny)
                                            local_ny=to_field%VARIABLE_TYPE_MAP(to_variable_type)%PTR%&
                                            &components(to_component_number)%PARAM_TO_DOF_MAP% &
                                              & gauss_point_param2dof_map%GAUSS_POINTS(gausspoint_idx,elem_idx)
                                            CALL distributed_vector_values_set(to_field%VARIABLE_TYPE_MAP(to_variable_type)%PTR%&
                                            & parameter_sets%SET_TYPE(to_parameter_set_type)%PTR%PARAMETERS,local_ny,value_dp,&
                                            & err,error,*999)
                                          ENDDO !gausspoint_idx
                                        ENDDO !elem_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_dp,err,error,*999)
                                      CASE(field_l_type)
                                        CALL field_parameter_set_data_get(from_field,from_variable_type,from_parameter_set_type, &
                                          & from_parameter_data_l,err,error,*999)
                                        DO elem_idx=1,from_domain_elements%TOTAL_NUMBER_OF_ELEMENTS
                                          DO gausspoint_idx=1,size(from_field_variable%COMPONENTS(from_component_number)% &
                                              & param_to_dof_map%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS,1)
                                            local_ny=from_field_variable%COMPONENTS(from_component_number)%PARAM_TO_DOF_MAP% &
                                              & gauss_point_param2dof_map%GAUSS_POINTS(gausspoint_idx,elem_idx)
                                            value_l=from_parameter_data_l(local_ny)
                                            local_ny=to_field%VARIABLE_TYPE_MAP(to_variable_type)%PTR%&
                                              &components(to_component_number)%PARAM_TO_DOF_MAP% &
                                              & gauss_point_param2dof_map%GAUSS_POINTS(gausspoint_idx,elem_idx)
                                            CALL distributed_vector_values_set(to_field%VARIABLE_TYPE_MAP(to_variable_type)%PTR%&
                                            & parameter_sets%SET_TYPE(to_parameter_set_type)%PTR%PARAMETERS,local_ny,value_l,&
                                            & err,error,*999)
                                          ENDDO !gausspoint_idx
                                        ENDDO !elem_idx
                                        CALL field_parameter_set_data_restore(from_field,from_variable_type, &
                                          & from_parameter_set_type,from_parameter_data_l,err,error,*999)
                                      CASE DEFAULT
                                        CALL flagerror("Invalid data type or not implemented.",err,error,*999)
                                      END SELECT
                                    ELSE
                                      CALL flagerror("From domain topology elements is not associated.",err,error,*999)
                                    ENDIF
                                  ELSE
                                    CALL flagerror("From domain topology is not associated.",err,error,*999)
                                  ENDIF
                                ! / gp based
                                CASE(field_data_point_based_interpolation)
                                  CALL flagerror("Not implemented.",err,error,*999)
                                CASE DEFAULT
                                  local_error="The from field variable component interpolation type of "// &
                                    & trim(number_to_vstring(from_field_variable%COMPONENTS(from_component_number)% &
                                    & interpolation_type,"*",err,error))//" is invalid."
                                  CALL flagerror(local_error,err,error,*999)
                                END SELECT
                              ELSE
                                local_error="The from field variable data type of "// &
                                  & trim(number_to_vstring(from_field_variable%DATA_TYPE,"*",err,error))// &
                                  & " does not match the to variable data type of "// &
                                  & trim(number_to_vstring(to_field_variable%DATA_TYPE,"*",err,error))//"."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ELSE
                              local_error="The from field variable component interpolation type of "// &
                                & trim(number_to_vstring(from_field_variable%COMPONENTS(from_component_number)% &
                                & interpolation_type,"*",err,error))// &
                                & " does not match the to variable component interpolation type of "// &
                                & trim(number_to_vstring(to_field_variable%COMPONENTS(to_component_number)% &
                                & interpolation_type,"*",err,error))//"."
                              CALL flagerror(local_error,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("The from field variable component domain is not associated with the "// &
                              & "to field variable component domain.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("The from variable component domain is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        local_error="To component number "//trim(number_to_vstring(to_component_number,"*",err,error))// &
                          & " is invalid for to variable type "//trim(number_to_vstring(to_variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(to_field%USER_NUMBER,"*",err,error))//" which has "// &
                          & trim(number_to_vstring(to_field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                          & " components."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    ELSE
                      local_error="The to field variable type of "//trim(number_to_vstring(to_variable_type,"*",err,error))// &
                        & " has not been created on field number "//trim(number_to_vstring(to_field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                  ELSE
                    local_error="The to field variable type of "//trim(number_to_vstring(to_variable_type,"*",err,error))// &
                      & " is invalid. The variable type must be between 1 and "// &
                      & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="To field number "//trim(number_to_vstring(to_field%USER_NUMBER,"*",err,error))// &
                    & " has not been finished."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                CALL flagerror("The to field is not associated.",err,error,*999)
              ENDIF
            ELSE
              local_error="From component number "//trim(number_to_vstring(from_component_number,"*",err,error))// &
                & " is invalid for from variable type "//trim(number_to_vstring(from_variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(from_field%USER_NUMBER,"*",err,error))//" which has "// &
                & trim(number_to_vstring(from_field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                & " components."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The from field variable type of "//trim(number_to_vstring(from_variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(from_field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The from field variable type of "//trim(number_to_vstring(from_variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="From field number "//trim(number_to_vstring(from_field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("The from field is not associated.",err,error,*999)
    ENDIF
    
    exits("Field_ParametersToFieldParametersCopy")
    RETURN
999 errorsexits("Field_ParametersToFieldParametersCopy",err,error)
    RETURN 1
    
  END SUBROUTINE field_parameterstofieldparameterscopy


  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_constant_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_CONSTANT_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_add(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                    & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                    & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                    & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_CONSTANT_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_CONSTANT_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_constant_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_constant_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_CONSTANT_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_add(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                    & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                    & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                    & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_CONSTANT_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_CONSTANT_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_constant_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_constant_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_CONSTANT_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_add(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                    & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                    & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                    & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_CONSTANT_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_CONSTANT_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_constant_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_constant_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_CONSTANT_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_add(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                    & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                    & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                    & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_CONSTANT_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_CONSTANT_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_constant_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_dof_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: global_dof_number
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_INTG",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  !Note that dofs are slightly different from other mappings in that all the local dofs are not all at the start.
                  !This is because the dof indicies are from combined field components. Thus need to check that a ghost value is
                  !not being set.
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL) THEN
                    global_dof_number=field_variable%DOMAIN_MAPPING%LOCAL_TO_GLOBAL_MAP(dof_number)
                    IF(field_variable%DOMAIN_MAPPING%GLOBAL_TO_LOCAL_MAP(global_dof_number)%LOCAL_TYPE(1)/=domain_local_ghost) THEN
                      CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                    ELSE
                      local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                        & " is invalid as it is a ghost dof for this domain."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_dof_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_dof_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: global_dof_number
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_SP",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  !Note that dofs are slightly different from other mappings in that all the local dofs are not all at the start.
                  !This is because the dof indicies are from combined field components. Thus need to check that a ghost value is
                  !not being set.
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL) THEN
                    global_dof_number=field_variable%DOMAIN_MAPPING%LOCAL_TO_GLOBAL_MAP(dof_number)
                    IF(field_variable%DOMAIN_MAPPING%GLOBAL_TO_LOCAL_MAP(global_dof_number)%LOCAL_TYPE(1)/=domain_local_ghost) THEN
                      CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                    ELSE
                      local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                        & " is invalid as it is a ghost dof for this domain."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_dof_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_dof_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: global_dof_number
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_DP",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  !Note that dofs are slightly different from other mappings in that all the local dofs are not all at the start.
                  !This is because the dof indicies are from combined field components. Thus need to check that a ghost value is
                  !not being set.
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL) THEN
                    global_dof_number=field_variable%DOMAIN_MAPPING%LOCAL_TO_GLOBAL_MAP(dof_number)
                    IF(field_variable%DOMAIN_MAPPING%GLOBAL_TO_LOCAL_MAP(global_dof_number)%LOCAL_TYPE(1)/=domain_local_ghost) THEN
                      CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                    ELSE
                      local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                        & " is invalid as it is a ghost dof for this domain."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_dof_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_dof_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: global_dof_number
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_L",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  !Note that dofs are slightly different from other mappings in that all the local dofs are not all at the start.
                  !This is because the dof indicies are from combined field components. Thus need to check that a ghost value is
                  !not being set.
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL) THEN
                    global_dof_number=field_variable%DOMAIN_MAPPING%LOCAL_TO_GLOBAL_MAP(dof_number)
                    IF(field_variable%DOMAIN_MAPPING%GLOBAL_TO_LOCAL_MAP(global_dof_number)%LOCAL_TYPE(1)/=domain_local_ghost) THEN
                      CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                    ELSE
                      local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                        & " is invalid as it is a ghost dof for this domain."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_DOF_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_dof_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_element_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_ELEMENT_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          IF(ghost_element) THEN
                            local_error="Cannot add element for user element "// &
                              & trim(number_to_vstring(user_element_number,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                              & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                            CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_ELEMENT_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_ELEMENT_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_element_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_element_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_ELEMENT_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          IF(ghost_element) THEN
                            local_error="Cannot add element for user element "// &
                              & trim(number_to_vstring(user_element_number,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                              & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                            CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &

                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_ELEMENT_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_ELEMENT_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_element_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_element_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_ELEMENT_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          IF(ghost_element) THEN
                            local_error="Cannot add element for user element "// &
                              & trim(number_to_vstring(user_element_number,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                              & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                            CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_ELEMENT_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_ELEMENT_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_element_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_element_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_ELEMENT_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          IF(ghost_element) THEN
                            local_error="Cannot add element for user element "// &
                              & trim(number_to_vstring(user_element_number,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                              & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                            CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_ELEMENT_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_ELEMENT_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_element_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_element_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,LOCAL_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: local_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      IF(local_element_number>0.AND.local_element_number<=field_variable%COMPONENTS(component_number)% &
                        & param_to_dof_map%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS( &
                          & local_element_number)                      
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Local element number "//trim(number_to_vstring(local_element_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_variable%COMPONENTS(component_number)% &
                          & param_to_dof_map%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" elements."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_element_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_element_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,LOCAL_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: local_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      IF(local_element_number>0.AND.local_element_number<=field_variable%COMPONENTS(component_number)% &
                        & param_to_dof_map%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS( &
                          & local_element_number)                      
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Local element number "//trim(number_to_vstring(local_element_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_variable%COMPONENTS(component_number)% &
                          & param_to_dof_map%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" elements."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_element_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_element_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,LOCAL_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: local_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      IF(local_element_number>0.AND.local_element_number<=field_variable%COMPONENTS(component_number)% &
                        & param_to_dof_map%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS( &
                          & local_element_number)                      
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Local element number "//trim(number_to_vstring(local_element_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_variable%COMPONENTS(component_number)% &
                          & param_to_dof_map%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" elements."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_element_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_element_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,LOCAL_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: local_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      IF(local_element_number>0.AND.local_element_number<=field_variable%COMPONENTS(component_number)% &
                        & param_to_dof_map%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS( &
                          & local_element_number)                      
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Local element number "//trim(number_to_vstring(local_element_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_variable%COMPONENTS(component_number)% &
                          & param_to_dof_map%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" elements."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(local_error,err,error,*999)              
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_ELEMENT_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_element_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_node_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_NODE_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                            IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          IF(ghost_node) THEN
                            local_error="Cannot add node for user node "// &
                              & trim(number_to_vstring(user_node_number,"*",err,error))//" as it is a ghost node."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            domain_nodes=>domain_topology%NODES
                            IF(ASSOCIATED(domain_nodes)) THEN
                              IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives) THEN
                                IF(version_number>0.AND.version_number<= &
                                  & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & number_of_versions) THEN
                                  dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                    & versions(version_number)
                                  CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                                ELSE
                                  local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                    & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                    & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(local_error,err,error,*999)
                                ENDIF
                              ELSE
                                local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                                  & " is invalid for user node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ENDIF
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_NODE_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_NODE_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_node_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_node_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_NODE_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                            IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          IF(ghost_node) THEN
                            local_error="Cannot add node for user node "// &
                              & trim(number_to_vstring(user_node_number,"*",err,error))//" as it is a ghost node."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            domain_nodes=>domain_topology%NODES
                            IF(ASSOCIATED(domain_nodes)) THEN
                              IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives) THEN
                                IF(version_number>0.AND.version_number<= &
                                  & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & number_of_versions) THEN
                                  dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                    & versions(version_number)
                                  CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                                ELSE
                                  local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                    & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                    & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(local_error,err,error,*999)
                                ENDIF
                              ELSE
                                local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                                  & " is invalid for user node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ENDIF
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_NODE_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_NODE_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_node_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_node_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_NODE_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                            IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          IF(ghost_node) THEN
                            local_error="Cannot add node for user node "// &
                              & trim(number_to_vstring(user_node_number,"*",err,error))//" as it is a ghost node."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            domain_nodes=>domain_topology%NODES
                            IF(ASSOCIATED(domain_nodes)) THEN
                              IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives) THEN
                                IF(version_number>0.AND.version_number<= &
                                  & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & number_of_versions) THEN
                                  dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                    & versions(version_number)
                                  CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                                ELSE
                                  local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                    & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                    & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(local_error,err,error,*999)
                                ENDIF
                              ELSE
                                local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                                  & " is invalid for user node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ENDIF
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_NODE_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_NODE_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_node_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_node_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_NODE_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                            IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          IF(ghost_node) THEN
                            local_error="Cannot add node for user node "// &
                              & trim(number_to_vstring(user_node_number,"*",err,error))//" as it is a ghost node."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            domain_nodes=>domain_topology%NODES
                            IF(ASSOCIATED(domain_nodes)) THEN
                              IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives) THEN
                                IF(version_number>0.AND.version_number<= &
                                  & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & number_of_versions) THEN
                                  dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                    & versions(version_number)
                                  CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                                ELSE
                                  local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                    & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                    & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(local_error,err,error,*999)
                                ENDIF
                              ELSE
                                local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*", &
                                  & err,error))//" is invalid for user node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ENDIF
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_NODE_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_NODE_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_node_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_node_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & local_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: local_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dof_idx
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(field_node_param_to_dof_map_type), POINTER :: field_nodes
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      field_nodes=>field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP
                      IF(local_node_number>0.AND.local_node_number<=field_nodes%NUMBER_OF_NODE_PARAMETERS) THEN
                        IF(derivative_number>0.AND.derivative_number<=field_nodes%NODES(local_node_number)% &
                          & number_of_derivatives) THEN
                          IF(version_number>0.AND.version_number<= &
                            & field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)%NUMBER_OF_VERSIONS) THEN
                            dof_idx=field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)% &
                              & versions(version_number)
                            CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ELSE
                            local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                              & " is invalid for derivative number "// &
                              & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                              & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                              & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                              & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                              & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                              & derivatives(derivative_number)%NUMBER_OF_VERSIONS,"*",err,error))//" versions "// &
                              & "(note version numbers are indexed directly from the value the user specifies during "// &
                              & "element creation and no record is kept of the total number of versions the user sets."// &
                              & "The maximum version number the user sets defines the total number of versions allocated)."
                            CALL flagerror(local_error,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                            & " is invalid for user node number "// &
                            & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                            & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                            & number_of_derivatives,"*",err,error))//" derivatives."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        local_error="Local node number "//trim(number_to_vstring(local_node_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_nodes%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" nodes."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_node_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_node_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & local_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: local_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dof_idx
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(field_node_param_to_dof_map_type), POINTER :: field_nodes
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      field_nodes=>field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP
                      IF(local_node_number>0.AND.local_node_number<=field_nodes%NUMBER_OF_NODE_PARAMETERS) THEN
                        IF(derivative_number>0.AND.derivative_number<=field_nodes%NODES(local_node_number)% &
                          & number_of_derivatives) THEN
                          IF(version_number>0.AND.version_number<= &
                            & field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)%NUMBER_OF_VERSIONS) THEN
                            dof_idx=field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)% &
                              & versions(version_number)
                            CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ELSE
                            local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                              & " is invalid for derivative number "// &
                              & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                              & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                              & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                              & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                              & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                              & derivatives(derivative_number)%NUMBER_OF_VERSIONS,"*",err,error))//" versions "// &
                              & "(note version numbers are indexed directly from the value the user specifies during "// &
                              & "element creation and no record is kept of the total number of versions the user sets."// &
                              & "The maximum version number the user sets defines the total number of versions allocated)."
                            CALL flagerror(local_error,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                            & " is invalid for user node number "// &
                            & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                            & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                            & number_of_derivatives,"*",err,error))//" derivatives."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        local_error="Local node number "//trim(number_to_vstring(local_node_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_nodes%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" nodes."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_node_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_node_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & local_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: local_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dof_idx
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(field_node_param_to_dof_map_type), POINTER :: field_nodes
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      field_nodes=>field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP
                      IF(local_node_number>0.AND.local_node_number<=field_nodes%NUMBER_OF_NODE_PARAMETERS) THEN
                        IF(derivative_number>0.AND.derivative_number<=field_nodes%NODES(local_node_number)% &
                          & number_of_derivatives) THEN
                          IF(version_number>0.AND.version_number<= &
                            & field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)%NUMBER_OF_VERSIONS) THEN
                            dof_idx=field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)% &
                              & versions(version_number)
                            CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ELSE
                            local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                              & " is invalid for derivative number "// &
                              & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                              & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                              & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                              & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                              & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                              & derivatives(derivative_number)%NUMBER_OF_VERSIONS,"*",err,error))//" versions "// &
                              & "(note version numbers are indexed directly from the value the user specifies during "// &
                              & "element creation and no record is kept of the total number of versions the user sets."// &
                              & "The maximum version number the user sets defines the total number of versions allocated)."
                            CALL flagerror(local_error,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                            & " is invalid for user node number "// &
                            & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                            & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                            & number_of_derivatives,"*",err,error))//" derivatives."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        local_error="Local node number "//trim(number_to_vstring(local_node_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_nodes%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" nodes."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_node_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_add_local_node_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & local_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: local_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dof_idx
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(field_node_param_to_dof_map_type), POINTER :: field_nodes
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not add node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      field_nodes=>field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP
                      IF(local_node_number>0.AND.local_node_number<=field_nodes%NUMBER_OF_NODE_PARAMETERS) THEN
                        IF(derivative_number>0.AND.derivative_number<=field_nodes%NODES(local_node_number)% &
                          & number_of_derivatives) THEN
                          IF(version_number>0.AND.version_number<= &
                            & field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)%NUMBER_OF_VERSIONS) THEN
                            dof_idx=field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)% &
                              & versions(version_number)
                            CALL distributed_vector_values_add(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ELSE
                            local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                              & " is invalid for derivative number "// &
                              & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                              & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                              & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                              & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                              & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                              & derivatives(derivative_number)%NUMBER_OF_VERSIONS,"*",err,error))//" versions "// &
                              & "(note version numbers are indexed directly from the value the user specifies during "// &
                              & "element creation and no record is kept of the total number of versions the user sets."// &
                              & "The maximum version number the user sets defines the total number of versions allocated)."
                            CALL flagerror(local_error,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                            & " is invalid for user node number "// &
                            & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                            & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                            & number_of_derivatives,"*",err,error))//" derivatives."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        local_error="Local node number "//trim(number_to_vstring(local_node_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_nodes%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" nodes."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The interpolation type of "//trim(number_to_vstring(field_variable%COMPONENTS( &
                        & component_number)%INTERPOLATION_TYPE,"*",err,error))//" is invalid for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_ADD_LOCAL_NODE_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_add_local_node_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_create(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG),  INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dummy_err,parameter_set_idx
    TYPE(field_parameter_set_type), POINTER :: new_parameter_set
    TYPE(field_parameter_set_ptr_type), POINTER :: new_parameter_sets(:)
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error,dummy_error

    NULLIFY(new_parameter_set)
    NULLIFY(new_parameter_sets)

    enters("FIELD_PARAMETER_SET_CREATE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
        field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
        IF(ASSOCIATED(field_variable)) THEN
          !Check the set type input
          IF(field_set_type>0.AND.field_set_type<field_number_of_set_types) THEN
            !Check if this set type has already been created
            IF(ASSOCIATED(field_variable%PARAMETER_SETS%SET_TYPE)) THEN
              IF(ASSOCIATED(field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR)) THEN
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " has already been created for variable type of "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ENDIF
            ALLOCATE(new_parameter_set,stat=err)
            IF(err/=0) CALL flagerror("Could not allocate new parameter set.",err,error,*999)
            CALL field_parameter_set_initialise(new_parameter_set,err,error,*999)
            new_parameter_set%SET_INDEX=field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS+1
            new_parameter_set%SET_TYPE=field_set_type
            NULLIFY(new_parameter_set%PARAMETERS)
            CALL distributed_vector_create_start(field_variable%DOMAIN_MAPPING,new_parameter_set%PARAMETERS,err,error,*999)
            SELECT CASE(field_variable%DATA_TYPE)
            CASE(field_intg_type)
              CALL distributed_vector_data_type_set(new_parameter_set%PARAMETERS,distributed_matrix_vector_intg_type, &
                & err,error,*999)
            CASE(field_sp_type)
              CALL distributed_vector_data_type_set(new_parameter_set%PARAMETERS,distributed_matrix_vector_sp_type, &
                & err,error,*999)
            CASE(field_dp_type)
              CALL distributed_vector_data_type_set(new_parameter_set%PARAMETERS,distributed_matrix_vector_dp_type, &
                & err,error,*999)
            CASE(field_l_type)
              CALL distributed_vector_data_type_set(new_parameter_set%PARAMETERS,distributed_matrix_vector_l_type, &
                & err,error,*999)
            CASE DEFAULT
              local_error="The field data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " is invalid for variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
            CALL distributed_vector_create_finish(new_parameter_set%PARAMETERS,err,error,*999)
            SELECT CASE(field_variable%DATA_TYPE)
            CASE(field_intg_type)
              CALL distributed_vector_all_values_set(new_parameter_set%PARAMETERS,0_intg,err,error,*999)
            CASE(field_sp_type)
              CALL distributed_vector_all_values_set(new_parameter_set%PARAMETERS,0.0_sp,err,error,*999)
            CASE(field_dp_type)
              CALL distributed_vector_all_values_set(new_parameter_set%PARAMETERS,0.0_dp,err,error,*999)
            CASE(field_l_type)
              CALL distributed_vector_all_values_set(new_parameter_set%PARAMETERS,.false.,err,error,*999)
            END SELECT
            !Add the new parameter set to the list of parameter sets
            ALLOCATE(new_parameter_sets(field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS+1),stat=err)
            IF(err/=0) CALL flagerror("Could not allocate new parameter sets.",err,error,*999)
            IF(ASSOCIATED(field_variable%PARAMETER_SETS%PARAMETER_SETS)) THEN
              DO parameter_set_idx=1,field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS
                new_parameter_sets(parameter_set_idx)%PTR=>field_variable%PARAMETER_SETS%PARAMETER_SETS(parameter_set_idx)%PTR
              ENDDO !parameter_set_idx
              DEALLOCATE(field_variable%PARAMETER_SETS%PARAMETER_SETS)
            ENDIF
            new_parameter_sets(field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS+1)%PTR=>new_parameter_set
            ALLOCATE(field_variable%PARAMETER_SETS%PARAMETER_SETS(field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS+1), &
              & stat=err)
            IF(err/=0) CALL flagerror("Could not allocate field parameter sets parameter sets.",err,error,*999)
            DO parameter_set_idx=1,field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS+1
              field_variable%PARAMETER_SETS%PARAMETER_SETS(parameter_set_idx)%PTR=>new_parameter_sets(parameter_set_idx)%PTR
            ENDDO !parameter_set_idx
            DEALLOCATE(new_parameter_sets)
            field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS=field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS+1
            field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR=>new_parameter_set
          ELSE
            local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
              & " is invalid. The field parameter set type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
          & " is invalid. The variable type must be between 1 and "// &
          & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_CREATE")
    RETURN
999 CALL field_parameter_set_finalise(new_parameter_set,dummy_err,dummy_error,*998)
998 IF(ASSOCIATED(new_parameter_sets)) DEALLOCATE(new_parameter_sets)
    errorsexits("FIELD_PARAMETER_SET_CREATE",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_create

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_created(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,PARAMETER_SET_CREATED,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG),  INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    LOGICAL, INTENT(OUT) :: parameter_set_created
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_CREATED",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
        field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
        IF(ASSOCIATED(field_variable)) THEN
          !Check the set type input
          IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
            !Check if this set type has been created
            IF(ASSOCIATED(field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR)) THEN
              parameter_set_created=.true.
            ELSE
              parameter_set_created=.false.
            END IF
          ELSE
            local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
              & " is invalid. The field parameter set type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
          & " is invalid. The variable type must be between 1 and "// &
          & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_CREATED")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_CREATED",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_created

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetensurecreated(field,variableType,fieldSetType,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG),  INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local variables
    LOGICAL :: parametersetcreated

    enters("Field_ParameterSetEnsureCreated",err,error,*999)

    CALL field_parameter_set_created(field,variabletype,fieldsettype,parametersetcreated,err,error,*999)
    IF(.NOT.parametersetcreated) THEN
      CALL field_parameter_set_create(field,variabletype,fieldsettype,err,error,*999)
    END IF

    exits("Field_ParameterSetEnsureCreated")
    RETURN
999 errorsexits("Field_ParameterSetEnsureCreated",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetensurecreated

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_destroy(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: parameter_set_idx,set_index
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_parameter_set_ptr_type), POINTER :: new_parameter_sets(:)
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    NULLIFY(new_parameter_sets)

    enters("FIELD_PARAMETER_SET_DESTROY",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
        field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
        IF(ASSOCIATED(field_variable)) THEN
          !Check the set type input
          IF(field_set_type>0.AND.field_set_type<field_number_of_set_types) THEN
            !Check if the set type has been created
            parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
            IF(ASSOCIATED(parameter_set)) THEN
              set_index=parameter_set%SET_INDEX
              ALLOCATE(new_parameter_sets(field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS-1),stat=err)
              IF(err/=0) CALL flagerror("Could not allocate new parameter sets",err,error,*999)
              DO parameter_set_idx=1,field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS
                IF(parameter_set_idx<set_index) THEN
                  new_parameter_sets(parameter_set_idx)%PTR=>field_variable%PARAMETER_SETS%PARAMETER_SETS(parameter_set_idx)%PTR
                ELSE IF(parameter_set_idx>set_index) THEN
                  new_parameter_sets(parameter_set_idx-1)%PTR=>field_variable%PARAMETER_SETS%PARAMETER_SETS(parameter_set_idx)%PTR
                  new_parameter_sets(parameter_set_idx-1)%PTR%SET_INDEX=new_parameter_sets(parameter_set_idx-1)%PTR%SET_INDEX-1
                ENDIF
              ENDDO !parameter_set_idx
              DEALLOCATE(field_variable%PARAMETER_SETS%PARAMETER_SETS)
              field_variable%PARAMETER_SETS%PARAMETER_SETS=>new_parameter_sets
              field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS=field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS-1
              NULLIFY(field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR)
              CALL field_parameter_set_finalise(parameter_set,err,error,*999)
            ELSE
              local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                & " has not been created for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
              & " is invalid. The field parameter set type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
          & " is invalid. The variable type must be between 1 and "// &
          & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_DESTROY")
    RETURN
999 IF(ASSOCIATED(new_parameter_sets)) DEALLOCATE(new_parameter_sets)
    errorsexits("FIELD_PARAMETER_SET_DESTROY",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_destroy

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_finalise(FIELD_PARAMETER_SET,ERR,ERROR,*)

    !Argument variables
    TYPE(field_parameter_set_type), POINTER :: field_parameter_set
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_PARAMETER_SET_FINALISE",err,error,*999)

    IF(ASSOCIATED(field_parameter_set)) THEN
      IF(ASSOCIATED(field_parameter_set%PARAMETERS)) CALL distributed_vector_destroy(field_parameter_set%PARAMETERS,err,error,*999)
      DEALLOCATE(field_parameter_set)
    ENDIF

    exits("FIELD_PARAMETER_SET_FINALISE")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_data_get_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,PARAMETERS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_DATA_GET_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(parameters)) THEN
        CALL flagerror("Parameters is already associated.",err,error,*999)
      ELSE
        NULLIFY(parameters)
        IF(field%FIELD_FINISHED) THEN
          IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
            field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
            IF(ASSOCIATED(field_variable)) THEN
              IF(field_variable%DATA_TYPE==field_intg_type) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(parameter_set)) THEN
                    CALL distributed_vector_data_get(parameter_set%PARAMETERS,parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " does not correspond to the integer data type of the given parameters array."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
            & " has not been finished."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_DATA_GET_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_DATA_GET_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_data_get_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_data_get_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,PARAMETERS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    REAL(SP), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_DATA_GET_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(parameters)) THEN
        CALL flagerror("Parameters is already associated.",err,error,*999)
      ELSE
        NULLIFY(parameters)
        IF(field%FIELD_FINISHED) THEN
          IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
            field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
            IF(ASSOCIATED(field_variable)) THEN
              IF(field_variable%DATA_TYPE==field_sp_type) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(parameter_set)) THEN
                    CALL distributed_vector_data_get(parameter_set%PARAMETERS,parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " does not correspond to the single precision data type of the given parameters array."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
            & " has not been finished."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_DATA_GET_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_DATA_GET_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_data_get_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_data_get_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,PARAMETERS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    REAL(DP), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_DATA_GET_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(parameters)) THEN
        CALL flagerror("Parameters is already associated.",err,error,*999)
      ELSE
        NULLIFY(parameters)
        IF(field%FIELD_FINISHED) THEN
          IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
            field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
            IF(ASSOCIATED(field_variable)) THEN
              IF(field_variable%DATA_TYPE==field_dp_type) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(parameter_set)) THEN
                    CALL distributed_vector_data_get(parameter_set%PARAMETERS,parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " does not correspond to the double precision data type of the given parameters array."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
            & " has not been finished."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_DATA_GET_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_DATA_GET_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_data_get_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_data_get_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,PARAMETERS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    LOGICAL, POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_DATA_GET_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(parameters)) THEN
        CALL flagerror("Parameters is already associated.",err,error,*999)
      ELSE
        NULLIFY(parameters)
        IF(field%FIELD_FINISHED) THEN
          IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
            field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
            IF(ASSOCIATED(field_variable)) THEN
              IF(field_variable%DATA_TYPE==field_l_type) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(parameter_set)) THEN
                    CALL distributed_vector_data_get(parameter_set%PARAMETERS,parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " does not correspond to the logical data type of the given parameters array."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
            & " has not been finished."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_DATA_GET_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_DATA_GET_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_data_get_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_data_restore_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,PARAMETERS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_DATA_RESTORE_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(ASSOCIATED(parameters)) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(parameter_set)) THEN
                    CALL distributed_vector_data_restore(parameter_set%PARAMETERS,parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created on variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                CALL flagerror("Parameters is not associated.",err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given parameters array."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_DATA_RESTORE_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_DATA_RESTORE_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_data_restore_intg

   !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_data_restore_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,PARAMETERS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    REAL(SP), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_DATA_RESTORE_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(ASSOCIATED(parameters)) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(parameter_set)) THEN
                    CALL distributed_vector_data_restore(parameter_set%PARAMETERS,parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created on variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                CALL flagerror("Parameters is not associated.",err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given parameters array."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_DATA_RESTORE_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_DATA_RESTORE_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_data_restore_sp

   !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_data_restore_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,PARAMETERS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    REAL(DP), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_DATA_RESTORE_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(ASSOCIATED(parameters)) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(parameter_set)) THEN
                    CALL distributed_vector_data_restore(parameter_set%PARAMETERS,parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created on variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                CALL flagerror("Parameters is not associated.",err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given parameters array."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_DATA_RESTORE_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_DATA_RESTORE_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_data_restore_dp

   !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_data_restore_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,PARAMETERS,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    LOGICAL, POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_DATA_RESTORE_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(ASSOCIATED(parameters)) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                  IF(ASSOCIATED(parameter_set)) THEN
                    CALL distributed_vector_data_restore(parameter_set%PARAMETERS,parameters,err,error,*999)
                  ELSE
                    local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                      & " has not been created on variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                CALL flagerror("Parameters is not associated.",err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given parameters array."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_DATA_RESTORE_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_DATA_RESTORE_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_data_restore_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,PARAMETER_SET,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error

    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(ASSOCIATED(parameter_set)) THEN
              CALL flagerror("Parameter set is already associated.",err,error,*999)
            ELSE
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(.NOT.ASSOCIATED(parameter_set)) THEN
                  local_error="The field parameter set type of "// &
                    & trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on variable type "// &
                    & trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "// &
                  & trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_PARAMETER_SET_GET")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_constant_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_CONSTANT_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_get(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)

                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_CONSTANT_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_CONSTANT_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_constant_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_constant_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_CONSTANT_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_get(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_CONSTANT_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_CONSTANT_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_constant_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_constant_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_CONSTANT_DP",err,error,*999)


    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_get(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_CONSTANT_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_CONSTANT_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_constant_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_constant_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_CONSTANT_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_get(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_CONSTANT_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_CONSTANT_L",err,error)

    RETURN 1
  END SUBROUTINE field_parameter_set_get_constant_l
  
  !
  !================================================================================================================================
  !
  
  SUBROUTINE field_parametersetgetdatapointintg(field,variableType,fieldSetType,userDataPointNumber,componentNumber,value, &
      & err,error,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: userdatapointnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    INTEGER(INTG), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decompositionlocaldatapointnumber,dofidx
    LOGICAL :: userdatapointexists,ghostdatapoint
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetDataPointIntg",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_intg_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%TOPOLOGY
                        IF(ASSOCIATED(decompositiontopology)) THEN
                          CALL decompositiontopology_datapointcheckexists(decompositiontopology,userdatapointnumber, &
                            & userdatapointexists,decompositionlocaldatapointnumber,ghostdatapoint,err,error,*999)
                          IF(userdatapointexists) THEN
                            dofidx=fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                              & data_point_param2dof_map%DATA_POINTS(decompositionlocaldatapointnumber)       
                            CALL distributed_vector_values_get(parameterset%PARAMETERS,dofidx,value,err,error,*999)
                          ELSE
                            localerror="The specified user data point number of "// &
                              & trim(number_to_vstring(userdatapointnumber,"*",err,error))// &
                              &  " does not exist in the decomposition for field component number "// &
                              & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                              & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                            CALL flagerror(localerror,err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Field decomposition topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("Field_ParameterSetGetDataPointIntg")
    RETURN
999 errorsexits("Field_ParameterSetGetDataPointIntg",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetdatapointintg
  
  !
  !================================================================================================================================
  !
  
  SUBROUTINE field_parametersetgetdatapointsp(field,variableType,fieldSetType,userDataPointNumber,componentNumber,value,err,error,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: userdatapointnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(SP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decompositionlocaldatapointnumber,dofidx
    LOGICAL :: userdatapointexists,ghostdatapoint
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetDataPointSP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_sp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%TOPOLOGY
                        IF(ASSOCIATED(decompositiontopology)) THEN
                          CALL decompositiontopology_datapointcheckexists(decompositiontopology,userdatapointnumber, &
                            & userdatapointexists,decompositionlocaldatapointnumber,ghostdatapoint,err,error,*999)
                          IF(userdatapointexists) THEN
                            dofidx=fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                              & data_point_param2dof_map%DATA_POINTS(decompositionlocaldatapointnumber)       
                            CALL distributed_vector_values_get(parameterset%PARAMETERS,dofidx,value,err,error,*999)
                          ELSE
                            localerror="The specified user data point number of "// &
                              & trim(number_to_vstring(userdatapointnumber,"*",err,error))// &
                              &  " does not exist in the decomposition for field component number "// &
                              & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                              & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                            CALL flagerror(localerror,err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Field decomposition topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("Field_ParameterSetGetDataPointSP")
    RETURN
999 errorsexits("Field_ParameterSetGetDataPointSP",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetdatapointsp
  
  !
  !================================================================================================================================
  !
  
  SUBROUTINE field_parametersetgetdatapointdp(field,variableType,fieldSetType,userDataPointNumber,componentNumber,value,err,error,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: userdatapointnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decompositionlocaldatapointnumber,dofidx
    LOGICAL :: userdatapointexists,ghostdatapoint
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetDataPointDP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_dp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%TOPOLOGY
                        IF(ASSOCIATED(decompositiontopology)) THEN
                          CALL decompositiontopology_datapointcheckexists(decompositiontopology,userdatapointnumber, &
                            & userdatapointexists,decompositionlocaldatapointnumber,ghostdatapoint,err,error,*999)
                          IF(userdatapointexists) THEN
                            dofidx=fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                              & data_point_param2dof_map%DATA_POINTS(decompositionlocaldatapointnumber)       
                            CALL distributed_vector_values_get(parameterset%PARAMETERS,dofidx,value,err,error,*999)
                          ELSE
                            localerror="The specified user data point number of "// &
                              & trim(number_to_vstring(userdatapointnumber,"*",err,error))// &
                              &  " does not exist in the decomposition for field component number "// &
                              & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                              & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                            CALL flagerror(localerror,err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Field decomposition topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("Field_ParameterSetGetDataPointDP")
    RETURN
999 errorsexits("Field_ParameterSetGetDataPointDP",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetdatapointdp
  
  !
  !================================================================================================================================
  !
  
  SUBROUTINE field_parametersetgetdatapointl(field,variableType,fieldSetType,userDataPointNumber,componentNumber,value,err,error,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: userdatapointnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    LOGICAL, INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decompositionlocaldatapointnumber,dofidx
    LOGICAL :: userdatapointexists,ghostdatapoint
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetDataPointL",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_l_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%TOPOLOGY
                        IF(ASSOCIATED(decompositiontopology)) THEN
                          CALL decompositiontopology_datapointcheckexists(decompositiontopology,userdatapointnumber, &
                            & userdatapointexists,decompositionlocaldatapointnumber,ghostdatapoint,err,error,*999)
                          IF(userdatapointexists) THEN
                            dofidx=fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                              & data_point_param2dof_map%DATA_POINTS(decompositionlocaldatapointnumber)       
                            CALL distributed_vector_values_get(parameterset%PARAMETERS,dofidx,value,err,error,*999)
                          ELSE
                            localerror="The specified user data point number of "// &
                              & trim(number_to_vstring(userdatapointnumber,"*",err,error))// &
                              &  " does not exist in the decomposition for field component number "// &
                              & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                              & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                            CALL flagerror(localerror,err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Field decomposition topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("Field_ParameterSetGetDataPointL")
    RETURN
999 errorsexits("Field_ParameterSetGetDataPointL",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetdatapointl

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_element_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_ELEMENT_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                            & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                          CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_ELEMENT_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_ELEMENT_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_element_intg

  !
  !================================================================================================================================
  !


  SUBROUTINE field_parameter_set_get_element_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)


    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_ELEMENT_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                            & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                          CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_ELEMENT_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_ELEMENT_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_element_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_element_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_ELEMENT_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                            & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                          CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_ELEMENT_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_ELEMENT_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_element_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_element_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_ELEMENT_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                            & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                          CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_ELEMENT_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_ELEMENT_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_element_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_local_dof_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    INTEGER(INTG), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_INTG",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL) THEN
                    CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_LOCAL_DOF_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_LOCAL_DOF_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_local_dof_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_local_dof_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    REAL(SP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_LOCAL_DOF_SP",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL) THEN
                    CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_LOCAL_DOF_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_LOCAL_DOF_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_local_dof_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_local_dof_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_LOCAL_DOF_DP",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL) THEN
                    CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_LOCAL_DOF_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_LOCAL_DOF_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_local_dof_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_local_dof_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    LOGICAL, INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_LOCAL_DOF_L",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL) THEN
                    CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%TOTAL_NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_LOCAL_DOF_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_LOCAL_DOF_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_local_dof_l

  !
  !================================================================================================================================
  !

 SUBROUTINE field_parameter_set_get_node_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_NODE_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          domain_nodes=>domain_topology%NODES
                          IF(ASSOCIATED(domain_nodes)) THEN
                            IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                              & number_of_derivatives) THEN
                              IF(version_number>0.AND.version_number<= &
                                & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                & number_of_versions) THEN
                                dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & versions(version_number)
                                CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                              ELSE
                                local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                  & " is invalid for derivative number "// &
                                  & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                  & "(note version numbers are indexed directly from the value the user specifies during "// &
                                  & "element creation and no record is kept of the total number of versions the user sets."// &
                                  & "The maximum version number the user sets defines the total number of versions allocated)."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ELSE
                              local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                                & " is invalid for user node number "// &
                                & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives,"*",err,error))//" derivatives."
                              CALL flagerror(local_error,err,error,*999)
                            ENDIF
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_NODE_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_NODE_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_node_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_node_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_NODE_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          domain_nodes=>domain_topology%NODES
                          IF(ASSOCIATED(domain_nodes)) THEN
                            IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                              & number_of_derivatives) THEN
                              IF(version_number>0.AND.version_number<= &
                                & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                & number_of_versions) THEN
                                dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & versions(version_number)
                                CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                              ELSE
                                local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                  & " is invalid for derivative number "// &
                                  & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                  & "(note version numbers are indexed directly from the value the user specifies during "// &
                                  & "element creation and no record is kept of the total number of versions the user sets."// &
                                  & "The maximum version number the user sets defines the total number of versions allocated)."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ELSE
                              local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                                & " is invalid for user node number "// &
                                & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives,"*",err,error))//" derivatives."
                              CALL flagerror(local_error,err,error,*999)
                            ENDIF
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_NODE_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_NODE_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_node_sp

  !
  !================================================================================================================================
  !

 SUBROUTINE field_parameter_set_get_node_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_NODE_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          domain_nodes=>domain_topology%NODES
                          IF(ASSOCIATED(domain_nodes)) THEN
                            IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                              & number_of_derivatives) THEN
                              IF(version_number>0.AND.version_number<= &
                                & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                & number_of_versions) THEN
                                dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & versions(version_number)
                                CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                              ELSE
                                local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                  & " is invalid for derivative number "// &
                                  & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                  & "(note version numbers are indexed directly from the value the user specifies during "// &
                                  & "element creation and no record is kept of the total number of versions the user sets."// &
                                  & "The maximum version number the user sets defines the total number of versions allocated)."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ELSE
                              local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                                & " is invalid for user node number "// &
                                & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives,"*",err,error))//" derivatives."
                              CALL flagerror(local_error,err,error,*999)
                            ENDIF
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_NODE_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_NODE_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_node_dp

  !
  !================================================================================================================================
  !

 SUBROUTINE field_parameter_set_get_node_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_GET_NODE_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          domain_nodes=>domain_topology%NODES
                          IF(ASSOCIATED(domain_nodes)) THEN
                            IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                              & number_of_derivatives) THEN
                              IF(version_number>0.AND.version_number<= &
                                & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                & number_of_versions) THEN
                                dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & versions(version_number)
                                CALL distributed_vector_values_get(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                              ELSE
                                local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                  & " is invalid for derivative number "// &
                                  & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                  & "(note version numbers are indexed directly from the value the user specifies during "// &
                                  & "element creation and no record is kept of the total number of versions the user sets."// &
                                  & "The maximum version number the user sets defines the total number of versions allocated)."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ELSE
                              local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                                & " is invalid for user node number "// &
                                & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives,"*",err,error))//" derivatives."
                              CALL flagerror(local_error,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Domain topology nodes is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not get by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_GET_NODE_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_GET_NODE_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_node_l

  !
  !================================================================================================================================
  !

 SUBROUTINE field_parametersetgetlocalnode_intg(field,variableType,fieldSetType,versionNumber,derivativeNumber,localNodeNumber, &
   & componentnumber,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: versionnumber
    INTEGER(INTG), INTENT(IN) :: derivativenumber
    INTEGER(INTG), INTENT(IN) :: localnodenumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    INTEGER(INTG), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domainnodes
    TYPE(domain_topology_type), POINTER :: domaintopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetLocalNode_Intg",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_intg_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%ptr
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>fieldvariable%components(componentnumber)%domain
                      IF(ASSOCIATED(domain)) THEN
                        domaintopology=>domain%topology
                        IF(ASSOCIATED(domaintopology)) THEN
                          domainnodes=>domaintopology%nodes
                          IF(ASSOCIATED(domainnodes)) THEN
                            IF(localnodenumber>0.AND.localnodenumber<=domainnodes%TOTAL_NUMBER_OF_NODES) THEN
                              IF(derivativenumber>0.AND.derivativenumber<=domainnodes%nodes(localnodenumber)% &
                                & number_of_derivatives) THEN
                                IF(versionnumber>0.AND.versionnumber<=domainnodes%nodes(localnodenumber)%derivatives( &
                                  & derivativenumber)%numberOfVersions) THEN
                                  dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(localnodenumber)%derivatives(derivativenumber)% &
                                    & versions(versionnumber)
                                  CALL distributed_vector_values_get(parameterset%parameters,dofidx,value,err,error,*999)
                                ELSE
                                  localerror="Version number "//trim(number_to_vstring(versionnumber,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivativenumber,"*",err,error))//" of local node number "// &
                                    & trim(number_to_vstring(localnodenumber,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domainnodes%nodes(localnodenumber)%derivatives( &
                                    & derivativenumber)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(localerror,err,error,*999)
                                ENDIF
                              ELSE
                                localerror="Derivative number "//trim(number_to_vstring(derivativenumber,"*",err,error))// &
                                  & " is invalid for local node number "// &
                                  & trim(number_to_vstring(localnodenumber,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domainnodes%nodes(localnodenumber)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(localerror,err,error,*999)
                              ENDIF
                            ELSE
                              localerror="The specified local node number of "// &
                                & trim(number_to_vstring(localnodenumber,"*",err,error))// &
                                &  " does not exist in the domain for field component number "// &
                                & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                                & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domainnodes%TOTAL_NUMBER_OF_NODES,"*",err,error))//" local nodes."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Domain topology nodes is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not add element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetGetLocalNode_Intg")
    RETURN
999 errorsexits("Field_ParameterSetGetLocalNode_Intg",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetlocalnode_intg
  !
  !================================================================================================================================
  !

 SUBROUTINE field_parametersetgetlocalnode_sp(field,variableType,fieldSetType,versionNumber,derivativeNumber,localNodeNumber, &
   & componentnumber,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: versionnumber
    INTEGER(INTG), INTENT(IN) :: derivativenumber
    INTEGER(INTG), INTENT(IN) :: localnodenumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(SP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domainnodes
    TYPE(domain_topology_type), POINTER :: domaintopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetLocalNode_Sp",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_sp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%ptr
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>fieldvariable%components(componentnumber)%domain
                      IF(ASSOCIATED(domain)) THEN
                        domaintopology=>domain%topology
                        IF(ASSOCIATED(domaintopology)) THEN
                          domainnodes=>domaintopology%nodes
                          IF(ASSOCIATED(domainnodes)) THEN
                            IF(localnodenumber>0.AND.localnodenumber<=domainnodes%TOTAL_NUMBER_OF_NODES) THEN
                              IF(derivativenumber>0.AND.derivativenumber<=domainnodes%nodes(localnodenumber)% &
                                & number_of_derivatives) THEN
                                IF(versionnumber>0.AND.versionnumber<=domainnodes%nodes(localnodenumber)%derivatives( &
                                  & derivativenumber)%numberOfVersions) THEN
                                  dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(localnodenumber)%derivatives(derivativenumber)% &
                                    & versions(versionnumber)
                                  CALL distributed_vector_values_get(parameterset%parameters,dofidx,value,err,error,*999)
                                ELSE
                                  localerror="Version number "//trim(number_to_vstring(versionnumber,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivativenumber,"*",err,error))//" of local node number "// &
                                    & trim(number_to_vstring(localnodenumber,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domainnodes%nodes(localnodenumber)%derivatives( &
                                    & derivativenumber)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(localerror,err,error,*999)
                                ENDIF
                              ELSE
                                localerror="Derivative number "//trim(number_to_vstring(derivativenumber,"*",err,error))// &
                                  & " is invalid for local node number "// &
                                  & trim(number_to_vstring(localnodenumber,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domainnodes%nodes(localnodenumber)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(localerror,err,error,*999)
                              ENDIF
                            ELSE
                              localerror="The specified local node number of "// &
                                & trim(number_to_vstring(localnodenumber,"*",err,error))// &
                                &  " does not exist in the domain for field component number "// &
                                & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                                & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domainnodes%TOTAL_NUMBER_OF_NODES,"*",err,error))//" local nodes."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Domain topology nodes is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not add element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetGetLocalNode_Sp")
    RETURN
999 errorsexits("Field_ParameterSetGetLocalNode_Sp",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetlocalnode_sp
  !
  !================================================================================================================================
  !

 SUBROUTINE field_parametersetgetlocalnode_dp(field,variableType,fieldSetType,versionNumber,derivativeNumber,localNodeNumber, &
   & componentnumber,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: versionnumber
    INTEGER(INTG), INTENT(IN) :: derivativenumber
    INTEGER(INTG), INTENT(IN) :: localnodenumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domainnodes
    TYPE(domain_topology_type), POINTER :: domaintopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetLocalNode_Dp",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_dp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%ptr
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>fieldvariable%components(componentnumber)%domain
                      IF(ASSOCIATED(domain)) THEN
                        domaintopology=>domain%topology
                        IF(ASSOCIATED(domaintopology)) THEN
                          domainnodes=>domaintopology%nodes
                          IF(ASSOCIATED(domainnodes)) THEN
                            IF(localnodenumber>0.AND.localnodenumber<=domainnodes%TOTAL_NUMBER_OF_NODES) THEN
                              IF(derivativenumber>0.AND.derivativenumber<=domainnodes%nodes(localnodenumber)% &
                                & number_of_derivatives) THEN
                                IF(versionnumber>0.AND.versionnumber<=domainnodes%nodes(localnodenumber)%derivatives( &
                                  & derivativenumber)%numberOfVersions) THEN
                                  dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(localnodenumber)%derivatives(derivativenumber)% &
                                    & versions(versionnumber)
                                  CALL distributed_vector_values_get(parameterset%parameters,dofidx,value,err,error,*999)
                                ELSE
                                  localerror="Version number "//trim(number_to_vstring(versionnumber,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivativenumber,"*",err,error))//" of local node number "// &
                                    & trim(number_to_vstring(localnodenumber,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domainnodes%nodes(localnodenumber)%derivatives( &
                                    & derivativenumber)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(localerror,err,error,*999)
                                ENDIF
                              ELSE
                                localerror="Derivative number "//trim(number_to_vstring(derivativenumber,"*",err,error))// &
                                  & " is invalid for local node number "// &
                                  & trim(number_to_vstring(localnodenumber,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domainnodes%nodes(localnodenumber)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(localerror,err,error,*999)
                              ENDIF
                            ELSE
                              localerror="The specified local node number of "// &
                                & trim(number_to_vstring(localnodenumber,"*",err,error))// &
                                &  " does not exist in the domain for field component number "// &
                                & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                                & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domainnodes%TOTAL_NUMBER_OF_NODES,"*",err,error))//" local nodes."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Domain topology nodes is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not add element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetGetLocalNode_Dp")
    RETURN
999 errorsexits("Field_ParameterSetGetLocalNode_Dp",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetlocalnode_dp
  !
  !================================================================================================================================
  !

 SUBROUTINE field_parametersetgetlocalnode_l(field,variableType,fieldSetType,versionNumber,derivativeNumber,localNodeNumber, &
   & componentnumber,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: versionnumber
    INTEGER(INTG), INTENT(IN) :: derivativenumber
    INTEGER(INTG), INTENT(IN) :: localnodenumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    LOGICAL, INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domainnodes
    TYPE(domain_topology_type), POINTER :: domaintopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetLocalNode_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_l_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%ptr
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>fieldvariable%components(componentnumber)%domain
                      IF(ASSOCIATED(domain)) THEN
                        domaintopology=>domain%topology
                        IF(ASSOCIATED(domaintopology)) THEN
                          domainnodes=>domaintopology%nodes
                          IF(ASSOCIATED(domainnodes)) THEN
                            IF(localnodenumber>0.AND.localnodenumber<=domainnodes%TOTAL_NUMBER_OF_NODES) THEN
                              IF(derivativenumber>0.AND.derivativenumber<=domainnodes%nodes(localnodenumber)% &
                                & number_of_derivatives) THEN
                                IF(versionnumber>0.AND.versionnumber<=domainnodes%nodes(localnodenumber)%derivatives( &
                                  & derivativenumber)%numberOfVersions) THEN
                                  dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(localnodenumber)%derivatives(derivativenumber)% &
                                    & versions(versionnumber)
                                  CALL distributed_vector_values_get(parameterset%parameters,dofidx,value,err,error,*999)
                                ELSE
                                  localerror="Version number "//trim(number_to_vstring(versionnumber,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivativenumber,"*",err,error))//" of local node number "// &
                                    & trim(number_to_vstring(localnodenumber,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domainnodes%nodes(localnodenumber)%derivatives( &
                                    & derivativenumber)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(localerror,err,error,*999)
                                ENDIF
                              ELSE
                                localerror="Derivative number "//trim(number_to_vstring(derivativenumber,"*",err,error))// &
                                  & " is invalid for local node number "// &
                                  & trim(number_to_vstring(localnodenumber,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domainnodes%nodes(localnodenumber)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(localerror,err,error,*999)
                              ENDIF
                            ELSE
                              localerror="The specified local node number of "// &
                                & trim(number_to_vstring(localnodenumber,"*",err,error))// &
                                &  " does not exist in the domain for field component number "// &
                                & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                                & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domainnodes%TOTAL_NUMBER_OF_NODES,"*",err,error))//" local nodes."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Domain topology nodes is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by node for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not add element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetGetLocalNode_L")
    RETURN
999 errorsexits("Field_ParameterSetGetLocalNode_L",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetlocalnode_l

  !
  !================================================================================================================================
  !

 SUBROUTINE field_parametersetgetlocalelement_intg(field,variableType,fieldSetType,localElementNumber, &
   & componentnumber,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: localelementnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    INTEGER(INTG), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_elements_type), POINTER :: domainelements
    TYPE(domain_topology_type), POINTER :: domaintopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetLocalElement_Intg",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_intg_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%ptr
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      domain=>fieldvariable%components(componentnumber)%domain
                      IF(ASSOCIATED(domain)) THEN
                        domaintopology=>domain%topology
                        IF(ASSOCIATED(domaintopology)) THEN
                          domainelements=>domaintopology%elements
                          IF(ASSOCIATED(domainelements)) THEN
                            IF(localelementnumber>0.AND.localelementnumber<=domainelements%TOTAL_NUMBER_OF_ELEMENTS) THEN
                              dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                & element_param2dof_map%ELEMENTS(localelementnumber)
                              CALL distributed_vector_values_get(parameterset%parameters,dofidx,value,err,error,*999)
                            ELSE
                              localerror="The specified local element number of "// &
                                & trim(number_to_vstring(localelementnumber,"*",err,error))// &
                                &  " does not exist in the domain for field component number "// &
                                & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                                & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domainelements%TOTAL_NUMBER_OF_ELEMENTS,"*",err,error))//" local elements."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not add element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetGetLocalElement_Intg")
    RETURN
999 errorsexits("Field_ParameterSetGetLocalElement_Intg",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetlocalelement_intg

  !
  !================================================================================================================================
  !

 SUBROUTINE field_parametersetgetlocalelement_sp(field,variableType,fieldSetType,localElementNumber, &
   & componentnumber,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: localelementnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(SP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_elements_type), POINTER :: domainelements
    TYPE(domain_topology_type), POINTER :: domaintopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetLocalElement_Sp",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_sp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%ptr
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      domain=>fieldvariable%components(componentnumber)%domain
                      IF(ASSOCIATED(domain)) THEN
                        domaintopology=>domain%topology
                        IF(ASSOCIATED(domaintopology)) THEN
                          domainelements=>domaintopology%elements
                          IF(ASSOCIATED(domainelements)) THEN
                            IF(localelementnumber>0.AND.localelementnumber<=domainelements%TOTAL_NUMBER_OF_ELEMENTS) THEN
                              dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                & element_param2dof_map%ELEMENTS(localelementnumber)
                              CALL distributed_vector_values_get(parameterset%parameters,dofidx,value,err,error,*999)
                            ELSE
                              localerror="The specified local element number of "// &
                                & trim(number_to_vstring(localelementnumber,"*",err,error))// &
                                &  " does not exist in the domain for field component number "// &
                                & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                                & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domainelements%TOTAL_NUMBER_OF_ELEMENTS,"*",err,error))//" local elements."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not add element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetGetLocalElement_Sp")
    RETURN
999 errorsexits("Field_ParameterSetGetLocalElement_Sp",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetlocalelement_sp

  !
  !================================================================================================================================
  !

 SUBROUTINE field_parametersetgetlocalelement_dp(field,variableType,fieldSetType,localElementNumber, &
   & componentnumber,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: localelementnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_elements_type), POINTER :: domainelements
    TYPE(domain_topology_type), POINTER :: domaintopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetLocalElement_Dp",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_dp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%ptr
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      domain=>fieldvariable%components(componentnumber)%domain
                      IF(ASSOCIATED(domain)) THEN
                        domaintopology=>domain%topology
                        IF(ASSOCIATED(domaintopology)) THEN
                          domainelements=>domaintopology%elements
                          IF(ASSOCIATED(domainelements)) THEN
                            IF(localelementnumber>0.AND.localelementnumber<=domainelements%TOTAL_NUMBER_OF_ELEMENTS) THEN
                              dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                & element_param2dof_map%ELEMENTS(localelementnumber)
                              CALL distributed_vector_values_get(parameterset%parameters,dofidx,value,err,error,*999)
                            ELSE
                              localerror="The specified local element number of "// &
                                & trim(number_to_vstring(localelementnumber,"*",err,error))// &
                                &  " does not exist in the domain for field component number "// &
                                & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                                & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domainelements%TOTAL_NUMBER_OF_ELEMENTS,"*",err,error))//" local elements."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not add element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetGetLocalElement_Dp")
    RETURN
999 errorsexits("Field_ParameterSetGetLocalElement_Dp",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetlocalelement_dp

  !
  !================================================================================================================================
  !

 SUBROUTINE field_parametersetgetlocalelement_l(field,variableType,fieldSetType,localElementNumber, &
   & componentnumber,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: localelementnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    LOGICAL, INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_elements_type), POINTER :: domainelements
    TYPE(domain_topology_type), POINTER :: domaintopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetLocalElement_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_l_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%ptr
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      domain=>fieldvariable%components(componentnumber)%domain
                      IF(ASSOCIATED(domain)) THEN
                        domaintopology=>domain%topology
                        IF(ASSOCIATED(domaintopology)) THEN
                          domainelements=>domaintopology%elements
                          IF(ASSOCIATED(domainelements)) THEN
                            IF(localelementnumber>0.AND.localelementnumber<=domainelements%TOTAL_NUMBER_OF_ELEMENTS) THEN
                              dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                & element_param2dof_map%ELEMENTS(localelementnumber)
                              CALL distributed_vector_values_get(parameterset%parameters,dofidx,value,err,error,*999)
                            ELSE
                              localerror="The specified local element number of "// &
                                & trim(number_to_vstring(localelementnumber,"*",err,error))// &
                                &  " does not exist in the domain for field component number "// &
                                & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                                & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                & trim(number_to_vstring(domainelements%TOTAL_NUMBER_OF_ELEMENTS,"*",err,error))//" local elements."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Domain topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Domain topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not get by element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not add element for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetGetLocalElement_L")
    RETURN
999 errorsexits("Field_ParameterSetGetLocalElement_L",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetgetlocalelement_l

  !
  !================================================================================================================================
  !
  
  SUBROUTINE field_parametersetgetgausspointdp(field,variableType,fieldSetType,gaussPointNumber,userElementNumber, &
    & componentnumber,value,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: gausspointnumber
    INTEGER(INTG), INTENT(IN) :: userelementnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decompositionlocalelementnumber,dofidx
    LOGICAL :: ghostelement,userelementexists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetGaussPointDP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%ptr
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_dp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%ptr
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not get by gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not get by gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      decomposition=>field%decomposition
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%topology
                        CALL decomposition_topology_element_check_exists(decompositiontopology,userelementnumber, &
                          & userelementexists,decompositionlocalelementnumber,ghostelement,err,error,*999)
                        IF(userelementexists) THEN
                          IF(gausspointnumber >= 1 .AND. gausspointnumber <= SIZE(fieldvariable% & !TODO: check for actual # of gp?
                            & components(componentnumber)%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS,1)) THEN
                            dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                              & gauss_point_param2dof_map%GAUSS_POINTS(gausspointnumber,decompositionlocalelementnumber)
                            CALL distributed_vector_values_get(parameterset%parameters,dofidx,value,err,error,*999)
                          ELSE
                            localerror="The specified gauss point number "// &
                              & trim(numbertovstring(gausspointnumber,"*",err,error))// &
                              & " is not within the expected range."
                            CALL flagerror(localerror,err,error,*999)
                          ENDIF
                        ELSE
                          localerror="The specified user element number of "// &
                            & trim(numbertovstring(userelementnumber,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(numbertovstring(componentnumber,"*",err,error))//" of field variable type "// &
                            & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                            & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(localerror,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not add element for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(numbertovstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(numbertovstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(numbertovstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(numbertovstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(numbertovstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetGetGaussPointDP")
    RETURN
999 errorsexits("Field_ParameterSetGetGaussPointDP",err,error)
    RETURN 1
    
  END SUBROUTINE field_parametersetgetgausspointdp

  !
  !================================================================================================================================
  !
  
  SUBROUTINE field_parametersetgetlocalgausspointdp(field,variableType,fieldSetType,gaussPointNumber,localElementNumber, &
    & componentnumber,value,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: gausspointnumber
    INTEGER(INTG), INTENT(IN) :: localelementnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetGetLocalGaussPointDP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%ptr
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_dp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%ptr
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not get by gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not get by gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not get by gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not get by gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      decomposition=>field%decomposition
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%topology
                        IF(ASSOCIATED(decompositiontopology)) THEN
                          IF(ASSOCIATED(decompositiontopology%elements)) THEN
                            IF(localelementnumber>=1.AND. &
                              & localelementnumber<=decompositiontopology%elements%TOTAL_NUMBER_OF_ELEMENTS) THEN
                              !!TODO: check for actual # of gp?
                              IF(gausspointnumber >= 1 .AND. gausspointnumber <= SIZE(fieldvariable% & 
                                & components(componentnumber)%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS,1)) THEN
                                dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                  & gauss_point_param2dof_map%GAUSS_POINTS(gausspointnumber,localelementnumber)
                                CALL distributed_vector_values_get(parameterset%parameters,dofidx,VALUE,err,error,*999)
                              ELSE
                                localerror="The specified gauss point number "// &
                                  & trim(numbertovstring(gausspointnumber,"*",err,error))// &
                                  & " is not within the expected range."
                                CALL flagerror(localerror,err,error,*999)
                              ENDIF
                            ELSE
                              localerror="Local element number "//trim(numbertovstring(localelementnumber,"*",err,error))// &
                                & " is invalid. The local element number must be >=1 and <= "// &
                                & trim(numbertovstring(decompositiontopology%elements%TOTAL_NUMBER_OF_ELEMENTS,"*",err,error))//"."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Decomposition topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Decomposition topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not add element for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(numbertovstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(numbertovstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(numbertovstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(numbertovstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(numbertovstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetGetLocalGaussPointDP")
    RETURN
999 errorsexits("Field_ParameterSetGetLocalGaussPointDP",err,error)
    RETURN 1
    
  END SUBROUTINE field_parametersetgetlocalgausspointdp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetupdateelementdatapointdp(field,variableType,fieldSetType,userElementNumber,dataPointIndex, &
  & componentnumber,value,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: userelementnumber
    INTEGER(INTG), INTENT(IN) :: datapointindex
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decompositionlocalelementnumber,datapointlocalnumber,dofidx
    LOGICAL :: ghostelement,userelementexists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(data_projection_type), POINTER :: dataprojection
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetUpdateElementDataPointDP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_dp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not update by gauss point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%TOPOLOGY
                        IF(ASSOCIATED(decompositiontopology)) THEN
                          dataprojection=>field%dataProjection
                          IF(ASSOCIATED(dataprojection)) THEN
                            ! Use element topology to check if data point is on current computational node
                            CALL decomposition_topology_element_check_exists(decompositiontopology,userelementnumber, &
                              & userelementexists,decompositionlocalelementnumber,ghostelement,err,error,*999)
                            IF(userelementexists) THEN
                              IF(ghostelement) THEN
                                localerror="Cannot update by data point for user element "// &
                                  & trim(number_to_vstring(userelementnumber,"*",err,error))//" as it is a ghost element."
                                CALL flagerror(localerror,err,error,*999)
                              ELSE
                                datapointlocalnumber = decompositiontopology%dataPoints% &
                                  & elementdatapoint(decompositionlocalelementnumber)%dataIndices(datapointindex)%localNumber
                                IF(datapointlocalnumber >= 1 .AND. datapointlocalnumber <= fieldvariable% &
                                  & components(componentnumber)%PARAM_TO_DOF_MAP%DATA_POINT_PARAM2DOF_MAP% &
                                  & number_of_data_point_parameters) THEN
                                  dofidx=fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                                    & data_point_param2dof_map%DATA_POINTS(datapointlocalnumber)
                                  CALL distributed_vector_values_set(parameterset%PARAMETERS,dofidx,value,err,error,*999)
                                ELSE
                                  localerror="The specified data point index "// &
                                    & trim(number_to_vstring(datapointlocalnumber,"*",err,error))// &
                                    & " is not within the expected range."
                                  CALL flagerror(localerror,err,error,*999)
                                ENDIF
                              ENDIF
                            ELSE
                              localerror="The specified user element number of "// &
                                & trim(number_to_vstring(userelementnumber,"*",err,error))// &
                                & " does not exist in the decomposition for field component number "// &
                                & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                                & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Data point projection not associated on provided field.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Field decomposition topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetUpdateElementDataPointDP")
    RETURN
999 errorsexits("Field_ParameterSetUpdateElementDataPointDP",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetupdateelementdatapointdp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_initialise(FIELD_PARAMETER_SET,ERR,ERROR,*)

   !Argument variables
    TYPE(field_parameter_set_type), POINTER :: field_parameter_set
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_PARAMETER_SET_INITIALISE",err,error,*999)

    IF(ASSOCIATED(field_parameter_set)) THEN
      field_parameter_set%SET_INDEX=0
      field_parameter_set%SET_TYPE=0
    ELSE
      CALL flagerror("Field parameter set is not associated",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_INITIALISE")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_output(ID,FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,ERR,ERROR,*)

   !Argument variables
    INTEGER(INTG), INTENT(IN) :: id
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
    
    enters("FIELD_PARAMETER_SET_OUTPUT",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
              parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
              IF(ASSOCIATED(parameter_set)) THEN
                CALL distributed_vector_output(id,parameter_set%PARAMETERS,err,error,*999)
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                & " is invalid. The field parameter set type must be between 1 and "// &
                & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_OUTPUT")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_OUTPUT",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_output

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_constant_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_CONSTANT_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_CONSTANT_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_CONSTANT_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_constant_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_constant_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_CONSTANT_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."

                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_CONSTANT_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_CONSTANT_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_constant_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_constant_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_CONSTANT_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_CONSTANT_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_CONSTANT_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_constant_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_constant_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,COMPONENT_NUMBER,VALUE,ERR,ERROR,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_CONSTANT_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      IF(field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NUMBER_OF_CONSTANT_PARAMETERS>0) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%CONSTANT_PARAM2DOF_MAP
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " does not have any constant parameters."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by constant for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_CONSTANT_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_CONSTANT_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_constant_l
  
  !
  !================================================================================================================================
  !
  
  SUBROUTINE field_parametersetupdatedatapointintg(field,variableType,fieldSetType,userDataPointNumber,componentNumber,value, &
      & err,error,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: userdatapointnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decompositionlocaldatapointnumber,dofidx
    LOGICAL :: userdatapointexists,ghostdatapoint
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetUpdateDataPointIntg",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_intg_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%TOPOLOGY
                        IF(ASSOCIATED(decompositiontopology)) THEN
                          CALL decompositiontopology_datapointcheckexists(decompositiontopology,userdatapointnumber, &
                            & userdatapointexists,decompositionlocaldatapointnumber,ghostdatapoint,err,error,*999)
                          IF(userdatapointexists) THEN
                            dofidx=fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                              & data_point_param2dof_map%DATA_POINTS(decompositionlocaldatapointnumber)       
                            CALL distributed_vector_values_set(parameterset%PARAMETERS,dofidx,value,err,error,*999)
                          ELSE
                            localerror="The specified user data point number of "// &
                              & trim(number_to_vstring(userdatapointnumber,"*",err,error))// &
                              &  " does not exist in the decomposition for field component number "// &
                              & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                              & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                            CALL flagerror(localerror,err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Field decomposition topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("Field_ParameterSetUpdateDataPointIntg")
    RETURN
999 errorsexits("Field_ParameterSetUpdateDataPointIntg",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetupdatedatapointintg
  
  !
  !================================================================================================================================
  !
  
  SUBROUTINE field_parametersetupdatedatapointsp(field,variableType,fieldSetType,userDataPointNumber,componentNumber,value, & 
      & err,error,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: userdatapointnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decompositionlocaldatapointnumber,dofidx
    LOGICAL :: userdatapointexists,ghostdatapoint
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetUpdateDataPointSP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_sp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%TOPOLOGY
                        IF(ASSOCIATED(decompositiontopology)) THEN
                          CALL decompositiontopology_datapointcheckexists(decompositiontopology,userdatapointnumber, &
                            & userdatapointexists,decompositionlocaldatapointnumber,ghostdatapoint,err,error,*999)
                          IF(userdatapointexists) THEN
                            dofidx=fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                              & data_point_param2dof_map%DATA_POINTS(decompositionlocaldatapointnumber)       
                            CALL distributed_vector_values_set(parameterset%PARAMETERS,dofidx,value,err,error,*999)
                          ELSE
                            localerror="The specified user data point number of "// &
                              & trim(number_to_vstring(userdatapointnumber,"*",err,error))// &
                              &  " does not exist in the decomposition for field component number "// &
                              & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                              & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                            CALL flagerror(localerror,err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Field decomposition topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("Field_ParameterSetUpdateDataPointSP")
    RETURN
999 errorsexits("Field_ParameterSetUpdateDataPointSP",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetupdatedatapointsp
  
  !
  !================================================================================================================================
  !
  
  SUBROUTINE field_parametersetupdatedatapointdp(field,variableType,fieldSetType,userDataPointNumber,componentNumber,value, &
      & err,error,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: userdatapointnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decompositionlocaldatapointnumber,dofidx
    LOGICAL :: userdatapointexists,ghostdatapoint
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetUpdateDataPointDP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_dp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%TOPOLOGY
                        IF(ASSOCIATED(decompositiontopology)) THEN
                          CALL decompositiontopology_datapointcheckexists(decompositiontopology,userdatapointnumber, &
                            & userdatapointexists,decompositionlocaldatapointnumber,ghostdatapoint,err,error,*999)
                          IF(userdatapointexists) THEN
                            dofidx=fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                              & data_point_param2dof_map%DATA_POINTS(decompositionlocaldatapointnumber)       
                            CALL distributed_vector_values_set(parameterset%PARAMETERS,dofidx,value,err,error,*999)
                          ELSE
                            localerror="The specified user data point number of "// &
                              & trim(number_to_vstring(userdatapointnumber,"*",err,error))// &
                              &  " does not exist in the decomposition for field component number "// &
                              & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                              & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                            CALL flagerror(localerror,err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Field decomposition topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("Field_ParameterSetUpdateDataPointDP")
    RETURN
999 errorsexits("Field_ParameterSetUpdateDataPointDP",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetupdatedatapointdp
  
  !
  !================================================================================================================================
  !
  
  SUBROUTINE field_parametersetupdatedatapointl(field,variableType,fieldSetType,userDataPointNumber,componentNumber,value, &
      & err,error,*)
    
    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: userdatapointnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decompositionlocaldatapointnumber,dofidx
    LOGICAL :: userdatapointexists,ghostdatapoint
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetUpdateDataPointL",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_l_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%COMPONENTS(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      localerror="Can not Update by data point for component number "// &
                        & trim(number_to_vstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%TOPOLOGY
                        IF(ASSOCIATED(decompositiontopology)) THEN
                          CALL decompositiontopology_datapointcheckexists(decompositiontopology,userdatapointnumber, &
                            & userdatapointexists,decompositionlocaldatapointnumber,ghostdatapoint,err,error,*999)
                          IF(userdatapointexists) THEN
                            dofidx=fieldvariable%COMPONENTS(componentnumber)%PARAM_TO_DOF_MAP% &
                              & data_point_param2dof_map%DATA_POINTS(decompositionlocaldatapointnumber)       
                            CALL distributed_vector_values_set(parameterset%PARAMETERS,dofidx,value,err,error,*999)
                          ELSE
                            localerror="The specified user data point number of "// &
                              & trim(number_to_vstring(userdatapointnumber,"*",err,error))// &
                              &  " does not exist in the decomposition for field component number "// &
                              & trim(number_to_vstring(componentnumber,"*",err,error))//" of field variable type "// &
                              & trim(number_to_vstring(variabletype,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                            CALL flagerror(localerror,err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Field decomposition topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(number_to_vstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(number_to_vstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(number_to_vstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(number_to_vstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(number_to_vstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("Field_ParameterSetUpdateDataPointL")
    RETURN
999 errorsexits("Field_ParameterSetUpdateDataPointL",err,error)
    RETURN 1
  END SUBROUTINE field_parametersetupdatedatapointl

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_dof_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_INTG",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
!!TODO: Allow to specify a global number and then have it all update accordingly???
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%NUMBER_OF_LOCAL) THEN
                    CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_dof_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_dof_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_SP",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
!!TODO: Allow to specify a global number and then have it all update accordingly???
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%NUMBER_OF_LOCAL) THEN
                    CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_dof_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_dof_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_DP",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
!!TODO: Allow to specify a global number and then have it all update accordingly???
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%NUMBER_OF_LOCAL) THEN
                    CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_dof_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_dof_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DOF_NUMBER,VALUE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: dof_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_L",err,error,*999)

!!TODO: Allow multiple dof number and values updates.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
!!TODO: Allow to specify a global number and then have it all update accordingly???
                  IF(dof_number>0.AND.dof_number<=field_variable%DOMAIN_MAPPING%NUMBER_OF_LOCAL) THEN
                    CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_number,VALUE,err,error,*999)
                  ELSE
                    local_error="The field dof number of "//trim(number_to_vstring(dof_number,"*",err,error))// &
                      & " is invalid. It must be >0 and <="// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%NUMBER_OF_LOCAL,"*",err,error))// &
                      & " for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_dof_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_dofs_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VALUES,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    REAL(DP), INTENT(IN) :: values(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dof
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOFS_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  !\todo: Allow to specify a global number and then have it all update accordingly???
                  IF(SIZE(values)==field_variable%DOMAIN_MAPPING%NUMBER_OF_LOCAL) THEN
                    !\todo: set the vector values directly without looping
                    DO dof=1,field_variable%DOMAIN_MAPPING%NUMBER_OF_LOCAL
                      CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof,values(dof),err,error,*999)
                    ENDDO
                  ELSE
                    local_error="The size of the parameter vector ("//trim(number_to_vstring(SIZE(values),"*",err,error))// &
                      & ") does not match the number of dofs for this field ("// &
                      & trim(number_to_vstring(field_variable%DOMAIN_MAPPING%NUMBER_OF_LOCAL,"*",err,error))// &
                      & ".)"
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_DOF_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_dofs_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_element_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_ELEMENT_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          IF(ghost_element) THEN
                            local_error="Cannot update by element for user element "// &
                              & trim(number_to_vstring(user_element_number,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                              & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                            CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &

                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_ELEMENT_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_ELEMENT_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_element_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_element_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_ELEMENT_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          IF(ghost_element) THEN
                            local_error="Cannot update by element for user element "// &
                              & trim(number_to_vstring(user_element_number,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                              & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                            CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_ELEMENT_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_ELEMENT_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_element_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_element_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_ELEMENT_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          IF(ghost_element) THEN
                            local_error="Cannot update by element for user element "// &
                              & trim(number_to_vstring(user_element_number,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                              & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                            CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_ELEMENT_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_ELEMENT_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_element_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_element_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,USER_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: decomposition_local_element_number,dof_idx
    LOGICAL :: ghost_element,user_element_exists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_ELEMENT_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      decomposition=>field%DECOMPOSITION
                      IF(ASSOCIATED(decomposition)) THEN
                        decomposition_topology=>decomposition%TOPOLOGY
                        CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                          & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                        IF(user_element_exists) THEN
                          IF(ghost_element) THEN
                            local_error="Cannot update by element for user element "// &
                              & trim(number_to_vstring(user_element_number,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                              & element_param2dof_map%ELEMENTS(decomposition_local_element_number)
                            CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="The specified user element number of "// &
                            & trim(number_to_vstring(user_element_number,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_ELEMENT_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_ELEMENT_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_element_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetupdatelocalelementintg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,LOCAL_ELEMENT_NUMBER, &
    & component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: local_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("Field_ParameterSetUpdateLocalElementIntg",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      IF(local_element_number>0.AND.local_element_number<=field_variable%COMPONENTS(component_number)% &
                        & param_to_dof_map%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS( &
                          & local_element_number)
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Local element number "//trim(number_to_vstring(local_element_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_variable%COMPONENTS(component_number)% &
                          & param_to_dof_map%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" elements."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."

                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetUpdateLocalElementIntg")
    RETURN
999 errorsexits("Field_ParameterSetUpdateLocalElementIntg",err,error)
    RETURN 1
    
  END SUBROUTINE field_parametersetupdatelocalelementintg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_element_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,LOCAL_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: local_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_ELEMENT_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      IF(local_element_number>0.AND.local_element_number<=field_variable%COMPONENTS(component_number)% &
                        & param_to_dof_map%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS( &
                          & local_element_number)
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Local element number "//trim(number_to_vstring(local_element_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_variable%COMPONENTS(component_number)% &
                          & param_to_dof_map%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" elements."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_ELEMENT_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_ELEMENT_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_element_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_element_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,LOCAL_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: local_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_ELEMENT_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      IF(local_element_number>0.AND.local_element_number<=field_variable%COMPONENTS(component_number)% &
                        & param_to_dof_map%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS( &
                          & local_element_number)
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Local element number "//trim(number_to_vstring(local_element_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_variable%COMPONENTS(component_number)% &
                          & param_to_dof_map%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" elements."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_ELEMENT_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_ELEMENT_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_element_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_element_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,LOCAL_ELEMENT_NUMBER,COMPONENT_NUMBER, &
    & VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: local_element_number
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: ny
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_ELEMENT_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      IF(local_element_number>0.AND.local_element_number<=field_variable%COMPONENTS(component_number)% &
                        & param_to_dof_map%ELEMENT_PARAM2DOF_MAP%NUMBER_OF_ELEMENT_PARAMETERS) THEN
                        ny=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%ELEMENT_PARAM2DOF_MAP%ELEMENTS( &
                          & local_element_number)
                        CALL distributed_vector_values_set(parameter_set%PARAMETERS,ny,VALUE,err,error,*999)
                      ELSE
                        local_error="Local element number "//trim(number_to_vstring(local_element_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_variable%COMPONENTS(component_number)% &
                          & param_to_dof_map%NODE_PARAM2DOF_MAP%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" elements."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_node_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_ELEMENT_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_ELEMENT_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_element_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_finish(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,ERR,ERROR,*)

     !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_FINISH",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
              parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
              IF(ASSOCIATED(parameter_set)) THEN
                CALL distributed_vector_update_finish(parameter_set%PARAMETERS,err,error,*999)
                IF(field%TYPE==field_geometric_type.AND.field_set_type==field_values_set_type) THEN
                  !Geometric field values have changed so update the geometric parameters (e.g., lines etc.)
                  CALL field_geometric_parameters_calculate(field,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                & " is invalid. The field parameter set type must be between 1 and "// &
                & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_FINISH")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_FINISH",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_finish

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_node_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_NODE_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                            IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          IF(ghost_node) THEN
                            local_error="Cannot update by node for user node "// &
                              & trim(number_to_vstring(user_node_number,"*",err,error))//" as it is a ghost node."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            domain_nodes=>domain_topology%NODES
                            IF(ASSOCIATED(domain_nodes)) THEN
                              IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives) THEN
                                IF(version_number>0.AND.version_number<= &
                                  & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & number_of_versions) THEN
                                  dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                    & versions(version_number)
                                  CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                                ELSE
                                  local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                    & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                    & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(local_error,err,error,*999)
                                ENDIF
                              ELSE
                                local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                                  & " is invalid for user node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ENDIF
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_NODE_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_NODE_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_node_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_node_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_NODE_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                            IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          IF(ghost_node) THEN
                            local_error="Cannot update by node for user node "// &
                              & trim(number_to_vstring(user_node_number,"*",err,error))//" as it is a ghost node."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            domain_nodes=>domain_topology%NODES
                            IF(ASSOCIATED(domain_nodes)) THEN
                              IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives) THEN
                                IF(version_number>0.AND.version_number<= &
                                  & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & number_of_versions) THEN
                                  dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                    & versions(version_number)
                                  CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                                ELSE
                                  local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                    & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                    & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(local_error,err,error,*999)
                                ENDIF
                              ELSE
                                local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                                  & " is invalid for user node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ENDIF
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_NODE_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_NODE_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_node_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_node_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_NODE_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                            IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          IF(ghost_node) THEN
                            local_error="Cannot update by node for user node "// &
                              & trim(number_to_vstring(user_node_number,"*",err,error))//" as it is a ghost node."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            domain_nodes=>domain_topology%NODES
                            IF(ASSOCIATED(domain_nodes)) THEN
                              IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives) THEN
                                IF(version_number>0.AND.version_number<= &
                                  & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & number_of_versions) THEN
                                  dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                    & versions(version_number)
                                  CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                                ELSE
                                  local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                    & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                    & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(local_error,err,error,*999)
                                ENDIF
                              ELSE
                                local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                                  & " is invalid for user node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ENDIF
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_NODE_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_NODE_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_node_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_node_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & user_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: domain_local_node_number,dof_idx
    LOGICAL :: ghost_node,user_node_exists
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(domain_topology_type), POINTER :: domain_topology
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_NODE_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      domain=>field_variable%COMPONENTS(component_number)%DOMAIN
                      IF(ASSOCIATED(domain)) THEN
                        domain_topology=>domain%TOPOLOGY
                        CALL domain_topology_node_check_exists(domain_topology,user_node_number,user_node_exists, &
                          & domain_local_node_number,ghost_node,err,error,*999)
                        IF(user_node_exists) THEN
                          IF(ghost_node) THEN
                            local_error="Cannot update by node for user node "// &
                              & trim(number_to_vstring(user_node_number,"*",err,error))//" as it is a ghost node."
                            CALL flagerror(local_error,err,error,*999)
                          ELSE
                            domain_nodes=>domain_topology%NODES
                            IF(ASSOCIATED(domain_nodes)) THEN
                              IF(derivative_number>0.AND.derivative_number<=domain_nodes%NODES(domain_local_node_number)% &
                                & number_of_derivatives) THEN
                                IF(version_number>0.AND.version_number<= &
                                  & field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                  & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                  & number_of_versions) THEN
                                  dof_idx=field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP% &
                                    & node_param2dof_map%NODES(domain_local_node_number)%DERIVATIVES(derivative_number)% &
                                    & versions(version_number)
                                  CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                                ELSE
                                  local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                                    & " is invalid for derivative number "// &
                                    & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                                    & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                    & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                    & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                    & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                                    & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                    & derivatives(derivative_number)%numberOfVersions,"*",err,error))//" versions "// &
                                    & "(note version numbers are indexed directly from the value the user specifies during "// &
                                    & "element creation and no record is kept of the total number of versions the user sets."// &
                                    & "The maximum version number the user sets defines the total number of versions allocated)."
                                  CALL flagerror(local_error,err,error,*999)
                                ENDIF
                              ELSE
                                local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                                  & " is invalid for user node number "// &
                                  & trim(number_to_vstring(user_node_number,"*",err,error))//" of component number "// &
                                  & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                                  & trim(number_to_vstring(domain_nodes%NODES(domain_local_node_number)% &
                                  & number_of_derivatives,"*",err,error))//" derivatives."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ENDIF
                          ENDIF
                        ELSE
                          local_error="The specified user node number of "// &
                            & trim(number_to_vstring(user_node_number,"*",err,error))// &
                            &  " does not exist in the domain for field component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of field variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Domain is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not add element for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_NODE_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_NODE_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_node_l

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_node_intg(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & local_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: local_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dof_idx
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(field_node_param_to_dof_map_type), POINTER :: field_nodes
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_INTG",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_intg_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      field_nodes=>field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP
                      IF(local_node_number>0.AND.local_node_number<=field_nodes%NUMBER_OF_NODE_PARAMETERS) THEN
                        IF(derivative_number>0.AND.derivative_number<=field_nodes%NODES(local_node_number)% &
                          & number_of_derivatives) THEN
                          IF(version_number>0.AND.version_number<= &
                            & field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)%NUMBER_OF_VERSIONS) THEN
                            dof_idx=field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)% &
                              & versions(version_number)
                            CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ELSE
                            local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                              & " is invalid for derivative number "// &
                              & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                              & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                              & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                              & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                              & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                              & derivatives(derivative_number)%NUMBER_OF_VERSIONS,"*",err,error))//" versions "// &
                              & "(note version numbers are indexed directly from the value the user specifies during "// &
                              & "element creation and no record is kept of the total number of versions the user sets."// &
                              & "The maximum version number the user sets defines the total number of versions allocated)."
                            CALL flagerror(local_error,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                            & " is invalid for user node number "// &
                            & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                            & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                            & number_of_derivatives,"*",err,error))//" derivatives."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        local_error="Local node number "//trim(number_to_vstring(local_node_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_nodes%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" nodes."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_INTG")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_INTG",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_node_intg

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_node_sp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & local_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: local_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(SP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dof_idx
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(field_node_param_to_dof_map_type), POINTER :: field_nodes
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_SP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_sp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      field_nodes=>field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP
                      IF(local_node_number>0.AND.local_node_number<=field_nodes%NUMBER_OF_NODE_PARAMETERS) THEN
                        IF(derivative_number>0.AND.derivative_number<=field_nodes%NODES(local_node_number)% &
                          & number_of_derivatives) THEN
                          IF(version_number>0.AND.version_number<= &
                            & field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)%NUMBER_OF_VERSIONS) THEN
                            dof_idx=field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)% &
                              & versions(version_number)
                            CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ELSE
                            local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                              & " is invalid for derivative number "// &
                              & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                              & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                              & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                              & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                              & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                              & derivatives(derivative_number)%NUMBER_OF_VERSIONS,"*",err,error))//" versions "// &
                              & "(note version numbers are indexed directly from the value the user specifies during "// &
                              & "element creation and no record is kept of the total number of versions the user sets."// &
                              & "The maximum version number the user sets defines the total number of versions allocated)."
                            CALL flagerror(local_error,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                            & " is invalid for user node number "// &
                            & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                            & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                            & number_of_derivatives,"*",err,error))//" derivatives."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        local_error="Local node number "//trim(number_to_vstring(local_node_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_nodes%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" nodes."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_SP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_SP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_node_sp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_node_dp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & local_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: local_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dof_idx
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(field_node_param_to_dof_map_type), POINTER :: field_nodes
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_DP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_dp_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      field_nodes=>field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP
                      IF(local_node_number>0.AND.local_node_number<=field_nodes%NUMBER_OF_NODE_PARAMETERS) THEN
                        IF(derivative_number>0.AND.derivative_number<=field_nodes%NODES(local_node_number)% &
                          & number_of_derivatives) THEN
                          IF(version_number>0.AND.version_number<= &
                            & field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)%NUMBER_OF_VERSIONS) THEN
                            dof_idx=field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)% &
                              & versions(version_number)
                            CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ELSE
                            local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                              & " is invalid for derivative number "// &
                              & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                              & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                              & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                              & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                              & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                              & derivatives(derivative_number)%NUMBER_OF_VERSIONS,"*",err,error))//" versions "// &
                              & "(note version numbers are indexed directly from the value the user specifies during "// &
                              & "element creation and no record is kept of the total number of versions the user sets."// &
                              & "The maximum version number the user sets defines the total number of versions allocated)."
                            CALL flagerror(local_error,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                            & " is invalid for user node number "// &
                            & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                            & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                            & number_of_derivatives,"*",err,error))//" derivatives."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        local_error="Local node number "//trim(number_to_vstring(local_node_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_nodes%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" nodes."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_DP")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_DP",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_node_dp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_local_node_l(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,VERSION_NUMBER,DERIVATIVE_NUMBER, &
    & local_node_number,component_number,VALUE,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: version_number
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: local_node_number
    INTEGER(INTG), INTENT(IN) :: component_number
    LOGICAL, INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dof_idx
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(field_node_param_to_dof_map_type), POINTER :: field_nodes
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_L",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            IF(field_variable%DATA_TYPE==field_l_type) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  IF(component_number>=1.AND.component_number<=field_variable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(field_variable%COMPONENTS(component_number)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_element_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_node_based_interpolation)
                      field_nodes=>field_variable%COMPONENTS(component_number)%PARAM_TO_DOF_MAP%NODE_PARAM2DOF_MAP
                      IF(local_node_number>0.AND.local_node_number<=field_nodes%NUMBER_OF_NODE_PARAMETERS) THEN
                        IF(derivative_number>0.AND.derivative_number<=field_nodes%NODES(local_node_number)% &
                          & number_of_derivatives) THEN
                          IF(version_number>0.AND.version_number<= &
                            & field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)%NUMBER_OF_VERSIONS) THEN
                            dof_idx=field_nodes%NODES(local_node_number)%DERIVATIVES(derivative_number)% &
                              & versions(version_number)
                            CALL distributed_vector_values_set(parameter_set%PARAMETERS,dof_idx,VALUE,err,error,*999)
                          ELSE
                            local_error="Version number "//trim(number_to_vstring(version_number,"*",err,error))// &
                              & " is invalid for derivative number "// &
                              & trim(number_to_vstring(derivative_number,"*",err,error))//" of node number "// &
                              & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                              & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                              & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has a maximum of "// &
                              & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                              & derivatives(derivative_number)%NUMBER_OF_VERSIONS,"*",err,error))//" versions "// &
                              & "(note version numbers are indexed directly from the value the user specifies during "// &
                              & "element creation and no record is kept of the total number of versions the user sets."// &
                              & "The maximum version number the user sets defines the total number of versions allocated)."
                            CALL flagerror(local_error,err,error,*999)
                          ENDIF
                        ELSE
                          local_error="Derivative number "//trim(number_to_vstring(derivative_number,"*",err,error))// &
                            & " is invalid for user node number "// &
                            & trim(number_to_vstring(local_node_number,"*",err,error))//" of component number "// &
                            & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                            & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                            & trim(number_to_vstring(field_nodes%NODES(local_node_number)% &
                            & number_of_derivatives,"*",err,error))//" derivatives."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        local_error="Local node number "//trim(number_to_vstring(local_node_number,"*",err,error))// &
                          & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                          & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                          & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                          & " which has "//trim(number_to_vstring(field_nodes%NUMBER_OF_NODE_PARAMETERS,"*",err,error))//" nodes."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    CASE(field_grid_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has Gauss point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE(field_data_point_based_interpolation)
                      local_error="Can not update by node for component number "// &
                        & trim(number_to_vstring(component_number,"*",err,error))//" of variable type "// &
                        & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                        & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(local_error,err,error,*999)
                    CASE DEFAULT
                      local_error="The field component interpolation type of "//trim(number_to_vstring(field_variable% &
                        & components(component_number)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                        & " of variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                        & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(local_error,err,error,*999)
                    END SELECT
                  ELSE
                    local_error="Component number "//trim(number_to_vstring(component_number,"*",err,error))// &
                      & " is invalid for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(number_to_vstring(field_variable%NUMBER_OF_COMPONENTS,"*",err,error))// &
                      & " components."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and  "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_L")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_LOCAL_NODE_L",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_local_node_l

  !
  !================================================================================================================================
  !

!!\todo Should also think about quadrature schemes?

  SUBROUTINE field_parametersetupdategausspointintg(field,variableType,fieldSetType,gaussPointNumber,userElementNumber, &
    & componentnumber,value,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: gausspointnumber
    INTEGER(INTG), INTENT(IN) :: userelementnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    INTEGER, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx,localelementnumber
    LOGICAL :: ghostelement,userelementexists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetUpdateGaussPointIntg",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_intg_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      decomposition=>field%decomposition
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%topology
                        CALL decomposition_topology_element_check_exists(decompositiontopology,userelementnumber, &
                          & userelementexists,localelementnumber,ghostelement,err,error,*999)
                        IF(userelementexists) THEN
                          IF(ghostelement) THEN
                            localerror="Cannot update by Gauss point for user element "// &
                              & trim(numbertovstring(userelementnumber,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(localerror,err,error,*999)
                          ELSE
                            ! TODO: could check for actual # of gp
                            IF(gausspointnumber>=1.AND.gausspointnumber<= SIZE(fieldvariable% &
                              & components(componentnumber)%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS,1)) THEN
                              dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                & gauss_point_param2dof_map%GAUSS_POINTS(gausspointnumber,localelementnumber)
                              CALL distributed_vector_values_set(parameterset%parameters,dofidx,value,err,error,*999)
                            ELSE
                              localerror="The specified Gauss point number "// &
                                & trim(numbertovstring(gausspointnumber,"*",err,error))// &
                                & " is not within the expected range."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ENDIF
                        ELSE
                          localerror="The specified user element number of "// &
                            & trim(numbertovstring(userelementnumber,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(numbertovstring(componentnumber,"*",err,error))//" of field variable type "// &
                            & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                            & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(localerror,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(numbertovstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(numbertovstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(numbertovstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(numbertovstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the integer data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(numbertovstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetUpdateGaussPointIntg")
    RETURN
999 errorsexits("Field_ParameterSetUpdateGaussPointIntg",err,error)
    RETURN 1
    
  END SUBROUTINE field_parametersetupdategausspointintg

  !
  !================================================================================================================================
  !

!!\todo Should also think about quadrature schemes?

  SUBROUTINE field_parametersetupdategausspointsp(field,variableType,fieldSetType,gaussPointNumber,userElementNumber, &
    & componentnumber,value,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: gausspointnumber
    INTEGER(INTG), INTENT(IN) :: userelementnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx,localelementnumber
    LOGICAL :: ghostelement,userelementexists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetUpdateGaussPointSP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_sp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      decomposition=>field%decomposition
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%topology
                        CALL decomposition_topology_element_check_exists(decompositiontopology,userelementnumber, &
                          & userelementexists,localelementnumber,ghostelement,err,error,*999)
                        IF(userelementexists) THEN
                          IF(ghostelement) THEN
                            localerror="Cannot update by Gauss point for user element "// &
                              & trim(numbertovstring(userelementnumber,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(localerror,err,error,*999)
                          ELSE
                            ! TODO: could check for actual # of gp
                            IF(gausspointnumber>=1.AND.gausspointnumber<= SIZE(fieldvariable% &
                              & components(componentnumber)%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS,1)) THEN
                              dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                & gauss_point_param2dof_map%GAUSS_POINTS(gausspointnumber,localelementnumber)
                              CALL distributed_vector_values_set(parameterset%parameters,dofidx,value,err,error,*999)
                            ELSE
                              localerror="The specified Gauss point number "// &
                                & trim(numbertovstring(gausspointnumber,"*",err,error))// &
                                & " is not within the expected range."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ENDIF
                        ELSE
                          localerror="The specified user element number of "// &
                            & trim(numbertovstring(userelementnumber,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(numbertovstring(componentnumber,"*",err,error))//" of field variable type "// &
                            & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                            & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(localerror,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(numbertovstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(numbertovstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(numbertovstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(numbertovstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the single precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(numbertovstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetUpdateGaussPointSP")
    RETURN
999 errorsexits("Field_ParameterSetUpdateGaussPointSP",err,error)
    RETURN 1
    
  END SUBROUTINE field_parametersetupdategausspointsp

  !
  !================================================================================================================================
  !

!!\todo Should also think about quadrature schemes?

  SUBROUTINE field_parametersetupdategausspointdp(field,variableType,fieldSetType,gaussPointNumber,userElementNumber, &
    & componentnumber,value,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: gausspointnumber
    INTEGER(INTG), INTENT(IN) :: userelementnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx,localelementnumber
    LOGICAL :: ghostelement,userelementexists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetUpdateGaussPointDP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_dp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      decomposition=>field%decomposition
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%topology
                        CALL decomposition_topology_element_check_exists(decompositiontopology,userelementnumber, &
                          & userelementexists,localelementnumber,ghostelement,err,error,*999)
                        IF(userelementexists) THEN
                          IF(ghostelement) THEN
                            localerror="Cannot update by Gauss point for user element "// &
                              & trim(numbertovstring(userelementnumber,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(localerror,err,error,*999)
                          ELSE
                            ! TODO: could check for actual # of gp
                            IF(gausspointnumber>=1.AND.gausspointnumber<= SIZE(fieldvariable% &
                              & components(componentnumber)%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS,1)) THEN
                              dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                & gauss_point_param2dof_map%GAUSS_POINTS(gausspointnumber,localelementnumber)
                              CALL distributed_vector_values_set(parameterset%parameters,dofidx,value,err,error,*999)
                            ELSE
                              localerror="The specified Gauss point number "// &
                                & trim(numbertovstring(gausspointnumber,"*",err,error))// &
                                & " is not within the expected range."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ENDIF
                        ELSE
                          localerror="The specified user element number of "// &
                            & trim(numbertovstring(userelementnumber,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(numbertovstring(componentnumber,"*",err,error))//" of field variable type "// &
                            & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                            & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(localerror,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(numbertovstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(numbertovstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(numbertovstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(numbertovstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(numbertovstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetUpdateGaussPointDP")
    RETURN
999 errorsexits("Field_ParameterSetUpdateGaussPointDP",err,error)
    RETURN 1
    
  END SUBROUTINE field_parametersetupdategausspointdp

  !
  !================================================================================================================================
  !

!!\todo Should also think about quadrature schemes?

  SUBROUTINE field_parametersetupdategausspointl(field,variableType,fieldSetType,gaussPointNumber,userElementNumber, &
    & componentnumber,value,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: gausspointnumber
    INTEGER(INTG), INTENT(IN) :: userelementnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx,localelementnumber
    LOGICAL :: ghostelement,userelementexists
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetUpdateGaussPointDP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_l_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      decomposition=>field%decomposition
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%topology
                        CALL decomposition_topology_element_check_exists(decompositiontopology,userelementnumber, &
                          & userelementexists,localelementnumber,ghostelement,err,error,*999)
                        IF(userelementexists) THEN
                          IF(ghostelement) THEN
                            localerror="Cannot update by Gauss point for user element "// &
                              & trim(numbertovstring(userelementnumber,"*",err,error))//" as it is a ghost element."
                            CALL flagerror(localerror,err,error,*999)
                          ELSE
                            ! TODO: could check for actual # of gp
                            IF(gausspointnumber>=1.AND.gausspointnumber<= SIZE(fieldvariable% &
                              & components(componentnumber)%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS,1)) THEN
                              dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                & gauss_point_param2dof_map%GAUSS_POINTS(gausspointnumber,localelementnumber)
                              CALL distributed_vector_values_set(parameterset%parameters,dofidx,value,err,error,*999)
                            ELSE
                              localerror="The specified Gauss point number "// &
                                & trim(numbertovstring(gausspointnumber,"*",err,error))// &
                                & " is not within the expected range."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ENDIF
                        ELSE
                          localerror="The specified user element number of "// &
                            & trim(numbertovstring(userelementnumber,"*",err,error))// &
                            & " does not exist in the decomposition for field component number "// &
                            & trim(numbertovstring(componentnumber,"*",err,error))//" of field variable type "// &
                            & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                            & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                          CALL flagerror(localerror,err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(numbertovstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(numbertovstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(numbertovstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(numbertovstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the logical data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(numbertovstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetUpdateGaussPointL")
    RETURN
999 errorsexits("Field_ParameterSetUpdateGaussPointL",err,error)
    RETURN 1
    
  END SUBROUTINE field_parametersetupdategausspointl

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetupdatelocalgausspointdp(field,variableType,fieldSetType,gaussPointNumber,localElementNumber, &
    & componentnumber,value,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variabletype
    INTEGER(INTG), INTENT(IN) :: fieldsettype
    INTEGER(INTG), INTENT(IN) :: gausspointnumber
    INTEGER(INTG), INTENT(IN) :: localelementnumber
    INTEGER(INTG), INTENT(IN) :: componentnumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dofidx
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(decomposition_topology_type), POINTER :: decompositiontopology
    TYPE(field_parameter_set_type), POINTER :: parameterset
    TYPE(field_variable_type), POINTER :: fieldvariable
    TYPE(varying_string) :: localerror

    enters("Field_ParameterSetUpdateLocalGaussPointDP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variabletype>=1.AND.variabletype<=field_number_of_variable_types) THEN
          fieldvariable=>field%VARIABLE_TYPE_MAP(variabletype)%PTR
          IF(ASSOCIATED(fieldvariable)) THEN
            IF(fieldvariable%DATA_TYPE==field_dp_type) THEN
              IF(fieldsettype>0.AND.fieldsettype<=field_number_of_set_types) THEN
                parameterset=>fieldvariable%PARAMETER_SETS%SET_TYPE(fieldsettype)%PTR
                IF(ASSOCIATED(parameterset)) THEN
                  IF(componentnumber>=1.AND.componentnumber<=fieldvariable%NUMBER_OF_COMPONENTS) THEN
                    SELECT CASE(fieldvariable%components(componentnumber)%INTERPOLATION_TYPE)
                    CASE(field_constant_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has constant interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_element_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has element based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_node_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has node based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_grid_point_based_interpolation)
                      localerror="Can not update by Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has grid point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE(field_gauss_point_based_interpolation)
                      decomposition=>field%decomposition
                      IF(ASSOCIATED(decomposition)) THEN
                        decompositiontopology=>decomposition%topology
                        IF(ASSOCIATED(decompositiontopology)) THEN
                          IF(ASSOCIATED(decompositiontopology%elements)) THEN
                            IF(localelementnumber>=1.AND. &
                              & localelementnumber<=decompositiontopology%elements%TOTAL_NUMBER_OF_ELEMENTS) THEN
                              !!TODO: check for actual # of gp?
                              IF(gausspointnumber >= 1 .AND. gausspointnumber <= SIZE(fieldvariable% & 
                                & components(componentnumber)%PARAM_TO_DOF_MAP%GAUSS_POINT_PARAM2DOF_MAP%GAUSS_POINTS,1)) THEN
                                dofidx=fieldvariable%components(componentnumber)%PARAM_TO_DOF_MAP% &
                                  & gauss_point_param2dof_map%GAUSS_POINTS(gausspointnumber,localelementnumber)
                                CALL distributed_vector_values_set(parameterset%parameters,dofidx,value,err,error,*999)
                              ELSE
                                localerror="The specified gauss point number "// &
                                  & trim(numbertovstring(gausspointnumber,"*",err,error))// &
                                  & " is not within the expected range."
                                CALL flagerror(localerror,err,error,*999)
                              ENDIF
                            ELSE
                              localerror="Local element number "//trim(numbertovstring(localelementnumber,"*",err,error))// &
                                & " is invalid. The local element number must be >=1 and <= "// &
                                & trim(numbertovstring(decompositiontopology%elements%TOTAL_NUMBER_OF_ELEMENTS,"*",err,error))//"."
                              CALL flagerror(localerror,err,error,*999)
                            ENDIF
                          ELSE
                            CALL flagerror("Decomposition topology elements is not associated.",err,error,*999)
                          ENDIF
                        ELSE
                          CALL flagerror("Decomposition topology is not associated.",err,error,*999)
                        ENDIF
                      ELSE
                        CALL flagerror("Field decomposition is not associated.",err,error,*999)
                      ENDIF
                    CASE(field_data_point_based_interpolation)
                      localerror="Can not update by local Gauss point for component number "// &
                        & trim(numbertovstring(componentnumber,"*",err,error))//" of variable type "// &
                        & trim(numbertovstring(variabletype,"*",err,error))//" of field number "// &
                        & trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has data point based interpolation."
                      CALL flagerror(localerror,err,error,*999)
                    CASE DEFAULT
                      localerror="The field component interpolation type of "//trim(numbertovstring(fieldvariable% &
                        & components(componentnumber)%INTERPOLATION_TYPE,"*",err,error))// &
                        & " is invalid for component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                        & " of variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                        & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
                      CALL flagerror(localerror,err,error,*999)
                    END SELECT
                  ELSE
                    localerror="Component number "//trim(numbertovstring(componentnumber,"*",err,error))// &
                      & " is invalid for variable type "//trim(numbertovstring(variabletype,"*",err,error))// &
                      & " of field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" which has "// &
                      & trim(numbertovstring(fieldvariable%NUMBER_OF_COMPONENTS,"*",err,error))//" components."
                    CALL flagerror(localerror,err,error,*999)
                  ENDIF
                ELSE
                  localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                    & " has not been created on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))
                  CALL flagerror(localerror,err,error,*999)
                ENDIF
              ELSE
                localerror="The field parameter set type of "//trim(numbertovstring(fieldsettype,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(numbertovstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(localerror,err,error,*999)
              ENDIF
            ELSE
              localerror="The field variable data type of "//trim(numbertovstring(fieldvariable%DATA_TYPE,"*",err,error))// &
                & " does not correspond to the double precision data type of the given value."
              CALL flagerror(localerror,err,error,*999)
            ENDIF
          ELSE
            localerror="The specified field variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
              & " has not been defined on field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="The specified variable type of "//trim(numbertovstring(variabletype,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(numbertovstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="Field number "//trim(numbertovstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetUpdateLocalGaussPointDP")
    RETURN
999 errorsexits("Field_ParameterSetUpdateLocalGaussPointDP",err,error)
    RETURN 1
    
  END SUBROUTINE field_parametersetupdatelocalgausspointdp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetinterpolatesinglexidp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DERIVATIVE_NUMBER, &
    & user_element_number,xi,values,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_element_number
    REAL(DP), INTENT(IN) :: xi(:)
    REAL(DP), INTENT(OUT) :: values(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_interpolation_parameters_ptr_type), POINTER :: interpolated_parameters(:)
    TYPE(field_interpolated_point_ptr_type), POINTER :: interpolated_point(:)
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(domain_elements_type), POINTER :: domain_elements
    TYPE(field_variable_type), POINTER :: field_variable
    INTEGER(INTG) :: numberofcomponents
    TYPE(varying_string) :: local_error

    enters("Field_ParameterSetInterpolateSingleXiDP",err,error,*999)

    NULLIFY(interpolated_parameters)
    NULLIFY(interpolated_point)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        decomposition=>field%DECOMPOSITION
        IF(ASSOCIATED(decomposition)) THEN
          IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
            field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
            IF(ASSOCIATED(field_variable)) THEN
              IF(field_variable%DATA_TYPE==field_dp_type) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  domain_elements=>field_variable%COMPONENTS(decomposition%MESH_COMPONENT_NUMBER)%DOMAIN%TOPOLOGY%ELEMENTS
                  IF(user_element_number>0.AND.user_element_number<=domain_elements%NUMBER_OF_ELEMENTS) THEN
                    CALL field_interpolation_parameters_initialise(field,interpolated_parameters,err,error,*999)
                    CALL field_interpolated_points_initialise(interpolated_parameters,interpolated_point,err,error,*999)
                    CALL field_interpolation_parameters_element_get(field_values_set_type,user_element_number, &
                      & interpolated_parameters(variable_type)%PTR,err,error,*999)
                    CALL field_number_of_components_get(field,variable_type,numberofcomponents,err,error,*999)
                    IF(SIZE(values)==numberofcomponents) THEN
                      IF(SIZE(xi)==domain_elements%ELEMENTS(user_element_number)%BASIS%NUMBER_OF_XI) THEN
                        CALL field_interpolate_xi(derivative_number,xi(:),interpolated_point(variable_type)%PTR, &
                          & err,error,*999)
                        values(1:numberofcomponents)=interpolated_point(variable_type)%PTR% &
                          & values(1:numberofcomponents,derivative_number)
                      ELSE
                        local_error="The specified xi to interpolate the field at are invalid. "// &
                          & "The supplied size is "// &
                          & trim(number_to_vstring(SIZE(xi),"*",err,error))//" and should be "// &
                          & trim(number_to_vstring(domain_elements%ELEMENTS(user_element_number)%BASIS%NUMBER_OF_XI,"*", &
                          & err,error))//" for this field."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    ELSE
                      local_error="The number of the coordinate values to return the interpolated field to is invalid. "// &
                        & "The supplied size is "//trim(number_to_vstring(SIZE(values),"*",err,error))//" and should be "// &
                        & trim(number_to_vstring(numberofcomponents,"*", &
                        & err,error))//" for this field."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                    !Finalise the interpolated point and parameters
                    CALL field_interpolated_points_finalise(interpolated_point,err,error,*999)
                    CALL field_interpolation_parameters_finalise(interpolated_parameters,err,error,*999)
                  ELSE
                    local_error="The specified element number of "//trim(number_to_vstring(user_element_number,"*",err,error))// &
                      & " is invalid. The element number must be between 1 and "// &
                      & trim(number_to_vstring(domain_elements%NUMBER_OF_ELEMENTS,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " does not correspond to the double precision data type of the given value."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and  "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
            CALL flagerror("Field decomposition is not associated.",err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetInterpolateSingleXiDP")
    RETURN
999 errorsexits("Field_ParameterSetInterpolateSingleXiDP",err,error)
    RETURN 1
    
  END SUBROUTINE field_parametersetinterpolatesinglexidp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetinterpolatemultiplexidp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DERIVATIVE_NUMBER, &
    & user_element_number,xi,values,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_element_number
    REAL(DP), INTENT(IN) :: xi(:,:)
    REAL(DP), INTENT(OUT) :: values(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: xi_set
    TYPE(field_interpolation_parameters_ptr_type), POINTER :: interpolated_parameters(:)
    TYPE(field_interpolated_point_ptr_type), POINTER :: interpolated_point(:)
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(domain_elements_type), POINTER :: domain_elements
    TYPE(field_variable_type), POINTER :: field_variable
    INTEGER(INTG) :: numberofcomponents
    TYPE(varying_string) :: local_error

    enters("Field_ParameterSetInterpolateMultipleXiDP",err,error,*999)

    NULLIFY(interpolated_parameters)
    NULLIFY(interpolated_point)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        decomposition=>field%DECOMPOSITION
        IF(ASSOCIATED(decomposition)) THEN
          IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
            field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
            IF(ASSOCIATED(field_variable)) THEN
              IF(field_variable%DATA_TYPE==field_dp_type) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  domain_elements=>field_variable%COMPONENTS(decomposition%MESH_COMPONENT_NUMBER)%DOMAIN%TOPOLOGY%ELEMENTS
                  IF(user_element_number>0.AND.user_element_number<=domain_elements%NUMBER_OF_ELEMENTS) THEN
                    CALL field_interpolation_parameters_initialise(field,interpolated_parameters,err,error,*999)
                    CALL field_interpolated_points_initialise(interpolated_parameters,interpolated_point,err,error,*999)
                    CALL field_interpolation_parameters_element_get(field_values_set_type,user_element_number, &
                      & interpolated_parameters(variable_type)%PTR,err,error,*999)
                    CALL field_number_of_components_get(field,variable_type,numberofcomponents,err,error,*999)
                    IF(SIZE(values,1)==numberofcomponents) THEN
                      IF(SIZE(xi,1)==domain_elements%ELEMENTS(user_element_number)%BASIS%NUMBER_OF_XI) THEN
                        IF(SIZE(values,2)==SIZE(xi,2)) THEN
                          DO xi_set=1,SIZE(xi,2)
                            CALL field_interpolate_xi(derivative_number,xi(:,xi_set),interpolated_point(variable_type)%PTR, &
                              & err,error,*999)
                            values(1:numberofcomponents,xi_set)=interpolated_point(variable_type)%PTR% &
                              & values(1:numberofcomponents,derivative_number)
                          ENDDO
                        ELSE
                          local_error="The number of xi sets in the field interpolated values output array is "// &
                            & "not the same as the number to be interpolated."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        local_error="The specified xi values to interpolate the field at are invalid. "// &
                          & "The supplied size is "// &
                          & trim(number_to_vstring(SIZE(xi,1),"*",err,error))//" and should be "// &
                          & trim(number_to_vstring(domain_elements%ELEMENTS(user_element_number)%BASIS%NUMBER_OF_XI,"*", &
                          & err,error))//" for this field."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    ELSE
                      local_error="The number of the coordinate values to return the interpolated field to is invalid. "// &
                        & "The supplied size is "//trim(number_to_vstring(SIZE(values,1),"*",err,error))//" and should be "// &
                        & trim(number_to_vstring(numberofcomponents,"*",err,error))//" for this field."
                      CALL flagerror(local_error,err,error,*999)
                    ENDIF
                    !Finalise the interpolated point and parameters
                    CALL field_interpolated_points_finalise(interpolated_point,err,error,*999)
                    CALL field_interpolation_parameters_finalise(interpolated_parameters,err,error,*999)
                  ELSE
                    local_error="The specified element number of "//trim(number_to_vstring(user_element_number,"*",err,error))// &
                      & " is invalid. The element number must be between 1 and "// &
                      & trim(number_to_vstring(domain_elements%NUMBER_OF_ELEMENTS,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " does not correspond to the double precision data type of the given value."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and  "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
            CALL flagerror("Field decomposition is not associated.",err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetInterpolateMultipleXiDP")
    RETURN
999 errorsexits("Field_ParameterSetInterpolateMultipleXiDP",err,error)
    RETURN 1
    
  END SUBROUTINE field_parametersetinterpolatemultiplexidp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetinterpolatesinglegaussdp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DERIVATIVE_NUMBER, &
    & user_element_number,scheme,gauss_point,values,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: scheme
    INTEGER(INTG), INTENT(IN) :: gauss_point
    REAL(DP), INTENT(OUT) :: values(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(quadrature_scheme_type), POINTER :: quadrature_scheme
    TYPE(field_interpolation_parameters_ptr_type), POINTER :: interpolated_parameters(:)
    TYPE(field_interpolated_point_ptr_type), POINTER :: interpolated_point(:)
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(domain_elements_type), POINTER :: domain_elements
    TYPE(field_variable_type), POINTER :: field_variable
    INTEGER(INTG) :: numberofcomponents
    TYPE(varying_string) :: local_error

    enters("Field_ParameterSetInterpolateSingleGaussDP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        decomposition=>field%DECOMPOSITION
        IF(ASSOCIATED(decomposition)) THEN
          IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
            field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
            IF(ASSOCIATED(field_variable)) THEN
              IF(field_variable%DATA_TYPE==field_dp_type) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  domain_elements=>field_variable%COMPONENTS(decomposition%MESH_COMPONENT_NUMBER)%DOMAIN%TOPOLOGY%ELEMENTS
                  IF(user_element_number>0.AND.user_element_number<=domain_elements%NUMBER_OF_ELEMENTS) THEN
                    CALL field_interpolation_parameters_initialise(field,interpolated_parameters,err,error,*999)
                    CALL field_interpolated_points_initialise(interpolated_parameters,interpolated_point,err,error,*999)
                    CALL field_interpolation_parameters_element_get(field_values_set_type,user_element_number, &
                      & interpolated_parameters(variable_type)%PTR,err,error,*999)
                    CALL field_number_of_components_get(field,variable_type,numberofcomponents,err,error,*999)
                    quadrature_scheme=>domain_elements%ELEMENTS(user_element_number)%BASIS%QUADRATURE% &
                      & quadrature_scheme_map(scheme)%PTR
                    IF(ASSOCIATED(quadrature_scheme)) THEN
                      IF(SIZE(values)==numberofcomponents) THEN
                        IF(gauss_point>0.AND.gauss_point<=quadrature_scheme%NUMBER_OF_GAUSS) THEN
                          CALL field_interpolate_gauss(derivative_number,scheme,gauss_point, &
                            & interpolated_point(variable_type)%PTR,err,error,*999)
                          values(1:numberofcomponents)=interpolated_point(variable_type)%PTR% &
                            & values(1:numberofcomponents,derivative_number)
                        ELSE
                          local_error="The specified Gauss point number of "// & 
                            & trim(number_to_vstring(gauss_point,"*",err,error))//"is invalid for "// &
                            & "the specified quadrature scheme of the specified element for this field which has "// &
                            & trim(number_to_vstring(quadrature_scheme%NUMBER_OF_GAUSS,"*",err,error))//" Gauss points."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        local_error="The number of the coordinate values to return the interpolated field to is invalid. "// &
                          & "The supplied size is "//trim(number_to_vstring(SIZE(values),"*",err,error))//" and should be "// &
                          & trim(number_to_vstring(numberofcomponents,"*",err,error))//" for this field."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    ELSE
                      CALL flagerror("The specified quadrature scheme is not associated the specified element's basis.", &
                        & err,error,*999)
                    ENDIF
                    !Finalise the interpolated point and parameters
                    CALL field_interpolated_points_finalise(interpolated_point,err,error,*999)
                    CALL field_interpolation_parameters_finalise(interpolated_parameters,err,error,*999)
                  ELSE
                    local_error="The specified element number of "//trim(number_to_vstring(user_element_number,"*",err,error))// &
                      & " is invalid. The element number must be between 1 and "// &
                      & trim(number_to_vstring(domain_elements%NUMBER_OF_ELEMENTS,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " does not correspond to the double precision data type of the given value."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and  "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
            CALL flagerror("Field decomposition is not associated.",err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetInterpolateSingleGaussDP")
    RETURN
999 errorsexits("Field_ParameterSetInterpolateSingleGaussDP",err,error)
    RETURN 1
    
  END SUBROUTINE field_parametersetinterpolatesinglegaussdp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parametersetinterpolatemultiplegaussdp(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DERIVATIVE_NUMBER, &
    & user_element_number,scheme,gauss_points,values,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(IN) :: derivative_number
    INTEGER(INTG), INTENT(IN) :: user_element_number
    INTEGER(INTG), INTENT(IN) :: scheme
    INTEGER(INTG), INTENT(IN) :: gauss_points(:)
    REAL(DP), INTENT(OUT) :: values(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: gauss_point
    INTEGER(INTG) :: decomposition_local_element_number
    LOGICAL :: ghost_element,user_element_exists
    TYPE(quadrature_scheme_type), POINTER :: quadrature_scheme
    TYPE(field_interpolation_parameters_ptr_type), POINTER :: interpolated_parameters(:)
    TYPE(field_interpolated_point_ptr_type), POINTER :: interpolated_point(:)
    TYPE(decomposition_topology_type), POINTER :: decomposition_topology
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(domain_elements_type), POINTER :: domain_elements
    TYPE(field_variable_type), POINTER :: field_variable
    INTEGER(INTG) :: numberofcomponents
    TYPE(varying_string) :: local_error

    enters("Field_ParameterSetInterpolateMultipleGaussDP",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        decomposition=>field%DECOMPOSITION
        IF(ASSOCIATED(decomposition)) THEN
          IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
            field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
            IF(ASSOCIATED(field_variable)) THEN
              IF(field_variable%DATA_TYPE==field_dp_type) THEN
                IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                  domain_elements=>field_variable%COMPONENTS(decomposition%MESH_COMPONENT_NUMBER)%DOMAIN%TOPOLOGY%ELEMENTS
                  decomposition_topology=>decomposition%TOPOLOGY
                  CALL decomposition_topology_element_check_exists(decomposition_topology,user_element_number, &
                    & user_element_exists,decomposition_local_element_number,ghost_element,err,error,*999)
                  IF(user_element_exists) THEN
                    CALL field_interpolation_parameters_initialise(field,interpolated_parameters,err,error,*999)
                    CALL field_interpolated_points_initialise(interpolated_parameters,interpolated_point,err,error,*999)
                    CALL field_interpolation_parameters_element_get(field_values_set_type,decomposition_local_element_number, &
                      & interpolated_parameters(variable_type)%PTR,err,error,*999)
                    CALL field_number_of_components_get(field,variable_type,numberofcomponents,err,error,*999)
                    quadrature_scheme=>domain_elements%ELEMENTS(decomposition_local_element_number)%BASIS%QUADRATURE% &
                      & quadrature_scheme_map(scheme)%PTR
                    IF(ASSOCIATED(quadrature_scheme)) THEN
                      IF(SIZE(values,1)==numberofcomponents) THEN
                        IF(SIZE(gauss_points)==0) THEN !Interpolate all Gauss points.
                          IF(SIZE(values,2)==quadrature_scheme%NUMBER_OF_GAUSS) THEN
                            DO gauss_point=1,quadrature_scheme%NUMBER_OF_GAUSS
                              CALL field_interpolate_gauss(derivative_number,scheme,gauss_point, &
                                & interpolated_point(variable_type)%PTR,err,error,*999)
                              values(1:numberofcomponents,gauss_point)=interpolated_point(variable_type)%PTR% &
                                & values(1:numberofcomponents,derivative_number)
                            ENDDO
                          ELSE
                            local_error="The number of Gauss points in the field interpolated values output array is "// & 
                              & "invalid. For returning the interpolated field values at all element Gauss points, the "//&
                              & "output array is required to be allocated for "// &
                              & trim(number_to_vstring(quadrature_scheme%NUMBER_OF_GAUSS,"*",err,error))// &
                              & " Gauss points for the specified quadrature scheme."
                            CALL flagerror(local_error,err,error,*999)
                          ENDIF
                        ELSE !Interpolate only at the specified Gauss points.
                          IF(SIZE(values,2)==SIZE(gauss_points)) THEN
                            DO gauss_point=1,SIZE(gauss_points)
                              IF(gauss_points(gauss_point)>0.AND.gauss_points(gauss_point)<=quadrature_scheme% &
                                & number_of_gauss) THEN
                                CALL field_interpolate_gauss(derivative_number,scheme,gauss_points(gauss_point), &
                                  & interpolated_point(variable_type)%PTR,err,error,*999)
                                values(:,gauss_point)=interpolated_point(variable_type)%PTR%VALUES(:,derivative_number)
                              ELSE
                                local_error="The specified Gauss point number of "// & 
                                  & trim(number_to_vstring(gauss_points(gauss_point),"*",err,error))//"is invalid for "// &
                                  & "the specified quadrature scheme of the specified element for this field which has "// &
                                  & trim(number_to_vstring(quadrature_scheme%NUMBER_OF_GAUSS,"*",err,error))//" Gauss points."
                                CALL flagerror(local_error,err,error,*999)
                              ENDIF
                            ENDDO
                          ELSE
                            local_error="The number of Gauss points in the field interpolated values output array is "// &
                              & "not the same as the number to be interpolated."
                            CALL flagerror(local_error,err,error,*999)
                          ENDIF
                        ENDIF
                      ELSE
                        local_error="The number of the coordinate values to return the interpolated field to is invalid. "// &
                          & "The supplied size is "//trim(number_to_vstring(SIZE(values,1),"*",err,error))//" and should be "// &
                          & trim(number_to_vstring(numberofcomponents,"*",err,error))//" for this field."
                        CALL flagerror(local_error,err,error,*999)
                      ENDIF
                    ELSE
                      CALL flagerror("The specified quadrature scheme is not associated the specified element's basis.", &
                        & err,error,*999)
                    ENDIF
                    !Finalise the interpolated point and parameters
                    CALL field_interpolated_points_finalise(interpolated_point,err,error,*999)
                    CALL field_interpolation_parameters_finalise(interpolated_parameters,err,error,*999)
                  ELSE
                    local_error="The specified user element number of "// &
                      & trim(number_to_vstring(user_element_number,"*",err,error))// &
                      & " does not exist in the decomposition for field variable type "// &
                      & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                      & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                    CALL flagerror(local_error,err,error,*999)
                  ENDIF
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " is invalid. The field parameter set type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field variable data type of "//trim(number_to_vstring(field_variable%DATA_TYPE,"*",err,error))// &
                  & " does not correspond to the double precision data type of the given value."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The specified field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and  "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
            CALL flagerror("Field decomposition is not associated.",err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("Field_ParameterSetInterpolateMultipleGaussDP")
    RETURN
999 errors("Field_ParameterSetInterpolateMultipleGaussDP",err,error)
    exits("Field_ParameterSetInterpolateMultipleGaussDP")
    RETURN 1
    
  END SUBROUTINE field_parametersetinterpolatemultiplegaussdp

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_update_start(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_UPDATE_START",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
        field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
        IF(ASSOCIATED(field_variable)) THEN
          IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
            parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
            IF(ASSOCIATED(parameter_set)) THEN
              CALL distributed_vector_update_start(parameter_set%PARAMETERS,err,error,*999)
            ELSE
              local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
              & " is invalid. The field parameter set type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
          & " is invalid. The variable type must be between 1 and "// &
          & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_UPDATE_START")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_UPDATE_START",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_update_start

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_vector_get(FIELD,VARIABLE_TYPE,FIELD_SET_TYPE,DISTRIBUTED_VECTOR,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(IN) :: field_set_type
    TYPE(distributed_vector_type), POINTER :: distributed_vector
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_parameter_set_type), POINTER :: parameter_set
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error

    enters("FIELD_PARAMETER_SET_VECTOR_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(distributed_vector)) THEN
        CALL flagerror("Distributed vector is already associated.",err,error,*999)
      ELSE
        NULLIFY(distributed_vector)
        IF(field%FIELD_FINISHED) THEN
          IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
            field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
            IF(ASSOCIATED(field_variable)) THEN
              IF(field_set_type>0.AND.field_set_type<=field_number_of_set_types) THEN
                parameter_set=>field_variable%PARAMETER_SETS%SET_TYPE(field_set_type)%PTR
                IF(ASSOCIATED(parameter_set)) THEN
                  distributed_vector=>parameter_set%PARAMETERS
                  IF(.NOT.ASSOCIATED(distributed_vector)) &
                    & CALL flagerror("Call parameter set distributed vector is not associated.",err,error,*999)
                ELSE
                  local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                    & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)
                ENDIF
              ELSE
                local_error="The field parameter set type of "//trim(number_to_vstring(field_set_type,"*",err,error))// &
                  & " is invalid. The field parameter set type must be between 1 and "// &
                  & trim(number_to_vstring(field_number_of_set_types,"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
            & " has not been finished."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_PARAMETER_SET_VECTOR_GET")
    RETURN
999 errorsexits("FIELD_PARAMETER_SET_VECTOR_GET",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_vector_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_sets_finalise(FIELD_VARIABLE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_variable_type) :: field_variable
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: parameter_set_idx

    enters("FIELD_PARAMETER_SETS_FINALISE",err,error,*999)

    IF(ASSOCIATED(field_variable%PARAMETER_SETS%SET_TYPE)) DEALLOCATE(field_variable%PARAMETER_SETS%SET_TYPE)
    IF(ASSOCIATED(field_variable%PARAMETER_SETS%PARAMETER_SETS)) THEN
      DO parameter_set_idx=1,SIZE(field_variable%PARAMETER_SETS%PARAMETER_SETS,1)
        CALL field_parameter_set_finalise(field_variable%PARAMETER_SETS%PARAMETER_SETS(parameter_set_idx)%PTR,err,error,*999)
      ENDDO !parameter_set_idx
      DEALLOCATE(field_variable%PARAMETER_SETS%PARAMETER_SETS)
    ENDIF
    field_variable%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS=0

    exits("FIELD_PARAMETER_SETS_FINALISE")
    RETURN
999 errorsexits("FIELD_PARAMETER_SETS_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_sets_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_sets_initialise(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: dummy_err,parameter_set_idx,variable_idx
    TYPE(varying_string) :: dummy_error

    enters("FIELD_PARAMETER_SETS_INITIALISE",err,error,*998)

    IF(ASSOCIATED(field)) THEN
      DO variable_idx=1,field%NUMBER_OF_VARIABLES        
        field%VARIABLES(variable_idx)%PARAMETER_SETS%FIELD_VARIABLE=>field%VARIABLES(variable_idx)
        field%VARIABLES(variable_idx)%PARAMETER_SETS%NUMBER_OF_PARAMETER_SETS=0
        NULLIFY(field%VARIABLES(variable_idx)%PARAMETER_SETS%PARAMETER_SETS)
        ALLOCATE(field%VARIABLES(variable_idx)%PARAMETER_SETS%SET_TYPE(field_number_of_set_types),stat=err)
        IF(err/=0) CALL flagerror("Could not allocate field parameter sets set types.",err,error,*999)
        DO parameter_set_idx=1,field_number_of_set_types
          NULLIFY(field%VARIABLES(variable_idx)%PARAMETER_SETS%SET_TYPE(parameter_set_idx)%PTR)
        ENDDO !parameter_set_idx
        !Create a field values parameter set
        CALL field_parameter_set_create(field,field%VARIABLES(variable_idx)%VARIABLE_TYPE,field_values_set_type,err,error,*999)
      ENDDO !variable_idx
    ELSE
      CALL flagerror("Field is not associated.",err,error,*998)
    ENDIF

    exits("FIELD_PARAMETER_SETS_INITIALISE")
    RETURN
999 DO variable_idx=1,field_number_of_variable_types
      IF(ASSOCIATED(field%VARIABLE_TYPE_MAP(variable_idx)%PTR)) &
        & CALL field_parameter_sets_finalise(field%VARIABLE_TYPE_MAP(variable_idx)%PTR,dummy_err,dummy_error,*998)
    ENDDO !variable_idx
998 errorsexits("FIELD_PARAMETER_SETS_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_sets_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_region_get(FIELD,REGION,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(interface_type), POINTER :: interface
    TYPE(region_type), POINTER :: parent_region
    TYPE(varying_string) :: local_error

    enters("FIELD_REGION_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(region)) THEN
        CALL flagerror("Region is already associated.",err,error,*999)
      ELSE
        NULLIFY(region)
        NULLIFY(interface)
        region=>field%REGION
        IF(.NOT.ASSOCIATED(region)) THEN          
          interface=>field%INTERFACE
          IF(ASSOCIATED(interface)) THEN
            parent_region=>interface%PARENT_REGION
            IF(ASSOCIATED(parent_region)) THEN
              region=>parent_region              
            ELSE
              local_error="The parent region not associated for field number "// &
                & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" of interface number "// &
                & trim(number_to_vstring(interface%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The region or interface is not associated for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_REGION_GET")
    RETURN
999 errorsexits("FIELD_REGION_GET",err,error)
    RETURN 1
  END SUBROUTINE field_region_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_scaling_finalise(FIELD,SCALING_INDEX,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: scaling_index
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_SCALING_FINALISE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(scaling_index>0.AND.scaling_index<=field%SCALINGS%NUMBER_OF_SCALING_INDICES) THEN
        !IF(ALLOCATED(FIELD%SCALINGS%SCALINGS(SCALING_INDEX)%SCALE_FACTORS))  &
        !  & DEALLOCATE(FIELD%SCALINGS%SCALINGS(SCALING_INDEX)%SCALE_FACTORS)
        IF(ASSOCIATED(field%SCALINGS%SCALINGS(scaling_index)%SCALE_FACTORS)) &
          & CALL distributed_vector_destroy(field%SCALINGS%SCALINGS(scaling_index)%SCALE_FACTORS,err,error,*999)
      ELSE
        local_error="The scaling index of "//trim(number_to_vstring(scaling_index,"*",err,error))// &
          & " is invalid for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " which has "//trim(number_to_vstring(field%SCALINGS%NUMBER_OF_SCALING_INDICES,"*",err,error))// &
          & " scaling indices."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_SCALING_FINALISE")
    RETURN
999 errorsexits("FIELD_SCALING_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_scaling_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_scaling_initialise(FIELD,SCALING_INDEX,MESH_COMPONENT_NUMBER,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: scaling_index
    INTEGER(INTG), INTENT(IN) :: mesh_component_number
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_SCALING_INITIALISE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(scaling_index>0.AND.scaling_index<=field%SCALINGS%NUMBER_OF_SCALING_INDICES) THEN
        IF(mesh_component_number>0.AND.mesh_component_number<=field%DECOMPOSITION%MESH%NUMBER_OF_COMPONENTS) THEN
          field%SCALINGS%SCALINGS(scaling_index)%MESH_COMPONENT_NUMBER=mesh_component_number
          field%SCALINGS%SCALINGS(scaling_index)%MAX_NUMBER_OF_ELEMENT_PARAMETERS=field%DECOMPOSITION% &
            & domain(mesh_component_number)%PTR%TOPOLOGY%ELEMENTS%MAXIMUM_NUMBER_OF_ELEMENT_PARAMETERS
          field%SCALINGS%SCALINGS(scaling_index)%MAX_NUMBER_OF_DERIVATIVES=field%DECOMPOSITION% &
            & domain(mesh_component_number)%PTR%TOPOLOGY%NODES%MAXIMUM_NUMBER_OF_DERIVATIVES
          NULLIFY(field%SCALINGS%SCALINGS(scaling_index)%SCALE_FACTORS)
          SELECT CASE(field%SCALINGS%SCALING_TYPE)
          CASE(field_no_scaling)
            !Do nothing
          CASE(field_unit_scaling,field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
            !ALLOCATE(FIELD%SCALINGS%SCALINGS(SCALING_INDEX)%SCALE_FACTORS(FIELD%SCALINGS%SCALINGS(SCALING_INDEX)% &
            !  & MAX_NUMBER_OF_DERIVATIVES,FIELD%DECOMPOSITION%DOMAIN(MESH_COMPONENT_NUMBER)%PTR%TOPOLOGY% &
            !  & NODES%TOTAL_NUMBER_OF_NODES),STAT=ERR)
            !IF(ERR/=0) CALL FlagError("Could not allocate scale factors",ERR,ERROR,*999)
            !FIELD%SCALINGS%SCALINGS(SCALING_INDEX)%SCALE_FACTORS=1.0_DP
            CALL distributed_vector_create_start(field%DECOMPOSITION%DOMAIN(mesh_component_number)%PTR%MAPPINGS%DOFS, &
              & field%SCALINGS%SCALINGS(scaling_index)%SCALE_FACTORS,err,error,*999)
            CALL distributed_vector_data_type_set(field%SCALINGS%SCALINGS(scaling_index)%SCALE_FACTORS, &
              & distributed_matrix_vector_dp_type,err,error,*999)
            CALL distributed_vector_create_finish(field%SCALINGS%SCALINGS(scaling_index)%SCALE_FACTORS,err,error,*999)
            IF(field%TYPE==field_geometric_type) THEN
              !Initialise the scalings to 1.0 for a geometric field. Other field types will be setup in FIELD_SCALINGS_CALCULATE
              CALL distributed_vector_all_values_set(field%SCALINGS%SCALINGS(scaling_index)%SCALE_FACTORS,1.0_dp,err,error,*999)
            ENDIF
          CASE(field_arc_length_scaling)
            CALL flagerror("Not implemented.",err,error,*999)
          CASE DEFAULT
            local_error="The scaling type of "//trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &
              & " is invalid for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          END SELECT
        ELSE
          local_error="The mesh component number of "//trim(number_to_vstring(scaling_index,"*",err,error))// &
            & " is invalid for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
            & " which is associated with a mesh which has "//trim(number_to_vstring(field%DECOMPOSITION% &
            & mesh%NUMBER_OF_COMPONENTS,"*",err,error))//" mesh components."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="The scaling index of "//trim(number_to_vstring(scaling_index,"*",err,error))// &
          & " is invalid for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " which has "//trim(number_to_vstring(field%SCALINGS%NUMBER_OF_SCALING_INDICES,"*",err,error))// &
          & " scaling indices."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_SCALING_INITIALISE")
    RETURN
999 errorsexits("FIELD_SCALING_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_scaling_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_scalings_calculate(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: mesh_component_number,xi_direction,ni1,ni2,version_idx,derivative_idx,nk2,local_node_line_idx, &
      & adjacent_local_node_line_idx,node_line_idx,node_idx,partial_derivative_idx,nu1,nu2,dof_idx,ny1,ny2,ny3,scaling_idx
    REAL(DP) :: length1,length2,mean_length,temp,number_of_line_versions1,number_of_line_versions2,value
    REAL(DP), POINTER :: scale_factors(:)
    LOGICAL :: found
    TYPE(decomposition_lines_type), POINTER :: decomposition_lines
    TYPE(domain_type), POINTER :: domain
    TYPE(domain_lines_type), POINTER :: domain_lines
    TYPE(domain_nodes_type), POINTER :: domain_nodes
    TYPE(field_type), POINTER :: geometric_field
    TYPE(field_scaling_type), POINTER :: field_scaling
    TYPE(field_scalings_type), POINTER :: field_scalings
    TYPE(varying_string) :: local_error

    enters("FIELD_SCALINGS_CALCULATE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      field_scalings=>field%SCALINGS
      IF(ASSOCIATED(field_scalings)) THEN
        geometric_field=>field%GEOMETRIC_FIELD
        IF(ASSOCIATED(geometric_field)) THEN
          SELECT CASE(field_scalings%SCALING_TYPE)
          CASE(field_no_scaling)
            !Do nothing
            NULLIFY(domain)
          CASE(field_unit_scaling)
            DO scaling_idx=1,field_scalings%NUMBER_OF_SCALING_INDICES
              field_scaling=>field_scalings%SCALINGS(scaling_idx)
              mesh_component_number=field_scaling%MESH_COMPONENT_NUMBER
              domain=>field%DECOMPOSITION%DOMAIN(mesh_component_number)%PTR
              CALL distributed_vector_all_values_set(field_scaling%SCALE_FACTORS,1.0_dp,err,error,*999)
              CALL distributed_vector_update_start(field_scaling%SCALE_FACTORS,err,error,*999)
              CALL distributed_vector_update_finish(field_scaling%SCALE_FACTORS,err,error,*999)
            ENDDO !scaling_idx
          CASE(field_arc_length_scaling)
            CALL flagerror("Not implemented.",err,error,*999)

          CASE(field_arithmetic_mean_scaling,field_geometric_mean_scaling,field_harmonic_mean_scaling)
            DO scaling_idx=1,field_scalings%NUMBER_OF_SCALING_INDICES
              field_scaling=>field_scalings%SCALINGS(scaling_idx)
              mesh_component_number=field_scaling%MESH_COMPONENT_NUMBER
              domain=>field%DECOMPOSITION%DOMAIN(mesh_component_number)%PTR
              domain_nodes=>domain%TOPOLOGY%NODES
              IF(field%DECOMPOSITION%CALCULATE_LINES) THEN
                domain_lines=>domain%TOPOLOGY%LINES
                decomposition_lines=>field%DECOMPOSITION%TOPOLOGY%LINES
              ENDIF
              NULLIFY(scale_factors)
              CALL distributed_vector_data_get(field_scaling%SCALE_FACTORS,scale_factors,err,error,*999)
              DO node_idx=1,domain_nodes%NUMBER_OF_NODES
                DO derivative_idx=1,domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                  partial_derivative_idx=domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%PARTIAL_DERIVATIVE_INDEX
                  SELECT CASE(partial_derivative_idx)
                  CASE(no_part_deriv)
                    DO version_idx=1,domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions
                      dof_idx=domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%DOF_INDEX(version_idx)
                      CALL distributed_vector_values_set(field_scaling%SCALE_FACTORS,dof_idx,1.0_dp,err,error,*999)
                    ENDDO
                  CASE(part_deriv_s1,part_deriv_s2,part_deriv_s3)
                    IF(field%DECOMPOSITION%CALCULATE_LINES) THEN
                      IF(partial_derivative_idx==part_deriv_s1) THEN
                        xi_direction=1
                      ELSE IF(partial_derivative_idx==part_deriv_s2) THEN
                        xi_direction=2
                      ELSE
                        xi_direction=3
                      ENDIF
                      length1 = 0.0_dp
                      length2 = 0.0_dp
                      number_of_line_versions1 = 0.0_dp
                      number_of_line_versions2 = 0.0_dp
                      DO version_idx=1,domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions
                        !Find a line of the correct Xi direction going through this node
                        found=.false.
                        DO node_line_idx=1,domain_nodes%NODES(node_idx)%NUMBER_OF_NODE_LINES
                          local_node_line_idx=domain_nodes%NODES(node_idx)%NODE_LINES(node_line_idx)
                          IF(decomposition_lines%LINES(local_node_line_idx)%XI_DIRECTION==xi_direction) THEN
                            found=.true.
                            EXIT
                          ENDIF
                        ENDDO !node_line_idx
                        IF(found) THEN
                          IF(domain_lines%LINES(local_node_line_idx)%NODES_IN_LINE(1)==node_idx) THEN !Current node at the beginning of the line
                            adjacent_local_node_line_idx=decomposition_lines%LINES(local_node_line_idx)%ADJACENT_LINES(0)
                          ELSE !Current node at the end of the line
                            adjacent_local_node_line_idx=decomposition_lines%LINES(local_node_line_idx)%ADJACENT_LINES(1)
                          ENDIF
                          !Average line lengths for the different versions (division by the number of lines is done after all the line lengths are added together)
                          length1=length1+geometric_field%GEOMETRIC_FIELD_PARAMETERS%LENGTHS(local_node_line_idx)
                          number_of_line_versions1=number_of_line_versions1+1
                          IF(adjacent_local_node_line_idx/=0) THEN !Adjacent node and therefore lines exist
                            length2=length2+geometric_field%GEOMETRIC_FIELD_PARAMETERS%LENGTHS(adjacent_local_node_line_idx)
                            number_of_line_versions2=number_of_line_versions2+1
                          ENDIF
                        ELSE
                          local_error="Could not find a line in the Xi "//trim(number_to_vstring(xi_direction,"*",err,error))// &
                            & " direction going through node number "//trim(number_to_vstring(node_idx,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ENDDO !version_idx
                      !Division by the numer of version for this node derivative, completing the calculation for the average line lengths
                      length1 = length1/number_of_line_versions1
                      IF(adjacent_local_node_line_idx==0) THEN !No adjacent node ie end of mesh 
                        mean_length=length1
                      ELSE !Adjacent node and therefore lines exist
                        length2 = length2/number_of_line_versions2
                        SELECT CASE(field_scalings%SCALING_TYPE)
                        CASE(field_arithmetic_mean_scaling)
                          mean_length=(length1+length2)/2.0_dp
                        CASE(field_geometric_mean_scaling)
                          mean_length=sqrt(length1*length2)
                        CASE(field_harmonic_mean_scaling)
                          temp=length1*length2
                          IF(abs(temp)>zero_tolerance) THEN
                            mean_length=2.0_dp*temp/(length1+length2)
                          ELSE
                            mean_length=0.0_dp
                          ENDIF
                        CASE DEFAULT
                          local_error="The scaling type of "// &
                            & trim(number_to_vstring(field_scalings%SCALING_TYPE,"*",err,error))//" is invalid."
                          CALL flagerror(local_error,err,error,*999)
                        END SELECT
                      ENDIF
                      DO version_idx=1,domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions
                        dof_idx=domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%DOF_INDEX(version_idx)
                        CALL distributed_vector_values_set(field_scaling%SCALE_FACTORS,dof_idx,mean_length,err,error,*999)
                      ENDDO !version_idx
                    ENDIF
                  CASE(part_deriv_s1_s2,part_deriv_s1_s3,part_deriv_s2_s3,part_deriv_s1_s2_s3)
                    DO version_idx=1,domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions
                      dof_idx=domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%DOF_INDEX(version_idx)
                      IF(partial_derivative_idx==part_deriv_s1_s2) THEN
                        ni1=1
                        nu1=part_deriv_s1
                        ni2=2
                        nu2=part_deriv_s2
                      ELSE IF(partial_derivative_idx==part_deriv_s1_s3) THEN
                        ni1=1
                        nu1=part_deriv_s1
                        ni2=3
                        nu2=part_deriv_s3
                      ELSE IF(partial_derivative_idx==part_deriv_s2_s3) THEN
                        ni1=2
                        nu1=part_deriv_s2
                        ni2=3
                        nu2=part_deriv_s3
                      ELSE
                        ni1=1
                        nu1=part_deriv_s1
                        ni2=2
                        nu2=part_deriv_s2
                      ENDIF
  !!TODO: Shouldn't have to search for the derivative_idx directions. Store them somewhere.
                      !Find the first direction derivative_idx
                      found=.false.
                      DO nk2=1,domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                        IF(domain_nodes%NODES(node_idx)%DERIVATIVES(nk2)%PARTIAL_DERIVATIVE_INDEX==nu1) THEN
                          ny1=domain_nodes%NODES(node_idx)%DERIVATIVES(nk2)%DOF_INDEX(version_idx)
                          found=.true.
                          EXIT
                        ENDIF
                      ENDDO !nk2
                      IF(found) THEN
                        !Find the second direction derivative_idx
                        found=.false.
                        DO nk2=1,domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                          IF(domain_nodes%NODES(node_idx)%DERIVATIVES(nk2)%PARTIAL_DERIVATIVE_INDEX==nu2) THEN
                            ny2=domain_nodes%NODES(node_idx)%DERIVATIVES(nk2)%DOF_INDEX(version_idx)
                            found=.true.
                            EXIT
                          ENDIF
                        ENDDO !nk2
                        IF(found) THEN
                          IF(partial_derivative_idx==part_deriv_s1_s2_s3) THEN
                            !Find the third direction derivative_idx
                            found=.false.
                            DO nk2=1,domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
                              IF(domain_nodes%NODES(node_idx)%DERIVATIVES(nk2)%PARTIAL_DERIVATIVE_INDEX==part_deriv_s3) THEN
                                ny3=domain_nodes%NODES(node_idx)%DERIVATIVES(nk2)%DOF_INDEX(version_idx)
                                found=.true.
                                EXIT
                              ENDIF
                            ENDDO !nk2
                            IF(found) THEN
                              CALL distributed_vector_values_set(field_scaling%SCALE_FACTORS,dof_idx, &
                                scale_factors(ny1)*scale_factors(ny2)*scale_factors(ny3),err,error,*999)
                            ELSE
                              local_error="Could not find the first partial derivative in the s3 direction index for "//&
                                & "local node number "//trim(number_to_vstring(node_idx,"*",err,error))//"."
                              CALL flagerror(local_error,err,error,*999)
                            ENDIF
                          ELSE
                            CALL distributed_vector_values_set(field_scaling%SCALE_FACTORS,dof_idx,scale_factors(ny1)* &
                              & scale_factors(ny2),err,error,*999)
                          ENDIF
                        ELSE
                          local_error="Could not find the first partial derivative in the s"// &
                            & trim(number_to_vstring(ni2,"*",err,error))//" direction index for "//&
                            & "local node number "//trim(number_to_vstring(node_idx,"*",err,error))//"."
                          CALL flagerror(local_error,err,error,*999)
                        ENDIF
                      ELSE
                        local_error="Could not find the first partial derivative in the s"// &
                          & trim(number_to_vstring(ni1,"*",err,error))//" direction index for "//&
                          & "local node number "//trim(number_to_vstring(node_idx,"*",err,error))//"."
                      ENDIF
                    ENDDO !version_idx
                  CASE DEFAULT
                    local_error="The partial derivative index of "//trim(number_to_vstring(partial_derivative_idx,"*", &
                      & err,error))//" for derivative number "//trim(number_to_vstring(derivative_idx,"*",err,error))// &
                      & " of local node number "//trim(number_to_vstring(node_idx,"*",err,error))//" is invalid."
                    CALL flagerror(local_error,err,error,*999)
                  END SELECT
                ENDDO !derivative_idx
              ENDDO !node_idx
              CALL distributed_vector_update_start(field_scaling%SCALE_FACTORS,err,error,*999)
              CALL distributed_vector_update_finish(field_scaling%SCALE_FACTORS,err,error,*999)
            ENDDO !scaling_idx
          CASE DEFAULT
            local_error="The scaling type of "//trim(number_to_vstring(field_scalings%SCALING_TYPE,"*",err,error))// &
              & " is invalid."
            CALL flagerror(local_error,err,error,*999)
          END SELECT
        ELSE
          CALL flagerror("Field geometric field is not associated.",err,error,*999)
        ENDIF
      ELSE
        CALL flagerror("Field scalings is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    IF(diagnostics1) THEN
      IF(field_scalings%SCALING_TYPE /= field_no_scaling) THEN
        IF(ASSOCIATED(domain))THEN
          domain_nodes=>domain%TOPOLOGY%NODES
          CALL write_string(diagnostic_output_type,"Scale Factors for nodes in the domain:",err,error,*999)
          DO node_idx=1,domain_nodes%NUMBER_OF_NODES
            CALL write_string_value(diagnostic_output_type,"Node : ",node_idx,err,error,*999)
            CALL write_string_value(diagnostic_output_type,"  Number of Derivatives = ", &
              & domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES,err,error,*999)
            DO derivative_idx=1,domain_nodes%NODES(node_idx)%NUMBER_OF_DERIVATIVES
              CALL write_string_value(diagnostic_output_type,"  Derivative : ",derivative_idx,err,error,*999)
              CALL write_string_value(diagnostic_output_type,"    Number of Versions = ", &
                & domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions,err,error,*999)
              DO version_idx=1,domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%numberOfVersions
                CALL write_string_value(diagnostic_output_type,"    Version : ",version_idx,err,error,*999)
                dof_idx=domain_nodes%NODES(node_idx)%DERIVATIVES(derivative_idx)%DOF_INDEX(version_idx)
                CALL distributed_vector_values_get(field_scaling%SCALE_FACTORS,dof_idx,VALUE,err,error,*999)
                CALL write_string_value(diagnostic_output_type,"      Scale Factor : ",VALUE,err,error,*999)
              ENDDO !version_idx
            ENDDO !derivative_idx
          ENDDO !node_idx
        ENDIF
      ENDIF
    ENDIF

    exits("FIELD_SCALINGS_CALCULATE")
    RETURN
999 errorsexits("FIELD_SCALINGS_CALCULATE",err,error)
    RETURN 1
  END SUBROUTINE field_scalings_calculate

  !
  !================================================================================================================================
  !

  SUBROUTINE field_scalings_finalise(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: scaling_idx

    enters("FIELD_SCALINGS_FINALISE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      DO scaling_idx=1,field%SCALINGS%NUMBER_OF_SCALING_INDICES
        CALL field_scaling_finalise(field,scaling_idx,err,error,*999)
      ENDDO !scaling_idx
      IF(ALLOCATED(field%SCALINGS%SCALINGS)) DEALLOCATE(field%SCALINGS%SCALINGS)
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_SCALINGS_FINALISE")
    RETURN
999 errorsexits("FIELD_SCALINGS_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_scalings_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_scalings_initialise(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx,dummy_err,number_of_mesh_components,scaling_idx,variable_idx
    INTEGER(INTG), ALLOCATABLE :: mesh_components(:),mesh_components_map(:)
    TYPE(list_type), POINTER :: mesh_components_list
    TYPE(varying_string) :: dummy_error

    NULLIFY(mesh_components_list)

    enters("FIELD_SCALINGS_INITIALISE",err,error,*997)

    IF(ASSOCIATED(field)) THEN
      !Calculate the mesh component numbers involved in the field
      CALL list_create_start(mesh_components_list,err,error,*999)
      CALL list_data_type_set(mesh_components_list,list_intg_type,err,error,*999)
      CALL list_initial_size_set(mesh_components_list,field%DECOMPOSITION%MESH%NUMBER_OF_COMPONENTS,err,error,*999)
      CALL list_create_finish(mesh_components_list,err,error,*999)
      DO variable_idx=1,field%NUMBER_OF_VARIABLES
        DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
          CALL list_item_add(mesh_components_list,field%VARIABLES(variable_idx)%COMPONENTS(component_idx)%MESH_COMPONENT_NUMBER, &
            & err,error,*999)
        ENDDO !component_idx
      ENDDO !variable_idx
      CALL list_remove_duplicates(mesh_components_list,err,error,*999)
      CALL list_detach_and_destroy(mesh_components_list,number_of_mesh_components,mesh_components,err,error,*999)
      ALLOCATE(mesh_components_map(field%DECOMPOSITION%MESH%NUMBER_OF_COMPONENTS),stat=err)
      IF(err/=0) CALL flagerror("Could not allocate mesh components map.",err,error,*999)
      mesh_components_map=0
      DO component_idx=1,number_of_mesh_components
        mesh_components_map(mesh_components(component_idx))=component_idx
      ENDDO !component_idx
      !Allocate the scaling indices and initialise them
      field%SCALINGS%NUMBER_OF_SCALING_INDICES=number_of_mesh_components
      ALLOCATE(field%SCALINGS%SCALINGS(field%SCALINGS%NUMBER_OF_SCALING_INDICES),stat=err)
      IF(err/=0) CALL flagerror("Could not allocate field scalings.",err,error,*999)
      DO scaling_idx=1,field%SCALINGS%NUMBER_OF_SCALING_INDICES
        CALL field_scaling_initialise(field,scaling_idx,mesh_components(scaling_idx),err,error,*999)
      ENDDO !scaling_idx
      !Set the scaling index for all the field variable components
      DO variable_idx=1,field%NUMBER_OF_VARIABLES
        DO component_idx=1,field%VARIABLES(variable_idx)%NUMBER_OF_COMPONENTS
          field%VARIABLES(variable_idx)%COMPONENTS(component_idx)%SCALING_INDEX= &
            & mesh_components_map(field%VARIABLES(variable_idx)%COMPONENTS(component_idx)%MESH_COMPONENT_NUMBER)
        ENDDO !component_idx
      ENDDO !variable_idx
      DEALLOCATE(mesh_components)
      IF(field%TYPE/=field_geometric_type) CALL field_scalings_calculate(field,err,error,*999)
    ELSE
      CALL flagerror("Field is not associated.",err,error,*997)
    ENDIF

    exits("FIELD_SCALINGS_INITIALISE")
    RETURN
999 IF(ALLOCATED(mesh_components)) DEALLOCATE(mesh_components)
    IF(ASSOCIATED(mesh_components_list)) CALL list_destroy(mesh_components_list,err,error,*998)
998 CALL field_scalings_finalise(field,dummy_err,dummy_error,*997)
997 errorsexits("FIELD_SCALINGS_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_scalings_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_scaling_type_check(FIELD,SCALING_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: scaling_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_SCALING_TYPE_CHECK",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        SELECT CASE(scaling_type)
        CASE(field_no_scaling)
          IF(field%SCALINGS%SCALING_TYPE/=field_no_scaling) THEN
            local_error="Invalid scaling type. The scaling type for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &
              & " which is not no scaling."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE(field_unit_scaling)
          IF(field%SCALINGS%SCALING_TYPE/=field_unit_scaling) THEN
            local_error="Invalid scaling type. The scaling type for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &
              & " which is not unit scaling."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE(field_arc_length_scaling)
          IF(field%SCALINGS%SCALING_TYPE/=field_arc_length_scaling) THEN
            local_error="Invalid scaling type. The scaling type for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &
              & " which is not arc length scaling."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE(field_arithmetic_mean_scaling)
          IF(field%SCALINGS%SCALING_TYPE/=field_arithmetic_mean_scaling) THEN
            local_error="Invalid scaling type. The scaling type for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &

              & " which is not arithmetic mean scaling."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE(field_geometric_mean_scaling)
          IF(field%SCALINGS%SCALING_TYPE/=field_geometric_mean_scaling) THEN
            local_error="Invalid scaling type. The scaling type for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &

              & " which is not geometric mean scaling."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE(field_harmonic_mean_scaling)
          IF(field%SCALINGS%SCALING_TYPE/=field_harmonic_mean_scaling) THEN
            local_error="Invalid scaling type. The scaling type for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%SCALINGS%SCALING_TYPE,"*",err,error))// &
              & " which is not harmonic mean scaling."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE DEFAULT
          local_error="The specified scaling type of "//trim(number_to_vstring(scaling_type,"*",err,error))// &
            & " is invalid."
          CALL flagerror(local_error,err,error,*999)
        END SELECT
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_SCALING_TYPE_CHECK")
    RETURN
999 errorsexits("FIELD_SCALING_TYPE_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_scaling_type_check

  !
  !================================================================================================================================
  !

  SUBROUTINE field_scaling_type_get(FIELD,SCALING_TYPE,ERR,ERROR,*)

    !Argument variables
     TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: scaling_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_SCALING_TYPE_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        scaling_type=field%SCALINGS%SCALING_TYPE
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_SCALING_TYPE_GET")
    RETURN
999 errorsexits("FIELD_SCALING_TYPE_GET",err,error)
    RETURN 1
  END SUBROUTINE field_scaling_type_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_scaling_type_set(FIELD,SCALING_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: scaling_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_SCALING_TYPE_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(field%CREATE_VALUES_CACHE%SCALING_TYPE_LOCKED) THEN
            local_error="The field scaling type has been locked for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
            CALL flagerror(local_error,err,error,*999)
          ELSE
            SELECT CASE(scaling_type)
            CASE(field_no_scaling)
              field%SCALINGS%SCALING_TYPE=field_no_scaling
            CASE(field_unit_scaling)
              field%SCALINGS%SCALING_TYPE=field_unit_scaling
            CASE(field_arc_length_scaling)
              field%SCALINGS%SCALING_TYPE=field_arc_length_scaling
            CASE(field_arithmetic_mean_scaling)
              field%SCALINGS%SCALING_TYPE=field_arithmetic_mean_scaling
            CASE(field_geometric_mean_scaling)
              field%SCALINGS%SCALING_TYPE=field_geometric_mean_scaling
            CASE(field_harmonic_mean_scaling)
              field%SCALINGS%SCALING_TYPE=field_harmonic_mean_scaling
            CASE DEFAULT
              local_error="The specified scaling type of "//trim(number_to_vstring(scaling_type,"*",err,error))// &
                & " is invalid."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_SCALING_TYPE_SET")
    RETURN
999 errorsexits("FIELD_SCALING_TYPE_SET",err,error)
    RETURN 1
  END SUBROUTINE field_scaling_type_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_scaling_type_set_and_lock(FIELD,SCALING_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: scaling_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_SCALING_TYPE_SET_AND_LOCK",err,error,*999)

    CALL field_scaling_type_set(field,scaling_type,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%SCALING_TYPE_LOCKED=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_SCALING_TYPE_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_SCALING_TYPE_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_scaling_type_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE field_type_check(FIELD,TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: TYPE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_TYPE_CHECK",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        SELECT CASE(type)
        CASE(field_geometric_type)
          IF(field%TYPE/=field_geometric_type) THEN
            local_error="Invalid field type. The field type for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%TYPE,"*",err,error))// &
              & " which is not a geometric field."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE(field_fibre_type)
          IF(field%TYPE/=field_fibre_type) THEN
            local_error="Invalid field type. The field type for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%TYPE,"*",err,error))// &
              & " which is not a fibre field."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE(field_general_type)
          IF(field%TYPE/=field_general_type) THEN
            local_error="Invalid field type. The field type for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%TYPE,"*",err,error))// &
              & " which is not a general field."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE(field_material_type)
          IF(field%TYPE/=field_material_type) THEN
            local_error="Invalid field type. The field type for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%TYPE,"*",err,error))// &
              & " which is not a material field."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE(field_geometric_general_type)
          IF(field%TYPE/=field_geometric_general_type) THEN
            local_error="Invalid field type. The field type for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
              & trim(number_to_vstring(field%TYPE,"*",err,error))// &
              & " which is not a geometric general field."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        CASE DEFAULT
          local_error="The specified field type of "//trim(number_to_vstring(TYPE,"*",err,error))//" is invalid."
          CALL flagerror(local_error,err,error,*999)          
        END SELECT
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_TYPE_CHECK")
    RETURN
999 errorsexits("FIELD_TYPE_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_type_check

  !
  !================================================================================================================================
  !

  SUBROUTINE field_type_get(FIELD,TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: TYPE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_TYPE_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        TYPE=field%TYPE
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_TYPE_GET")
    RETURN
999 errorsexits("FIELD_TYPE_GET",err,error)
    RETURN 1
  END SUBROUTINE field_type_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_type_set(FIELD,TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: TYPE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_TYPE_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(field%CREATE_VALUES_CACHE%TYPE_LOCKED) THEN
            local_error="The field type has been locked for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
            CALL flagerror(local_error,err,error,*999)
          ELSE
            SELECT CASE(type)
            CASE(field_geometric_type)
              field%TYPE=field_geometric_type
              field%GEOMETRIC_FIELD=>field
            CASE(field_fibre_type)
              field%TYPE=field_fibre_type
              NULLIFY(field%GEOMETRIC_FIELD)
            CASE(field_general_type)
              field%TYPE=field_general_type
              NULLIFY(field%GEOMETRIC_FIELD)
            CASE(field_material_type)
              field%TYPE=field_material_type
              NULLIFY(field%GEOMETRIC_FIELD)
            CASE(field_geometric_general_type)
              field%TYPE=field_geometric_general_type
              NULLIFY(field%GEOMETRIC_FIELD)
            CASE DEFAULT
              local_error="The specified field type of "//trim(number_to_vstring(TYPE,"*",err,error))//" is invalid."
              CALL flagerror(local_error,err,error,*999)
            END SELECT
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_TYPE_SET")
    RETURN
999 errorsexits("FIELD_TYPE_SET",err,error)
    RETURN 1
  END SUBROUTINE field_type_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_type_set_and_lock(FIELD,TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: TYPE
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_TYPE_SET_AND_LOCK",err,error,*999)
    
    CALL field_type_set(field,TYPE,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%TYPE_LOCKED=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_TYPE_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_TYPE_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_type_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE field_user_number_find_generic(USER_NUMBER,FIELDS,FIELD,ERR,ERROR,*)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: user_number
    TYPE(fields_type), POINTER :: fields
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: field_idx

    enters("FIELD_USER_NUMBER_FIND_GENERIC",err,error,*999)

    IF(ASSOCIATED(fields)) THEN
      IF(ASSOCIATED(field)) THEN
        CALL flagerror("Field is already associated.",err,error,*999)
      ELSE
        NULLIFY(field)
        field_idx=1
        DO WHILE(field_idx<=fields%NUMBER_OF_FIELDS.AND..NOT.ASSOCIATED(field))
          IF(fields%FIELDS(field_idx)%PTR%USER_NUMBER==user_number) THEN
            field=>fields%FIELDS(field_idx)%PTR
          ELSE
            field_idx=field_idx+1
          ENDIF
        ENDDO
      ENDIF
    ELSE
      CALL flagerror("Fields is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_USER_NUMBER_FIND_GENERIC")
    RETURN
999 errorsexits("FIELD_USER_NUMBER_FIND_GENERIC",err,error)
    RETURN 1
  END SUBROUTINE field_user_number_find_generic

  !
  !================================================================================================================================
  !

  SUBROUTINE field_user_number_find_interface(USER_NUMBER,INTERFACE,FIELD,ERR,ERROR,*)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: user_number
    TYPE(interface_type), POINTER :: interface
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
 
    enters("FIELD_USER_NUMBER_FIND_INTERFACE",err,error,*999)

    IF(ASSOCIATED(interface)) THEN
      CALL field_user_number_find_generic(user_number,interface%FIELDS,field,err,error,*999)
    ELSE
      CALL flagerror("Interface is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_USER_NUMBER_FIND_INTERFACE")
    RETURN
999 errorsexits("FIELD_USER_NUMBER_FIND_INTERFACE",err,error)
    RETURN 1
  END SUBROUTINE field_user_number_find_interface

  !
  !================================================================================================================================
  !

  SUBROUTINE field_user_number_find_region(USER_NUMBER,REGION,FIELD,ERR,ERROR,*)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: user_number
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_USER_NUMBER_FIND_REGION",err,error,*999)

    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find_generic(user_number,region%FIELDS,field,err,error,*999)
    ELSE
      CALL flagerror("Region is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_USER_NUMBER_FIND_REGION")
    RETURN
999 errorsexits("FIELD_USER_NUMBER_FIND_REGION",err,error)
    RETURN 1
  END SUBROUTINE field_user_number_find_region

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_finalise(FIELD_VARIABLE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_variable_type) :: field_variable
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELD_VARIABLE_FINALISE",err,error,*999)

    field_variable%VARIABLE_LABEL=""
    CALL field_variable_components_finalise(field_variable,err,error,*999)
    IF(ASSOCIATED(field_variable%DOMAIN_MAPPING)) THEN
      CALL domain_mappings_mapping_finalise(field_variable%DOMAIN_MAPPING,err,error,*999)
    ENDIF
    CALL field_dof_to_param_map_finalise(field_variable%DOF_TO_PARAM_MAP,err,error,*999)
    CALL field_parameter_sets_finalise(field_variable,err,error,*999)


    exits("FIELD_VARIABLE_FINALISE")
    RETURN
999 errorsexits("FIELD_VARIABLE_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_variable_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_get(FIELD,VARIABLE_TYPE,FIELD_VARIABLE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    TYPE(field_variable_type), POINTER :: field_variable
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_VARIABLE_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
          IF(ASSOCIATED(field_variable)) THEN
            CALL flagerror("Field variable is already associated.",err,error,*999)
          ELSE
            NULLIFY(field_variable)
            field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
            IF(.NOT.ASSOCIATED(field_variable)) THEN
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been defined on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The field variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLE_GET")
    RETURN
999 errorsexits("FIELD_VARIABLE_GET",err,error)
    RETURN 1
  END SUBROUTINE field_variable_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_initialise(FIELD,VARIABLE_NUMBER,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_number
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: component_idx,dummy_err,variable_type
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: dummy_error,local_error

    enters("FIELD_VARIABLE_INITIALISE",err,error,*998)

    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        IF(variable_number>=1.AND.variable_number<=field%NUMBER_OF_VARIABLES) THEN
          NULLIFY(field%VARIABLES(variable_number)%FIELD)
          NULLIFY(field%VARIABLES(variable_number)%REGION)
          NULLIFY(field%VARIABLES(variable_number)%DOMAIN_MAPPING)
          !!TODO this should be done via a field_parameter_sets_initialise call
          NULLIFY(field%VARIABLES(variable_number)%PARAMETER_SETS%SET_TYPE)
          NULLIFY(field%VARIABLES(variable_number)%PARAMETER_SETS%PARAMETER_SETS)
          field%VARIABLES(variable_number)%VARIABLE_NUMBER=variable_number
          variable_type=field%CREATE_VALUES_CACHE%VARIABLE_TYPES(variable_number)
          IF(variable_type>=1.AND.variable_type<=field_number_of_variable_types) THEN
            field%VARIABLES(variable_number)%VARIABLE_TYPE=field%CREATE_VALUES_CACHE%VARIABLE_TYPES(variable_number)
          ELSE
            local_error="A field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " for variable number "//trim(number_to_vstring(variable_number,"*",err,error))// &
              & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
              & " is invalid. The number must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*998)
          ENDIF
          field%VARIABLE_TYPE_MAP(field%VARIABLES(variable_number)%VARIABLE_TYPE)%PTR=>field%VARIABLES(variable_number)
          field_variable=>field%VARIABLE_TYPE_MAP(field%VARIABLES(variable_number)%VARIABLE_TYPE)%PTR
          field_variable%VARIABLE_LABEL=""
          field_variable%VARIABLE_LABEL=field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_type)
          field_variable%FIELD=>field
          field_variable%REGION=>field%REGION
          field_variable%DIMENSION=field%CREATE_VALUES_CACHE%DIMENSION(variable_type)
          field_variable%DATA_TYPE=field%CREATE_VALUES_CACHE%DATA_TYPES(variable_type)
          field_variable%DOF_ORDER_TYPE=field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES(variable_type)
          IF(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)>0) THEN
            field_variable%NUMBER_OF_COMPONENTS=field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)
            CALL field_variable_components_initialise(field,variable_type,err,error,*999)
          ELSE
            local_error="The number of components of "// &
              & trim(number_to_vstring(field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type),"*",err,error))// &
              & " for variable type "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " of field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
              & " is invalid. The number must be > 0."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
          field_variable%maxNumberElementInterpolationParameters=-1
          field_variable%maxNumberNodeInterpolationParameters=-1
          DO component_idx=1,field_variable%NUMBER_OF_COMPONENTS
            IF(field_variable%COMPONENTS(component_idx)%maxNumberElementInterpolationParameters> &
              & field_variable%maxNumberElementInterpolationParameters) field_variable% &
              & maxnumberelementinterpolationparameters=field_variable%COMPONENTS(component_idx)% &
              & maxnumberelementinterpolationparameters
            IF(field_variable%COMPONENTS(component_idx)%maxNumberNodeInterpolationParameters> &
              & field_variable%maxNumberNodeInterpolationParameters) field_variable% &
              & maxnumbernodeinterpolationparameters=field_variable%COMPONENTS(component_idx)% &
              & maxnumbernodeinterpolationparameters
          ENDDO !component_idx
          field_variable%NUMBER_OF_DOFS=0
          field_variable%TOTAL_NUMBER_OF_DOFS=0
          field_variable%NUMBER_OF_GLOBAL_DOFS=0
          ALLOCATE(field_variable%DOMAIN_MAPPING,stat=err)
          IF(err/=0) CALL flagerror("Could not allocate field variable domain mapping.",err,error,*999)
          CALL domain_mappings_mapping_initialise(field_variable%DOMAIN_MAPPING, &
            & field%DECOMPOSITION%NUMBER_OF_DOMAINS,err,error,*999)
          CALL field_dof_to_param_map_initialise(field_variable%DOF_TO_PARAM_MAP,err,error,*999)
        ELSE
          local_error="Variable number "//trim(number_to_vstring(variable_number,"*",err,error))// &
            & " is invalid for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" which has "// &
            & trim(number_to_vstring(field%NUMBER_OF_VARIABLES,"*",err,error))//" variables."
          CALL flagerror(local_error,err,error,*998)
        ENDIF
      ELSE
        CALL flagerror("Field create values cache is not associated.",err,error,*998)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*998)
    ENDIF

    exits("FIELD_VARIABLE_INITIALISE")
    RETURN
999 CALL field_variable_finalise(field_variable,dummy_err,dummy_error,*998)
998 errorsexits("FIELD_VARIABLE_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_variable_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_label_get_c(FIELD,VARIABLE_TYPE,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER :: c_length,vs_length
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
    
    enters("FIELD_VARIABLE_LABEL_GET_C",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            c_length=len(label)
            vs_length=len_trim(field_variable%VARIABLE_LABEL)
            IF(c_length>vs_length) THEN
              label=char(len_trim(field_variable%VARIABLE_LABEL))
            ELSE
              label=char(field_variable%VARIABLE_LABEL,c_length)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLE_LABEL_GET_C")
    RETURN
999 errorsexits("FIELD_VARIABLE_LABEL_GET_C",err,error)
    RETURN 1
  END SUBROUTINE field_variable_label_get_c

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_label_get_vs(FIELD,VARIABLE_TYPE,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_variable_type), POINTER :: field_variable
    TYPE(varying_string) :: local_error
    
    enters("FIELD_VARIABLE_LABEL_GET_VS",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
          field_variable=>field%VARIABLE_TYPE_MAP(variable_type)%PTR
          IF(ASSOCIATED(field_variable)) THEN
            label=field_variable%VARIABLE_LABEL
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
            & " is invalid. The variable type must be between 1 and "// &
            & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLE_LABEL_GET_VS")
    RETURN
999 errorsexits("FIELD_VARIABLE_LABEL_GET_VS",err,error)
    RETURN 1
  END SUBROUTINE field_variable_label_get_vs

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_label_set_c(FIELD,VARIABLE_TYPE,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_VARIABLE_LABEL_SET_C",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
            IF(any(field%CREATE_VALUES_CACHE%VARIABLE_TYPES==variable_type)) THEN
              IF(field%CREATE_VALUES_CACHE%VARIABLE_LABELS_LOCKED(variable_type)) THEN
                local_error="The field variable label has been locked for for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
                CALL flagerror(local_error,err,error,*999)
              ELSE
                field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_type)=label
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &

              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLE_LABEL_SET_C")
    RETURN
999 errorsexits("FIELD_VARIABLE_LABEL_SET_C",err,error)
    RETURN 1
  END SUBROUTINE field_variable_label_set_c

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_label_set_vs(FIELD,VARIABLE_TYPE,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_VARIABLE_LABEL_SET_VS",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(variable_type>0.AND.variable_type<=field_number_of_variable_types) THEN
            IF(any(field%CREATE_VALUES_CACHE%VARIABLE_TYPES==variable_type)) THEN
              IF(field%CREATE_VALUES_CACHE%VARIABLE_LABELS_LOCKED(variable_type)) THEN
                local_error="The field variable label has been locked for for variable type "// &
                  & trim(number_to_vstring(variable_type,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
                CALL flagerror(local_error,err,error,*999)
              ELSE
                field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_type)=label
              ENDIF
            ELSE
              local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                & " has not been created on field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ELSE
            local_error="The field variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
              & " is invalid. The variable type must be between 1 and "// &
              & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLE_LABEL_SET_VS")
    RETURN
999 errorsexits("FIELD_VARIABLE_LABEL_SET_VS",err,error)
    RETURN 1
  END SUBROUTINE field_variable_label_set_vs

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_label_set_and_lock_c(FIELD,VARIABLE_TYPE,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_VARIABLE_LABEL_SET_AND_LOCK_C",err,error,*999)

    CALL field_variable_label_set(field,variable_type,label,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%VARIABLE_LABELS_LOCKED(variable_type)=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_VARIABLE_LABEL_SET_AND_LOCK_C")
    RETURN
999 errorsexits("FIELD_VARIABLE_LABEL_SET_AND_LOCK_C",err,error)
    RETURN 1
  END SUBROUTINE field_variable_label_set_and_lock_c

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_label_set_and_lock_vs(FIELD,VARIABLE_TYPE,LABEL,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_VARIABLE_LABEL_SET_AND_LOCK_VS",err,error,*999)

    CALL field_variable_label_set(field,variable_type,label,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%VARIABLE_LABELS_LOCKED(variable_type)=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF
    
    exits("FIELD_VARIABLE_LABEL_SET_AND_LOCK_VS")
    RETURN
999 errorsexits("FIELD_VARIABLE_LABEL_SET_AND_LOCK_VS",err,error)
    RETURN 1
  END SUBROUTINE field_variable_label_set_and_lock_vs

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_types_check(FIELD,VARIABLE_TYPES,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_types(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: variable_idx
    TYPE(varying_string) :: local_error

    enters("FIELD_VARIABLE_TYPES_CHECK",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(SIZE(variable_types,1)>=field%NUMBER_OF_VARIABLES) THEN
          DO variable_idx=1,field%NUMBER_OF_VARIABLES
            IF(variable_types(variable_idx)>=1.AND.variable_types(variable_idx)<=field_number_of_variable_types) THEN
              IF(field%VARIABLES(variable_idx)%VARIABLE_TYPE/=variable_types(variable_idx)) THEN
                local_error="Invalid variable type. The variable type for variable index number "// &
                  & trim(number_to_vstring(variable_idx,"*",err,error))//" of field number "// &
                  & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" is "// &
                  & trim(number_to_vstring(field%VARIABLES(variable_idx)%VARIABLE_TYPE,"*",err,error))// &
                  & " which is does correspond to the specified variable_type of "// &
                  & trim(number_to_vstring(variable_types(variable_idx),"*",err,error))//"."
                CALL flagerror(local_error,err,error,*999)
              ENDIF
            ELSE
              local_error="The specified variable type of "//trim(number_to_vstring(variable_types(variable_idx),"*",err,error))// &
                & " at position number "//trim(number_to_vstring(variable_idx,"*",err,error))// &
                & " is invalid. The variable type must be between 1 and "// &
                & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)                  
            ENDIF
          ENDDO !variable_idx
        ELSE
          local_error="Invalid variable types. The size of the specified variable types array is "// &
            & trim(number_to_vstring(SIZE(variable_types,1),"*",err,error))//" and it must be >= "// &
            & trim(number_to_vstring(field%NUMBER_OF_VARIABLES,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLE_TYPES_CHECK")
    RETURN
999 errorsexits("FIELD_VARIABLE_TYPES_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_variable_types_check

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_type_check(FIELD,VARIABLE_TYPE,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_type
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: variable_idx
    LOGICAL :: variable_found
    TYPE(varying_string) :: local_error

    enters("FIELD_VARIABLE_TYPE_CHECK",err,error,*999)

    variable_found=.false.
    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        DO variable_idx=1,field%NUMBER_OF_VARIABLES
          IF(field%VARIABLES(variable_idx)%VARIABLE_TYPE==variable_type) THEN
            variable_found=.true.
            cycle
          END IF
        ENDDO !variable_idx
        IF(.NOT.variable_found) THEN
          CALL flagerror("Field does not have a variable type of "// &
            & trim(number_to_vstring(variable_type,"*",err,error))//".",err,error,*999)
        END IF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      END IF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLE_TYPE_CHECK")
    RETURN
999 errorsexits("FIELD_VARIABLE_TYPE_CHECK",err,error)
    RETURN 1
  END SUBROUTINE field_variable_type_check

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_types_get(FIELD,VARIABLE_TYPES,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: variable_types(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: variable_idx
    TYPE(varying_string) :: local_error

    enters("FIELD_VARIABLE_TYPES_GET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        IF(SIZE(variable_types,1)>=field%NUMBER_OF_VARIABLES) THEN
          variable_types=0
          DO variable_idx=1,field%NUMBER_OF_VARIABLES
            variable_types(variable_idx)=field%VARIABLES(variable_idx)%VARIABLE_TYPE
          ENDDO !variable_idx
        ELSE
          local_error="Invalid variable types. The size of the specified variable types array is "// &
            & trim(number_to_vstring(SIZE(variable_types,1),"*",err,error))//" and it must be >= "// &
            & trim(number_to_vstring(field%NUMBER_OF_VARIABLES,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ELSE
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has not been finished."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLE_TYPES_GET")
    RETURN
999 errorsexits("FIELD_VARIABLE_TYPES_GET",err,error)
    RETURN 1
  END SUBROUTINE field_variable_types_get

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_types_set(FIELD,VARIABLE_TYPES,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_types(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: number_of_components,old_variable_type,variable_idx,variable_idx2,variable_type
    INTEGER(INTG) :: old_dimension(field_number_of_variable_types),old_data_types(field_number_of_variable_types), &
      & OLD_DOF_ORDER_TYPES(FIELD_NUMBER_OF_VARIABLE_TYPES),OLD_NUMBER_OF_COMPONENTS(FIELD_NUMBER_OF_VARIABLE_TYPES)
    INTEGER(INTG), ALLOCATABLE :: old_variable_types(:),old_interpolation_type(:,:),old_mesh_component_number(:,:)
    LOGICAL :: old_dimension_locked(field_number_of_variable_types),old_data_types_locked(field_number_of_variable_types), &
      & OLD_DOF_ORDER_TYPES_LOCKED(FIELD_NUMBER_OF_VARIABLE_TYPES), &
      & OLD_NUMBER_OF_COMPONENTS_LOCKED(FIELD_NUMBER_OF_VARIABLE_TYPES),OLD_LABELS_LOCKED(FIELD_NUMBER_OF_VARIABLE_TYPES)
    LOGICAL, ALLOCATABLE :: old_interpolation_type_locked(:,:),old_mesh_component_number_locked(:,:)
    TYPE(varying_string) :: local_error,old_labels(field_number_of_variable_types)

    enters("FIELD_VARIABLE_TYPES_SET",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(field%FIELD_FINISHED) THEN
        local_error="Field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
          & " has been finished."
        CALL flagerror(local_error,err,error,*999)
      ELSE
        IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
          IF(field%CREATE_VALUES_CACHE%VARIABLE_TYPES_LOCKED) THEN
            local_error="The field variable types has been locked for field number "// &
              & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//" and can not be changed."
            CALL flagerror(local_error,err,error,*999)
          ELSE
            IF(SIZE(variable_types,1)==field%NUMBER_OF_VARIABLES) THEN
              DO variable_idx=1,field%NUMBER_OF_VARIABLES
                variable_type=variable_types(variable_idx)
                !Check that the variable type is in range
                IF(variable_type<1.OR.variable_type>field_number_of_variable_types) THEN
                  local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                    & " at position number "//trim(number_to_vstring(variable_idx,"*",err,error))// &
                    & " is invalid. The variable type must be between 1 and "// &
                    & trim(number_to_vstring(field_number_of_variable_types,"*",err,error))//"."
                  CALL flagerror(local_error,err,error,*999)                  
                ENDIF
                !Check that the variable type is not repeated
                DO variable_idx2=variable_idx+1,field%NUMBER_OF_VARIABLES
                  IF(variable_types(variable_idx2)==variable_type) THEN
                    local_error="The specified variable type of "//trim(number_to_vstring(variable_type,"*",err,error))// &
                      & " occurs at position number "//trim(number_to_vstring(variable_idx,"*",err,error))// &
                      & " and position number "//trim(number_to_vstring(variable_idx2,"*",err,error))// &
                      & ". The variable types must be unique."
                    CALL flagerror(local_error,err,error,*999)                    
                  ENDIF
                ENDDO !variable_idx2
              ENDDO !variable_idx
              number_of_components=SIZE(field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE,1)
              ALLOCATE(old_variable_types(field%NUMBER_OF_VARIABLES),stat=err)
              IF(err/=0) CALL flagerror("Could not allocate old variable types.",err,error,*999)
              ALLOCATE(old_interpolation_type(number_of_components,field_number_of_variable_types),stat=err)
              IF(err/=0) CALL flagerror("Could not allocate old interpolation type.",err,error,*999)
              ALLOCATE(old_interpolation_type_locked(number_of_components,field_number_of_variable_types),stat=err)
              IF(err/=0) CALL flagerror("Could not allocate old interpolation type locked.",err,error,*999)
              ALLOCATE(old_mesh_component_number(number_of_components,field_number_of_variable_types),stat=err)
              IF(err/=0) CALL flagerror("Could not allocate old mesh component number.",err,error,*999)
              ALLOCATE(old_mesh_component_number_locked(number_of_components,field_number_of_variable_types),stat=err)
              IF(err/=0) CALL flagerror("Could not allocate old mesh component number locked.",err,error,*999)
              old_variable_types(1:field%NUMBER_OF_VARIABLES)=field%CREATE_VALUES_CACHE%VARIABLE_TYPES(1:field%NUMBER_OF_VARIABLES)
              old_labels=field%CREATE_VALUES_CACHE%VARIABLE_LABELS
              old_labels_locked=field%CREATE_VALUES_CACHE%VARIABLE_LABELS_LOCKED
              old_dimension=field%CREATE_VALUES_CACHE%DIMENSION
              old_dimension_locked=field%CREATE_VALUES_CACHE%DIMENSION_LOCKED
              old_data_types=field%CREATE_VALUES_CACHE%DATA_TYPES
              old_data_types_locked=field%CREATE_VALUES_CACHE%DATA_TYPES_LOCKED
              old_dof_order_types=field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES
              old_dof_order_types_locked=field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES_LOCKED
              old_number_of_components=field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS
              old_number_of_components_locked=field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS_LOCKED
              old_interpolation_type(1:number_of_components,1:field_number_of_variable_types)= &
                & field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(1:number_of_components,1:field_number_of_variable_types)
              old_interpolation_type_locked(1:number_of_components,1:field_number_of_variable_types)= &
                & field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED(1:number_of_components,1:field_number_of_variable_types)
              old_mesh_component_number(1:number_of_components,1:field_number_of_variable_types)= &
                & field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(1:number_of_components,1:field_number_of_variable_types)
              old_mesh_component_number_locked(1:number_of_components,1:field_number_of_variable_types)= &
                & field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED(1:number_of_components,1:field_number_of_variable_types)
              field%CREATE_VALUES_CACHE%VARIABLE_TYPES=0
              field%CREATE_VALUES_CACHE%VARIABLE_LABELS=""
              field%CREATE_VALUES_CACHE%VARIABLE_LABELS_LOCKED=.false.
              field%CREATE_VALUES_CACHE%DIMENSION=0
              field%CREATE_VALUES_CACHE%DIMENSION_LOCKED=.false.
              field%CREATE_VALUES_CACHE%DATA_TYPES=0
              field%CREATE_VALUES_CACHE%DATA_TYPES_LOCKED=.false.
              field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES=0
              field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES_LOCKED=.false.
              field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS=0
              field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS_LOCKED=.false.
              field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE=0
              field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED=.false.
              field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER=0
              field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED=.false.
              DO variable_idx=1,field%NUMBER_OF_VARIABLES                
                variable_type=variable_types(variable_idx)
                old_variable_type=old_variable_types(variable_idx)
                field%CREATE_VALUES_CACHE%VARIABLE_LABELS(variable_type)=old_labels(old_variable_type)
                field%CREATE_VALUES_CACHE%VARIABLE_LABELS_LOCKED(variable_type)=old_labels_locked(old_variable_type)
                field%CREATE_VALUES_CACHE%DIMENSION(variable_type)=old_dimension(old_variable_type)
                field%CREATE_VALUES_CACHE%DIMENSION_LOCKED(variable_type)=old_dimension_locked(old_variable_type)
                field%CREATE_VALUES_CACHE%DATA_TYPES(variable_type)=old_data_types(old_variable_type)
                field%CREATE_VALUES_CACHE%DATA_TYPES_LOCKED(variable_type)=old_data_types_locked(old_variable_type)
                field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES(variable_type)=old_dof_order_types(old_variable_type)
                field%CREATE_VALUES_CACHE%DOF_ORDER_TYPES_LOCKED(variable_type)=old_dof_order_types_locked(old_variable_type)
                field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS(variable_type)=old_number_of_components(old_variable_type)
                field%CREATE_VALUES_CACHE%NUMBER_OF_COMPONENTS_LOCKED(variable_type)=old_number_of_components_locked( &
                  & old_variable_type)
                field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE(:,variable_type)=old_interpolation_type(:,old_variable_type)
                field%CREATE_VALUES_CACHE%INTERPOLATION_TYPE_LOCKED(:,variable_type)=old_interpolation_type_locked(:, &
                  & old_variable_type)
                field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER(:,variable_type)=old_mesh_component_number(:,old_variable_type)
                field%CREATE_VALUES_CACHE%MESH_COMPONENT_NUMBER_LOCKED(:,variable_type)=old_mesh_component_number_locked(:, &
                  & old_variable_type)
              ENDDO !variable_idx
              field%CREATE_VALUES_CACHE%VARIABLE_TYPES(1:SIZE(variable_types,1))=variable_types(1:SIZE(variable_types,1))
              DEALLOCATE(old_variable_types)
              DEALLOCATE(old_interpolation_type)
              DEALLOCATE(old_interpolation_type_locked)
              DEALLOCATE(old_mesh_component_number)
              DEALLOCATE(old_mesh_component_number_locked)              
            ELSE
              local_error="Invalid variable types. The size of the specified variable types array is "// &
                & trim(number_to_vstring(SIZE(variable_types,1),"*",err,error))// &
                & " and the number of variables for field number "//trim(number_to_vstring(field%USER_NUMBER,"*",err,error))// &
                & " is "//trim(number_to_vstring(field%NUMBER_OF_VARIABLES,"*",err,error))//"."
              CALL flagerror(local_error,err,error,*999)
            ENDIF
          ENDIF
        ELSE
          local_error="Field create values cache is not associated for field number "// &
            & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLE_TYPES_SET")
    RETURN
999 IF(ALLOCATED(old_variable_types)) DEALLOCATE(old_variable_types)
    IF(ALLOCATED(old_interpolation_type)) DEALLOCATE(old_interpolation_type)
    IF(ALLOCATED(old_interpolation_type_locked)) DEALLOCATE(old_interpolation_type_locked)
    IF(ALLOCATED(old_mesh_component_number)) DEALLOCATE(old_mesh_component_number)
    IF(ALLOCATED(old_mesh_component_number_locked)) DEALLOCATE(old_mesh_component_number_locked)
    errorsexits("FIELD_VARIABLE_TYPES_SET",err,error)
    RETURN 1
  END SUBROUTINE field_variable_types_set

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variable_types_set_and_lock(FIELD,VARIABLE_TYPES,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(IN) :: variable_types(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(varying_string) :: local_error

    enters("FIELD_VARIABLE_TYPES_SET_AND_LOCK",err,error,*999)
    
    CALL field_variable_types_set(field,variable_types,err,error,*999)
    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        field%CREATE_VALUES_CACHE%VARIABLE_TYPES_LOCKED=.true.
      ELSE
        local_error="Field create values cache is not associated for field number "// &
          & trim(number_to_vstring(field%USER_NUMBER,"*",err,error))//"."
        CALL flagerror(local_error,err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLE_TYPES_SET_AND_LOCK")
    RETURN
999 errorsexits("FIELD_VARIABLE_TYPES_SET_AND_LOCK",err,error)
    RETURN 1
  END SUBROUTINE field_variable_types_set_and_lock

  !
  !================================================================================================================================
  !

  SUBROUTINE fieldvariablescheck(field,err,error,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: variableidx,variableidx2,variabletype,variabletype2
    LOGICAL :: duplicates
    TYPE(varying_string) :: localerror

    enters("FieldVariablesCheck",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(ASSOCIATED(field%CREATE_VALUES_CACHE)) THEN
        !Check the number of field variables
        IF(field%NUMBER_OF_VARIABLES>0) THEN
          !Check that the variable types are unique. Just do an exhaustive check. It is expensive but the list should be short.
          duplicates=.false.
          firstvariable: DO variableidx=1,field%NUMBER_OF_VARIABLES
            variabletype=field%CREATE_VALUES_CACHE%VARIABLE_TYPES(variableidx)
            secondvariable: DO variableidx2=variableidx+1,field%NUMBER_OF_VARIABLES
              variabletype2=field%CREATE_VALUES_CACHE%VARIABLE_TYPES(variableidx2)
              IF(variabletype==variabletype2) THEN
                duplicates=.true.
                EXIT firstvariable
              ENDIF
            ENDDO secondvariable !variableIdx2
          ENDDO firstvariable !variableIdx
          IF(duplicates) THEN
            localerror="Invalid variable types. Two or more variables have variable type "// &
              & trim(numbertovstring(variabletype,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="Invalid field setup. The field has "//trim(numbertovstring(field%NUMBER_OF_VARIABLES,"*",err,error))// &
            & " variables and should have > 0 variables."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        CALL flagerror("Field create values cache is not associated.",err,error,*999)
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FieldVariablesCheck")
    RETURN
999 errorsexits("FieldVariablesCheck",err,error)
    RETURN 1
    
  END SUBROUTINE fieldvariablescheck

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variables_finalise(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: variable_idx

    enters("FIELD_VARIABLES_FINALISE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(ALLOCATED(field%VARIABLES)) THEN
        DO variable_idx=1,SIZE(field%VARIABLES,1)
          CALL field_variable_finalise(field%VARIABLES(variable_idx),err,error,*999)
        ENDDO !variable_idx
        DEALLOCATE(field%VARIABLES)
      ENDIF
      field%NUMBER_OF_VARIABLES=0
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLES_FINALISE")
    RETURN
999 errorsexits("FIELD_VARIABLES_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE field_variables_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE field_variables_initialise(FIELD,ERR,ERROR,*)

    !Argument variables
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    INTEGER(INTG) :: variable_idx

    enters("FIELD_VARIABLES_INITIALISE",err,error,*999)

    IF(ASSOCIATED(field)) THEN
      IF(ALLOCATED(field%VARIABLES)) THEN
        CALL flagerror("Field already has associated variables.",err,error,*999)
      ELSE
        ALLOCATE(field%VARIABLES(field%NUMBER_OF_VARIABLES),stat=err)
        IF(err/=0) CALL flagerror("Could not allocate new field variables.",err,error,*999)
        DO variable_idx=1,field%NUMBER_OF_VARIABLES
          CALL field_variable_initialise(field,variable_idx,err,error,*999)
        ENDDO !variable_idx
      ENDIF
    ELSE
      CALL flagerror("Field is not associated.",err,error,*999)
    ENDIF

    exits("FIELD_VARIABLES_INITIALISE")
    RETURN
999 errorsexits("FIELD_VARIABLES_INITIALISE",err,error)
    RETURN 1
  END SUBROUTINE field_variables_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE fields_finalise(FIELDS,ERR,ERROR,*)

    !Argument variables
    TYPE(fields_type), POINTER :: fields
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables
    TYPE(field_type), POINTER :: field

    enters("FIELDS_FINALISE",err,error,*999)

    IF(ASSOCIATED(fields)) THEN
      DO WHILE(fields%NUMBER_OF_FIELDS>0)
        field=>fields%FIELDS(1)%PTR
        CALL field_destroy(field,err,error,*999)
      ENDDO !field_idx
      DEALLOCATE(fields)
    ENDIF
    
    exits("FIELDS_FINALISE")
    RETURN
999 errorsexits("FIELDS_FINALISE",err,error)
    RETURN 1
  END SUBROUTINE fields_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE fields_initialise_generic(FIELDS,ERR,ERROR,*)

    !Argument variables
    TYPE(fields_type), POINTER :: fields
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELDS_INITIALISE_GENERIC",err,error,*999)

    IF(ASSOCIATED(fields)) THEN
      NULLIFY(fields%REGION)
      NULLIFY(fields%INTERFACE)
      fields%NUMBER_OF_FIELDS=0
      NULLIFY(fields%FIELDS)
    ELSE
      CALL flagerror("Fields is not associated.",err,error,*999)
    ENDIF

    exits("FIELDS_INITIALISE_GENERIC")
    RETURN
999 errorsexits("FIELDS_INITIALISE_GENERIC",err,error)
    RETURN 1
  END SUBROUTINE fields_initialise_generic

  !
  !================================================================================================================================
  !

  SUBROUTINE fields_initialise_interface(INTERFACE,ERR,ERROR,*)

    !Argument variables
    TYPE(interface_type), POINTER :: interface
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELDS_INITIALISE_INTERFACE",err,error,*999)

    IF(ASSOCIATED(interface)) THEN
      IF(ASSOCIATED(interface%FIELDS)) THEN
        CALL flagerror("Interface already has fields associated.",err,error,*999)
      ELSE
        ALLOCATE(interface%FIELDS,stat=err)
        IF(err/=0) CALL flagerror("Interface fields could not be allocated.",err,error,*999)
        CALL fields_initialise_generic(interface%FIELDS,err,error,*999)
        interface%FIELDS%INTERFACE=>INTERFACE
      ENDIF
    ELSE
      CALL flagerror("Interface is not associated.",err,error,*999)
    ENDIF

    exits("FIELDS_INITIALISE_INTERFACE")
    RETURN
999 errorsexits("FIELDS_INITIALISE_INTERFACE",err,error)
    RETURN 1
  END SUBROUTINE fields_initialise_interface

  !
  !================================================================================================================================
  !

  SUBROUTINE fields_initialise_region(REGION,ERR,ERROR,*)

    !Argument variables
    TYPE(region_type), POINTER :: region
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    !Local Variables

    enters("FIELDS_INITIALISE_REGION",err,error,*999)

    IF(ASSOCIATED(region)) THEN
      IF(ASSOCIATED(region%FIELDS)) THEN
        CALL flagerror("Region already has fields associated.",err,error,*999)
      ELSE
        ALLOCATE(region%FIELDS,stat=err)
        IF(err/=0) CALL flagerror("Region fields could not be allocated.",err,error,*999)
        CALL fields_initialise_generic(region%FIELDS,err,error,*999)
        region%FIELDS%REGION=>region
      ENDIF
    ELSE
      CALL flagerror("Region is not associated.",err,error,*999)
    ENDIF

    exits("FIELDS_INITIALISE_REGION")
    RETURN
999 errorsexits("FIELDS_INITIALISE_REGION",err,error)
    RETURN 1
  END SUBROUTINE fields_initialise_region

  !
  !================================================================================================================================
  !

  SUBROUTINE mesh_embedding_push_data(MESH_EMBEDDING,PARENT_FIELD,PARENT_COMPONENT,CHILD_FIELD,CHILD_COMPONENT,ERR,ERROR,*)
    TYPE(mesh_embedding_type), INTENT(INOUT) :: mesh_embedding
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    TYPE(field_type), POINTER :: parent_field
    TYPE(field_type), POINTER :: child_field
    INTEGER(INTG), INTENT(IN) :: parent_component
    INTEGER(INTG), INTENT(IN) ::  child_component

    !Local variables
    TYPE(mesh_element_type), POINTER :: element
    TYPE(basis_type), POINTER :: basis
    INTEGER(INTG) :: e,i,b,version
    REAL(DP) :: interp_val, wt
    REAL(DP),ALLOCATABLE :: parent_values(:)

    enters("MESH_EMBEDDING_PUSH_DATA",err,error,*999)
    version=1
    DO e=1,mesh_embedding%PARENT_MESH%NUMBER_OF_ELEMENTS
      element=>mesh_embedding%PARENT_MESH%TOPOLOGY(1)%PTR%ELEMENTS%ELEMENTS(e)
      basis=>element%BASIS
      ALLOCATE(parent_values(basis%NUMBER_OF_NODES))

      DO b=1,basis%NUMBER_OF_NODES
        ! Version variable added and initialized above
        CALL field_parameter_set_get_node(parent_field,field_u_variable_type,field_values_set_type,version,1,& ! TODO: FROM INPUT
        &  element%GLOBAL_ELEMENT_NODES(b),parent_component,parent_values(b),err,error,*999)   ! global no?
      ENDDO


      DO i=1,mesh_embedding%CHILD_NODE_XI_POSITION(e)%NUMBER_OF_NODES
        interp_val = 0.0
        DO b=1,basis%NUMBER_OF_NODES
          wt = basis_evaluate_xi(basis,b,no_part_deriv,mesh_embedding%CHILD_NODE_XI_POSITION(e)%XI_COORDS(:,i),err,error)
          interp_val = interp_val + wt * parent_values(b)
        ENDDO

        ! store in field
        ! Version variable added and initialized above
        CALL field_parameter_set_update_node(child_field,field_u_variable_type,field_values_set_type,version,1,& ! TODO: FROM INPUT
        &  mesh_embedding%CHILD_NODE_XI_POSITION(e)%NODE_NUMBERS(i),child_component,interp_val,err,error,*999) 
      ENDDO
      DEALLOCATE(parent_values)
    ENDDO

    RETURN
999 errorsexits("MESH_EMBEDDING_PUSH_DATA",err,error)
    RETURN 1
  END SUBROUTINE mesh_embedding_push_data

  !  
  !================================================================================================================================
  !  

  SUBROUTINE mesh_embedding_pull_gauss_point_data(MESH_EMBEDDING,PARENT_FIELD,PARENT_COMPONENT,CHILD_FIELD,CHILD_COMPONENT,&
    & err,error,*)
    
    TYPE(mesh_embedding_type), INTENT(INOUT) :: mesh_embedding
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
    TYPE(field_type), POINTER :: parent_field
    TYPE(field_type), POINTER :: child_field
    INTEGER(INTG), INTENT(IN) :: parent_component
    INTEGER(INTG), INTENT(IN) ::  child_component

    !Local variables
    TYPE(meshelementstype), POINTER :: elements
    TYPE(mesh_element_type), POINTER :: element
    TYPE(basis_type), POINTER :: basis
    INTEGER(INTG) :: e,gp,b, ngp,version
    REAL(DP) :: interp_val, wt, val

    enters("MESH_EMBEDDING_PULL_GAUSS_POINT_DATA",err,error,*999)

    elements=>mesh_embedding%CHILD_MESH%TOPOLOGY(1)%PTR%ELEMENTS

    basis=>mesh_embedding%CHILD_MESH%TOPOLOGY(1)%PTR%ELEMENTS%ELEMENTS(1)%BASIS
    version = 1
    DO e=1,mesh_embedding%PARENT_MESH%NUMBER_OF_ELEMENTS    
      ngp = basis%QUADRATURE%QUADRATURE_SCHEME_MAP(basis_default_quadrature_scheme)%PTR%NUMBER_OF_GAUSS
      DO gp=1,ngp
        element=>elements%ELEMENTS(mesh_embedding%GAUSS_POINT_XI_POSITION(gp,e)%ELEMENT_NUMBER)
        basis=>element%BASIS
        DO b=1,basis%NUMBER_OF_NODES
          ! Version variable added and initialized above
          CALL field_parameter_set_get_node(child_field,field_u_variable_type,field_values_set_type,version,1,& ! TODO: FROM INPUT
          &  element%GLOBAL_ELEMENT_NODES(b),child_component,val ,err,error,*999)   ! global no?
          wt = basis_evaluate_xi(basis,b,no_part_deriv,mesh_embedding%GAUSS_POINT_XI_POSITION(gp,e)%CHILD_XI_COORD,err,error) 
          interp_val = interp_val + wt * val
        ENDDO       
         ! store in gauss point parent field 
        CALL field_parameter_set_update_gauss_point(parent_field,field_u_variable_type,field_values_set_type,gp,e,& ! TODO: var type/par set from input
          &  parent_component, interp_val,err,error,*999) 
      ENDDO
    ENDDO

    RETURN
999 errorsexits("MESH_EMBEDDING_PULL_GAUSS_POINT_DATA",err,error)
    RETURN 1
  END SUBROUTINE mesh_embedding_pull_gauss_point_data

  !
  !================================================================================================================================
  !

  SUBROUTINE field_parameter_set_get_gauss_point_coord(MESH_EMBEDDING,COMPONENT_NUMBER,NGP,COORD_VALUE, &
    & err,error,*)
    
    TYPE(mesh_embedding_type), INTENT(INOUT) :: mesh_embedding
    INTEGER(INTG), INTENT(IN) :: component_number
    INTEGER(INTG), INTENT(OUT) :: ngp
    REAL(DP), INTENT(OUT) :: coord_value(:)
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error
  
    !Local variables
    TYPE(meshelementstype), POINTER :: elements
    TYPE(basis_type), POINTER :: basis
    INTEGER(INTG) :: gp

    enters("FIELD_PARAMETER_SET_GET_GAUSS_POINT_COORD",err,error,*999)

    elements=>mesh_embedding%PARENT_MESH%TOPOLOGY(1)%PTR%ELEMENTS

    basis=>mesh_embedding%PARENT_MESH%TOPOLOGY(1)%PTR%ELEMENTS%ELEMENTS(1)%BASIS
    ngp = basis%QUADRATURE%QUADRATURE_SCHEME_MAP(basis_default_quadrature_scheme)%PTR%NUMBER_OF_GAUSS

    DO gp = 1,ngp
    coord_value(gp) = basis%QUADRATURE%QUADRATURE_SCHEME_MAP(basis_default_quadrature_scheme)%PTR%&
       &gauss_positions(component_number,gp)
    ENDDO

999 errorsexits("FIELD_PARAMETER_SET_GET_GAUSS_POINT_COORD",err,error)
    RETURN 1
  END SUBROUTINE field_parameter_set_get_gauss_point_coord

  !
  !================================================================================================================================
  !

  SUBROUTINE field_user_number_to_field_region( USER_NUMBER, REGION, FIELD, ERR, ERROR, * )
    !Arguments
    INTEGER(INTG), INTENT(IN) :: user_number
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error

    !Locals
    TYPE(varying_string) :: local_error

    enters("FIELD_USER_NUMBER_TO_FIELD_REGION", err, error, *999 )

    NULLIFY( field )
    CALL field_user_number_find( user_number, region, field, err, error, *999 )
      CALL field_user_number_find( user_number, region, field, err, error, *999 )
    IF( .NOT.ASSOCIATED( field ) ) THEN
      local_error = "A field with an user number of "//trim(number_to_vstring( user_number, "*", err, error ))// &
        & " does not exist on region number "//trim(number_to_vstring( region%USER_NUMBER, "*", err, error ))//"."
      CALL flagerror( local_error, err, error, *999 )
    ENDIF

    exits( "FIELD_USER_NUMBER_TO_FIELD_REGION" )
    RETURN
999 errorsexits( "FIELD_USER_NUMBER_TO_FIELD_REGION", err, error )
    RETURN 1

  END SUBROUTINE field_user_number_to_field_region

  !
  !================================================================================================================================
  !

  SUBROUTINE field_user_number_to_field_interface( USER_NUMBER, INTERFACE, FIELD, ERR, ERROR, * )
    !Arguments
    INTEGER(INTG), INTENT(IN) :: user_number
    TYPE(interface_type), POINTER :: interface
    TYPE(field_type), POINTER :: field
    INTEGER(INTG), INTENT(OUT) :: err
    TYPE(varying_string), INTENT(OUT) :: error

    !Locals
    TYPE(varying_string) :: local_error

    enters("FIELD_USER_NUMBER_TO_FIELD_INTERFACE", err, error, *999 )

    NULLIFY( field )
    CALL field_user_number_find( user_number, interface, field, err, error, *999 )
      CALL field_user_number_find( user_number, interface, field, err, error, *999 )
    IF( .NOT.ASSOCIATED( field ) ) THEN
      local_error = "A field with an user number of "//trim(number_to_vstring( user_number, "*", err, error ))// &
        & " does not exist on region number "//trim(number_to_vstring( interface%USER_NUMBER, "*", err, error ))//"."
      CALL flagerror( local_error, err, error, *999 )
    ENDIF

    exits( "FIELD_USER_NUMBER_TO_FIELD_INTERFACE" )
    RETURN
999 errorsexits( "FIELD_USER_NUMBER_TO_FIELD_INTERFACE", err, error )
    RETURN 1

  END SUBROUTINE field_user_number_to_field_interface

  !
  !================================================================================================================================
  !

END MODULE field_routines