opencmiss_iron.f90

Go to the documentation of this file.

! Eclipse regular expressions to add the DLLEXPORT macro:
! Find: ^( *)(SUBROUTINE *)([^\(]*)(\([^\)]*\))
! Replace: $1$2$3$4\R$1  !DLLEXPORT($3)

MODULE opencmiss_iron

  USE analytic_analysis_routines
  USE base_routines
  USE basis_routines
  USE bioelectric_finite_elasticity_routines
  USE boundary_conditions_routines
  USE cmiss
  USE cmiss_cellml
  USE comp_environment
  USE constants
  USE control_loop_routines
  USE coordinate_routines
  USE data_point_routines
  USE data_projection_routines
  USE distributed_matrix_vector
  USE equations_routines
  USE equations_set_constants
  USE equations_set_routines
  USE field_routines
#ifdef WITH_FIELDML
  USE fieldml_types
  USE fieldml_input_routines
  USE fieldml_output_routines
  USE fieldml_util_routines
#endif
  USE field_io_routines
  USE finite_elasticity_routines
  USE generated_mesh_routines
  USE hamilton_jacobi_equations_routines
  USE history_routines
  USE input_output
  USE interface_routines
  USE interface_conditions_constants
  USE interface_conditions_routines
  USE interface_equations_routines
  USE interface_matrices_constants
  USE interface_matrices_routines
  USE iso_c_binding
  USE iso_varying_string
  USE kinds
  USE mesh_routines
  USE node_routines
  USE problem_constants
  USE problem_routines
  USE region_routines
  USE solver_routines
  USE strings
  USE types

#include "macros.h"
#include "dllexport.h"

  IMPLICIT NONE

  PRIVATE

  !Module parameters

  !Module types

  TYPE cmfe_basistype
    PRIVATE
    TYPE(basis_type), POINTER :: basis
  END TYPE cmfe_basistype

  TYPE cmfe_boundaryconditionstype
    PRIVATE
    TYPE(boundary_conditions_type), POINTER :: boundaryconditions
  END TYPE cmfe_boundaryconditionstype

  TYPE cmfe_cellmltype
    PRIVATE
    TYPE(cellml_type), POINTER :: cellml
  END TYPE cmfe_cellmltype

  TYPE cmfe_cellmlequationstype
    PRIVATE
    TYPE(cellml_equations_type), POINTER :: cellmlequations
  END TYPE cmfe_cellmlequationstype

  TYPE cmfe_controllooptype
    PRIVATE
    TYPE(control_loop_type), POINTER :: controlloop
  END TYPE cmfe_controllooptype

  TYPE cmfe_coordinatesystemtype
    PRIVATE
    TYPE(coordinate_system_type), POINTER :: coordinatesystem
  END TYPE cmfe_coordinatesystemtype

  TYPE cmfe_datapointstype
    PRIVATE
    TYPE(data_points_type), POINTER :: datapoints
  END TYPE cmfe_datapointstype

  TYPE cmfe_dataprojectiontype
    PRIVATE
    TYPE(data_projection_type), POINTER :: dataprojection
  END TYPE cmfe_dataprojectiontype

  TYPE cmfe_decompositiontype
    PRIVATE
    TYPE(decomposition_type), POINTER :: decomposition
  END TYPE cmfe_decompositiontype

  TYPE cmfe_equationstype
    PRIVATE
    TYPE(equations_type), POINTER :: equations
  END TYPE cmfe_equationstype

  TYPE cmfe_equationssettype
    PRIVATE
    TYPE(equations_set_type), POINTER :: equationsset
  END TYPE cmfe_equationssettype

  TYPE cmfe_fieldtype
    PRIVATE
    TYPE(field_type), POINTER :: field
  END TYPE cmfe_fieldtype

  TYPE cmfe_fieldstype
    !PRIVATE
    TYPE(fields_type), POINTER :: fields
  END TYPE cmfe_fieldstype

  TYPE cmfe_generatedmeshtype
    PRIVATE
    TYPE(generated_mesh_type), POINTER :: generatedmesh
  END TYPE cmfe_generatedmeshtype

  TYPE cmfe_historytype
    PRIVATE
    TYPE(history_type), POINTER :: history
  END TYPE cmfe_historytype

  TYPE cmfe_interfacetype
    PRIVATE
    TYPE(interface_type), POINTER :: interface
  END TYPE cmfe_interfacetype

  TYPE cmfe_interfaceconditiontype
    PRIVATE
    TYPE(interface_condition_type), POINTER :: interfacecondition
  END TYPE cmfe_interfaceconditiontype

  TYPE cmfe_interfaceequationstype
    PRIVATE
    TYPE(interface_equations_type), POINTER :: interfaceequations
  END TYPE cmfe_interfaceequationstype

  TYPE cmfe_interfacemeshconnectivitytype
    PRIVATE
    TYPE(interface_mesh_connectivity_type), POINTER :: meshconnectivity
  END TYPE cmfe_interfacemeshconnectivitytype
  
  TYPE cmfe_interfacepointsconnectivitytype
    PRIVATE
    TYPE(interfacepointsconnectivitytype), POINTER :: pointsconnectivity
  END TYPE cmfe_interfacepointsconnectivitytype

  TYPE cmfe_distributedmatrixtype
    PRIVATE
    TYPE(distributed_matrix_type), POINTER :: distributedmatrix
  END TYPE cmfe_distributedmatrixtype

  TYPE cmfe_distributedvectortype
    PRIVATE
    TYPE(distributed_vector_type), POINTER :: distributedvector
  END TYPE cmfe_distributedvectortype

  TYPE cmfe_meshtype
    PRIVATE
    TYPE(mesh_type), POINTER :: mesh
  END TYPE cmfe_meshtype

  TYPE cmfe_meshelementstype
    PRIVATE
    TYPE(meshelementstype), POINTER :: meshelements
  END TYPE cmfe_meshelementstype

  TYPE cmfe_meshembeddingtype
    PRIVATE
    TYPE(mesh_embedding_type), POINTER :: meshembedding
  END TYPE cmfe_meshembeddingtype

  TYPE cmfe_meshnodestype
    PRIVATE
    TYPE(meshnodestype), POINTER :: meshnodes
  END TYPE cmfe_meshnodestype

  TYPE cmfe_nodestype
    PRIVATE
    TYPE(nodes_type), POINTER :: nodes
  END TYPE cmfe_nodestype

  TYPE cmfe_problemtype
    PRIVATE
    TYPE(problem_type), POINTER :: problem
  END TYPE cmfe_problemtype

  TYPE cmfe_quadraturetype
    PRIVATE
    TYPE(quadrature_type), POINTER :: quadrature
  END TYPE cmfe_quadraturetype

  TYPE cmfe_regiontype
    PRIVATE
    TYPE(region_type), POINTER :: region
  END TYPE cmfe_regiontype

  TYPE cmfe_solvertype
    PRIVATE
    TYPE(solver_type), POINTER :: solver
  END TYPE cmfe_solvertype

  TYPE cmfe_solverequationstype
    PRIVATE
    TYPE(solver_equations_type), POINTER :: solverequations
  END TYPE cmfe_solverequationstype

  TYPE cmfe_computationalworkgrouptype
    PRIVATE
    TYPE(computational_work_group_type), POINTER :: computationalworkgroup
  END TYPE cmfe_computationalworkgrouptype

  !Module variables

  TYPE(varying_string) :: error

  !INTERFACE cmfe_Finalise_
  !  MODULE PROCEDURE cmfe_Finalise
  !END INTERFACE cmfe_Finalise_

  INTERFACE cmfe_initialise
    MODULE PROCEDURE cmfe_initialisenumber
    MODULE PROCEDURE cmfe_initialiseobj
  END INTERFACE cmfe_initialise

  INTERFACE cmfe_fields_create
    MODULE PROCEDURE cmfe_fields_createinterface
    MODULE PROCEDURE cmfe_fields_createregion
  END INTERFACE cmfe_fields_create

  !PUBLIC cmfe_Finalise,cmfe_Initialise
  PUBLIC cmfe_finalise,cmfe_initialise

  PUBLIC cmfe_workingrealprecisionget

  PUBLIC cmfe_basistype,cmfe_basistypescopy,cmfe_basis_finalise,cmfe_basis_initialise

  PUBLIC cmfe_boundaryconditionstype,cmfe_boundaryconditions_finalise,cmfe_boundaryconditions_initialise

  PUBLIC cmfe_cellmltype,cmfe_cellml_finalise,cmfe_cellml_initialise

  PUBLIC cmfe_cellmlequationstype,cmfe_cellmlequations_finalise,cmfe_cellmlequations_initialise

  PUBLIC cmfe_computationalworkgrouptype,cmfe_computationalworkgroup_initialise

  PUBLIC cmfe_controllooptype,cmfe_controlloop_finalise,cmfe_controlloop_initialise,cmfe_controlloop_loadoutputset

  PUBLIC cmfe_coordinatesystemtype,cmfe_coordinatesystem_finalise,cmfe_coordinatesystem_initialise

  PUBLIC cmfe_datapointstype,cmfe_datapoints_finalise,cmfe_datapoints_initialise

  PUBLIC cmfe_dataprojectiontype,cmfe_dataprojection_finalise,cmfe_dataprojection_initialise

  PUBLIC cmfe_decompositiontype,cmfe_decomposition_finalise,cmfe_decomposition_initialise

  PUBLIC cmfe_decomposition_calculatefacesset,cmfe_decomposition_calculatelinesset

  PUBLIC cmfe_equationstype,cmfe_equations_finalise,cmfe_equations_initialise

  PUBLIC cmfe_equationssettype,cmfe_equationsset_finalise,cmfe_equationsset_initialise

  PUBLIC cmfe_fieldtype,cmfe_field_finalise,cmfe_field_initialise

  PUBLIC cmfe_fieldstype,cmfe_fields_create,cmfe_fields_finalise,cmfe_fields_initialise

  PUBLIC cmfe_generatedmeshtype,cmfe_generatedmesh_finalise,cmfe_generatedmesh_initialise

  PUBLIC cmfe_historytype,cmfe_history_finalise,cmfe_history_initialise

  PUBLIC cmfe_interfacetype,cmfe_interface_finalise,cmfe_interface_initialise

  PUBLIC cmfe_interfaceconditiontype,cmfe_interfacecondition_finalise,cmfe_interfacecondition_initialise

  PUBLIC cmfe_interfaceequationstype,cmfe_interfaceequations_finalise,cmfe_interfaceequations_initialise

  PUBLIC cmfe_interfacemeshconnectivitytype,cmfe_interfacemeshconnectivity_finalise, &
    & cmfe_interfacemeshconnectivity_initialise
  
  PUBLIC cmfe_interfacepointsconnectivitytype,cmfe_interfacepointsconnectivity_initialise, &
    & cmfe_interfacepointsconnectivity_finalise

  PUBLIC cmfe_distributedmatrixtype,cmfe_distributedvectortype

  PUBLIC cmfe_distributedmatrix_initialise,cmfe_distributedvector_initialise

  PUBLIC cmfe_meshtype,cmfe_mesh_finalise,cmfe_mesh_initialise

  PUBLIC cmfe_meshelementstype,cmfe_meshelements_finalise,cmfe_meshelements_initialise

  PUBLIC cmfe_meshnodestype,cmfe_meshnodes_finalise,cmfe_meshnodes_initialise

  PUBLIC cmfe_nodestype,cmfe_nodes_finalise,cmfe_nodes_initialise

  PUBLIC cmfe_problemtype,cmfe_problem_finalise,cmfe_problem_initialise

  PUBLIC cmfe_quadraturetype,cmfe_quadrature_finalise,cmfe_quadrature_initialise

  PUBLIC cmfe_regiontype,cmfe_region_finalise,cmfe_region_initialise

  PUBLIC cmfe_solvertype,cmfe_solver_finalise,cmfe_solver_initialise

  PUBLIC cmfe_solverequationstype,cmfe_solverequations_finalise,cmfe_solverequations_initialise

!!==================================================================================================================================
!!
!! ANALYTIC_ANALYSIS_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_analyticanalysis_output
    MODULE PROCEDURE cmfe_analyticanalysis_outputnumber
    MODULE PROCEDURE cmfe_analyticanalysis_outputobj
  END INTERFACE

  INTERFACE cmfe_analyticanalysis_absoluteerrorgetnode
    MODULE PROCEDURE cmfe_analyticanalysis_absoluteerrorgetnodenumber
    MODULE PROCEDURE cmfe_analyticanalysis_absoluteerrorgetnodeobj
  END INTERFACE cmfe_analyticanalysis_absoluteerrorgetnode

  INTERFACE cmfe_analyticanalysis_percentageerrorgetnode
    MODULE PROCEDURE cmfe_analyticanalysis_percentageerrorgetnodenumber
    MODULE PROCEDURE cmfe_analyticanalysis_percentageerrorgetnodeobj
  END INTERFACE cmfe_analyticanalysis_percentageerrorgetnode

  INTERFACE cmfe_analyticanalysis_relativeerrorgetnode
    MODULE PROCEDURE cmfe_analyticanalysis_relativeerrorgetnodenumber
    MODULE PROCEDURE cmfe_analyticanalysis_relativeerrorgetnodeobj
  END INTERFACE cmfe_analyticanalysis_relativeerrorgetnode

  INTERFACE cmfe_analyticanalysis_absoluteerrorgetelement
    MODULE PROCEDURE cmfe_analyticanalysis_absoluteerrorgetelementnumber
    MODULE PROCEDURE cmfe_analyticanalysis_absoluteerrorgetelementobj
  END INTERFACE cmfe_analyticanalysis_absoluteerrorgetelement

  INTERFACE cmfe_analyticanalysis_percentageerrorgetelement
    MODULE PROCEDURE cmfe_analyticanalysis_percentageerrorgetelementnumber
    MODULE PROCEDURE cmfe_analyticanalysis_percentageerrorgetelementobj
  END INTERFACE cmfe_analyticanalysis_percentageerrorgetelement

  INTERFACE cmfe_analyticanalysis_relativeerrorgetelement
    MODULE PROCEDURE cmfe_analyticanalysis_relativeerrorgetelementnumber
    MODULE PROCEDURE cmfe_analyticanalysis_relativeerrorgetelementobj
  END INTERFACE cmfe_analyticanalysis_relativeerrorgetelement

  INTERFACE cmfe_analyticanalysis_absoluteerrorgetconstant
    MODULE PROCEDURE cmfe_analyticanalysis_absoluteerrorgetconstantnumber
    MODULE PROCEDURE cmfe_analyticanalysis_absoluteerrorgetconstantobj
  END INTERFACE cmfe_analyticanalysis_absoluteerrorgetconstant

  INTERFACE cmfe_analyticanalysis_percentageerrorgetconstant
    MODULE PROCEDURE cmfe_analyticanalysis_percentageerrorgetconstantnumber
    MODULE PROCEDURE cmfe_analyticanalysis_percentageerrorgetconstantobj
  END INTERFACE cmfe_analyticanalysis_percentageerrorgetconstant

  INTERFACE cmfe_analyticanalysis_relativeerrorgetconstant
    MODULE PROCEDURE cmfe_analyticanalysis_relativeerrorgetconstantnumber
    MODULE PROCEDURE cmfe_analyticanalysis_relativeerrorgetconstantobj
  END INTERFACE cmfe_analyticanalysis_relativeerrorgetconstant

  INTERFACE cmfe_analyticanalysis_rmserrorgetnode
    MODULE PROCEDURE cmfe_analyticanalysis_rmserrorgetnodenumber
    MODULE PROCEDURE cmfe_analyticanalysis_rmserrorgetnodeobj
  END INTERFACE cmfe_analyticanalysis_rmserrorgetnode

  INTERFACE cmfe_analyticanalysis_rmserrorgetelement
    MODULE PROCEDURE cmfe_analyticanalysis_rmserrorgetelementnumber
    MODULE PROCEDURE cmfe_analyticanalysis_rmserrorgetelementobj
  END INTERFACE cmfe_analyticanalysis_rmserrorgetelement

  INTERFACE cmfe_analyticanalysis_integralnumericalvalueget
    MODULE PROCEDURE cmfe_analyticanalysis_integralnumericalvaluegetnumber
    MODULE PROCEDURE cmfe_analyticanalysis_integralnumericalvaluegetobj
  END INTERFACE cmfe_analyticanalysis_integralnumericalvalueget
  
  INTERFACE cmfe_analyticanalysis_integralanalyticvalueget
    MODULE PROCEDURE cmfe_analyticanalysis_integralanalyticvaluegetnumber
    MODULE PROCEDURE cmfe_analyticanalysis_integralanalyticvaluegetobj
  END INTERFACE cmfe_analyticanalysis_integralanalyticvalueget

  INTERFACE cmfe_analyticanalysis_integralpercentageerrorget
    MODULE PROCEDURE cmfe_analyticanalysis_integralpercentageerrorgetnumber
    MODULE PROCEDURE cmfe_analyticanalysis_integralpercentageerrorgetobj
  END INTERFACE cmfe_analyticanalysis_integralpercentageerrorget

  INTERFACE cmfe_analyticanalysis_integralabsoluteerrorget
    MODULE PROCEDURE cmfe_analyticanalysis_integralabsoluteerrorgetnumber
    MODULE PROCEDURE cmfe_analyticanalysis_integralabsoluteerrorgetobj
  END INTERFACE cmfe_analyticanalysis_integralabsoluteerrorget

  INTERFACE cmfe_analyticanalysis_integralrelativeerrorget
    MODULE PROCEDURE cmfe_analyticanalysis_integralrelativeerrorgetnumber
    MODULE PROCEDURE cmfe_analyticanalysis_integralrelativeerrorgetobj
  END INTERFACE cmfe_analyticanalysis_integralrelativeerrorget

  INTERFACE cmfe_analyticanalysis_integralnidnumericalvalueget
    MODULE PROCEDURE cmfe_analyticanalysis_integralnidnumericalvaluegetnumber
    MODULE PROCEDURE cmfe_analyticanalysis_integralnidnumericalvaluegetobj
  END INTERFACE cmfe_analyticanalysis_integralnidnumericalvalueget

  INTERFACE cmfe_analyticanalysis_integralniderrorget
    MODULE PROCEDURE cmfe_analyticanalysis_integralniderrorgetnumber
    MODULE PROCEDURE cmfe_analyticanalysis_integralniderrorgetobj
  END INTERFACE cmfe_analyticanalysis_integralniderrorget

  PUBLIC cmfe_analyticanalysis_output

  PUBLIC cmfe_analyticanalysis_absoluteerrorgetnode,cmfe_analyticanalysis_percentageerrorgetnode, &
    & cmfe_analyticanalysis_relativeerrorgetnode

  PUBLIC cmfe_analyticanalysis_absoluteerrorgetelement,cmfe_analyticanalysis_percentageerrorgetelement, &
    & cmfe_analyticanalysis_relativeerrorgetelement

  PUBLIC cmfe_analyticanalysis_absoluteerrorgetconstant,cmfe_analyticanalysis_percentageerrorgetconstant, &
    & cmfe_analyticanalysis_relativeerrorgetconstant

  PUBLIC cmfe_analyticanalysis_rmserrorgetnode,cmfe_analyticanalysis_rmserrorgetelement

  PUBLIC cmfe_analyticanalysis_integralnumericalvalueget,cmfe_analyticanalysis_integralanalyticvalueget, &
    & cmfe_analyticanalysis_integralpercentageerrorget,cmfe_analyticanalysis_integralabsoluteerrorget, &
    & cmfe_analyticanalysis_integralrelativeerrorget,cmfe_analyticanalysis_integralnidnumericalvalueget, &
    & cmfe_analyticanalysis_integralniderrorget

!!==================================================================================================================================
!!
!! BASE_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  INTEGER(INTG), PARAMETER :: cmfe_all_diag_type = all_diag_type 
  INTEGER(INTG), PARAMETER :: cmfe_in_diag_type = in_diag_type 
  INTEGER(INTG), PARAMETER :: cmfe_from_diag_type = from_diag_type 
  INTEGER(INTG), PARAMETER :: cmfe_all_timing_type = all_timing_type 
  INTEGER(INTG), PARAMETER :: cmfe_in_timing_type = in_timing_type 
  INTEGER(INTG), PARAMETER :: cmfe_from_timing_type = from_timing_type 

  !Module types

  !Module variables

  !Interfaces

  PUBLIC cmfe_all_diag_type,cmfe_in_diag_type,cmfe_from_diag_type

  PUBLIC cmfe_all_timing_type,cmfe_in_timing_type,cmfe_from_timing_type

  PUBLIC cmfe_diagnosticssetoff,cmfe_diagnosticsseton

  PUBLIC cmfe_outputsetoff,cmfe_outputseton

  PUBLIC cmfe_timingsetoff,cmfe_timingseton,cmfe_timingsummaryoutput

!!==================================================================================================================================
!!
!! BASIS_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  INTEGER(INTG), PARAMETER :: cmfe_basis_lagrange_hermite_tp_type = basis_lagrange_hermite_tp_type 
  INTEGER(INTG), PARAMETER :: cmfe_basis_simplex_type = basis_simplex_type 
  INTEGER(INTG), PARAMETER :: cmfe_basis_serendipity_type = basis_serendipity_type 
  INTEGER(INTG), PARAMETER :: cmfe_basis_auxilliary_type = basis_auxilliary_type 
  INTEGER(INTG), PARAMETER :: cmfe_basis_b_spline_tp_type = basis_b_spline_tp_type 
  INTEGER(INTG), PARAMETER :: cmfe_basis_fourier_lagrange_hermite_tp_type = basis_fourier_lagrange_hermite_tp_type 
  INTEGER(INTG), PARAMETER :: cmfe_basis_extended_lagrange_tp_type = basis_extended_lagrange_tp_type 
  INTEGER(INTG), PARAMETER :: cmfe_basis_linear_lagrange_interpolation = basis_linear_lagrange_interpolation 
  INTEGER(INTG), PARAMETER :: cmfe_basis_quadratic_lagrange_interpolation = basis_quadratic_lagrange_interpolation 
  INTEGER(INTG), PARAMETER :: cmfe_basis_cubic_lagrange_interpolation = basis_cubic_lagrange_interpolation 
  INTEGER(INTG), PARAMETER :: cmfe_basis_cubic_hermite_interpolation = basis_cubic_hermite_interpolation 
  INTEGER(INTG), PARAMETER :: cmfe_basis_quadratic1_hermite_interpolation = basis_quadratic1_hermite_interpolation 
  INTEGER(INTG), PARAMETER :: cmfe_basis_quadratic2_hermite_interpolation = basis_quadratic2_hermite_interpolation 
  INTEGER(INTG), PARAMETER :: cmfe_basis_linear_simplex_interpolation = basis_linear_simplex_interpolation 
  INTEGER(INTG), PARAMETER :: cmfe_basis_quadratic_simplex_interpolation = basis_quadratic_simplex_interpolation 
  INTEGER(INTG), PARAMETER :: cmfe_basis_cubic_simplex_interpolation = basis_cubic_simplex_interpolation 
  INTEGER(INTG), PARAMETER :: cmfe_basis_default_quadrature_scheme = basis_default_quadrature_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_basis_low_quadrature_scheme = basis_low_quadrature_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_basis_mid_quadrature_scheme = basis_mid_quadrature_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_basis_high_quadrature_scheme = basis_high_quadrature_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_basis_gauss_legendre_quadrature = basis_gauss_legendre_quadrature 
  INTEGER(INTG), PARAMETER :: cmfe_basis_gauss_laguerre_quadrature = basis_gauss_laguerre_quadrature 
  INTEGER(INTG), PARAMETER :: cmfe_basis_guass_hermite_quadrature = basis_guass_hermite_quadrature 
  INTEGER(INTG), PARAMETER :: cmfe_basis_adaptive_gauss_legendre_quadrature = basis_adaptive_gauss_legendre_quadrature 
  INTEGER(INTG), PARAMETER :: cmfe_basis_gauss_simplex_quadrature = basis_gauss_simplex_quadrature 
  INTEGER(INTG), PARAMETER :: cmfe_basis_xi_collapsed = basis_xi_collapsed 
  INTEGER(INTG), PARAMETER :: cmfe_basis_collapsed_at_xi0 = basis_collapsed_at_xi0 
  INTEGER(INTG), PARAMETER :: cmfe_basis_collapsed_at_xi1 = basis_collapsed_at_xi1 
  INTEGER(INTG), PARAMETER :: cmfe_basis_not_collapsed = basis_not_collapsed 

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_basis_collapsedxiget
    MODULE PROCEDURE cmfe_basis_collapsedxigetnumber
    MODULE PROCEDURE cmfe_basis_collapsedxigetobj
  END INTERFACE cmfe_basis_collapsedxiget

  INTERFACE cmfe_basis_collapsedxiset
    MODULE PROCEDURE cmfe_basis_collapsedxisetnumber
    MODULE PROCEDURE cmfe_basis_collapsedxisetobj
  END INTERFACE cmfe_basis_collapsedxiset

  INTERFACE cmfe_basis_createfinish
    MODULE PROCEDURE cmfe_basis_createfinishnumber
    MODULE PROCEDURE cmfe_basis_createfinishobj
  END INTERFACE cmfe_basis_createfinish

  INTERFACE cmfe_basis_createstart
    MODULE PROCEDURE cmfe_basis_createstartnumber
    MODULE PROCEDURE cmfe_basis_createstartobj
  END INTERFACE cmfe_basis_createstart

  INTERFACE cmfe_basis_destroy
    MODULE PROCEDURE cmfe_basis_destroynumber
    MODULE PROCEDURE cmfe_basis_destroyobj
  END INTERFACE cmfe_basis_destroy

  INTERFACE cmfe_basis_interpolationxiget
    MODULE PROCEDURE cmfe_basis_interpolationxigetnumber
    MODULE PROCEDURE cmfe_basis_interpolationxigetobj
  END INTERFACE cmfe_basis_interpolationxiget

  INTERFACE cmfe_basis_interpolationxiset
    MODULE PROCEDURE cmfe_basis_interpolationxisetnumber
    MODULE PROCEDURE cmfe_basis_interpolationxisetobj
  END INTERFACE cmfe_basis_interpolationxiset

  INTERFACE cmfe_basis_numberoflocalnodesget
    MODULE PROCEDURE cmfe_basis_numberoflocalnodesgetnumber
    MODULE PROCEDURE cmfe_basis_numberoflocalnodesgetobj
  END INTERFACE cmfe_basis_numberoflocalnodesget

  INTERFACE cmfe_basis_numberofxiget
    MODULE PROCEDURE cmfe_basis_numberofxigetnumber
    MODULE PROCEDURE cmfe_basis_numberofxigetobj
  END INTERFACE cmfe_basis_numberofxiget

  INTERFACE cmfe_basis_numberofxiset
    MODULE PROCEDURE cmfe_basis_numberofxisetnumber
    MODULE PROCEDURE cmfe_basis_numberofxisetobj
  END INTERFACE cmfe_basis_numberofxiset

  INTERFACE cmfe_basis_quadraturenumberofgaussxiget
    MODULE PROCEDURE cmfe_basis_quadraturenumberofgaussxigetnumber
    MODULE PROCEDURE cmfe_basis_quadraturenumberofgaussxigetobj
  END INTERFACE cmfe_basis_quadraturenumberofgaussxiget

  INTERFACE cmfe_basis_quadraturenumberofgaussxiset
    MODULE PROCEDURE cmfe_basis_quadraturenumberofgaussxisetnumber
    MODULE PROCEDURE cmfe_basis_quadraturenumberofgaussxisetobj
  END INTERFACE cmfe_basis_quadraturenumberofgaussxiset

  INTERFACE cmfe_basis_quadraturegaussxiget
    MODULE PROCEDURE cmfe_basis_quadraturesinglegaussxigetnumber
    MODULE PROCEDURE cmfe_basis_quadraturesinglegaussxigetobj
    MODULE PROCEDURE cmfe_basis_quadraturemultiplegaussxigetnumber
    MODULE PROCEDURE cmfe_basis_quadraturemultiplegaussxigetobj
  END INTERFACE cmfe_basis_quadraturegaussxiget

  INTERFACE cmfe_basis_quadratureorderget
    MODULE PROCEDURE cmfe_basis_quadratureordergetnumber
    MODULE PROCEDURE cmfe_basis_quadratureordergetobj
  END INTERFACE cmfe_basis_quadratureorderget

  INTERFACE cmfe_basis_quadratureorderset
    MODULE PROCEDURE cmfe_basis_quadratureordersetnumber
    MODULE PROCEDURE cmfe_basis_quadratureordersetobj
  END INTERFACE cmfe_basis_quadratureorderset

  INTERFACE cmfe_basis_quadraturetypeget
    MODULE PROCEDURE cmfe_basis_quadraturetypegetnumber
    MODULE PROCEDURE cmfe_basis_quadraturetypegetobj
  END INTERFACE cmfe_basis_quadraturetypeget

  INTERFACE cmfe_basis_quadraturetypeset
    MODULE PROCEDURE cmfe_basis_quadraturetypesetnumber
    MODULE PROCEDURE cmfe_basis_quadraturetypesetobj
  END INTERFACE cmfe_basis_quadraturetypeset

  INTERFACE cmfe_basis_quadraturelocalfacegaussevaluateset
    MODULE PROCEDURE cmfe_basis_quadraturelocalfacegaussevaluatesetnumber
    MODULE PROCEDURE cmfe_basis_quadraturelocalfacegaussevaluatesetobj
  END INTERFACE cmfe_basis_quadraturelocalfacegaussevaluateset

  INTERFACE cmfe_basis_typeget
    MODULE PROCEDURE cmfe_basis_typegetnumber
    MODULE PROCEDURE cmfe_basis_typegetobj
  END INTERFACE cmfe_basis_typeget

  INTERFACE cmfe_basis_typeset
    MODULE PROCEDURE cmfe_basis_typesetnumber
    MODULE PROCEDURE cmfe_basis_typesetobj
  END INTERFACE cmfe_basis_typeset

  PUBLIC cmfe_basis_lagrange_hermite_tp_type,cmfe_basis_simplex_type,cmfe_basis_serendipity_type,cmfe_basis_auxilliary_type, &
    & cmfe_basis_b_spline_tp_type,cmfe_basis_fourier_lagrange_hermite_tp_type,cmfe_basis_extended_lagrange_tp_type

  PUBLIC cmfe_basis_linear_lagrange_interpolation,cmfe_basis_quadratic_lagrange_interpolation, &
    & cmfe_basis_cubic_lagrange_interpolation, &
    & cmfe_basis_cubic_hermite_interpolation,cmfe_basis_quadratic1_hermite_interpolation, &
    & cmfe_basis_quadratic2_hermite_interpolation, &
    & cmfe_basis_linear_simplex_interpolation,cmfe_basis_quadratic_simplex_interpolation,cmfe_basis_cubic_simplex_interpolation

  PUBLIC cmfe_basis_default_quadrature_scheme,cmfe_basis_low_quadrature_scheme,cmfe_basis_mid_quadrature_scheme, &
    & cmfe_basis_high_quadrature_scheme

  PUBLIC cmfe_basis_gauss_legendre_quadrature,cmfe_basis_gauss_laguerre_quadrature,cmfe_basis_guass_hermite_quadrature, &
    & cmfe_basis_adaptive_gauss_legendre_quadrature,cmfe_basis_gauss_simplex_quadrature

  PUBLIC cmfe_basis_xi_collapsed,cmfe_basis_collapsed_at_xi0,cmfe_basis_collapsed_at_xi1,cmfe_basis_not_collapsed

  PUBLIC cmfe_basis_collapsedxiget,cmfe_basis_collapsedxiset

  PUBLIC cmfe_basis_createfinish,cmfe_basis_createstart,cmfe_basis_destroy

  PUBLIC cmfe_basis_interpolationxiget,cmfe_basis_interpolationxiset

  PUBLIC cmfe_basis_numberoflocalnodesget

  PUBLIC cmfe_basis_numberofxiget,cmfe_basis_numberofxiset

  PUBLIC cmfe_basis_quadraturenumberofgaussxiget,cmfe_basis_quadraturenumberofgaussxiset

  PUBLIC cmfe_basis_quadraturegaussxiget

  PUBLIC cmfe_basis_quadratureorderget,cmfe_basis_quadratureorderset

  PUBLIC cmfe_basis_quadraturetypeget,cmfe_basis_quadraturetypeset,cmfe_basis_quadraturelocalfacegaussevaluateset

  PUBLIC cmfe_basis_typeget,cmfe_basis_typeset

!!==================================================================================================================================
!!
!! BOUNDARY_CONDITIONS_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters


  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_free = boundary_condition_free 
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_fixed = boundary_condition_fixed 
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_fixed_wall = boundary_condition_fixed_wall
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_fixed_inlet = boundary_condition_fixed_inlet
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_fixed_outlet = boundary_condition_fixed_outlet
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_moved_wall = boundary_condition_moved_wall
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_moved_wall_incremented = boundary_condition_moved_wall_incremented
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_free_wall = boundary_condition_free_wall

  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_neumann_point = boundary_condition_neumann_point 
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_neumann_point_incremented = boundary_condition_neumann_point_incremented 
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_neumann_integrated = boundary_condition_neumann_integrated 
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_dirichlet = boundary_condition_dirichlet
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_cauchy = boundary_condition_cauchy
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_robin = boundary_condition_robin

  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_fixed_incremented = boundary_condition_fixed_incremented
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_pressure = boundary_condition_pressure
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_pressure_incremented = boundary_condition_pressure_incremented

  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_correction_mass_increase = boundary_condition_correction_mass_increase
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_impermeable_wall = boundary_condition_impermeable_wall
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_neumann_integrated_only = boundary_condition_neumann_integrated_only 

  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_fixed_fitted = boundary_condition_fixed_fitted
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_fixed_nonreflecting = boundary_condition_fixed_nonreflecting
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_fixed_cellml = boundary_condition_fixed_cellml
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_sparse_matrices = boundary_condition_sparse_matrices
  INTEGER(INTG), PARAMETER :: cmfe_boundary_condition_full_matrices = boundary_condition_full_matrices

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_boundaryconditions_destroy
    MODULE PROCEDURE cmfe_boundaryconditions_destroynumber0
    MODULE PROCEDURE cmfe_boundaryconditions_destroynumber1
    MODULE PROCEDURE cmfe_boundaryconditions_destroyobj
  END INTERFACE cmfe_boundaryconditions_destroy

  INTERFACE cmfe_boundaryconditions_addconstant
    MODULE PROCEDURE cmfe_boundaryconditions_addconstantnumber
    MODULE PROCEDURE cmfe_boundaryconditions_addconstantobj
  END INTERFACE cmfe_boundaryconditions_addconstant

  INTERFACE cmfe_boundaryconditions_setconstant
    MODULE PROCEDURE cmfe_boundaryconditions_setconstantnumber
    MODULE PROCEDURE cmfe_boundaryconditions_setconstantobj
  END INTERFACE cmfe_boundaryconditions_setconstant

  INTERFACE cmfe_boundaryconditions_addelement
    MODULE PROCEDURE cmfe_boundaryconditions_addelementnumber
    MODULE PROCEDURE cmfe_boundaryconditions_addelementobj
  END INTERFACE cmfe_boundaryconditions_addelement

  INTERFACE cmfe_boundaryconditions_setelement
    MODULE PROCEDURE cmfe_boundaryconditions_setelementnumber
    MODULE PROCEDURE cmfe_boundaryconditions_setelementobj
  END INTERFACE cmfe_boundaryconditions_setelement

  INTERFACE cmfe_boundaryconditions_addnode
    MODULE PROCEDURE cmfe_boundaryconditions_addnodenumber
    MODULE PROCEDURE cmfe_boundaryconditions_addnodeobj
  END INTERFACE cmfe_boundaryconditions_addnode

  INTERFACE cmfe_boundaryconditions_setnode
    MODULE PROCEDURE cmfe_boundaryconditions_setnodenumber0
    MODULE PROCEDURE cmfe_boundaryconditions_setnodenumber1
    MODULE PROCEDURE cmfe_boundaryconditions_setnodeobj
  END INTERFACE cmfe_boundaryconditions_setnode

  INTERFACE cmfe_boundaryconditions_neumannsparsitytypeset
    MODULE PROCEDURE cmfe_boundaryconditions_neumannsparsitytypesetnumber0
    MODULE PROCEDURE cmfe_boundaryconditions_neumannsparsitytypesetnumber1
    MODULE PROCEDURE cmfe_boundaryconditions_neumannsparsitytypesetobj
  END INTERFACE cmfe_boundaryconditions_neumannsparsitytypeset

  INTERFACE cmfe_boundaryconditions_constrainnodedofsequal
    MODULE PROCEDURE cmfe_boundaryconditions_constrainnodedofsequalnumber
    MODULE PROCEDURE cmfe_boundaryconditions_constrainnodedofsequalobj
  END INTERFACE cmfe_boundaryconditions_constrainnodedofsequal

  PUBLIC cmfe_boundary_condition_free,cmfe_boundary_condition_fixed, &
    & cmfe_boundary_condition_fixed_wall,cmfe_boundary_condition_fixed_inlet,cmfe_boundary_condition_moved_wall, &
    & cmfe_boundary_condition_free_wall,cmfe_boundary_condition_fixed_outlet,cmfe_boundary_condition_moved_wall_incremented, &
    & cmfe_boundary_condition_correction_mass_increase,cmfe_boundary_condition_impermeable_wall, &
    & cmfe_boundary_condition_neumann_integrated_only,cmfe_boundary_condition_fixed_fitted, &
    & cmfe_boundary_condition_fixed_nonreflecting,cmfe_boundary_condition_fixed_cellml

  PUBLIC cmfe_boundary_condition_neumann_point,cmfe_boundary_condition_neumann_integrated,cmfe_boundary_condition_dirichlet
  PUBLIC cmfe_boundary_condition_cauchy,cmfe_boundary_condition_robin,cmfe_boundary_condition_fixed_incremented
  PUBLIC cmfe_boundary_condition_pressure,cmfe_boundary_condition_pressure_incremented
  PUBLIC cmfe_boundary_condition_neumann_point_incremented

  PUBLIC cmfe_boundary_condition_sparse_matrices,cmfe_boundary_condition_full_matrices

  PUBLIC cmfe_boundaryconditions_destroy

  PUBLIC cmfe_boundaryconditions_addconstant,cmfe_boundaryconditions_setconstant

  PUBLIC cmfe_boundaryconditions_addelement,cmfe_boundaryconditions_setelement

  PUBLIC cmfe_boundaryconditions_addnode,cmfe_boundaryconditions_setnode

  PUBLIC cmfe_boundaryconditions_neumannsparsitytypeset

  PUBLIC cmfe_boundaryconditions_constrainnodedofsequal

!!==================================================================================================================================
!!
!! CMISS
!!
!!==================================================================================================================================

  !Module parameters
  INTEGER(INTG), PARAMETER :: cmfe_errors_return_error_code = cmfe_return_error_code 
  INTEGER(INTG), PARAMETER :: cmfe_errors_output_error = cmfe_output_error 
  INTEGER(INTG), PARAMETER :: cmfe_errors_trap_error = cmfe_trap_error

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_extracterrormessage
    MODULE PROCEDURE cmfe_extracterrormessagec
    MODULE PROCEDURE cmfe_extracterrormessagevs
  END INTERFACE cmfe_extracterrormessage

  INTERFACE cmfe_randomseedsget
    MODULE PROCEDURE cmfe_randomseedsget0
    MODULE PROCEDURE cmfe_randomseedsget1
  END INTERFACE cmfe_randomseedsget

  INTERFACE cmfe_randomseedsset
    MODULE PROCEDURE cmfe_randomseedsset0
    MODULE PROCEDURE cmfe_randomseedsset1
  END INTERFACE cmfe_randomseedsset

  PUBLIC cmfe_errors_return_error_code,cmfe_errors_output_error,cmfe_errors_trap_error

  PUBLIC cmfe_errorhandlingmodeget,cmfe_errorhandlingmodeset

  PUBLIC cmfe_extracterrormessage

  PUBLIC cmfe_randomseedsget,cmfe_randomseedssizeget,cmfe_randomseedsset

!!==================================================================================================================================
!!
!! CMISS_CELLML
!!
!!==================================================================================================================================

  !Module parameters

  INTEGER(INTG), PARAMETER :: cmfe_cellml_models_field = cellml_models_field 
  INTEGER(INTG), PARAMETER :: cmfe_cellml_state_field = cellml_state_field 
  INTEGER(INTG), PARAMETER :: cmfe_cellml_intermediate_field = cellml_intermediate_field 
  INTEGER(INTG), PARAMETER :: cmfe_cellml_parameters_field = cellml_parameters_field 

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_cellml_variablesetasknown
    MODULE PROCEDURE cmfe_cellml_variablesetasknownnumberc
    MODULE PROCEDURE cmfe_cellml_variablesetasknownobjc
    MODULE PROCEDURE cmfe_cellml_variablesetasknownnumbervs
    MODULE PROCEDURE cmfe_cellml_variablesetasknownobjvs
  END INTERFACE cmfe_cellml_variablesetasknown

  INTERFACE cmfe_cellml_variablesetaswanted
    MODULE PROCEDURE cmfe_cellml_variablesetaswantednumberc
    MODULE PROCEDURE cmfe_cellml_variablesetaswantedobjc
    MODULE PROCEDURE cmfe_cellml_variablesetaswantednumbervs
    MODULE PROCEDURE cmfe_cellml_variablesetaswantedobjvs
  END INTERFACE cmfe_cellml_variablesetaswanted

  INTERFACE cmfe_cellml_createcellmltofieldmap
    MODULE PROCEDURE cmfe_cellml_createcellmltofieldmapnumberc
    MODULE PROCEDURE cmfe_cellml_createcellmltofieldmapobjc
    MODULE PROCEDURE cmfe_cellml_createcellmltofieldmapnumbervs
    MODULE PROCEDURE cmfe_cellml_createcellmltofieldmapobjvs
  END INTERFACE cmfe_cellml_createcellmltofieldmap

  INTERFACE cmfe_cellml_createfieldtocellmlmap
    MODULE PROCEDURE cmfe_cellml_createfieldtocellmlmapnumberc
    MODULE PROCEDURE cmfe_cellml_createfieldtocellmlmapobjc
    MODULE PROCEDURE cmfe_cellml_createfieldtocellmlmapnumbervs
    MODULE PROCEDURE cmfe_cellml_createfieldtocellmlmapobjvs
  END INTERFACE cmfe_cellml_createfieldtocellmlmap

  INTERFACE cmfe_cellml_createfinish
    MODULE PROCEDURE cmfe_cellml_createfinishnumber
    MODULE PROCEDURE cmfe_cellml_createfinishobj
  END INTERFACE cmfe_cellml_createfinish

  INTERFACE cmfe_cellml_createstart
    MODULE PROCEDURE cmfe_cellml_createstartnumber
    MODULE PROCEDURE cmfe_cellml_createstartobj
  END INTERFACE cmfe_cellml_createstart

  INTERFACE cmfe_cellml_destroy
    MODULE PROCEDURE cmfe_cellml_destroynumber
    MODULE PROCEDURE cmfe_cellml_destroyobj
  END INTERFACE cmfe_cellml_destroy

  INTERFACE cmfe_cellml_fieldmapscreatefinish
    MODULE PROCEDURE cmfe_cellml_fieldmapscreatefinishnumber
    MODULE PROCEDURE cmfe_cellml_fieldmapscreatefinishobj
  END INTERFACE cmfe_cellml_fieldmapscreatefinish

  INTERFACE cmfe_cellml_fieldmapscreatestart
    MODULE PROCEDURE cmfe_cellml_fieldmapscreatestartnumber
    MODULE PROCEDURE cmfe_cellml_fieldmapscreatestartobj
  END INTERFACE cmfe_cellml_fieldmapscreatestart

  INTERFACE cmfe_cellml_modelimport
    MODULE PROCEDURE cmfe_cellml_modelimportnumberc
    MODULE PROCEDURE cmfe_cellml_modelimportobjc
    MODULE PROCEDURE cmfe_cellml_modelimportnumbervs
    MODULE PROCEDURE cmfe_cellml_modelimportobjvs
  END INTERFACE cmfe_cellml_modelimport

  INTERFACE cmfe_cellml_modelsfieldcreatefinish
    MODULE PROCEDURE cmfe_cellml_modelsfieldcreatefinishnumber
    MODULE PROCEDURE cmfe_cellml_modelsfieldcreatefinishobj
  END INTERFACE cmfe_cellml_modelsfieldcreatefinish

  INTERFACE cmfe_cellml_modelsfieldcreatestart
    MODULE PROCEDURE cmfe_cellml_modelsfieldcreatestartnumber
    MODULE PROCEDURE cmfe_cellml_modelsfieldcreatestartobj
  END INTERFACE cmfe_cellml_modelsfieldcreatestart

  INTERFACE cmfe_cellml_modelsfieldget
    MODULE PROCEDURE cmfe_cellml_modelsfieldgetnumber
    MODULE PROCEDURE cmfe_cellml_modelsfieldgetobj
  END INTERFACE cmfe_cellml_modelsfieldget

  INTERFACE cmfe_cellml_statefieldcreatefinish
    MODULE PROCEDURE cmfe_cellml_statefieldcreatefinishnumber
    MODULE PROCEDURE cmfe_cellml_statefieldcreatefinishobj
  END INTERFACE cmfe_cellml_statefieldcreatefinish

  INTERFACE cmfe_cellml_statefieldcreatestart
    MODULE PROCEDURE cmfe_cellml_statefieldcreatestartnumber
    MODULE PROCEDURE cmfe_cellml_statefieldcreatestartobj
  END INTERFACE cmfe_cellml_statefieldcreatestart

  INTERFACE cmfe_cellml_statefieldget
    MODULE PROCEDURE cmfe_cellml_statefieldgetnumber
    MODULE PROCEDURE cmfe_cellml_statefieldgetobj
  END INTERFACE cmfe_cellml_statefieldget

  INTERFACE cmfe_cellml_fieldcomponentget
    MODULE PROCEDURE cmfe_cellml_fieldcomponentgetnumberc
    MODULE PROCEDURE cmfe_cellml_fieldcomponentgetobjc
    MODULE PROCEDURE cmfe_cellml_fieldcomponentgetnumbervs
    MODULE PROCEDURE cmfe_cellml_fieldcomponentgetobjvs
  END INTERFACE cmfe_cellml_fieldcomponentget

  INTERFACE cmfe_cellml_intermediatefieldcreatefinish
    MODULE PROCEDURE cmfe_cellml_intermediatefieldcreatefinishnumber
    MODULE PROCEDURE cmfe_cellml_intermediatefieldcreatefinishobj
  END INTERFACE cmfe_cellml_intermediatefieldcreatefinish

  INTERFACE cmfe_cellml_intermediatefieldcreatestart
    MODULE PROCEDURE cmfe_cellml_intermediatefieldcreatestartnumber
    MODULE PROCEDURE cmfe_cellml_intermediatefieldcreatestartobj
  END INTERFACE cmfe_cellml_intermediatefieldcreatestart

  INTERFACE cmfe_cellml_intermediatefieldget
    MODULE PROCEDURE cmfe_cellml_intermediatefieldgetnumber
    MODULE PROCEDURE cmfe_cellml_intermediatefieldgetobj
  END INTERFACE cmfe_cellml_intermediatefieldget

  INTERFACE cmfe_cellml_parametersfieldcreatefinish
    MODULE PROCEDURE cmfe_cellml_parametersfieldcreatefinishnumber
    MODULE PROCEDURE cmfe_cellml_parametersfieldcreatefinishobj
  END INTERFACE cmfe_cellml_parametersfieldcreatefinish

  INTERFACE cmfe_cellml_parametersfieldcreatestart
    MODULE PROCEDURE cmfe_cellml_parametersfieldcreatestartnumber
    MODULE PROCEDURE cmfe_cellml_parametersfieldcreatestartobj
  END INTERFACE cmfe_cellml_parametersfieldcreatestart

  INTERFACE cmfe_cellml_parametersfieldget
    MODULE PROCEDURE cmfe_cellml_parametersfieldgetnumber
    MODULE PROCEDURE cmfe_cellml_parametersfieldgetobj
  END INTERFACE cmfe_cellml_parametersfieldget

  INTERFACE cmfe_cellml_generate
    MODULE PROCEDURE cmfe_cellml_generatenumber
    MODULE PROCEDURE cmfe_cellml_generateobj
  END INTERFACE cmfe_cellml_generate

  PUBLIC cmfe_cellml_models_field,cmfe_cellml_state_field,cmfe_cellml_intermediate_field,cmfe_cellml_parameters_field

  PUBLIC cmfe_cellml_variablesetasknown,cmfe_cellml_variablesetaswanted

  PUBLIC cmfe_cellml_createcellmltofieldmap,cmfe_cellml_createfieldtocellmlmap

  PUBLIC cmfe_cellml_createfinish,cmfe_cellml_createstart

  PUBLIC cmfe_cellml_destroy

  PUBLIC cmfe_cellml_fieldmapscreatestart,cmfe_cellml_fieldmapscreatefinish

  PUBLIC cmfe_cellml_modelimport

  PUBLIC cmfe_cellml_modelsfieldcreatefinish,cmfe_cellml_modelsfieldcreatestart,cmfe_cellml_modelsfieldget

  PUBLIC cmfe_cellml_statefieldcreatefinish,cmfe_cellml_statefieldcreatestart,cmfe_cellml_statefieldget

  PUBLIC cmfe_cellml_fieldcomponentget

  PUBLIC cmfe_cellml_intermediatefieldcreatefinish,cmfe_cellml_intermediatefieldcreatestart

  PUBLIC cmfe_cellml_intermediatefieldget

  PUBLIC cmfe_cellml_parametersfieldcreatefinish,cmfe_cellml_parametersfieldcreatestart,cmfe_cellml_parametersfieldget

  PUBLIC cmfe_cellml_generate

!!==================================================================================================================================
!!
!! COMP_ENVIRONMENT
!!
!!==================================================================================================================================

  !Module parameters

  !Module types

  !Module variables

  !Interfaces

  PUBLIC cmfe_computationalnodenumberget

  PUBLIC cmfe_computationalnumberofnodesget

  PUBLIC cmfe_computationalworkgroup_createstart

  PUBLIC cmfe_computationalworkgroup_createfinish

  PUBLIC cmfe_computationalworkgroup_subgroupadd

  PUBLIC cmfe_decomposition_worldworkgroupset
!!==================================================================================================================================
!!
!! CONSTANTS
!!
!!==================================================================================================================================

  !Module parameters

  INTEGER(INTG), PARAMETER :: cmfe_integer_type = integer_type 
  INTEGER(INTG), PARAMETER :: cmfe_short_integer_type = short_integer_type 
  INTEGER(INTG), PARAMETER :: cmfe_long_integer_type = long_integer_type 
  INTEGER(INTG), PARAMETER :: cmfe_single_real_type = single_real_type 
  INTEGER(INTG), PARAMETER :: cmfe_double_real_type = double_real_type 
  INTEGER(INTG), PARAMETER :: cmfe_quadrauple_real_type = quadruple_real_type 
  INTEGER(INTG), PARAMETER :: cmfe_character_type = character_type 
  INTEGER(INTG), PARAMETER :: cmfe_logical_type = logical_type 
  INTEGER(INTG), PARAMETER :: cmfe_single_complex_type = single_complex_type 
  INTEGER(INTG), PARAMETER :: cmfe_double_complex_type = double_complex_type 
  INTEGER(INTG), PARAMETER :: cmfe_quadruple_complex_type = quadruple_complex_type 
  INTEGER(INTG), PARAMETER :: cmfe_no_global_deriv = no_global_deriv 
  INTEGER(INTG), PARAMETER :: cmfe_global_deriv_s1 = global_deriv_s1 
  INTEGER(INTG), PARAMETER :: cmfe_global_deriv_s2 = global_deriv_s2 
  INTEGER(INTG), PARAMETER :: cmfe_global_deriv_s1_s2 = global_deriv_s1_s2 
  INTEGER(INTG), PARAMETER :: cmfe_global_deriv_s3 = global_deriv_s3 
  INTEGER(INTG), PARAMETER :: cmfe_global_deriv_s1_s3 = global_deriv_s1_s3 
  INTEGER(INTG), PARAMETER :: cmfe_global_deriv_s2_s3 = global_deriv_s2_s3 
  INTEGER(INTG), PARAMETER :: cmfe_global_deriv_s1_s2_s3 = global_deriv_s1_s2_s3 

  !Module types

  !Module variables

  !Interfaces

  PUBLIC cmfe_integer_type,cmfe_short_integer_type,cmfe_long_integer_type,cmfe_single_real_type,cmfe_double_real_type, &
    & cmfe_quadrauple_real_type,cmfe_character_type,cmfe_logical_type,cmfe_single_complex_type,cmfe_double_complex_type, &
    & cmfe_quadruple_complex_type
  
  PUBLIC cmfe_no_global_deriv,cmfe_global_deriv_s1,cmfe_global_deriv_s2,cmfe_global_deriv_s1_s2, &
    & cmfe_global_deriv_s3,cmfe_global_deriv_s1_s3,cmfe_global_deriv_s2_s3,cmfe_global_deriv_s1_s2_s3

!!==================================================================================================================================
!!
!! CONTROL_LOOP_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  INTEGER(INTG), PARAMETER :: cmfe_control_loop_node = control_loop_node 
  INTEGER(INTG), PARAMETER :: cmfe_control_loop_no_output = control_loop_no_output 
  INTEGER(INTG), PARAMETER :: cmfe_control_loop_progress_output = control_loop_progress_output 
  INTEGER(INTG), PARAMETER :: cmfe_control_loop_timing_output = control_loop_timing_output 

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_controlloop_currenttimesget
    MODULE PROCEDURE cmfe_controlloop_currenttimesgetnumber0
    MODULE PROCEDURE cmfe_controlloop_currenttimesgetnumber1
    MODULE PROCEDURE cmfe_controlloop_currenttimesgetobj
  END INTERFACE cmfe_controlloop_currenttimesget

  INTERFACE cmfe_controlloop_destroy
    MODULE PROCEDURE cmfe_controlloop_destroynumber0
    MODULE PROCEDURE cmfe_controlloop_destroynumber1
    MODULE PROCEDURE cmfe_controlloop_destroyobj
  END INTERFACE cmfe_controlloop_destroy

  INTERFACE cmfe_controlloop_controlloopget
    MODULE PROCEDURE cmfe_controlloop_controlloopgetnumber00
    MODULE PROCEDURE cmfe_controlloop_controlloopgetnumber10
    MODULE PROCEDURE cmfe_controlloop_controlloopgetnumber01
    MODULE PROCEDURE cmfe_controlloop_controlloopgetnumber11
    MODULE PROCEDURE cmfe_controlloop_controlloopgetobj0
    MODULE PROCEDURE cmfe_controlloop_controlloopgetobj1
  END INTERFACE cmfe_controlloop_controlloopget

  INTERFACE cmfe_controlloop_iterationsset
    MODULE PROCEDURE cmfe_controlloop_iterationssetnumber0
    MODULE PROCEDURE cmfe_controlloop_iterationssetnumber1
    MODULE PROCEDURE cmfe_controlloop_iterationssetobj
  END INTERFACE cmfe_controlloop_iterationsset

  INTERFACE cmfe_controlloop_labelget
    MODULE PROCEDURE cmfe_controlloop_labelgetcnumber0
    MODULE PROCEDURE cmfe_controlloop_labelgetcnumber1
    MODULE PROCEDURE cmfe_controlloop_labelgetcobj
    MODULE PROCEDURE cmfe_controlloop_labelgetvsnumber0
    MODULE PROCEDURE cmfe_controlloop_labelgetvsnumber1
    MODULE PROCEDURE cmfe_controlloop_labelgetvsobj
  END INTERFACE cmfe_controlloop_labelget

  INTERFACE cmfe_controlloop_labelset
    MODULE PROCEDURE cmfe_controlloop_labelsetcnumber0
    MODULE PROCEDURE cmfe_controlloop_labelsetcnumber1
    MODULE PROCEDURE cmfe_controlloop_labelsetcobj
    MODULE PROCEDURE cmfe_controlloop_labelsetvsnumber0
    MODULE PROCEDURE cmfe_controlloop_labelsetvsnumber1
    MODULE PROCEDURE cmfe_controlloop_labelsetvsobj
  END INTERFACE cmfe_controlloop_labelset

  INTERFACE cmfe_controlloop_maximumiterationsset
    MODULE PROCEDURE cmfe_controlloop_maximumiterationssetnumber0
    MODULE PROCEDURE cmfe_controlloop_maximumiterationssetnumber1
    MODULE PROCEDURE cmfe_controlloop_maximumiterationssetobj
  END INTERFACE cmfe_controlloop_maximumiterationsset

  INTERFACE cmfe_controlloop_absolutetoleranceset
    MODULE PROCEDURE cmfe_controlloop_absolutetolerancesetnumber0
    MODULE PROCEDURE cmfe_controlloop_absolutetolerancesetnumber1
    MODULE PROCEDURE cmfe_controlloop_absolutetolerancesetobj
  END INTERFACE cmfe_controlloop_absolutetoleranceset

  INTERFACE cmfe_controlloop_numberofiterationsget
    MODULE PROCEDURE cmfe_controlloop_numberofiterationsgetnumber0
    MODULE PROCEDURE cmfe_controlloop_numberofiterationsgetnumber1
    MODULE PROCEDURE cmfe_controlloop_numberofiterationsgetobj
  END INTERFACE cmfe_controlloop_numberofiterationsget

  INTERFACE cmfe_controlloop_numberofiterationsset
    MODULE PROCEDURE cmfe_controlloop_numberofiterationssetnumber0
    MODULE PROCEDURE cmfe_controlloop_numberofiterationssetnumber1
    MODULE PROCEDURE cmfe_controlloop_numberofiterationssetobj
  END INTERFACE cmfe_controlloop_numberofiterationsset

  INTERFACE cmfe_controlloop_numberofsubloopsget
    MODULE PROCEDURE cmfe_controlloop_numberofsubloopsgetnumber0
    MODULE PROCEDURE cmfe_controlloop_numberofsubloopsgetnumber1
    MODULE PROCEDURE cmfe_controlloop_numberofsubloopsgetobj
  END INTERFACE cmfe_controlloop_numberofsubloopsget

  INTERFACE cmfe_controlloop_numberofsubloopsset
    MODULE PROCEDURE cmfe_controlloop_numberofsubloopssetnumber0
    MODULE PROCEDURE cmfe_controlloop_numberofsubloopssetnumber1
    MODULE PROCEDURE cmfe_controlloop_numberofsubloopssetobj
  END INTERFACE cmfe_controlloop_numberofsubloopsset

  INTERFACE cmfe_controlloop_timeoutputset
    MODULE PROCEDURE cmfe_controlloop_timeoutputsetnumber0
    MODULE PROCEDURE cmfe_controlloop_timeoutputsetnumber1
    MODULE PROCEDURE cmfe_controlloop_timeoutputsetobj
  END INTERFACE cmfe_controlloop_timeoutputset

  INTERFACE cmfe_controlloop_outputtypeget
    MODULE PROCEDURE cmfe_controlloop_outputtypegetnumber0
    MODULE PROCEDURE cmfe_controlloop_outputtypegetnumber1
    MODULE PROCEDURE cmfe_controlloop_outputtypegetobj
  END INTERFACE cmfe_controlloop_outputtypeget

  INTERFACE cmfe_controlloop_outputtypeset
    MODULE PROCEDURE cmfe_controlloop_outputtypesetnumber0
    MODULE PROCEDURE cmfe_controlloop_outputtypesetnumber1
    MODULE PROCEDURE cmfe_controlloop_outputtypesetobj
  END INTERFACE cmfe_controlloop_outputtypeset

  INTERFACE cmfe_controlloop_timeinputset
    MODULE PROCEDURE cmfe_controlloop_timeinputsetnumber0
    MODULE PROCEDURE cmfe_controlloop_timeinputsetnumber1
    MODULE PROCEDURE cmfe_controlloop_timeinputsetobj
  END INTERFACE cmfe_controlloop_timeinputset

  INTERFACE cmfe_controlloop_timesget
    MODULE PROCEDURE cmfe_controlloop_timesgetnumber0
    MODULE PROCEDURE cmfe_controlloop_timesgetnumber1
    MODULE PROCEDURE cmfe_controlloop_timesgetobj
  END INTERFACE cmfe_controlloop_timesget

  INTERFACE cmfe_controlloop_timesset
    MODULE PROCEDURE cmfe_controlloop_timessetnumber0
    MODULE PROCEDURE cmfe_controlloop_timessetnumber1
    MODULE PROCEDURE cmfe_controlloop_timessetobj
  END INTERFACE cmfe_controlloop_timesset

  INTERFACE cmfe_controlloop_typeset
    MODULE PROCEDURE cmfe_controlloop_typesetnumber0
    MODULE PROCEDURE cmfe_controlloop_typesetnumber1
    MODULE PROCEDURE cmfe_controlloop_typesetobj
  END INTERFACE cmfe_controlloop_typeset

  PUBLIC cmfe_control_loop_node

  PUBLIC cmfe_control_loop_no_output,cmfe_control_loop_progress_output,cmfe_control_loop_timing_output

  PUBLIC cmfe_controlloop_currenttimesget

  PUBLIC cmfe_controlloop_destroy

  PUBLIC cmfe_controlloop_controlloopget

  PUBLIC cmfe_controlloop_iterationsset

  PUBLIC cmfe_controlloop_labelget,cmfe_controlloop_labelset

  PUBLIC cmfe_controlloop_maximumiterationsset

  PUBLIC cmfe_controlloop_absolutetoleranceset

  PUBLIC cmfe_controlloop_numberofiterationsget, cmfe_controlloop_numberofiterationsset
  
  PUBLIC cmfe_controlloop_numberofsubloopsget,cmfe_controlloop_numberofsubloopsset

  PUBLIC cmfe_controlloop_outputtypeget,cmfe_controlloop_outputtypeset

  PUBLIC cmfe_controlloop_timeoutputset,cmfe_controlloop_timeinputset

  PUBLIC cmfe_controlloop_timesget,cmfe_controlloop_timesset

  PUBLIC cmfe_controlloop_typeset


!!==================================================================================================================================
!!
!! COORDINATE_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  INTEGER(INTG), PARAMETER :: cmfe_coordinate_rectangular_cartesian_type = coordinate_rectangular_cartesian_type 
  INTEGER(INTG), PARAMETER :: cmfe_coordinate_cylindrical_polar_type = coordinate_cylindrical_polar_type 
  INTEGER(INTG), PARAMETER :: cmfe_coordinate_spherical_polar_type = coordinate_spherical_polar_type 
  INTEGER(INTG), PARAMETER :: cmfe_coordinate_prolate_spheroidal_type = coordinate_prolate_spheroidal_type 
  INTEGER(INTG), PARAMETER :: cmfe_coordinate_oblate_spheroidal_type = coordinate_oblate_spheroidal_type 
  INTEGER(INTG), PARAMETER :: cmfe_coordinate_no_radial_interpolation_type = coordinate_no_radial_interpolation_type 
  INTEGER(INTG), PARAMETER :: cmfe_coordinate_radial_interpolation_type = coordinate_radial_interpolation_type 
  INTEGER(INTG), PARAMETER :: cmfe_coordinate_radial_squared_interpolation_type = coordinate_radial_squared_interpolation_type 
  INTEGER(INTG), PARAMETER :: cmfe_coordinate_radial_cubed_interpolation_type = coordinate_radial_cubed_interpolation_type 

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_coordinatesystem_createfinish
    MODULE PROCEDURE cmfe_coordinatesystem_createfinishnumber
    MODULE PROCEDURE cmfe_coordinatesystem_createfinishobj
  END INTERFACE cmfe_coordinatesystem_createfinish

  INTERFACE cmfe_coordinatesystem_createstart
    MODULE PROCEDURE cmfe_coordinatesystem_createstartnumber
    MODULE PROCEDURE cmfe_coordinatesystem_createstartobj
  END INTERFACE cmfe_coordinatesystem_createstart

  INTERFACE cmfe_coordinatesystem_destroy
    MODULE PROCEDURE cmfe_coordinatesystem_destroynumber
    MODULE PROCEDURE cmfe_coordinatesystem_destroyobj
  END INTERFACE cmfe_coordinatesystem_destroy

  INTERFACE cmfe_coordinatesystem_dimensionget
    MODULE PROCEDURE cmfe_coordinatesystem_dimensiongetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_dimensiongetobj
  END INTERFACE cmfe_coordinatesystem_dimensionget

  INTERFACE cmfe_coordinatesystem_dimensionset
    MODULE PROCEDURE cmfe_coordinatesystem_dimensionsetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_dimensionsetobj
  END INTERFACE cmfe_coordinatesystem_dimensionset

  INTERFACE cmfe_coordinatesystem_focusget
    MODULE PROCEDURE cmfe_coordinatesystem_focusgetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_focusgetobj
  END INTERFACE cmfe_coordinatesystem_focusget

  INTERFACE cmfe_coordinatesystem_focusset
    MODULE PROCEDURE cmfe_coordinatesystem_focussetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_focussetobj
  END INTERFACE cmfe_coordinatesystem_focusset

  INTERFACE cmfe_coordinatesystem_radialinterpolationget
    MODULE PROCEDURE cmfe_coordinatesystem_radialinterpolationgetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_radialinterpolationgetobj
  END INTERFACE cmfe_coordinatesystem_radialinterpolationget

  INTERFACE cmfe_coordinatesystem_radialinterpolationset
    MODULE PROCEDURE cmfe_coordinatesystem_radialinterpolationsetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_radialinterpolationsetobj
  END INTERFACE cmfe_coordinatesystem_radialinterpolationset

  INTERFACE cmfe_coordinatesystem_typeget
    MODULE PROCEDURE cmfe_coordinatesystem_typegetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_typegetobj
  END INTERFACE cmfe_coordinatesystem_typeget

  INTERFACE cmfe_coordinatesystem_typeset
    MODULE PROCEDURE cmfe_coordinatesystem_typesetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_typesetobj
  END INTERFACE cmfe_coordinatesystem_typeset

  INTERFACE cmfe_coordinatesystem_originget
    MODULE PROCEDURE cmfe_coordinatesystem_origingetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_origingetobj
  END INTERFACE cmfe_coordinatesystem_originget

  INTERFACE cmfe_coordinatesystem_originset
    MODULE PROCEDURE cmfe_coordinatesystem_originsetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_originsetobj
  END INTERFACE cmfe_coordinatesystem_originset

  INTERFACE cmfe_coordinatesystem_orientationget
    MODULE PROCEDURE cmfe_coordinatesystem_orientationgetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_orientationgetobj
  END INTERFACE cmfe_coordinatesystem_orientationget

  INTERFACE cmfe_coordinatesystem_orientationset
    MODULE PROCEDURE cmfe_coordinatesystem_orientationsetnumber
    MODULE PROCEDURE cmfe_coordinatesystem_orientationsetobj
  END INTERFACE cmfe_coordinatesystem_orientationset

  PUBLIC cmfe_coordinate_rectangular_cartesian_type,cmfe_coordinate_cylindrical_polar_type, &
    & cmfe_coordinate_spherical_polar_type, &
    & cmfe_coordinate_prolate_spheroidal_type,cmfe_coordinate_oblate_spheroidal_type

  PUBLIC cmfe_coordinate_no_radial_interpolation_type,cmfe_coordinate_radial_interpolation_type, &
    & cmfe_coordinate_radial_squared_interpolation_type,cmfe_coordinate_radial_cubed_interpolation_type

  PUBLIC cmfe_coordinatesystem_createfinish,cmfe_coordinatesystem_createstart

  PUBLIC cmfe_coordinatesystem_destroy

  PUBLIC cmfe_coordinatesystem_dimensionget,cmfe_coordinatesystem_dimensionset

  PUBLIC cmfe_coordinatesystem_focusget,cmfe_coordinatesystem_focusset

  PUBLIC cmfe_coordinatesystem_radialinterpolationget,cmfe_coordinatesystem_radialinterpolationset

  PUBLIC cmfe_coordinatesystem_typeget,cmfe_coordinatesystem_typeset

  PUBLIC cmfe_coordinatesystem_originget,cmfe_coordinatesystem_originset

  PUBLIC cmfe_coordinatesystem_orientationget,cmfe_coordinatesystem_orientationset

!!==================================================================================================================================
!!
!! DATA_POINT_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_datapoints_createfinish
    MODULE PROCEDURE cmfe_datapoints_createfinishnumber
    MODULE PROCEDURE cmfe_datapoints_createfinishobj
  END INTERFACE cmfe_datapoints_createfinish

  INTERFACE cmfe_datapoints_createstart
    MODULE PROCEDURE cmfe_datapoints_createstartnumber
    MODULE PROCEDURE cmfe_datapoints_createstartobj
    MODULE PROCEDURE cmfe_datapoints_createstartinterfaceobj
  END INTERFACE cmfe_datapoints_createstart

  INTERFACE cmfe_datapoints_destroy
    MODULE PROCEDURE cmfe_datapoints_destroynumber
    MODULE PROCEDURE cmfe_datapoints_destroyobj
  END INTERFACE cmfe_datapoints_destroy

  INTERFACE cmfe_datapoints_numberofdatapointsget
    MODULE PROCEDURE cmfe_datapoints_numberofdatapointsgetnumber
    MODULE PROCEDURE cmfe_datapoints_numberofdatapointsgetobj
  END INTERFACE cmfe_datapoints_numberofdatapointsget

  INTERFACE cmfe_datapoints_labelget
    MODULE PROCEDURE cmfe_datapoints_labelgetcnumber
    MODULE PROCEDURE cmfe_datapoints_labelgetcobj
    MODULE PROCEDURE cmfe_datapoints_labelgetvsnumber
    MODULE PROCEDURE cmfe_datapoints_labelgetvsobj
  END INTERFACE cmfe_datapoints_labelget

  INTERFACE cmfe_datapoints_labelset
    MODULE PROCEDURE cmfe_datapoints_labelsetcnumber
    MODULE PROCEDURE cmfe_datapoints_labelsetcobj
    MODULE PROCEDURE cmfe_datapoints_labelsetvsnumber
    MODULE PROCEDURE cmfe_datapoints_labelsetvsobj
  END INTERFACE cmfe_datapoints_labelset

  INTERFACE cmfe_datapoints_usernumberget
    MODULE PROCEDURE cmfe_datapoints_usernumbergetnumber
    MODULE PROCEDURE cmfe_datapoints_usernumbergetobj
  END INTERFACE cmfe_datapoints_usernumberget

  INTERFACE cmfe_datapoints_usernumberset
    MODULE PROCEDURE cmfe_datapoints_usernumbersetnumber
    MODULE PROCEDURE cmfe_datapoints_usernumbersetobj
  END INTERFACE cmfe_datapoints_usernumberset

  INTERFACE cmfe_datapoints_valuesget
    MODULE PROCEDURE cmfe_datapoints_valuesgetnumber
    MODULE PROCEDURE cmfe_datapoints_valuesgetobj
  END INTERFACE cmfe_datapoints_valuesget

  INTERFACE cmfe_datapoints_valuesset
    MODULE PROCEDURE cmfe_datapoints_valuessetnumber
    MODULE PROCEDURE cmfe_datapoints_valuessetobj
  END INTERFACE cmfe_datapoints_valuesset

  INTERFACE cmfe_datapoints_weightsget
    MODULE PROCEDURE cmfe_datapoints_weightsgetnumber
    MODULE PROCEDURE cmfe_datapoints_weightsgetobj
  END INTERFACE cmfe_datapoints_weightsget

  INTERFACE cmfe_datapoints_weightsset
    MODULE PROCEDURE cmfe_datapoints_weightssetnumber
    MODULE PROCEDURE cmfe_datapoints_weightssetobj
  END INTERFACE cmfe_datapoints_weightsset

  PUBLIC cmfe_datapoints_createfinish,cmfe_datapoints_createstart

  PUBLIC cmfe_datapoints_destroy

  PUBLIC cmfe_datapoints_numberofdatapointsget

  PUBLIC cmfe_datapoints_labelget,cmfe_datapoints_labelset

  PUBLIC cmfe_datapoints_usernumberget,cmfe_datapoints_usernumberset

  PUBLIC cmfe_datapoints_valuesget,cmfe_datapoints_valuesset

  PUBLIC cmfe_datapoints_weightsget,cmfe_datapoints_weightsset

!!==================================================================================================================================
!!
!! DATA_PROJECTION_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  INTEGER(INTG), PARAMETER :: cmfe_data_projection_boundary_lines_projection_type = data_projection_boundary_lines_projection_type
  INTEGER(INTG), PARAMETER :: cmfe_data_projection_boundary_faces_projection_type = data_projection_boundary_faces_projection_type
  INTEGER(INTG), PARAMETER :: cmfe_data_projection_all_elements_projection_type = data_projection_all_elements_projection_type 

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_dataprojection_absolutetoleranceget
    MODULE PROCEDURE cmfe_dataprojection_absolutetolerancegetnumber
    MODULE PROCEDURE cmfe_dataprojection_absolutetolerancegetobj
  END INTERFACE cmfe_dataprojection_absolutetoleranceget

  INTERFACE cmfe_dataprojection_absolutetoleranceset
    MODULE PROCEDURE cmfe_dataprojection_absolutetolerancesetnumber
    MODULE PROCEDURE cmfe_dataprojection_absolutetolerancesetobj
  END INTERFACE cmfe_dataprojection_absolutetoleranceset

  INTERFACE cmfe_dataprojection_createfinish
    MODULE PROCEDURE cmfe_dataprojection_createfinishnumber
    MODULE PROCEDURE cmfe_dataprojection_createfinishobj
  END INTERFACE cmfe_dataprojection_createfinish

  INTERFACE cmfe_dataprojection_createstart
    MODULE PROCEDURE cmfe_dataprojection_createstartnumber
    MODULE PROCEDURE cmfe_dataprojection_createstartobj
  END INTERFACE cmfe_dataprojection_createstart

  INTERFACE cmfe_dataprojection_destroy
    MODULE PROCEDURE cmfe_dataprojection_destroynumber
    MODULE PROCEDURE cmfe_dataprojection_destroyobj
  END INTERFACE cmfe_dataprojection_destroy
  
  INTERFACE cmfe_dataprojection_datapointspositionevaluate
    MODULE PROCEDURE cmfe_dataprojection_datapointspositionevaluateregionnumber
    MODULE PROCEDURE cmfe_dataprojection_datapointspositionevaluateinterfacenumber
    MODULE PROCEDURE cmfe_dataprojection_datapointspositionevaluateobj
  END INTERFACE cmfe_dataprojection_datapointspositionevaluate

  INTERFACE cmfe_dataprojection_datapointsprojectionevaluate
    MODULE PROCEDURE cmfe_dataprojection_datapointsprojectionevaluatenumber
    MODULE PROCEDURE cmfe_dataprojection_datapointsprojectionevaluateobj
  END INTERFACE cmfe_dataprojection_datapointsprojectionevaluate

  INTERFACE cmfe_dataprojection_maximumiterationupdateget
    MODULE PROCEDURE cmfe_dataprojection_maximumiterationupdategetnumber
    MODULE PROCEDURE cmfe_dataprojection_maximumiterationupdategetobj
  END INTERFACE cmfe_dataprojection_maximumiterationupdateget

  INTERFACE cmfe_dataprojection_maximumiterationupdateset
    MODULE PROCEDURE cmfe_dataprojection_maximumiterationupdatesetnumber
    MODULE PROCEDURE cmfe_dataprojection_maximumiterationupdatesetobj
  END INTERFACE cmfe_dataprojection_maximumiterationupdateset

  INTERFACE cmfe_dataprojection_maximumnumberofiterationsget
    MODULE PROCEDURE cmfe_dataprojection_maximumnumberofiterationsgetnumber
    MODULE PROCEDURE cmfe_dataprojection_maximumnumberofiterationsgetobj
  END INTERFACE cmfe_dataprojection_maximumnumberofiterationsget

  INTERFACE cmfe_dataprojection_maximumnumberofiterationsset
    MODULE PROCEDURE cmfe_dataprojection_maximumnumberofiterationssetnumber
    MODULE PROCEDURE cmfe_dataprojection_maximumnumberofiterationssetobj
  END INTERFACE cmfe_dataprojection_maximumnumberofiterationsset

  INTERFACE cmfe_dataprojection_numberofclosestelementsget
    MODULE PROCEDURE cmfe_dataprojection_numberofclosestelementsgetnumber
    MODULE PROCEDURE cmfe_dataprojection_numberofclosestelementsgetobj
  END INTERFACE cmfe_dataprojection_numberofclosestelementsget

  INTERFACE cmfe_dataprojection_numberofclosestelementsset
    MODULE PROCEDURE cmfe_dataprojection_numberofclosestelementssetnumber
    MODULE PROCEDURE cmfe_dataprojection_numberofclosestelementssetobj
  END INTERFACE cmfe_dataprojection_numberofclosestelementsset
  
  INTERFACE cmfe_dataprojection_projectioncandidatesset
    MODULE PROCEDURE cmfe_dataprojection_projectioncandidatessetregionnumber
    MODULE PROCEDURE cmfe_dataprojection_projectioncandidatessetinterfacenumber
    MODULE PROCEDURE cmfe_dataprojection_projectioncandidatessetobj
  END INTERFACE cmfe_dataprojection_projectioncandidatesset

  INTERFACE cmfe_dataprojection_projectiontypeget
    MODULE PROCEDURE cmfe_dataprojection_projectiontypegetnumber
    MODULE PROCEDURE cmfe_dataprojection_projectiontypegetobj
  END INTERFACE cmfe_dataprojection_projectiontypeget

  INTERFACE cmfe_dataprojection_projectiontypeset
    MODULE PROCEDURE cmfe_dataprojection_projectiontypesetnumber
    MODULE PROCEDURE cmfe_dataprojection_projectiontypesetobj
  END INTERFACE cmfe_dataprojection_projectiontypeset

  INTERFACE cmfe_dataprojection_relativetoleranceget
    MODULE PROCEDURE cmfe_dataprojection_relativetolerancegetnumber
    MODULE PROCEDURE cmfe_dataprojection_relativetolerancegetobj
  END INTERFACE cmfe_dataprojection_relativetoleranceget

  INTERFACE cmfe_dataprojection_relativetoleranceset
    MODULE PROCEDURE cmfe_dataprojection_relativetolerancesetnumber
    MODULE PROCEDURE cmfe_dataprojection_relativetolerancesetobj
  END INTERFACE cmfe_dataprojection_relativetoleranceset

  INTERFACE cmfe_dataprojection_startingxiget
    MODULE PROCEDURE cmfe_dataprojection_startingxigetnumber
    MODULE PROCEDURE cmfe_dataprojection_startingxigetobj
  END INTERFACE cmfe_dataprojection_startingxiget

  INTERFACE cmfe_dataprojection_startingxiset
    MODULE PROCEDURE cmfe_dataprojection_startingxisetnumber
    MODULE PROCEDURE cmfe_dataprojection_startingxisetobj
  END INTERFACE cmfe_dataprojection_startingxiset

  INTERFACE cmfe_dataprojection_elementset
    MODULE PROCEDURE cmfe_dataprojection_elementsetregionnumber
    MODULE PROCEDURE cmfe_dataprojection_elementsetinterfacenumber
    MODULE PROCEDURE cmfe_dataprojection_elementsetobj
  END INTERFACE cmfe_dataprojection_elementset

  INTERFACE cmfe_dataprojection_labelget
    MODULE PROCEDURE cmfe_dataprojection_labelgetcregionnumber
    MODULE PROCEDURE cmfe_dataprojection_labelgetcinterfacenumber
    MODULE PROCEDURE cmfe_dataprojection_labelgetcobj
    MODULE PROCEDURE cmfe_dataprojection_labelgetvsregionnumber
    MODULE PROCEDURE cmfe_dataprojection_labelgetvsinterfacenumber
    MODULE PROCEDURE cmfe_dataprojection_labelgetvsobj
  END INTERFACE cmfe_dataprojection_labelget

  INTERFACE cmfe_dataprojection_labelset
    MODULE PROCEDURE cmfe_dataprojection_labelsetcregionnumber
    MODULE PROCEDURE cmfe_dataprojection_labelsetcinterfacenumber
    MODULE PROCEDURE cmfe_dataprojection_labelsetcobj
    MODULE PROCEDURE cmfe_dataprojection_labelsetvsregionnumber
    MODULE PROCEDURE cmfe_dataprojection_labelsetvsinterfacenumber
    MODULE PROCEDURE cmfe_dataprojection_labelsetvsobj
  END INTERFACE cmfe_dataprojection_labelset

  INTERFACE cmfe_dataprojection_resultdistanceget
    MODULE PROCEDURE cmfe_dataprojection_resultdistancegetnumber
    MODULE PROCEDURE cmfe_dataprojection_resultdistancegetobj
  END INTERFACE cmfe_dataprojection_resultdistanceget

  INTERFACE cmfe_dataprojection_resultelementnumberget
    MODULE PROCEDURE cmfe_dataprojection_resultelementnumbergetnumber
    MODULE PROCEDURE cmfe_dataprojection_resultelementnumbergetobj
  END INTERFACE cmfe_dataprojection_resultelementnumberget

  INTERFACE cmfe_dataprojection_resultelementfacenumberget
    MODULE PROCEDURE cmfe_dataprojection_resultelementfacenumbergetnumber
    MODULE PROCEDURE cmfe_dataprojection_resultelementfacenumbergetobj
  END INTERFACE cmfe_dataprojection_resultelementfacenumberget

  INTERFACE cmfe_dataprojection_resultelementlinenumberget
    MODULE PROCEDURE cmfe_dataprojection_resultelementlinenumbergetnumber
    MODULE PROCEDURE cmfe_dataprojection_resultelementlinenumbergetobj
  END INTERFACE cmfe_dataprojection_resultelementlinenumberget

  INTERFACE cmfe_dataprojection_resultexittagget
    MODULE PROCEDURE cmfe_dataprojection_resultexittaggetnumber
    MODULE PROCEDURE cmfe_dataprojection_resultexittaggetobj
  END INTERFACE cmfe_dataprojection_resultexittagget

  INTERFACE cmfe_dataprojection_resultxiget
    MODULE PROCEDURE cmfe_dataprojection_resultxigetnumber
    MODULE PROCEDURE cmfe_dataprojection_resultxigetobj
  END INTERFACE cmfe_dataprojection_resultxiget

  INTERFACE cmfe_dataprojection_resultxiset
    MODULE PROCEDURE cmfe_dataprojection_resultxisetnumber
    MODULE PROCEDURE cmfe_dataprojection_resultxisetobj
  END INTERFACE cmfe_dataprojection_resultxiset

  INTERFACE cmfe_dataprojection_resultprojectionvectorget
    MODULE PROCEDURE cmfe_dataprojection_resultprojectionvectorgetnumber
    MODULE PROCEDURE cmfe_dataprojection_resultprojectionvectorgetobj
  END INTERFACE cmfe_dataprojection_resultprojectionvectorget

  PUBLIC cmfe_data_projection_boundary_lines_projection_type,cmfe_data_projection_boundary_faces_projection_type

  PUBLIC cmfe_data_projection_all_elements_projection_type

  PUBLIC cmfe_dataprojection_absolutetoleranceget,cmfe_dataprojection_absolutetoleranceset

  PUBLIC cmfe_dataprojection_createfinish,cmfe_dataprojection_createstart

  PUBLIC cmfe_dataprojection_destroy
  
  PUBLIC cmfe_dataprojection_datapointspositionevaluate
  
  PUBLIC cmfe_dataprojection_projectioncandidatesset

  PUBLIC cmfe_dataprojection_datapointsprojectionevaluate

  PUBLIC cmfe_dataprojection_maximumiterationupdateget,cmfe_dataprojection_maximumiterationupdateset

  PUBLIC cmfe_dataprojection_maximumnumberofiterationsget,cmfe_dataprojection_maximumnumberofiterationsset

  PUBLIC cmfe_dataprojection_numberofclosestelementsget,cmfe_dataprojection_numberofclosestelementsset

  PUBLIC cmfe_dataprojection_projectiontypeget,cmfe_dataprojection_projectiontypeset

  PUBLIC cmfe_dataprojection_relativetoleranceget,cmfe_dataprojection_relativetoleranceset

  PUBLIC cmfe_dataprojection_startingxiget,cmfe_dataprojection_startingxiset

  PUBLIC cmfe_dataprojection_elementset

  PUBLIC cmfe_dataprojection_labelget,cmfe_dataprojection_labelset

  PUBLIC cmfe_dataprojection_resultdistanceget,cmfe_dataprojection_resultelementnumberget

  PUBLIC cmfe_dataprojection_resultelementfacenumberget,cmfe_dataprojection_resultelementlinenumberget

  PUBLIC cmfe_dataprojection_resultexittagget

  PUBLIC cmfe_dataprojection_resultxiget,cmfe_dataprojection_resultxiset

  PUBLIC cmfe_dataprojection_resultprojectionvectorget

!!==================================================================================================================================
!!
!! EQUATIONS_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  INTEGER(INTG), PARAMETER :: cmfe_equations_no_output = equations_no_output
  INTEGER(INTG), PARAMETER :: cmfe_equations_timing_output = equations_timing_output 
  INTEGER(INTG), PARAMETER :: cmfe_equations_matrix_output = equations_matrix_output 
  INTEGER(INTG), PARAMETER :: cmfe_equations_element_matrix_output = equations_element_matrix_output 
  INTEGER(INTG), PARAMETER :: cmfe_equations_nodal_matrix_output = equations_nodal_matrix_output 
  INTEGER(INTG), PARAMETER :: cmfe_equations_sparse_matrices = equations_sparse_matrices 
  INTEGER(INTG), PARAMETER :: cmfe_equations_full_matrices = equations_full_matrices 
  INTEGER(INTG), PARAMETER :: cmfe_equations_unlumped_matrices = equations_unlumped_matrices 
  INTEGER(INTG), PARAMETER :: cmfe_equations_lumped_matrices = equations_lumped_matrices 
  INTEGER(INTG), PARAMETER :: cmfe_equations_linear = equations_linear 
  INTEGER(INTG), PARAMETER :: cmfe_equations_nonlinear = equations_nonlinear 
  INTEGER(INTG), PARAMETER :: cmfe_equations_nonlinear_bcs = equations_nonlinear_bcs 
  INTEGER(INTG), PARAMETER :: cmfe_equations_static = equations_static 
  INTEGER(INTG), PARAMETER :: cmfe_equations_quasistatic = equations_quasistatic 
  INTEGER(INTG), PARAMETER :: cmfe_equations_first_order_dynamic = equations_first_order_dynamic 
  INTEGER(INTG), PARAMETER :: cmfe_equations_second_order_dynamic = equations_second_order_dynamic 
  INTEGER(INTG), PARAMETER :: cmfe_equations_time_stepping = equations_time_stepping 
  INTEGER(INTG), PARAMETER :: cmfe_equations_jacobian_finite_difference_calculated = equations_jacobian_finite_difference_calculated
  INTEGER(INTG), PARAMETER :: cmfe_equations_jacobian_analytic_calculated = equations_jacobian_analytic_calculated 

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_equations_destroy
    MODULE PROCEDURE cmfe_equations_destroynumber
    MODULE PROCEDURE cmfe_equations_destroyobj
  END INTERFACE cmfe_equations_destroy

  INTERFACE cmfe_equations_linearitytypeget
    MODULE PROCEDURE cmfe_equations_linearitytypegetnumber
    MODULE PROCEDURE cmfe_equations_linearitytypegetobj
  END INTERFACE cmfe_equations_linearitytypeget

  INTERFACE cmfe_equations_lumpingtypeget
    MODULE PROCEDURE cmfe_equations_lumpingtypegetnumber
    MODULE PROCEDURE cmfe_equations_lumpingtypegetobj
  END INTERFACE cmfe_equations_lumpingtypeget

  INTERFACE cmfe_equations_lumpingtypeset
    MODULE PROCEDURE cmfe_equations_lumpingtypesetnumber
    MODULE PROCEDURE cmfe_equations_lumpingtypesetobj
  END INTERFACE cmfe_equations_lumpingtypeset

  INTERFACE cmfe_equations_outputtypeget
    MODULE PROCEDURE cmfe_equations_outputtypegetnumber
    MODULE PROCEDURE cmfe_equations_outputtypegetobj
  END INTERFACE cmfe_equations_outputtypeget

  INTERFACE cmfe_equations_outputtypeset
    MODULE PROCEDURE cmfe_equations_outputtypesetnumber
    MODULE PROCEDURE cmfe_equations_outputtypesetobj
  END INTERFACE cmfe_equations_outputtypeset

  INTERFACE cmfe_equations_sparsitytypeget
    MODULE PROCEDURE cmfe_equations_sparsitytypegetnumber
    MODULE PROCEDURE cmfe_equations_sparsitytypegetobj
  END INTERFACE cmfe_equations_sparsitytypeget

  INTERFACE cmfe_equations_sparsitytypeset
    MODULE PROCEDURE cmfe_equations_sparsitytypesetnumber
    MODULE PROCEDURE cmfe_equations_sparsitytypesetobj
  END INTERFACE cmfe_equations_sparsitytypeset

  INTERFACE cmfe_equations_timedependencetypeget
    MODULE PROCEDURE cmfe_equations_timedependencetypegetnumber
    MODULE PROCEDURE cmfe_equations_timedependencetypegetobj
  END INTERFACE cmfe_equations_timedependencetypeget

  PUBLIC cmfe_equations_no_output,cmfe_equations_timing_output,cmfe_equations_matrix_output

  PUBLIC cmfe_equations_element_matrix_output,cmfe_equations_nodal_matrix_output

  PUBLIC cmfe_equations_sparse_matrices,cmfe_equations_full_matrices

  PUBLIC cmfe_equations_jacobian_finite_difference_calculated, cmfe_equations_jacobian_analytic_calculated

  PUBLIC cmfe_equations_unlumped_matrices,cmfe_equations_lumped_matrices

  PUBLIC cmfe_equations_linear,cmfe_equations_nonlinear,cmfe_equations_nonlinear_bcs

  PUBLIC cmfe_equations_static,cmfe_equations_quasistatic,cmfe_equations_first_order_dynamic, &
    & cmfe_equations_second_order_dynamic, &
    & cmfe_equations_time_stepping

  PUBLIC cmfe_equations_destroy

  PUBLIC cmfe_equations_linearitytypeget

  PUBLIC cmfe_equations_lumpingtypeget,cmfe_equations_lumpingtypeset

  PUBLIC cmfe_equations_outputtypeget,cmfe_equations_outputtypeset

  PUBLIC cmfe_equations_sparsitytypeget,cmfe_equations_sparsitytypeset

  PUBLIC cmfe_equations_timedependencetypeget

  PUBLIC cmfe_equations_jacobianmatricestypesset

  PUBLIC cmfe_equations_numberoflinearmatricesget

  PUBLIC cmfe_equations_numberofjacobianmatricesget

  PUBLIC cmfe_equations_numberofdynamicmatricesget

  PUBLIC cmfe_equations_linearmatrixget
  
  PUBLIC cmfe_equations_jacobianmatrixget

  PUBLIC cmfe_equations_dynamicmatrixget

  PUBLIC cmfe_equations_dynamicmatrixgetbytype

  PUBLIC cmfe_equations_dynamicmatrixtypeget

  PUBLIC cmfe_equations_rhsvectorget

  PUBLIC cmfe_equations_residualvectorget

  PUBLIC cmfe_equations_residualnumberofvariablesget

  PUBLIC cmfe_equations_residualvariablesget

  PUBLIC cmfe_equations_sourcevectorget

!!==================================================================================================================================
!!
!! EQUATIONS_SET_CONSTANTS
!!
!!==================================================================================================================================

  !Module parameters

  INTEGER(INTG), PARAMETER :: cmfe_equations_set_no_class = equations_set_no_class 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_elasticity_class = equations_set_elasticity_class 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_fluid_mechanics_class = equations_set_fluid_mechanics_class 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_electromagnetics_class = equations_set_electromagnetics_class 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_classical_field_class = equations_set_classical_field_class 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_bioelectrics_class = equations_set_bioelectrics_class 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_modal_class = equations_set_modal_class 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_fitting_class = equations_set_fitting_class 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_optimisation_class = equations_set_optimisation_class 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_multi_physics_class = equations_set_multi_physics_class 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_no_type = equations_set_no_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_linear_elasticity_type = equations_set_linear_elasticity_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_finite_elasticity_type = equations_set_finite_elasticity_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_stokes_equation_type = equations_set_stokes_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_navier_stokes_equation_type = equations_set_navier_stokes_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_darcy_equation_type = equations_set_darcy_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_darcy_pressure_equation_type = equations_set_darcy_pressure_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_poiseuille_equation_type = equations_set_poiseuille_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_burgers_equation_type = equations_set_burgers_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_characteristic_equation_type = equations_set_characteristic_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_electrostatic_type = equations_set_electrostatic_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_magnetostatic_type = equations_set_magnetostatic_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_maxwells_equations_type = equations_set_maxwells_equations_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_laplace_equation_type = equations_set_laplace_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_poisson_equation_type = equations_set_poisson_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_helmholtz_equation_type = equations_set_helmholtz_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_wave_equation_type = equations_set_wave_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_diffusion_equation_type = equations_set_diffusion_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_advection_equation_type = equations_set_advection_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_advection_diffusion_equation_type = &
    & EQUATIONS_SET_ADVECTION_DIFFUSION_EQUATION_TYPE !<Advection-Diffusion equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_reaction_diffusion_equation_type = equations_set_reaction_diffusion_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_biharmonic_equation_type = equations_set_biharmonic_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_monodomain_equation_type = equations_set_monodomain_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_bidomain_equation_type = equations_set_bidomain_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_linear_elastic_modal_type = equations_set_linear_elastic_modal_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_data_fitting_equation_type = equations_set_data_fitting_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_finite_elasticity_darcy_type = equations_set_finite_elasticity_darcy_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_finite_elasticity_stokes_type = equations_set_finite_elasticity_stokes_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_finite_elasticity_navier_stokes_type = &
    & EQUATIONS_SET_FINITE_ELASTICITY_NAVIER_STOKES_TYPE !<Finite Elasticity Navier Stokes equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_diffusion_diffusion_type = equations_set_diffusion_diffusion_type 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_diffusion_advection_diffusion_type = &
    & EQUATIONS_SET_DIFFUSION_ADVECTION_DIFFUSION_TYPE !<Diffusion Advection Diffusion equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_monodomain_strang_splitting_equation_type = &
    & equations_set_monodomain_strang_splitting_equation_type 

  INTEGER(INTG), PARAMETER :: cmfe_equations_set_no_subtype = equations_set_no_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_three_dimensional_subtype = equations_set_three_dimensional_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_two_dimensional_plane_stress_subtype = &
    & EQUATIONS_SET_TWO_DIMENSIONAL_PLANE_STRESS_SUBTYPE !<Plane stress linear elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_two_dimensional_plane_strain_subtype = &
    & equations_set_two_dimensional_plane_strain_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_one_dimensional_subtype = equations_set_one_dimensional_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_plate_subtype = equations_set_plate_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_shell_subtype = equations_set_shell_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_mooney_rivlin_subtype = equations_set_mooney_rivlin_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_incompressible_mooney_rivlin_subtype = &
  & EQUATIONS_SET_INCOMPRESSIBLE_MOONEY_RIVLIN_SUBTYPE !< Incompressible Mooney-Rivlin constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_nearly_incompressible_mooney_rivlin_subtype = &
  & equations_set_nearly_incompressible_mooney_rivlin_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_mooney_rivlin_activecontraction_subtype = & 
    & EQUATIONS_SET_MOONEY_RIVLIN_ACTIVECONTRACTION_SUBTYPE !< Mooney-Rivlin constitutive law with steady-state active contraction for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_stvenant_kirchoff_activecontraction_subtype = & 
    & equations_set_stvenant_kirchoff_activecontraction_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_activecontraction_subtype =&
    & EQUATIONS_SET_ACTIVECONTRACTION_SUBTYPE !< Active contraction/costa-based law with quasistatic time loop for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_isotropic_exponential_subtype = equations_set_isotropic_exponential_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_transverse_isotropic_exponential_subtype = &
    & EQUATIONS_SET_TRANSVERSE_ISOTROPIC_EXPONENTIAL_SUBTYPE !< Transverse isotropic exponential constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_transverse_isotropic_active_subtype = &
    & equations_set_transverse_isotropic_active_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_trans_isotropic_active_transition_subtype = &
    & EQUATIONS_SET_TRANS_ISOTROPIC_ACTIVE_TRANSITION_SUBTYPE !< Transverse isotropic, active-contraction material-transition constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_orthotropic_material_costa_subtype = &
    & equations_set_orthotropic_material_costa_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_compressible_finite_elasticity_subtype= &
    & EQUATIONS_SET_COMPRESSIBLE_FINITE_ELASTICITY_SUBTYPE !<Compressible version for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_compressible_activecontraction_subtype= &
    & equations_set_compressible_activecontraction_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_transverse_isotropic_guccione_subtype = &
    & EQUATIONS_SET_TRANSVERSE_ISOTROPIC_GUCCIONE_SUBTYPE !< Transverse isotropic Guccione constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_active_strain_subtype = &
    & equations_set_active_strain_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_multiscale_active_strain_subtype = &
    & EQUATIONS_SET_MULTISCALE_ACTIVE_STRAIN_SUBTYPE !< Isotropic active strain constitutive law based on multiplicative decomposition of the deformation gradient and the cellular model of Razumova et al. (2000) subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_reference_state_mooney_rivlin_subtype = &
    & equations_set_reference_state_mooney_rivlin_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_guccione_activecontraction_subtype = &
    & EQUATIONS_SET_GUCCIONE_ACTIVECONTRACTION_SUBTYPE !< Transverse isotropic Guccione constitutive law with active contraction subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_incompress_finite_elasticity_darcy_subtype= &
    & equations_set_incompressible_finite_elasticity_darcy_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_elasticity_darcy_inria_model_subtype= &
    & EQUATIONS_SET_ELASTICITY_DARCY_INRIA_MODEL_SUBTYPE !<INRIA Model for finite elasticity coupled with Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_elasticity_multi_comp_darcy_inria_subtype= &
    & equations_set_elasticity_multi_compartment_darcy_inria_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_incompress_elasticity_driven_darcy_subtype= &
    & EQUATIONS_SET_INCOMPRESSIBLE_ELASTICITY_DRIVEN_DARCY_SUBTYPE !< Incompressible finite elasticity with Darcy flow driven by solid hydrostatic pressure \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_incompressible_elasticity_driven_mr_subtype= &
    & equations_set_incompressible_elasticity_driven_mr_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_incompress_elast_multi_comp_darcy_subtype= &
    & EQUATIONS_SET_INCOMPRESSIBLE_ELAST_MULTI_COMP_DARCY_SUBTYPE
  integer(intg), PARAMETER :: cmfe_equations_set_membrane_subtype = equations_set_membrane_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_orthotropic_holzapfel_ogden_subtype = &
    & EQUATIONS_SET_ORTHOTROPIC_MATERIAL_HOLZAPFEL_OGDEN_SUBTYPE !< Orthotropic Holzapfel-Ogden constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_holzapfel_ogden_activecontraction_subtype = &
    & equations_set_holzapfel_ogden_activecontraction_subtype &
    & 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_elasticity_fluid_pres_static_inria_subtype = &
    & EQUATIONS_SET_ELASTICITY_FLUID_PRESSURE_STATIC_INRIA_SUBTYPE !< Static finite elasticity coupled with fluid pressure set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_equations_set_elasticity_fluid_pres_holmes_mow_subtype= &
    & equations_set_elasticity_fluid_pressure_holmes_mow_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_equations_set_elasti_fluid_pres_holmes_mow_active_subtype= &
    & EQUATIONS_SET_ELASTICITY_FLUID_PRES_HOLMES_MOW_ACTIVE_SUBTYPE !<Holmes and Mow's poroelastic constitutive relation subtype with active contraction \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_POLYNOMIAL_SUBTYPE = &
    & EQUATIONS_SET_TRANSVERSE_ISOTROPIC_POLYNOMIAL_SUBTYPE !<Transverse isotropic constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_SUBTYPE = &
    & EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_SUBTYPE !<Anisotropic polynomial constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_ACTIVE_SUBTYPE = &
    & EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_ACTIVE_SUBTYPE !<Anisotropic polynomial active constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_HUMPHREY_YIN_SUBTYPE= &
    & EQUATIONS_SET_TRANSVERSE_ISOTROPIC_HUMPHREY_YIN_SUBTYPE !<Humphrey and Yin transversely isotropic constitutive relation subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STATIC_STOKES_SUBTYPE = EQUATIONS_SET_STATIC_STOKES_SUBTYPE !<Static Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LAPLACE_STOKES_SUBTYPE = EQUATIONS_SET_LAPLACE_STOKES_SUBTYPE !<Laplace type Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT_STOKES_SUBTYPE = EQUATIONS_SET_TRANSIENT_STOKES_SUBTYPE !<Transient Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ALE_STOKES_SUBTYPE = EQUATIONS_SET_ALE_STOKES_SUBTYPE !<ALE Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_PGM_STOKES_SUBTYPE = EQUATIONS_SET_PGM_STOKES_SUBTYPE !<PGM Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_OPTIMISED_STOKES_SUBTYPE = EQUATIONS_SET_OPTIMISED_STOKES_SUBTYPE !<Optimised Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STATIC_NAVIER_STOKES_SUBTYPE = EQUATIONS_SET_STATIC_NAVIER_STOKES_SUBTYPE !<Static Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LAPLACE_NAVIER_STOKES_SUBTYPE = EQUATIONS_SET_LAPLACE_NAVIER_STOKES_SUBTYPE !<Laplace type Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT_NAVIER_STOKES_SUBTYPE = EQUATIONS_SET_TRANSIENT_NAVIER_STOKES_SUBTYPE !<Transient Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT_RBS_NAVIER_STOKES_SUBTYPE = & 
    & EQUATIONS_SET_TRANSIENT_RBS_NAVIER_STOKES_SUBTYPE !<Transient residual-based stabilisation Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STATIC_RBS_NAVIER_STOKES_SUBTYPE =  &
    & EQUATIONS_SET_STATIC_RBS_NAVIER_STOKES_SUBTYPE !<Transient residual-based stabilisation Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTISCALE3D_NAVIER_STOKES_SUBTYPE = & 
    & EQUATIONS_SET_MULTISCALE3D_NAVIER_STOKES_SUBTYPE !<Transient stabilised 3D Navier-Stokes equations set with coupled multiscale boundaries subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTITUTIVE_MU_NAVIER_STOKES_SUBTYPE = & 
    & EQUATIONS_SET_CONSTITUTIVE_MU_NAVIER_STOKES_SUBTYPE !<Transient stabilised 3D Navier-Stokes equations set with coupled constitutive model for non-Newtonian viscosity \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT1D_NAVIER_STOKES_SUBTYPE = &
    & EQUATIONS_SET_TRANSIENT1D_NAVIER_STOKES_SUBTYPE !<TRANSIENT1D Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT1D_ADV_NAVIER_STOKES_SUBTYPE = &
    & EQUATIONS_SET_TRANSIENT1D_ADV_NAVIER_STOKES_SUBTYPE !<TRANSIENT1D Navier-Stokes equations set subtype with coupled Advection \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CHARACTERISTIC_SUBTYPE = &
    & EQUATIONS_SET_CHARACTERISTIC_SUBTYPE !<Static Characteristics equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_COUPLED1D0D_NAVIER_STOKES_SUBTYPE = &
    & EQUATIONS_SET_COUPLED1D0D_NAVIER_STOKES_SUBTYPE !<Coupled 1D-0D Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_COUPLED1D0D_ADV_NAVIER_STOKES_SUBTYPE = &
    & EQUATIONS_SET_COUPLED1D0D_ADV_NAVIER_STOKES_SUBTYPE !<Coupled 1D-0D Navier-Stokes equations set subtype with coupled Advection \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STREE1D0D_SUBTYPE = &
    & EQUATIONS_SET_STREE1D0D_SUBTYPE !<Coupled 1D-0D Navier-Stokes equations set subtype with coupled Advection \see
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STREE1D0D_ADV_SUBTYPE = &
    & EQUATIONS_SET_STREE1D0D_ADV_SUBTYPE !<Coupled 1D-0D Navier-Stokes equations set subtype with coupled Advection \see
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ALE_NAVIER_STOKES_SUBTYPE = EQUATIONS_SET_ALE_NAVIER_STOKES_SUBTYPE !<ALE Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_PGM_NAVIER_STOKES_SUBTYPE = EQUATIONS_SET_PGM_NAVIER_STOKES_SUBTYPE !<PGM Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_OPTIMISED_NAVIER_STOKES_SUBTYPE = EQUATIONS_SET_OPTIMISED_NAVIER_STOKES_SUBTYPE !<Optimised Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STANDARD_DARCY_SUBTYPE = EQUATIONS_SET_STANDARD_DARCY_SUBTYPE !<Standard Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUASISTATIC_DARCY_SUBTYPE = EQUATIONS_SET_QUASISTATIC_DARCY_SUBTYPE !<Quasistatic Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ALE_DARCY_SUBTYPE = EQUATIONS_SET_ALE_DARCY_SUBTYPE !<ALE Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT_DARCY_SUBTYPE = EQUATIONS_SET_TRANSIENT_DARCY_SUBTYPE !<Transient Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT_ALE_DARCY_SUBTYPE = EQUATIONS_SET_TRANSIENT_ALE_DARCY_SUBTYPE !<Transient ALE Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMPARTMENT_DARCY_SUBTYPE = EQUATIONS_SET_MULTI_COMPARTMENT_DARCY_SUBTYPE !<Multi Compartment Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_BURGERS_SUBTYPE = EQUATIONS_SET_BURGERS_SUBTYPE !<Burgers equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_BURGERS_SUBTYPE = EQUATIONS_SET_GENERALISED_BURGERS_SUBTYPE !<Generalised Burgers equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STATIC_BURGERS_SUBTYPE = EQUATIONS_SET_STATIC_BURGERS_SUBTYPE !<Static Burgers equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_INVISCID_BURGERS_SUBTYPE = EQUATIONS_SET_INVISCID_BURGERS_SUBTYPE !<Inviscid Burgers equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STANDARD_LAPLACE_SUBTYPE = EQUATIONS_SET_STANDARD_LAPLACE_SUBTYPE !<Standard Laplace equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_LAPLACE_SUBTYPE = EQUATIONS_SET_GENERALISED_LAPLACE_SUBTYPE !<Generalised Laplace equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MOVING_MESH_LAPLACE_SUBTYPE = EQUATIONS_SET_MOVING_MESH_LAPLACE_SUBTYPE !<Moving mesh Laplace equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STATIC_POISEUILLE_SUBTYPE = EQUATIONS_SET_STATIC_POISEUILLE_SUBTYPE !<Static Poiseuille equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DYNAMIC_POISEUILLE_SUBTYPE = EQUATIONS_SET_DYNAMIC_POISEUILLE_SUBTYPE !<Dynamic Poiseuille equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_PRESSURE_POISSON_SUBTYPE = EQUATIONS_SET_LINEAR_PRESSURE_POISSON_SUBTYPE !<Vector source Poisson equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NONLINEAR_PRESSURE_POISSON_SUBTYPE = &
    & EQUATIONS_SET_NONLINEAR_PRESSURE_POISSON_SUBTYPE !<Vector source Poisson equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ALE_PRESSURE_POISSON_SUBTYPE = EQUATIONS_SET_ALE_PRESSURE_POISSON_SUBTYPE !<Vector source Poisson equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FITTED_PRESSURE_POISSON_SUBTYPE = EQUATIONS_SET_FITTED_PRESSURE_POISSON_SUBTYPE !<Vector source Poisson equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_POISSON_SUBTYPE = EQUATIONS_SET_CONSTANT_SOURCE_POISSON_SUBTYPE !<Constant source Poisson equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXTRACELLULAR_BIDOMAIN_POISSON_SUBTYPE = &
    & EQUATIONS_SET_EXTRACELLULAR_BIDOMAIN_POISSON_SUBTYPE !<Poisson equations set subtype, that is the extracellular bidomain equation \see OPENCMISS_EquationsSetSubtypes,OPENCMISS  
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_POISSON_SUBTYPE = EQUATIONS_SET_LINEAR_SOURCE_POISSON_SUBTYPE !<Linear source Poisson equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_POISSON_SUBTYPE = EQUATIONS_SET_QUADRATIC_SOURCE_POISSON_SUBTYPE !<Quadratic source Poisson equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_POISSON_SUBTYPE = &
    & EQUATIONS_SET_EXPONENTIAL_SOURCE_POISSON_SUBTYPE !<Exponential source Poisson equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STANDARD_HELMHOLTZ_SUBTYPE = EQUATIONS_SET_STANDARD_HELMHOLTZ_SUBTYPE !<No source Helmholtz equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_HELMHOLTZ_SUBTYPE = EQUATIONS_SET_GENERALISED_HELMHOLTZ_SUBTYPE !<No source Helmholtz equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_DIFFUSION_SUBTYPE = EQUATIONS_SET_NO_SOURCE_DIFFUSION_SUBTYPE !<No source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_CONSTANT_SOURCE_DIFFUSION_SUBTYPE !<Constant source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_DIFFUSION_SUBTYPE = EQUATIONS_SET_LINEAR_SOURCE_DIFFUSION_SUBTYPE !<Linear source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_SUBTYPE !<Quadratic source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_SUBTYPE !<Exponential source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_ALE_DIFFUSION_SUBTYPE = EQUATIONS_SET_NO_SOURCE_ALE_DIFFUSION_SUBTYPE !<No source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_CONSTANT_SOURCE_ALE_DIFFUSION_SUBTYPE !<Constant source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_LINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE !<Linear source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ALE_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_QUADRATIC_SOURCE_ALE_DIFFUSION_SUBTYPE !<Quadratic source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_ALE_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_EXPONENTIAL_SOURCE_ALE_DIFFUSION_SUBTYPE !<Exponential source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_TRANSPORT_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_MULTI_COMP_TRANSPORT_DIFFUSION_SUBTYPE !<Multi-compartment transport diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ADVECTION_SUBTYPE = &
    & EQUATIONS_SET_ADVECTION_SUBTYPE !<advection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ADVEC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_QUADRATIC_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<Quadratic source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_ADVEC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_EXPONENTIAL_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<Exponential source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTITUTIVE_LAW_IN_CELLML_EVALUATE_SUBTYPE = &
    & EQUATIONS_SET_CONSTITUTIVE_LAW_IN_CELLML_EVALUATE_SUBTYPE !<In CellML evaluated incompressible material law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTIT_AND_GROWTH_LAW_IN_CELLML_SUBTYPE = &
    & EQUATIONS_SET_CONSTITUTIVE_AND_GROWTH_LAW_IN_CELLML_SUBTYPE !<CellML evaluated growth and constituative material law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVEC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVEC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ALE_ADVEC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_QUADRATIC_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<Quadratic source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<Exponential source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_CONSTANT_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUAD_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_QUAD_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE !<Quadratic source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXP_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_EXP_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE !<Exponential source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVEC_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVEC_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUAD_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_QUAD_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE !<Quadratic source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE !<Exponential source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONST_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_CONSTANT_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LIN_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_ADVEC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_ADVEC_DIFFUSION_SUBTYPE !<Coupled source diffusion & advection-diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_TRANSPORT_ADVEC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_MULTI_COMP_TRANSPORT_ADVEC_DIFF_SUBTYPE !<Multi-component transport advection-diffusion equations set \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULT_COMP_TRANSPORT_ADVEC_DIFF_SUPG_SUBTYPE = &
    & EQUATIONS_SET_MULTI_COMP_TRANSPORT_ADVEC_DIFF_SUPG_SUBTYPE !<Multi-component transport advection-diffusion equations set using SUPG scheme \see OPENCMISS_EquationsSetSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CELLML_REAC_SPLIT_REAC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_CELLML_REAC_SPLIT_REAC_DIFF_SUBTYPE !CellML Reaction Diffusion with order splitting \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CELLML_REAC_NO_SPLIT_REAC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_CELLML_REAC_NO_SPLIT_REAC_DIFF_SUBTYPE !CellML Reaction Diffusion without order splitting \see OPENCMISS_EquationsSetSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_REAC_DIFF_SUBTYPE = &
    & EQUATIONS_SET_CONSTANT_REAC_DIFF_SUBTYPE !Standard Reaction Diffusion without order splitting, and constant source \see OPENCMISS_EquationsSetSubtypes,OPENCMISS


  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MONODOMAIN_BUENOOROVIO_SUBTYPE= EQUATIONS_SET_MONODOMAIN_BUENOOROVIO_SUBTYPE !<First monodomain equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MONODOMAIN_TENTUSSCHER06_SUBTYPE= EQUATIONS_SET_MONODOMAIN_TENTUSSCHER06_SUBTYPE !<First monodomain equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FIRST_BIDOMAIN_SUBTYPE = EQUATIONS_SET_FIRST_BIDOMAIN_SUBTYPE !<First bidomain equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_SECOND_BIDOMAIN_SUBTYPE = EQUATIONS_SET_SECOND_BIDOMAIN_SUBTYPE !<Second bidomain equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STANDARD_DATA_FITTING_SUBTYPE = &
    & EQUATIONS_SET_STANDARD_DATA_FITTING_SUBTYPE !<Standard Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_DATA_FITTING_SUBTYPE = &
    & EQUATIONS_SET_GENERALISED_DATA_FITTING_SUBTYPE !<Generalised Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MAT_PROPERTIES_DATA_FITTING_SUBTYPE = &
    & EQUATIONS_SET_MAT_PROPERTIES_DATA_FITTING_SUBTYPE !<Material Properties Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MAT_PROP_INRIA_MODEL_DATA_FITTING_SUBTYPE = &
    & EQUATIONS_SET_MAT_PROPERTIES_INRIA_MODEL_DATA_FITTING_SUBTYPE !<Material Properties INRIA Model Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_VECTOR_DATA_FITTING_SUBTYPE = &
    & EQUATIONS_SET_VECTOR_DATA_FITTING_SUBTYPE !<Standard Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIVFREE_VECTOR_DATA_FITTING_SUBTYPE = &
    & EQUATIONS_SET_DIVFREE_VECTOR_DATA_FITTING_SUBTYPE !<Standard Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DATA_POINT_VECTOR_STATIC_FITTING_SUBTYPE = &
    & EquationsSet_DataPointVectorStaticFittingSubtype !<Standard static Galerkin Projection using data points subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DATA_PT_VECTOR_QUASISTATIC_FITTING_SUBTYPE = &
    & EquationsSet_DataPointVectorQuasistaticFittingSubtype !<Standard quasistatic Galerkin Projection using data points subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_VECTOR_DATA_PRE_FITTING_SUBTYPE = &
    & EQUATIONS_SET_VECTOR_DATA_PRE_FITTING_SUBTYPE !<Standard Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIVFREE_VECTOR_DATA_PRE_FITTING_SUBTYPE = &
    & EQUATIONS_SET_DIVFREE_VECTOR_DATA_PRE_FITTING_SUBTYPE !<Standard Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS


  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STANDARD_ELASTICITY_DARCY_SUBTYPE = &
    & EQUATIONS_SET_STANDARD_ELASTICITY_DARCY_SUBTYPE !<Standard Elasticity Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_DIFFUSION_SUBTYPE = &
    & EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_DIFFUSION_SUBTYPE !<Coupled source diffusion-diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STANDARD_MONODOMAIN_ELASTICITY_SUBTYPE =  &
    & EQUATIONS_SET_STANDARD_MONODOMAIN_ELASTICITY_SUBTYPE !<Standard Monodomain Elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_1D3D_MONODOMAIN_ELASTICITY_SUBTYPE =  &
    & EQUATIONS_SET_1D3D_MONODOMAIN_ELASTICITY_SUBTYPE !<Coupled 1D Monodomain 3D Elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MONODOMAIN_ELASTICITY_W_TITIN_SUBTYPE =  &
    & EQUATIONS_SET_MONODOMAIN_ELASTICITY_W_TITIN_SUBTYPE !<Coupled 1D Monodomain 3D Elasticity equations set subtype with titin \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MONODOMAIN_ELASTICITY_VELOCITY_SUBTYPE =  &
    & EQUATIONS_SET_MONODOMAIN_ELASTICITY_VELOCITY_SUBTYPE !<Coupled 1D Monodomain 3D Elasticity equations set subtype with force-velocity relation \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_1D3D_MONODOMAIN_ACTIVE_STRAIN_SUBTYPE =  &
    & EQUATIONS_SET_1D3D_MONODOMAIN_ACTIVE_STRAIN_SUBTYPE !<Coupled 1D Monodomain 3D Elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FINITE_ELASTICITY_NAVIER_STOKES_ALE_SUBTYPE = &
    & EQUATIONS_SET_FINITE_ELASTICITY_NAVIER_STOKES_ALE_SUBTYPE !<Finite Elasticity Navier Stokes ALE equations set subtype \see OPENCMISS_EquationsSetSubtype,OPENCMISS

  !>@}
  !> \addtogroup OPENCMISS_EquationsSetSolutionMethods OPENCMISS::EquationsSet::SolutionMethods
  !> \brief The solution method parameters
  !> \see OPENCMISS::EquationsSet,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FEM_SOLUTION_METHOD = EQUATIONS_SET_FEM_SOLUTION_METHOD !<Finite Element Method solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_BEM_SOLUTION_METHOD = EQUATIONS_SET_BEM_SOLUTION_METHOD !<Boundary Element Method solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FD_SOLUTION_METHOD = EQUATIONS_SET_FD_SOLUTION_METHOD !<Finite Difference solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FV_SOLUTION_METHOD = EQUATIONS_SET_FV_SOLUTION_METHOD !<Finite Volume solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GFEM_SOLUTION_METHOD = EQUATIONS_SET_GFEM_SOLUTION_METHOD !<Grid-based Finite Element Method solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GFD_SOLUTION_METHOD = EQUATIONS_SET_GFD_SOLUTION_METHOD !<Grid-based Finite Difference solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GFV_SOLUTION_METHOD = EQUATIONS_SET_GFV_SOLUTION_METHOD !<Grid-based Finite Volume solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
  !>@}

  !> \addtogroup OPENCMISS_EquationsSetDerivedTypes OPENCMISS::EquationsSet::DerivedTypes
  !> \brief EquationsSet derived type parameters
  !> \see OPENCMISS::EquationsSet,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DERIVED_STRAIN = EQUATIONS_SET_DERIVED_STRAIN !<Strain tensor field output. \see OPENCMISS_EquationsSetDerivedTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DERIVED_STRESS = EQUATIONS_SET_DERIVED_STRESS !<Stress tensor field output. \see OPENCMISS_EquationsSetDerivedTypes,OPENCMISS
  !>@}

  !> \addtogroup OPENCMISS_EquationsSetTensorEvaluateTypes OPENCMISS::EquationsSet::TensorEvaluateTypes
  !> \brief Type of tensor to evaluate from an EquationsSet
  !> \see OPENCMISS::EquationsSet,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EVALUATE_DEFORMATION_GRADIENT_TENSOR = &
    & EQUATIONS_SET_EVALUATE_DEFORMATION_GRADIENT_TENSOR !<Deformation gradient tensor \see OPENCMISS_EquationsSetTensorEvaluateTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EVALUATE_R_CAUCHY_GREEN_DEFORMATION_TENSOR = &
    & EQUATIONS_SET_EVALUATE_R_CAUCHY_GREEN_DEFORMATION_TENSOR !<Right Cauchy-Green deformation field \see OPENCMISS_EquationsSetTensorEvaluateTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EVALUATE_GREEN_LAGRANGE_STRAIN_TENSOR = & 
    & EQUATIONS_SET_EVALUATE_GREEN_LAGRANGE_STRAIN_TENSOR !<Green-Lagrange strain tensor \see OPENCMISS_EquationsSetTensorEvaluateTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EVALUATE_CAUCHY_STRESS_TENSOR = & 
    & EQUATIONS_SET_EVALUATE_CAUCHY_STRESS_TENSOR !<Cauchy-stress tensor \see OPENCMISS_EquationsSetTensorEvaluateTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EVALUATE_SECOND_PK_STRESS_TENSOR = & 
    & EQUATIONS_SET_EVALUATE_SECOND_PK_STRESS_TENSOR !<Second Piola Kirchhoff-stress tensor \see OPENCMISS_EquationsSetTensorEvaluateTypes,OPENCMISS
  !>@}

  !> \addtogroup OPENCMISS_EquationsSetDynamicMatrixTypes OPENCMISS::EquationsSet::DynamicMatrixTypes
  !> \brief Type of matrix in a dynamic equations set
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_MATRIX_STIFFNESS=EQUATIONS_MATRIX_STIFFNESS !<A stiffness matrix (multiplies displacement values)
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_MATRIX_DAMPING=EQUATIONS_MATRIX_DAMPING !<A damping matrix (multiplies velocity values)
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_MATRIX_MASS=EQUATIONS_MATRIX_MASS !<A mass matrix (multiplies acceleration values)
  !>@}

  !> \addtogroup OPENCMISS_EquationsSetAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes
  !> \brief The analytic function types.
  !> \see OPENCMISS::EquationsSet,OPENCMISS
  !>@{
  !> \addtogroup OPENCMISS_EquationsSetLaplaceAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::Laplace
  !> \brief The analytic function types for a Laplace equation
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LAPLACE_EQUATION_TWO_DIM_1 = EQUATIONS_SET_LAPLACE_EQUATION_TWO_DIM_1 !<u=x**2+2*x*y-y**2 \see OPENCMISS_EquationsSetLaplaceAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LAPLACE_EQUATION_TWO_DIM_2 = EQUATIONS_SET_LAPLACE_EQUATION_TWO_DIM_2 !<u=cos(x)cosh(y) \see OPENCMISS_EquationsSetLaplaceAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LAPLACE_EQUATION_THREE_DIM_1 = EQUATIONS_SET_LAPLACE_EQUATION_THREE_DIM_1 !<u=x**2-2*y**2+z**2 \see OPENCMISS_EquationsSetLaplaceAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LAPLACE_EQUATION_THREE_DIM_2 = EQUATIONS_SET_LAPLACE_EQUATION_THREE_DIM_2 !<u=cos(x)*cosh(y)*z \see OPENCMISS_EquationsSetLaplaceAnalyticFunctionTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_EquationsSetHelmholtzAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::Helmholtz
  !> \brief The analytic function types for a Helmholtz equation
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_HELMHOLTZ_EQUATION_TWO_DIM_1 = EQUATIONS_SET_HELMHOLTZ_EQUATION_TWO_DIM_1 !<u=cos(sqrt(2)*k*x)*sin(sqrt(2)*k*y) \see OPENCMISS_EquationsSetHelmholtzAnalyticFunctionTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_PoiseuilleAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::Poiseuille
  !> \brief The analytic function types for a Poiseuille equation.
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISEUILLE_EQUATION_TWO_DIM_1 = EQUATIONS_SET_POISEUILLE_EQUATION_TWO_DIM_1 !<u=ln(4/(x+y+1^2)) \see OPENCMISS_EquationsSetPoiseuilleAnalyticFunctionTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_PoissonAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::Poisson
  !> \brief The analytic function types for a Poisson equation.
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_1 = EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_1 !<u=ln(4/(x+y+1^2)) \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_2 = EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_3 = EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_1 = EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_1 !<u=ln(6/(x+y+z+1^2)) \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_2 = EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_3 = EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_1 = EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_2 = EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_DiffusionAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::Diffusion
  !> \brief The analytic function types for a diffusion equation.
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_ONE_DIM_1 = EQUATIONS_SET_DIFFUSION_EQUATION_ONE_DIM_1
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_TWO_DIM_1 = EQUATIONS_SET_DIFFUSION_EQUATION_TWO_DIM_1 !<u=exp(-kt)*sin(sqrt(k)*(x*cos(phi)+y*sin(phi))) \see OPENCMISS_EquationsSetDiffusionAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_THREE_DIM_1 = EQUATIONS_SET_DIFFUSION_EQUATION_THREE_DIM_1 !<
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_DIFFUSION_THREE_DIM_1 = &
    & EQUATIONS_SET_LINEAR_SOURCE_DIFFUSION_EQUATION_THREE_DIM_1
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_ONE_DIM_1 = &
    & EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_EQUATION_ONE_DIM_1
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_ONE_DIM_1 = &
    & EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_EQUATION_ONE_DIM_1

  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_TWO_DIM = &
    & EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_TWO_DIM !<Prescribed solution, using a source term to correct for error - 2D with 2 compartments
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_THREE_DIM = &
    & EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_THREE_DIM !<Prescribed solution, using a source term to correct for error - 3D with 2 compartments
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_THREE_COMP_THREE_DIM = &
    & EQUATIONS_SET_MULTI_COMP_DIFFUSION_THREE_COMP_THREE_DIM !<Prescribed solution, using a source term to correct for error - 3D with 3 compartments
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_FOUR_COMP_THREE_DIM = &
    & EQUATIONS_SET_MULTI_COMP_DIFFUSION_FOUR_COMP_THREE_DIM !<Prescribed solution, using a source term to correct for error - 3D with 3 compartments
  !>@}
  !> \addtogroup OPENCMISS_AdvectionDiffusionAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::AdvectionDiffusion
  !> \brief The analytic function types for an advection-diffusion equation.
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ADVECTION_DIFFUSION_EQUATION_TWO_DIM_1 = &
    & EQUATIONS_SET_ADVECTION_DIFFUSION_EQUATION_TWO_DIM_1 !<u=exp(-kt)*sin(sqrt(k)*(x*cos(phi)+y*sin(phi))) \see OPENCMISS_EquationsSetDiffusionAnalyticFunctionTypes,OPENCMISS
  !> \addtogroup OPENCMISS_StokesAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::Stokes
  !> \brief The analytic function types for a Stokes equation.
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_1 = EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_2 = EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_3 = EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_4 = EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_4 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_5 = EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_5 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_1 = EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_2 = EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_3 = EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_4 = EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_4 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_5 = EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_5 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_NavierStokesAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::NavierStokes
  !> \brief The analytic function types for a Navier-Stokes equation.
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_POISEUILLE= &
    & EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_POISEUILLE !< fully developed 2D channel flow (parabolic) \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_TAYLOR_GREEN= &
    & EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_TAYLOR_GREEN !< 2D dynamic nonlinear Taylor-Green vortex decay \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_FLOWRATE_AORTA= &
    & EQUATIONS_SET_NAVIER_STOKES_EQUATION_FLOWRATE_AORTA !< A fourier decomposed flow waveform for boundary conditions
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_SINUSOID= &
    & EQUATIONS_SET_NAVIER_STOKES_EQUATION_SINUSOID !< A sinusoidal flow waveform
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_SPLINT_FROM_FILE= &
    & EQUATIONS_SET_NAVIER_STOKES_EQUATION_SPLINT_FROM_FILE !< Spline integration of dependent values specified in a file
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_1 = EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_2 = EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_3 = EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_4 = EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_4 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_5 = EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_5 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_1 = &
    & EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_2 = &
    & EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_3 = &
    & EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_4 = &
    & EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_4 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_5 = &
    & EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_5 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_DarcyAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::Darcy
  !> \brief The analytic function types for a Darcy equation.
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_1 = EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_2 = EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_3 = EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_1 = EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_2 = EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_3 = EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_INCOMP_ELAST_DARCY_ANALYTIC_DARCY = &
    & EQUATIONS_SET_INCOMP_ELAST_DARCY_ANALYTIC_DARCY !<this is a solution where the finite elasticity solve is skipped to allow easy analytic testing of the mass increase & velocity solve step of incompressible poromechanical model
  !>@}
  !> \addtogroup OPENCMISS_BurgersAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::Burgers
  !> \brief The analytic function types for a Burgers equation.
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_BURGERS_EQUATION_ONE_DIM_1 = EQUATIONS_SET_BURGERS_EQUATION_ONE_DIM_1
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_1 = &
    & EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_1
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_2 = &
    & EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_2
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STATIC_BURGERS_EQUATION_ONE_DIM_1 = &
    & EQUATIONS_SET_STATIC_BURGERS_EQUATION_ONE_DIM_1
  !>@}

  !> \addtogroup OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::LinearElasticity
  !> \brief The analytic function types for a LinearElasticity equation
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_ONE_DIM_1 = EQUATIONS_SET_LINEAR_ELASTICITY_ONE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_1 = EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_2 = EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_1 = EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_2 = EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_EquationsSetFiniteElasticityAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::FiniteElasticity
  !> \brief The analytic function types for a FiniteElasticity equation
  !> \see OPENCMISS::EquationsSet::AnalyticFunctionTypes,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FINITE_ELASTICITY_CYLINDER = EQUATIONS_SET_FINITE_ELASTICITY_CYLINDER !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
  !>@}
  !>@}
  !>@}

  !> \addtogroup OPENCMISS_AnalyticParamIndices OPENCMISS::FiniteElasticity::AnalyticParamIndices
  !> \brief Indices for EQUATIONS_SET_ANALYTIC_TYPE%ANALYTIC_USER_PARAMS
  !> \see OPENCMISS::FiniteElasticity::AnalyticParamIndices,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_PIN_IDX = &
    & FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_PIN_IDX !<Inner pressure parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_POUT_IDX = &
    & FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_POUT_IDX !<Outer pressure parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_LAMBDA_IDX = &
    & FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_LAMBDA_IDX !<Lambda parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_TSI_IDX = &
    & FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_TSI_IDX !<Tsi parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_RIN_IDX = &
    & FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_RIN_IDX !<Inner radius parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_ROUT_IDX = &
    & FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_ROUT_IDX !<Outer radius parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C1_IDX = &
    & FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C1_IDX !<c1 parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C2_IDX = &
    & FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C2_IDX !<c2 parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
  !>@}

  !Module types

  !Module variables

  !Interfaces

  PUBLIC CMFE_EQUATIONS_SET_NO_CLASS,CMFE_EQUATIONS_SET_ELASTICITY_CLASS,CMFE_EQUATIONS_SET_FLUID_MECHANICS_CLASS, &
    & CMFE_EQUATIONS_SET_ELECTROMAGNETICS_CLASS,CMFE_EQUATIONS_SET_CLASSICAL_FIELD_CLASS,CMFE_EQUATIONS_SET_BIOELECTRICS_CLASS, &
    & CMFE_EQUATIONS_SET_MODAL_CLASS,CMFE_EQUATIONS_SET_FITTING_CLASS,CMFE_EQUATIONS_SET_OPTIMISATION_CLASS, &
    & CMFE_EQUATIONS_SET_MULTI_PHYSICS_CLASS

  PUBLIC CMFE_EQUATIONS_SET_NO_TYPE,CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_TYPE,CMFE_EQUATIONS_SET_FINITE_ELASTICITY_TYPE, &
    & CMFE_EQUATIONS_SET_STOKES_EQUATION_TYPE,CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_DARCY_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_DARCY_PRESSURE_EQUATION_TYPE,CMFE_EQUATIONS_SET_BURGERS_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_STATIC_POISEUILLE_SUBTYPE, &
    & CMFE_EQUATIONS_SET_DYNAMIC_POISEUILLE_SUBTYPE, &
    & CMFE_EQUATIONS_SET_CHARACTERISTIC_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_ELECTROSTATIC_TYPE,CMFE_EQUATIONS_SET_MAGNETOSTATIC_TYPE,CMFE_EQUATIONS_SET_MAXWELLS_EQUATIONS_TYPE, &
    & CMFE_EQUATIONS_SET_LAPLACE_EQUATION_TYPE,CMFE_EQUATIONS_SET_POISEUILLE_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_POISSON_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_HELMHOLTZ_EQUATION_TYPE,CMFE_EQUATIONS_SET_WAVE_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_TYPE,CMFE_EQUATIONS_SET_ADVECTION_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_ADVECTION_DIFFUSION_EQUATION_TYPE,CMFE_EQUATIONS_SET_REACTION_DIFFUSION_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_BIHARMONIC_EQUATION_TYPE,CMFE_EQUATIONS_SET_MONODOMAIN_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_BIDOMAIN_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_LINEAR_ELASTIC_MODAL_TYPE,CMFE_EQUATIONS_SET_DATA_FITTING_EQUATION_TYPE, &
    & CMFE_EQUATIONS_SET_MONODOMAIN_STRANG_SPLITTING_EQUATION_TYPE

  PUBLIC CMFE_EQUATIONS_SET_FINITE_ELASTICITY_DARCY_TYPE, &
    & CMFE_EQUATIONS_SET_FINITE_ELASTICITY_STOKES_TYPE, CMFE_EQUATIONS_SET_FINITE_ELASTICITY_NAVIER_STOKES_TYPE, &
    & CMFE_EQUATIONS_SET_DIFFUSION_DIFFUSION_TYPE, CMFE_EQUATIONS_SET_DIFFUSION_ADVECTION_DIFFUSION_TYPE

  PUBLIC CMFE_EQUATIONS_SET_NO_SUBTYPE,CMFE_EQUATIONS_SET_THREE_DIMENSIONAL_SUBTYPE, &
    & CMFE_EQUATIONS_SET_TWO_DIMENSIONAL_PLANE_STRESS_SUBTYPE, &
    & CMFE_EQUATIONS_SET_TWO_DIMENSIONAL_PLANE_STRAIN_SUBTYPE,CMFE_EQUATIONS_SET_ONE_DIMENSIONAL_SUBTYPE, &
    & CMFE_EQUATIONS_SET_PLATE_SUBTYPE, &
    & CMFE_EQUATIONS_SET_SHELL_SUBTYPE, &
    & CMFE_EQUATIONS_SET_INCOMPRESSIBLE_MOONEY_RIVLIN_SUBTYPE,CMFE_EQUATIONS_SET_NEARLY_INCOMPRESSIBLE_MOONEY_RIVLIN_SUBTYPE, &
    & CMFE_EQUATIONS_SET_MOONEY_RIVLIN_SUBTYPE, &
    & CMFE_EQUATIONS_SET_REFERENCE_STATE_MOONEY_RIVLIN_SUBTYPE, CMFE_EQUATIONS_SET_ISOTROPIC_EXPONENTIAL_SUBTYPE, &
    & CMFE_EQUATIONS_SET_ACTIVECONTRACTION_SUBTYPE,CMFE_EQUATIONS_SET_MOONEY_RIVLIN_ACTIVECONTRACTION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_COMPRESSIBLE_ACTIVECONTRACTION_SUBTYPE,CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_ACTIVE_SUBTYPE, &
    & CMFE_EQUATIONS_SET_TRANS_ISOTROPIC_ACTIVE_TRANSITION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_POLYNOMIAL_SUBTYPE,CMFE_EQUATIONS_SET_STVENANT_KIRCHOFF_ACTIVECONTRACTION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_SUBTYPE,CMFE_EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_ACTIVE_SUBTYPE, &
    & CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_EXPONENTIAL_SUBTYPE,CMFE_EQUATIONS_SET_ORTHOTROPIC_MATERIAL_COSTA_SUBTYPE, &
    & CMFE_EQUATIONS_SET_COMPRESSIBLE_FINITE_ELASTICITY_SUBTYPE,CMFE_EQUATIONS_SET_INCOMPRESS_FINITE_ELASTICITY_DARCY_SUBTYPE, &
    & CMFE_EQUATIONS_SET_ELASTICITY_DARCY_INRIA_MODEL_SUBTYPE,CMFE_EQUATIONS_SET_ELASTICITY_MULTI_COMP_DARCY_INRIA_SUBTYPE, &
    & CMFE_EQUATIONS_SET_INCOMPRESS_ELASTICITY_DRIVEN_DARCY_SUBTYPE, &
    & CMFE_EQUATIONS_SET_INCOMPRESSIBLE_ELASTICITY_DRIVEN_MR_SUBTYPE, &
    & CMFE_EQUATIONS_SET_INCOMPRESS_ELAST_MULTI_COMP_DARCY_SUBTYPE,CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_GUCCIONE_SUBTYPE, &
    & CMFE_EQUATIONS_SET_GUCCIONE_ACTIVECONTRACTION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_ACTIVE_STRAIN_SUBTYPE, &
    & CMFE_EQUATIONS_SET_MULTISCALE_ACTIVE_STRAIN_SUBTYPE, &
    & CMFE_EQUATIONS_SET_MEMBRANE_SUBTYPE, CMFE_EQUATIONS_SET_ORTHOTROPIC_HOLZAPFEL_OGDEN_SUBTYPE, &
    & CMFE_EQUATIONS_SET_HOLZAPFEL_OGDEN_ACTIVECONTRACTION_SUBTYPE,  &
    & CMFE_EQUATIONS_SET_ELASTICITY_FLUID_PRES_STATIC_INRIA_SUBTYPE, &
    & CMFE_EQUATIONS_SET_ELASTICITY_FLUID_PRES_HOLMES_MOW_SUBTYPE, &
    & CMFE_EQUATIONS_SET_ELASTI_FLUID_PRES_HOLMES_MOW_ACTIVE_SUBTYPE, &
    & CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_HUMPHREY_YIN_SUBTYPE, &
    & CMFE_EQUATIONS_SET_STATIC_STOKES_SUBTYPE, CMFE_EQUATIONS_SET_LAPLACE_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_TRANSIENT_STOKES_SUBTYPE,CMFE_EQUATIONS_SET_ALE_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_ALE_NAVIER_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_OPTIMISED_STOKES_SUBTYPE,CMFE_EQUATIONS_SET_STATIC_NAVIER_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_LAPLACE_NAVIER_STOKES_SUBTYPE,CMFE_EQUATIONS_SET_TRANSIENT_NAVIER_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_TRANSIENT1D_NAVIER_STOKES_SUBTYPE, CMFE_EQUATIONS_SET_TRANSIENT_RBS_NAVIER_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_STATIC_RBS_NAVIER_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_CHARACTERISTIC_SUBTYPE, &
    & CMFE_EQUATIONS_SET_TRANSIENT1D_ADV_NAVIER_STOKES_SUBTYPE, CMFE_EQUATIONS_SET_COUPLED1D0D_ADV_NAVIER_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_STREE1D0D_SUBTYPE, CMFE_EQUATIONS_SET_STREE1D0D_ADV_SUBTYPE, &
    & CMFE_EQUATIONS_SET_MULTISCALE3D_NAVIER_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_CONSTITUTIVE_MU_NAVIER_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_COUPLED1D0D_NAVIER_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_OPTIMISED_NAVIER_STOKES_SUBTYPE,CMFE_EQUATIONS_SET_STANDARD_DARCY_SUBTYPE, &
    & CMFE_EQUATIONS_SET_QUASISTATIC_DARCY_SUBTYPE,CMFE_EQUATIONS_SET_ALE_DARCY_SUBTYPE, &
    & CMFE_EQUATIONS_SET_TRANSIENT_DARCY_SUBTYPE, &
    & CMFE_EQUATIONS_SET_TRANSIENT_ALE_DARCY_SUBTYPE,CMFE_EQUATIONS_SET_MULTI_COMPARTMENT_DARCY_SUBTYPE, &
    & CMFE_EQUATIONS_SET_STANDARD_LAPLACE_SUBTYPE,CMFE_EQUATIONS_SET_MOVING_MESH_LAPLACE_SUBTYPE, &
    & CMFE_EQUATIONS_SET_GENERALISED_LAPLACE_SUBTYPE,CMFE_EQUATIONS_SET_CONSTANT_SOURCE_POISSON_SUBTYPE, &
    & CMFE_EQUATIONS_SET_EXTRACELLULAR_BIDOMAIN_POISSON_SUBTYPE, &
    & CMFE_EQUATIONS_SET_LINEAR_PRESSURE_POISSON_SUBTYPE, CMFE_EQUATIONS_SET_NONLINEAR_PRESSURE_POISSON_SUBTYPE, &
    & CMFE_EQUATIONS_SET_ALE_PRESSURE_POISSON_SUBTYPE, CMFE_EQUATIONS_SET_FITTED_PRESSURE_POISSON_SUBTYPE,&
    & CMFE_EQUATIONS_SET_LINEAR_SOURCE_POISSON_SUBTYPE,CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_POISSON_SUBTYPE, &
    & CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_POISSON_SUBTYPE,CMFE_EQUATIONS_SET_STANDARD_HELMHOLTZ_SUBTYPE, &
    & CMFE_EQUATIONS_SET_GENERALISED_HELMHOLTZ_SUBTYPE, &
    & CMFE_EQUATIONS_SET_NO_SOURCE_DIFFUSION_SUBTYPE,CMFE_EQUATIONS_SET_CONSTANT_SOURCE_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_LINEAR_SOURCE_DIFFUSION_SUBTYPE,CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_SUBTYPE,CMFE_EQUATIONS_SET_MULTI_COMP_TRANSPORT_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_NO_SOURCE_ALE_DIFFUSION_SUBTYPE,CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE,CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ALE_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_ALE_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_ADVECTION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ADVEC_DIFF_SUBTYPE,CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_ADVEC_DIFF_SUBTYPE, &
    & CMFE_EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVEC_DIFF_SUBTYPE,CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVEC_DIFF_SUBTYPE, &
    & CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ALE_ADVEC_DIFF_SUBTYPE,CMFE_EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE, CMFE_EQUATIONS_SET_CONSTANT_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE, &
    & CMFE_EQUATIONS_SET_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE, &
    & CMFE_EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE, CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE, CMFE_EQUATIONS_SET_QUAD_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_EXP_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVEC_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVEC_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_QUAD_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_CONST_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_LIN_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_MULTI_COMP_TRANSPORT_ADVEC_DIFF_SUBTYPE,CMFE_EQUATIONS_SET_MULT_COMP_TRANSPORT_ADVEC_DIFF_SUPG_SUBTYPE, &
    & CMFE_EQUATIONS_SET_PGM_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_FIRST_BIDOMAIN_SUBTYPE,CMFE_EQUATIONS_SET_SECOND_BIDOMAIN_SUBTYPE, &
    & CMFE_EQUATIONS_SET_MONODOMAIN_BUENOOROVIO_SUBTYPE,&
    & CMFE_EQUATIONS_SET_MONODOMAIN_TENTUSSCHER06_SUBTYPE  ,&
    & CMFE_EQUATIONS_SET_STANDARD_DATA_FITTING_SUBTYPE,CMFE_EQUATIONS_SET_GENERALISED_DATA_FITTING_SUBTYPE, &
    & CMFE_EQUATIONS_SET_VECTOR_DATA_FITTING_SUBTYPE,CMFE_EQUATIONS_SET_DIVFREE_VECTOR_DATA_FITTING_SUBTYPE, &
    & CMFE_EQUATIONS_SET_VECTOR_DATA_PRE_FITTING_SUBTYPE,CMFE_EQUATIONS_SET_DIVFREE_VECTOR_DATA_PRE_FITTING_SUBTYPE, &
    & CMFE_EQUATIONS_SET_MAT_PROPERTIES_DATA_FITTING_SUBTYPE,CMFE_EQUATIONS_SET_MAT_PROP_INRIA_MODEL_DATA_FITTING_SUBTYPE, &
    & CMFE_EQUATIONS_SET_DATA_POINT_VECTOR_STATIC_FITTING_SUBTYPE, &
    & CMFE_EQUATIONS_SET_DATA_PT_VECTOR_QUASISTATIC_FITTING_SUBTYPE, &
    & CMFE_EQUATIONS_SET_PGM_NAVIER_STOKES_SUBTYPE, &
    & CMFE_EQUATIONS_SET_CONSTITUTIVE_LAW_IN_CELLML_EVALUATE_SUBTYPE, &
    & CMFE_EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_DIFFUSION_SUBTYPE, &
    & CMFE_EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_ADVEC_DIFF_SUBTYPE, &
    & CMFE_EQUATIONS_SET_BURGERS_SUBTYPE,CMFE_EQUATIONS_SET_GENERALISED_BURGERS_SUBTYPE, &
    & CMFE_EQUATIONS_SET_STATIC_BURGERS_SUBTYPE, &
    & CMFE_EQUATIONS_SET_INVISCID_BURGERS_SUBTYPE,CMFE_EQUATIONS_SET_STANDARD_MONODOMAIN_ELASTICITY_SUBTYPE, &
    & CMFE_EQUATIONS_SET_1D3D_MONODOMAIN_ELASTICITY_SUBTYPE,CMFE_EQUATIONS_SET_MONODOMAIN_ELASTICITY_W_TITIN_SUBTYPE, &
    & CMFE_EQUATIONS_SET_1D3D_MONODOMAIN_ACTIVE_STRAIN_SUBTYPE, &
    & CMFE_EQUATIONS_SET_CONSTIT_AND_GROWTH_LAW_IN_CELLML_SUBTYPE, &
    & CMFE_EQUATIONS_SET_MONODOMAIN_ELASTICITY_VELOCITY_SUBTYPE, &
    & CMFE_EQUATIONS_SET_FINITE_ELASTICITY_NAVIER_STOKES_ALE_SUBTYPE

  PUBLIC CMFE_EQUATIONS_SET_CELLML_REAC_SPLIT_REAC_DIFF_SUBTYPE, CMFE_EQUATIONS_SET_CELLML_REAC_NO_SPLIT_REAC_DIFF_SUBTYPE, &
    & CMFE_EQUATIONS_SET_CONSTANT_REAC_DIFF_SUBTYPE

  PUBLIC CMFE_EQUATIONS_SET_FEM_SOLUTION_METHOD,CMFE_EQUATIONS_SET_BEM_SOLUTION_METHOD,CMFE_EQUATIONS_SET_FD_SOLUTION_METHOD, &
    & CMFE_EQUATIONS_SET_FV_SOLUTION_METHOD,CMFE_EQUATIONS_SET_GFEM_SOLUTION_METHOD,CMFE_EQUATIONS_SET_GFD_SOLUTION_METHOD, &
    & CMFE_EQUATIONS_SET_GFV_SOLUTION_METHOD

  PUBLIC CMFE_EQUATIONS_SET_DERIVED_STRAIN,CMFE_EQUATIONS_SET_DERIVED_STRESS

  PUBLIC CMFE_EQUATIONS_SET_EVALUATE_DEFORMATION_GRADIENT_TENSOR, &
    & CMFE_EQUATIONS_SET_EVALUATE_R_CAUCHY_GREEN_DEFORMATION_TENSOR, &
    & CMFE_EQUATIONS_SET_EVALUATE_GREEN_LAGRANGE_STRAIN_TENSOR, &
    & CMFE_EQUATIONS_SET_EVALUATE_CAUCHY_STRESS_TENSOR, &
    & CMFE_EQUATIONS_SET_EVALUATE_SECOND_PK_STRESS_TENSOR

  PUBLIC CMFE_EQUATIONS_MATRIX_STIFFNESS,CMFE_EQUATIONS_MATRIX_DAMPING,CMFE_EQUATIONS_MATRIX_MASS

  PUBLIC CMFE_EQUATIONS_SET_LAPLACE_EQUATION_TWO_DIM_1,CMFE_EQUATIONS_SET_LAPLACE_EQUATION_TWO_DIM_2, &
    & CMFE_EQUATIONS_SET_LAPLACE_EQUATION_THREE_DIM_1,CMFE_EQUATIONS_SET_LAPLACE_EQUATION_THREE_DIM_2

  PUBLIC CMFE_EQUATIONS_SET_HELMHOLTZ_EQUATION_TWO_DIM_1

  PUBLIC CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_ONE_DIM_1,CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_1, &
    & CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_2,CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_1, &
    & CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_2

  PUBLIC CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_ONE_DIM_1,CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_TWO_DIM_1, &
    & CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_THREE_DIM_1, &
    & CMFE_EQUATIONS_SET_LINEAR_SOURCE_DIFFUSION_THREE_DIM_1,CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_ONE_DIM_1, &
    & CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_ONE_DIM_1,CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_TWO_DIM, &
    & CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_THREE_DIM,CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_THREE_COMP_THREE_DIM, &
    & CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_FOUR_COMP_THREE_DIM


  PUBLIC CMFE_EQUATIONS_SET_ADVECTION_DIFFUSION_EQUATION_TWO_DIM_1

  PUBLIC CMFE_EQUATIONS_SET_POISEUILLE_EQUATION_TWO_DIM_1

  PUBLIC CMFE_EQUATIONS_SET_BURGERS_EQUATION_ONE_DIM_1,CMFE_EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_1, &
    & CMFE_EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_2, &
    & CMFE_EQUATIONS_SET_STATIC_BURGERS_EQUATION_ONE_DIM_1

  PUBLIC CMFE_EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_1,CMFE_EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_2, &
    & CMFE_EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_3
  PUBLIC CMFE_EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_1,CMFE_EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_2, &
    & CMFE_EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_3
  PUBLIC CMFE_EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_1, &
    & CMFE_EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_2

  PUBLIC CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_1,CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_2, &
    & CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_3
  PUBLIC CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_4,CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_5
  PUBLIC CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_1,CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_2, &
    & CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_3
  PUBLIC CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_4,CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_5

  PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_POISEUILLE, &
    & CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_TAYLOR_GREEN
  PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_FLOWRATE_AORTA, &
    &    CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_SINUSOID, &
    &    CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_SPLINT_FROM_FILE
  PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_1,CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_2, &
    & CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_3
  PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_4,CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_5
  PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_1,CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_2, &
    & CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_3
  PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_4,CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_5

  PUBLIC CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_1,CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_2, &
    & CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_3
  PUBLIC CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_1,CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_2, &
    & CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_3
  PUBLIC CMFE_EQUATIONS_SET_INCOMP_ELAST_DARCY_ANALYTIC_DARCY

  PUBLIC CMFE_EQUATIONS_SET_FINITE_ELASTICITY_CYLINDER
  PUBLIC CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_PIN_IDX,CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_POUT_IDX
  PUBLIC CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_LAMBDA_IDX,CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_TSI_IDX
  PUBLIC CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_RIN_IDX,CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_ROUT_IDX
  PUBLIC CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C1_IDX,CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C2_IDX

!!==================================================================================================================================
!!
!! EQUATIONS_SET_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !Module types

  !Module variables

  !Interfaces

  !>Finish the creation of a analytic solution for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_AnalyticCreateStart
  INTERFACE cmfe_EquationsSet_AnalyticCreateFinish
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticCreateFinishNumber
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticCreateFinishObj
  END INTERFACE cmfe_EquationsSet_AnalyticCreateFinish

  !>Start the creation of a analytic solution for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_AnalyticCreateFinish
  INTERFACE cmfe_EquationsSet_AnalyticCreateStart
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticCreateStartNumber
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticCreateStartObj
  END INTERFACE cmfe_EquationsSet_AnalyticCreateStart

  !>Destroy the analytic solution for an equations set.
  INTERFACE cmfe_EquationsSet_AnalyticDestroy
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticDestroyNumber
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticDestroyObj
  END INTERFACE cmfe_EquationsSet_AnalyticDestroy

  !>Evaluates the current analytic solution for an equations set.
  INTERFACE cmfe_EquationsSet_AnalyticEvaluate
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticEvaluateNumber
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticEvaluateObj
  END INTERFACE cmfe_EquationsSet_AnalyticEvaluate

  !>Returns the analytic time for an equations set.
  INTERFACE cmfe_EquationsSet_AnalyticTimeGet
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticTimeGetNumber
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticTimeGetObj
  END INTERFACE cmfe_EquationsSet_AnalyticTimeGet

  !>Sets/changes the analytic time for an equations set.
  INTERFACE cmfe_EquationsSet_AnalyticTimeSet
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticTimeSetNumber
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticTimeSetObj
  END INTERFACE cmfe_EquationsSet_AnalyticTimeSet

  !>Finish the creation of an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_CreateStart
  INTERFACE cmfe_EquationsSet_CreateFinish
    MODULE PROCEDURE cmfe_EquationsSet_CreateFinishNumber
    MODULE PROCEDURE cmfe_EquationsSet_CreateFinishObj
  END INTERFACE cmfe_EquationsSet_CreateFinish

  !>Start the creation of an equations set on a region. \see OpenCMISS::Iron::cmfe_EquationsSet_CreateFinish
  INTERFACE cmfe_EquationsSet_CreateStart
    MODULE PROCEDURE cmfe_EquationsSet_CreateStartNumber
    MODULE PROCEDURE cmfe_EquationsSet_CreateStartObj
  END INTERFACE cmfe_EquationsSet_CreateStart

  !>Destroy an equations set.
  INTERFACE cmfe_EquationsSet_Destroy
    MODULE PROCEDURE cmfe_EquationsSet_DestroyNumber
    MODULE PROCEDURE cmfe_EquationsSet_DestroyObj
  END INTERFACE cmfe_EquationsSet_Destroy

  !>Finish the creation of dependent variables for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_DependentCreateStart
  INTERFACE cmfe_EquationsSet_DependentCreateFinish
    MODULE PROCEDURE cmfe_EquationsSet_DependentCreateFinishNumber
    MODULE PROCEDURE cmfe_EquationsSet_DependentCreateFinishObj
  END INTERFACE cmfe_EquationsSet_DependentCreateFinish

  !>Start the creation of dependent variables for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_DependentCreateFinish
  INTERFACE cmfe_EquationsSet_DependentCreateStart
    MODULE PROCEDURE cmfe_EquationsSet_DependentCreateStartNumber
    MODULE PROCEDURE cmfe_EquationsSet_DependentCreateStartObj
  END INTERFACE cmfe_EquationsSet_DependentCreateStart

  !>Destroy the dependent variables for an equations set.
  INTERFACE cmfe_EquationsSet_DependentDestroy
    MODULE PROCEDURE cmfe_EquationsSet_DependentDestroyNumber
    MODULE PROCEDURE cmfe_EquationsSet_DependentDestroyObj
  END INTERFACE cmfe_EquationsSet_DependentDestroy

  !>Finish the creation of derived variables for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_DerivedCreateStart
  INTERFACE cmfe_EquationsSet_DerivedCreateFinish
    MODULE PROCEDURE cmfe_EquationsSet_DerivedCreateFinishNumber
    MODULE PROCEDURE cmfe_EquationsSet_DerivedCreateFinishObj
  END INTERFACE cmfe_EquationsSet_DerivedCreateFinish

  !>Start the creation of derived variables for an equations set. These are used to store any intermediate
  !>calculated values, for example stress and strain fields in an elasticity problem. \see OpenCMISS::Iron::cmfe_EquationsSet_DerivedCreateFinish
  INTERFACE cmfe_EquationsSet_DerivedCreateStart
    MODULE PROCEDURE cmfe_EquationsSet_DerivedCreateStartNumber
    MODULE PROCEDURE cmfe_EquationsSet_DerivedCreateStartObj
  END INTERFACE cmfe_EquationsSet_DerivedCreateStart

  !>Destroy the derived variables for an equations set.
  INTERFACE cmfe_EquationsSet_DerivedDestroy
    MODULE PROCEDURE cmfe_EquationsSet_DerivedDestroyNumber
    MODULE PROCEDURE cmfe_EquationsSet_DerivedDestroyObj
  END INTERFACE cmfe_EquationsSet_DerivedDestroy

  !>Finish the creation of equations for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_EquationsCreateStart
  INTERFACE cmfe_EquationsSet_EquationsCreateFinish
    MODULE PROCEDURE cmfe_EquationsSet_EquationsCreateFinishNumber
    MODULE PROCEDURE cmfe_EquationsSet_EquationsCreateFinishObj
  END INTERFACE cmfe_EquationsSet_EquationsCreateFinish

  !>Start the creation of equations for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_EquationsCreateFinish
  INTERFACE cmfe_EquationsSet_EquationsCreateStart
    MODULE PROCEDURE cmfe_EquationsSet_EquationsCreateStartNumber
    MODULE PROCEDURE cmfe_EquationsSet_EquationsCreateStartObj
  END INTERFACE cmfe_EquationsSet_EquationsCreateStart

  !>Destroy the equations for an equations set.
  INTERFACE cmfe_EquationsSet_EquationsDestroy
    MODULE PROCEDURE cmfe_EquationsSet_EquationsDestroyNumber
    MODULE PROCEDURE cmfe_EquationsSet_EquationsDestroyObj
  END INTERFACE cmfe_EquationsSet_EquationsDestroy

  !>Finish the creation of independent fields for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_IndependentCreateStart
  INTERFACE cmfe_EquationsSet_IndependentCreateFinish
    MODULE PROCEDURE cmfe_EquationsSet_IndependentCreateFinishNumber
    MODULE PROCEDURE cmfe_EquationsSet_IndependentCreateFinishObj
  END INTERFACE cmfe_EquationsSet_IndependentCreateFinish

  !>Start the creation of independent fields for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_MaterialsCreateFinish
  INTERFACE cmfe_EquationsSet_IndependentCreateStart
    MODULE PROCEDURE cmfe_EquationsSet_IndependentCreateStartNumber
    MODULE PROCEDURE cmfe_EquationsSet_IndependentCreateStartObj
  END INTERFACE cmfe_EquationsSet_IndependentCreateStart

  !>Destroy the independent fields for an equations set.
  INTERFACE cmfe_EquationsSet_IndependentDestroy
    MODULE PROCEDURE cmfe_EquationsSet_IndependentDestroyNumber
    MODULE PROCEDURE cmfe_EquationsSet_IndependentDestroyObj
  END INTERFACE cmfe_EquationsSet_IndependentDestroy

  !>Finish the creation of materials for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_MaterialsCreateStart
  INTERFACE cmfe_EquationsSet_MaterialsCreateFinish
    MODULE PROCEDURE cmfe_EquationsSet_MaterialsCreateFinishNumber
    MODULE PROCEDURE cmfe_EquationsSet_MaterialsCreateFinishObj
  END INTERFACE cmfe_EquationsSet_MaterialsCreateFinish

  !>Start the creation of materials for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_MaterialsCreateFinish
  INTERFACE cmfe_EquationsSet_MaterialsCreateStart
    MODULE PROCEDURE cmfe_EquationsSet_MaterialsCreateStartNumber
    MODULE PROCEDURE cmfe_EquationsSet_MaterialsCreateStartObj
  END INTERFACE cmfe_EquationsSet_MaterialsCreateStart

  !>Destroy the materials for an equations set.
  INTERFACE cmfe_EquationsSet_MaterialsDestroy
    MODULE PROCEDURE cmfe_EquationsSet_MaterialsDestroyNumber
    MODULE PROCEDURE cmfe_EquationsSet_MaterialsDestroyObj
  END INTERFACE cmfe_EquationsSet_MaterialsDestroy

  !>Returns the solution method for an equations set.
  INTERFACE cmfe_EquationsSet_SolutionMethodGet
    MODULE PROCEDURE cmfe_EquationsSet_SolutionMethodGetNumber
    MODULE PROCEDURE cmfe_EquationsSet_SolutionMethodGetObj
  END INTERFACE cmfe_EquationsSet_SolutionMethodGet

  !>Sets/changes the solution method for an equations set.
  INTERFACE cmfe_EquationsSet_SolutionMethodSet
    MODULE PROCEDURE cmfe_EquationsSet_SolutionMethodSetNumber
    MODULE PROCEDURE cmfe_EquationsSet_SolutionMethodSetObj
  END INTERFACE cmfe_EquationsSet_SolutionMethodSet

  !>Finish the creation of a source for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_SourceCreateStart
  INTERFACE cmfe_EquationsSet_SourceCreateFinish
    MODULE PROCEDURE cmfe_EquationsSet_SourceCreateFinishNumber
    MODULE PROCEDURE cmfe_EquationsSet_SourceCreateFinishObj
  END INTERFACE cmfe_EquationsSet_SourceCreateFinish

  !>Start the creation of a source for an equations set. \see OpenCMISS::Iron::cmfe_EquationsSet_SourceCreateFinish
  INTERFACE cmfe_EquationsSet_SourceCreateStart
    MODULE PROCEDURE cmfe_EquationsSet_SourceCreateStartNumber
    MODULE PROCEDURE cmfe_EquationsSet_SourceCreateStartObj
  END INTERFACE cmfe_EquationsSet_SourceCreateStart

  !>Destroy the source for an equations set.
  INTERFACE cmfe_EquationsSet_SourceDestroy
    MODULE PROCEDURE cmfe_EquationsSet_SourceDestroyNumber
    MODULE PROCEDURE cmfe_EquationsSet_SourceDestroyObj
  END INTERFACE cmfe_EquationsSet_SourceDestroy

  !>Returns the equations set specification array
  INTERFACE cmfe_EquationsSet_SpecificationGet
    MODULE PROCEDURE cmfe_EquationsSet_SpecificationGetNumber
    MODULE PROCEDURE cmfe_EquationsSet_SpecificationGetObj
  END INTERFACE cmfe_EquationsSet_SpecificationGet

  !>Returns the size of the equations set specification array.
  INTERFACE cmfe_EquationsSet_SpecificationSizeGet
    MODULE PROCEDURE cmfe_EquationsSet_SpecificationSizeGetNumber
    MODULE PROCEDURE cmfe_EquationsSet_SpecificationSizeGetObj
  END INTERFACE cmfe_EquationsSet_SpecificationSizeGet

  !>Calculates an output field for the equations set.
  INTERFACE cmfe_EquationsSet_DerivedVariableCalculate
    MODULE PROCEDURE cmfe_EquationsSet_DerivedVariableCalculateNumber
    MODULE PROCEDURE cmfe_EquationsSet_DerivedVariableCalculateObj
  END INTERFACE cmfe_EquationsSet_DerivedVariableCalculate

  !>Set the derived field variable type to be used by a derived variable
  INTERFACE cmfe_EquationsSet_DerivedVariableSet
    MODULE PROCEDURE cmfe_EquationsSet_DerivedVariableSetNumber
    MODULE PROCEDURE cmfe_EquationsSet_DerivedVariableSetObj
  END INTERFACE cmfe_EquationsSet_DerivedVariableSet
  
  !>Evaluate a tensor at a given element xi location.
  INTERFACE cmfe_EquationsSet_TensorInterpolateXi
    MODULE PROCEDURE cmfe_EquationsSet_TensorInterpolateXiNumber
    MODULE PROCEDURE cmfe_EquationsSet_TensorInterpolateXiObj
  END INTERFACE cmfe_EquationsSet_TensorInterpolateXi

  !>Gets the equations set analytic user parameter
  INTERFACE cmfe_EquationsSet_AnalyticUserParamGet
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticUserParamGetNumber
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticUserParamGetObj
  END INTERFACE cmfe_EquationsSet_AnalyticUserParamGet

  !>Sets/changes the equations set analytic user parameter
  INTERFACE cmfe_EquationsSet_AnalyticUserParamSet
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticUserParamSetNumber
    MODULE PROCEDURE cmfe_EquationsSet_AnalyticUserParamSetObj
  END INTERFACE cmfe_EquationsSet_AnalyticUserParamSet

  PUBLIC cmfe_EquationsSet_AnalyticCreateFinish,cmfe_EquationsSet_AnalyticCreateStart

  PUBLIC cmfe_EquationsSet_AnalyticDestroy

  PUBLIC cmfe_EquationsSet_AnalyticEvaluate

  PUBLIC cmfe_EquationsSet_AnalyticTimeGet,cmfe_EquationsSet_AnalyticTimeSet

  PUBLIC cmfe_EquationsSet_CreateFinish,cmfe_EquationsSet_CreateStart

  PUBLIC cmfe_EquationsSet_Destroy

  PUBLIC cmfe_EquationsSet_DependentCreateFinish,cmfe_EquationsSet_DependentCreateStart

  PUBLIC cmfe_EquationsSet_DependentDestroy

  PUBLIC cmfe_EquationsSet_DerivedCreateFinish,cmfe_EquationsSet_DerivedCreateStart

  PUBLIC cmfe_EquationsSet_DerivedDestroy

  PUBLIC cmfe_EquationsSet_DerivedVariableCalculate,cmfe_EquationsSet_DerivedVariableSet

  PUBLIC cmfe_EquationsSet_EquationsCreateFinish,cmfe_EquationsSet_EquationsCreateStart

  PUBLIC cmfe_EquationsSet_EquationsDestroy

  PUBLIC cmfe_EquationsSet_IndependentCreateFinish,cmfe_EquationsSet_IndependentCreateStart

  PUBLIC cmfe_EquationsSet_IndependentDestroy

  PUBLIC cmfe_EquationsSet_MaterialsCreateFinish,cmfe_EquationsSet_MaterialsCreateStart

  PUBLIC cmfe_EquationsSet_MaterialsDestroy

  PUBLIC cmfe_EquationsSet_SolutionMethodGet,cmfe_EquationsSet_SolutionMethodSet

  PUBLIC cmfe_EquationsSet_SourceCreateFinish,cmfe_EquationsSet_SourceCreateStart

  PUBLIC cmfe_EquationsSet_SourceDestroy

  PUBLIC cmfe_EquationsSet_SpecificationGet,cmfe_EquationsSet_SpecificationSizeGet

  PUBLIC cmfe_EquationsSet_TensorInterpolateXi

  PUBLIC cmfe_EquationsSet_AnalyticUserParamSet,cmfe_EquationsSet_AnalyticUserParamGet

!!==================================================================================================================================
!!
!! FIELD_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !> \addtogroup OPENCMISS_FieldConstants OPENCMISS::Field::Constants
  !> \brief Field constants.
  !>@{
  !> \addtogroup OPENCMISS_FieldDependentTypes OPENCMISS::Field::DependentTypes
  !> \brief Depedent field parameter types.
  !> \see OPENCMISS::Field,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_INDEPENDENT_TYPE = FIELD_INDEPENDENT_TYPE !<Independent field type \see OPENCMISS_FieldDependentTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEPENDENT_TYPE = FIELD_DEPENDENT_TYPE !<Dependent field type \see OPENCMISS_FieldDependentTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_FieldDimensionTypes OPENCMISS::Field::DimensionTypes
  !> \brief Field dimension parameter types.
  !> \see OPENCMISS::Field,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_SCALAR_DIMENSION_TYPE = FIELD_SCALAR_DIMENSION_TYPE !<Scalar field \see OPENCMISS_FieldDimensionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_VECTOR_DIMENSION_TYPE = FIELD_VECTOR_DIMENSION_TYPE !<Vector field \see OPENCMISS_FieldDimensionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_TENSOR_DIMENSION_TYPE = FIELD_TENSOR_DIMENSION_TYPE !<Tensor field \see OPENCMISS_FieldDimensionTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_FieldTypes OPENCMISS::Field::Types
  !> \brief Field type parameters.
  !> \see OPENCMISS::Field,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_GEOMETRIC_TYPE = FIELD_GEOMETRIC_TYPE !<Geometric field \see OPENCMISS_FieldTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_FIBRE_TYPE = FIELD_FIBRE_TYPE !<Fibre field \see OPENCMISS_FieldTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_GENERAL_TYPE = FIELD_GENERAL_TYPE !<General field \see OPENCMISS_FieldTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_MATERIAL_TYPE = FIELD_MATERIAL_TYPE !<Material field \see OPENCMISS_FieldTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_GEOMETRIC_GENERAL_TYPE = FIELD_GEOMETRIC_GENERAL_TYPE !<Geometric general field \see OPENCMISS_FieldTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_FieldInterpolationTypes OPENCMISS::Field::InterpolationTypes
  !> \brief Field interpolation parameters.
  !> \see OPENCMISS::Field,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_CONSTANT_INTERPOLATION = FIELD_CONSTANT_INTERPOLATION !<Constant interpolation. One parameter for the field \see OPENCMISS_FieldInterpolationTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_ELEMENT_BASED_INTERPOLATION = FIELD_ELEMENT_BASED_INTERPOLATION !<Element based interpolation. Parameters are different in each element \see OPENCMISS_FieldInterpolationTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_NODE_BASED_INTERPOLATION = FIELD_NODE_BASED_INTERPOLATION !<Node based interpolation. Parameters are nodal based and a basis function is used \see OPENCMISS_FieldInterpolationTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_GRID_POINT_BASED_INTERPOLATION = FIELD_GRID_POINT_BASED_INTERPOLATION !<Grid point based interpolation. Parameters are different at each grid point \see OPENCMISS_FieldInterpolationTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_GAUSS_POINT_BASED_INTERPOLATION = FIELD_GAUSS_POINT_BASED_INTERPOLATION !<Gauss point based interpolation. Parameters are different at each Gauss point \see OPENCMISS_FieldInterpolationTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DATA_POINT_BASED_INTERPOLATION = FIELD_DATA_POINT_BASED_INTERPOLATION !<Data point based interpolation. Parameters are different at each data point \see OPENCMISS_FieldInterpolationTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_FieldVariableTypes OPENCMISS::Field::VariableTypes
  !> \brief Field variable type parameters.
  !> \see OPENCMISS::Field,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_NUMBER_OF_VARIABLE_SUBTYPES = FIELD_NUMBER_OF_VARIABLE_SUBTYPES !<The number of subtypes of a variable - i.e., u, du/dn, du/dt, d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_U_VARIABLE_TYPE = FIELD_U_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELUDELN_VARIABLE_TYPE = FIELD_DELUDELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELUDELT_VARIABLE_TYPE = FIELD_DELUDELT_VARIABLE_TYPE !<First time derivative variable type i.e., du/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2UDELT2_VARIABLE_TYPE = FIELD_DEL2UDELT2_VARIABLE_TYPE !<Second time derivative variable type i.e., d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_V_VARIABLE_TYPE = FIELD_V_VARIABLE_TYPE !<Second standard variable type i.e., v \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELVDELN_VARIABLE_TYPE = FIELD_DELVDELN_VARIABLE_TYPE !<Second normal derivative variable type i.e., dv/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELVDELT_VARIABLE_TYPE = FIELD_DELVDELT_VARIABLE_TYPE !<Second first time derivative variable type i.e., dv/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2VDELT2_VARIABLE_TYPE = FIELD_DEL2VDELT2_VARIABLE_TYPE !<Second second time derivative variable type i.e., d^2v/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_U1_VARIABLE_TYPE = FIELD_U1_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU1DELN_VARIABLE_TYPE = FIELD_DELU1DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU1DELT_VARIABLE_TYPE = FIELD_DELU1DELT_VARIABLE_TYPE !<First time derivative variable type i.e., du/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2U1DELT2_VARIABLE_TYPE = FIELD_DEL2U1DELT2_VARIABLE_TYPE !<Second time derivative variable type i.e., d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_U2_VARIABLE_TYPE = FIELD_U2_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU2DELN_VARIABLE_TYPE = FIELD_DELU2DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU2DELT_VARIABLE_TYPE = FIELD_DELU2DELT_VARIABLE_TYPE !<First time derivative variable type i.e., du/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2U2DELT2_VARIABLE_TYPE = FIELD_DEL2U2DELT2_VARIABLE_TYPE !<Second time derivative variable type i.e., d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_U3_VARIABLE_TYPE = FIELD_U3_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU3DELN_VARIABLE_TYPE = FIELD_DELU3DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU3DELT_VARIABLE_TYPE = FIELD_DELU3DELT_VARIABLE_TYPE !<First time derivative variable type i.e., du/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2U3DELT2_VARIABLE_TYPE = FIELD_DEL2U3DELT2_VARIABLE_TYPE !<Second time derivative variable type i.e., d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_U4_VARIABLE_TYPE = FIELD_U4_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU4DELN_VARIABLE_TYPE = FIELD_DELU4DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU4DELT_VARIABLE_TYPE = FIELD_DELU4DELT_VARIABLE_TYPE !<First time derivative variable type i.e., du/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2U4DELT2_VARIABLE_TYPE = FIELD_DEL2U4DELT2_VARIABLE_TYPE !<Second time derivative variable type i.e., d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_U5_VARIABLE_TYPE = FIELD_U5_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU5DELN_VARIABLE_TYPE = FIELD_DELU5DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU5DELT_VARIABLE_TYPE = FIELD_DELU5DELT_VARIABLE_TYPE !<First time derivative variable type i.e., du/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2U5DELT2_VARIABLE_TYPE = FIELD_DEL2U5DELT2_VARIABLE_TYPE !<Second time derivative variable type i.e., d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_U6_VARIABLE_TYPE = FIELD_U6_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU6DELN_VARIABLE_TYPE = FIELD_DELU6DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU6DELT_VARIABLE_TYPE = FIELD_DELU6DELT_VARIABLE_TYPE !<First time derivative variable type i.e., du/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2U6DELT2_VARIABLE_TYPE = FIELD_DEL2U6DELT2_VARIABLE_TYPE !<Second time derivative variable type i.e., d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_U7_VARIABLE_TYPE = FIELD_U7_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU7DELN_VARIABLE_TYPE = FIELD_DELU7DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU7DELT_VARIABLE_TYPE = FIELD_DELU7DELT_VARIABLE_TYPE !<First time derivative variable type i.e., du/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2U7DELT2_VARIABLE_TYPE = FIELD_DEL2U7DELT2_VARIABLE_TYPE !<Second time derivative variable type i.e., d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_U8_VARIABLE_TYPE = FIELD_U8_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU8DELN_VARIABLE_TYPE = FIELD_DELU8DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU8DELT_VARIABLE_TYPE = FIELD_DELU8DELT_VARIABLE_TYPE !<First time derivative variable type i.e., du/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2U8DELT2_VARIABLE_TYPE = FIELD_DEL2U8DELT2_VARIABLE_TYPE !<Second time derivative variable type i.e., d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_U9_VARIABLE_TYPE = FIELD_U9_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU9DELN_VARIABLE_TYPE = FIELD_DELU9DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU9DELT_VARIABLE_TYPE = FIELD_DELU9DELT_VARIABLE_TYPE !<First time derivative variable type i.e., du/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2U9DELT2_VARIABLE_TYPE = FIELD_DEL2U9DELT2_VARIABLE_TYPE !<Second time derivative variable type i.e., d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_U10_VARIABLE_TYPE = FIELD_U10_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU10DELN_VARIABLE_TYPE = FIELD_DELU10DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU10DELT_VARIABLE_TYPE = FIELD_DELU10DELT_VARIABLE_TYPE !<First time derivative variable type i.e., du/dt \see OPENCMISS_FieldVariableTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEL2U10DELT2_VARIABLE_TYPE = FIELD_DEL2U10DELT2_VARIABLE_TYPE !<Second time derivative variable type i.e., d^2u/dt^2 \see OPENCMISS_FieldVariableTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_FieldDataTypes OPENCMISS::Field::DataTypes
  !> \brief Field data types
  !> \see OPENCMISS::Field,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_INTG_TYPE = FIELD_INTG_TYPE !<Integer field data type \see OPENCMISS_FieldDataTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_SP_TYPE = FIELD_SP_TYPE !<Single precision real field data type \see OPENCMISS_FieldDataTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_DP_TYPE = FIELD_DP_TYPE !<Double precision real field data type \see OPENCMISS_FieldDataTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_L_TYPE = FIELD_L_TYPE !<Logical field data type \see OPENCMISS_FieldDataTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_FieldDOFOrderTypes OPENCMISS::Field::DOFOrderTypes
  !> \brief Field DOF order types
  !> \see OPENCMISS::Field,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_SEPARATED_COMPONENT_DOF_ORDER = FIELD_SEPARATED_COMPONENT_DOF_ORDER !<Field variable component dofs are not contiguous \see OPENCMISS_FieldDOFOrderTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_CONTIGUOUS_COMPONENT_DOF_ORDER = FIELD_CONTIGUOUS_COMPONENT_DOF_ORDER !<Field variable component dofs are contiguous \see OPENCMISS_FieldDOFOrderTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_FieldParameterSetTypes OPENCMISS::Field::ParameterSetTypes
  !> \brief Field parameter set type parameters
  !> \see OPENCMISS::Field,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_VALUES_SET_TYPE = FIELD_VALUES_SET_TYPE !<The parameter set corresponding to the field values (at time T+DT for dynamic problems) \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_BOUNDARY_CONDITIONS_SET_TYPE = FIELD_BOUNDARY_CONDITIONS_SET_TYPE !<The parameter set corresponding to the field boundary condition values \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_INITIAL_VALUES_SET_TYPE = FIELD_INITIAL_VALUES_SET_TYPE !<The parameter set corresponding to the field initial values \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_INCREMENTAL_VALUES_SET_TYPE = FIELD_INCREMENTAL_VALUES_SET_TYPE !<The parameter set corresponding to the field incremental values \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_ANALYTIC_VALUES_SET_TYPE = FIELD_ANALYTIC_VALUES_SET_TYPE !<The parameter set corresponding to the analytic field values \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_PREVIOUS_VALUES_SET_TYPE = FIELD_PREVIOUS_VALUES_SET_TYPE !<The parameter set corresponding to the previous field values (at time T) \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_MEAN_PREDICTED_DISPLACEMENT_SET_TYPE = FIELD_MEAN_PREDICTED_DISPLACEMENT_SET_TYPE !<The parameter set corresponding to the mean predicited avalues (at time T+DT) \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_VELOCITY_VALUES_SET_TYPE = FIELD_VELOCITY_VALUES_SET_TYPE !<The parameter set corresponding to the velocity values (at time T+DT) \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_INITIAL_VELOCITY_SET_TYPE = FIELD_INITIAL_VELOCITY_SET_TYPE !<The parameter set corresponding to the initial velocity values for dynamic problems. This is also the previous velocity values \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_PREVIOUS_VELOCITY_SET_TYPE = FIELD_PREVIOUS_VELOCITY_SET_TYPE !<The parameter set corresponding to the previous velocity values (at time T). This is also the initial velocity values for dynamic problems. \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_MEAN_PREDICTED_VELOCITY_SET_TYPE = FIELD_MEAN_PREDICTED_VELOCITY_SET_TYPE !<The parameter set corresponding to the mean predicited velocity values (at time T+DT) \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_ACCELERATION_VALUES_SET_TYPE = FIELD_ACCELERATION_VALUES_SET_TYPE !<The parameter set corresponding to the acceleration values (at time T+DT) \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_INITIAL_ACCELERATION_SET_TYPE = FIELD_INITIAL_ACCELERATION_SET_TYPE !<The parameter set corresponding to the initial acceleration values for dynamic problems. This is also the previous accelearation values \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_PREVIOUS_ACCELERATION_SET_TYPE = FIELD_PREVIOUS_ACCELERATION_SET_TYPE !<The parameter set corresponding to the previous acceleration values (at time T).This is also the initial acceleration values for dynamic problems. \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_MEAN_PREDICTED_ACCELERATION_SET_TYPE = FIELD_MEAN_PREDICTED_ACCELERATION_SET_TYPE !<The parameter set corresponding to the mean predicited acceleration values (at time T+DT) \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_PRESSURE_VALUES_SET_TYPE = FIELD_PRESSURE_VALUES_SET_TYPE !<The parameter set corresponding to the surface pressure values. \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_PREVIOUS_PRESSURE_SET_TYPE = FIELD_PREVIOUS_PRESSURE_SET_TYPE !<The parameter set corresponding to the previous surface pressure values (at time T). \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_IMPERMEABLE_FLAG_VALUES_SET_TYPE = FIELD_IMPERMEABLE_FLAG_VALUES_SET_TYPE !<The parameter set corresponding to the impermeable flag values. \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_INTEGRATED_NEUMANN_SET_TYPE = FIELD_INTEGRATED_NEUMANN_SET_TYPE !<Stores integrated Neumann values calculated from Neumann point values. \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_MESH_DISPLACEMENT_SET_TYPE=FIELD_MESH_DISPLACEMENT_SET_TYPE !<The parameter set corresponding to the mesh displacement values for ALE \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_MESH_VELOCITY_SET_TYPE=FIELD_MESH_VELOCITY_SET_TYPE !<The parameter set corresponding to the mesh velocity values for ALE \see OPENCMISS_FieldParameterSetTypes,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_FieldScalingTypes OPENCMISS::Field::ScalingTypes
  !> \brief Field scaling type parameters
  !> \see OPENCMISS::Field,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_NO_SCALING = FIELD_NO_SCALING !<The field is not scaled \see OPENCMISS_FieldScalingTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_UNIT_SCALING = FIELD_UNIT_SCALING !<The field has unit scaling \see OPENCMISS_FieldScalingTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_ARC_LENGTH_SCALING = FIELD_ARC_LENGTH_SCALING !<The field has arc length scaling \see OPENCMISS_FieldScalingTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_ARITHMETIC_MEAN_SCALING = FIELD_ARITHMETIC_MEAN_SCALING !<The field has arithmetic mean of the arc length scaling \see OPENCMISS_FieldScalingTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_GEOMETRIC_MEAN_SCALING = FIELD_GEOMETRIC_MEAN_SCALING !<The field has geometric mean of the arc length scaling \see OPENCMISS_FieldScalingTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_FIELD_HARMONIC_MEAN_SCALING = FIELD_HARMONIC_MEAN_SCALING !<The field has geometric mean of the arc length scaling \see OPENCMISS_FieldScalingTypes,OPENCMISS
  !>@}
  !>@}

  !Module types

  !Module variables

  !Interfaces

  !>Returns the interpolation type for a field variable component.
  INTERFACE cmfe_Field_ComponentInterpolationGet
    MODULE PROCEDURE cmfe_Field_ComponentInterpolationGetNumber
    MODULE PROCEDURE cmfe_Field_ComponentInterpolationGetObj
  END INTERFACE cmfe_Field_ComponentInterpolationGet

  !>Sets/changes the interpolation type for a field variable component.
  INTERFACE cmfe_Field_ComponentInterpolationSet
    MODULE PROCEDURE cmfe_Field_ComponentInterpolationSetNumber
    MODULE PROCEDURE cmfe_Field_ComponentInterpolationSetObj
  END INTERFACE cmfe_Field_ComponentInterpolationSet

  !>Returns the label for a field variable component.
  INTERFACE cmfe_Field_ComponentLabelGet
    MODULE PROCEDURE cmfe_Field_ComponentLabelGetCNumber
    MODULE PROCEDURE cmfe_Field_ComponentLabelGetCObj
    MODULE PROCEDURE cmfe_Field_ComponentLabelGetVSNumber
    MODULE PROCEDURE cmfe_Field_ComponentLabelGetVSObj
  END INTERFACE cmfe_Field_ComponentLabelGet

  !>Sets/changes the label for a field variable component.
  INTERFACE cmfe_Field_ComponentLabelSet
    MODULE PROCEDURE cmfe_Field_ComponentLabelSetCNumber
    MODULE PROCEDURE cmfe_Field_ComponentLabelSetCObj
    MODULE PROCEDURE cmfe_Field_ComponentLabelSetVSNumber
    MODULE PROCEDURE cmfe_Field_ComponentLabelSetVSObj
  END INTERFACE cmfe_Field_ComponentLabelSet

  !>Returns the mesh component number for a field variable component.
  INTERFACE cmfe_Field_ComponentMeshComponentGet
    MODULE PROCEDURE cmfe_Field_ComponentMeshComponentGetNumber
    MODULE PROCEDURE cmfe_Field_ComponentMeshComponentGetObj
  END INTERFACE cmfe_Field_ComponentMeshComponentGet

  !>Sets/changes the mesh component number for a field variable component.
  INTERFACE cmfe_Field_ComponentMeshComponentSet
    MODULE PROCEDURE cmfe_Field_ComponentMeshComponentSetNumber
    MODULE PROCEDURE cmfe_Field_ComponentMeshComponentSetObj
  END INTERFACE cmfe_Field_ComponentMeshComponentSet

  !>Initialises the values of a parameter set of a field variable component to a constant value.
  INTERFACE cmfe_Field_ComponentValuesInitialise
    MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseIntgNumber
    MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseIntgObj
    MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseSPNumber
    MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseSPObj
    MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseDPNumber
    MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseDPObj
    MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseLNumber
    MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseLObj
  END INTERFACE cmfe_Field_ComponentValuesInitialise

  !>Returns the data type for a field variable.
  INTERFACE cmfe_Field_DataTypeGet
    MODULE PROCEDURE cmfe_Field_DataTypeGetNumber
    MODULE PROCEDURE cmfe_Field_DataTypeGetObj
  END INTERFACE cmfe_Field_DataTypeGet

  !>Sets/changes the data type for a field variable.
  INTERFACE cmfe_Field_DataTypeSet
    MODULE PROCEDURE cmfe_Field_DataTypeSetNumber
    MODULE PROCEDURE cmfe_Field_DataTypeSetObj
  END INTERFACE cmfe_Field_DataTypeSet

  !>Returns the DOF order type for a field variable.
  INTERFACE cmfe_Field_DOFOrderTypeGet
    MODULE PROCEDURE cmfe_Field_DOFOrderTypeGetNumber
    MODULE PROCEDURE cmfe_Field_DOFOrderTypeGetObj
  END INTERFACE cmfe_Field_DOFOrderTypeGet

  !>Sets/changes the DOF order type for a field variable. Note: for contiguous coponent DOF ordering all the components of the field variable must have the same interpolation type.
  INTERFACE cmfe_Field_DOFOrderTypeSet
    MODULE PROCEDURE cmfe_Field_DOFOrderTypeSetNumber
    MODULE PROCEDURE cmfe_Field_DOFOrderTypeSetObj
  END INTERFACE cmfe_Field_DOFOrderTypeSet

  !>Finishes the creation of a field. \see OpenCMISS::Iron::cmfe_Field_CreateStart
  INTERFACE cmfe_Field_CreateFinish
    MODULE PROCEDURE cmfe_Field_CreateFinishNumber
    MODULE PROCEDURE cmfe_Field_CreateFinishObj
  END INTERFACE cmfe_Field_CreateFinish

  !>Starts the creation of a field. \see OpenCMISS::Iron::cmfe_Field_CreateFinish
  INTERFACE cmfe_Field_CreateStart
    MODULE PROCEDURE cmfe_Field_CreateStartNumber
    MODULE PROCEDURE cmfe_Field_CreateStartInterfaceObj
    MODULE PROCEDURE cmfe_Field_CreateStartRegionObj
  END INTERFACE cmfe_Field_CreateStart

  !>Returns the dependent type for a field.
  INTERFACE cmfe_Field_DependentTypeGet
    MODULE PROCEDURE cmfe_Field_DependentTypeGetNumber
    MODULE PROCEDURE cmfe_Field_DependentTypeGetObj
  END INTERFACE cmfe_Field_DependentTypeGet

  !>Sets/changes the dependent type for a field.
  INTERFACE cmfe_Field_DependentTypeSet
    MODULE PROCEDURE cmfe_Field_DependentTypeSetNumber
    MODULE PROCEDURE cmfe_Field_DependentTypeSetObj
  END INTERFACE cmfe_Field_DependentTypeSet

  !>Destroys a field.
  INTERFACE cmfe_Field_Destroy
    MODULE PROCEDURE cmfe_Field_DestroyNumber
    MODULE PROCEDURE cmfe_Field_DestroyObj
  END INTERFACE cmfe_Field_Destroy

  !>Returns the field dimension for a field variable.
  INTERFACE cmfe_Field_DimensionGet
    MODULE PROCEDURE cmfe_Field_DimensionGetNumber
    MODULE PROCEDURE cmfe_Field_DimensionGetObj
  END INTERFACE cmfe_Field_DimensionGet

  !>Sets/changes the field dimension for a field variable.
  INTERFACE cmfe_Field_DimensionSet
    MODULE PROCEDURE cmfe_Field_DimensionSetNumber
    MODULE PROCEDURE cmfe_Field_DimensionSetObj
  END INTERFACE cmfe_Field_DimensionSet

  !>Returns the geometric field for a field.
  INTERFACE cmfe_Field_GeometricFieldGet
    MODULE PROCEDURE cmfe_Field_GeometricFieldGetNumber
    MODULE PROCEDURE cmfe_Field_GeometricFieldGetObj
  END INTERFACE cmfe_Field_GeometricFieldGet

  !>Sets/changes the geometric field for a field.
  INTERFACE cmfe_Field_GeometricFieldSet
    MODULE PROCEDURE cmfe_Field_GeometricFieldSetNumber
    MODULE PROCEDURE cmfe_Field_GeometricFieldSetObj
  END INTERFACE cmfe_Field_GeometricFieldSet

  !>Gets line lengths from a geometric field given an element number and element basis line number.
  INTERFACE cmfe_Field_GeometricParametersElementLineLengthGet
    MODULE PROCEDURE cmfe_Field_GeometricParametersElementLineLengthGetNumber
    MODULE PROCEDURE cmfe_Field_GeometricParametersElementLineLengthGetObj
  END INTERFACE cmfe_Field_GeometricParametersElementLineLengthGet

  !>Gets volumes from a geometric field given an element number.
  INTERFACE cmfe_Field_GeometricParametersElementVolumeGet
    MODULE PROCEDURE cmfe_Field_GeometricParametersElementVolumeGetNumber
    MODULE PROCEDURE cmfe_Field_GeometricParametersElementVolumeGetObj
  END INTERFACE cmfe_Field_GeometricParametersElementVolumeGet

 !>Returns the label for a field.
  INTERFACE cmfe_Field_LabelGet
    MODULE PROCEDURE cmfe_Field_LabelGetCNumber
    MODULE PROCEDURE cmfe_Field_LabelGetCObj
    MODULE PROCEDURE cmfe_Field_LabelGetVSNumber
    MODULE PROCEDURE cmfe_Field_LabelGetVSObj
  END INTERFACE cmfe_Field_LabelGet

  !>Sets/changes the label for a field.
  INTERFACE cmfe_Field_LabelSet
    MODULE PROCEDURE cmfe_Field_LabelSetCNumber
    MODULE PROCEDURE cmfe_Field_LabelSetCObj
    MODULE PROCEDURE cmfe_Field_LabelSetVSNumber
    MODULE PROCEDURE cmfe_Field_LabelSetVSObj
  END INTERFACE cmfe_Field_LabelSet

  INTERFACE cmfe_Field_PositionNormalTangentCalculateNode
    MODULE PROCEDURE cmfe_Field_PositionNormalTangentCalculateNodeNumber
    MODULE PROCEDURE cmfe_Field_PositionNormalTangentCalculateNodeObj
  END INTERFACE

  !>Returns the mesh decomposition for a field.
  INTERFACE cmfe_Field_MeshDecompositionGet
    MODULE PROCEDURE cmfe_Field_MeshDecompositionGetNumber
    MODULE PROCEDURE cmfe_Field_MeshDecompositionGetObj
  END INTERFACE cmfe_Field_MeshDecompositionGet

  !>Sets/changes the mesh decomposition for a field. \todo remove when fields take decomposition argument on creation???
  INTERFACE cmfe_Field_MeshDecompositionSet
    MODULE PROCEDURE cmfe_Field_MeshDecompositionSetNumber
    MODULE PROCEDURE cmfe_Field_MeshDecompositionSetObj
  END INTERFACE cmfe_Field_MeshDecompositionSet

  !>Sets/changes the data projection for a field.
  INTERFACE cmfe_Field_DataProjectionSet
    MODULE PROCEDURE cmfe_Field_DataProjectionSetNumber
    MODULE PROCEDURE cmfe_Field_DataProjectionSetObj
  END INTERFACE cmfe_Field_DataProjectionSet

  !>Returns the number of field components for a field variable.
  INTERFACE cmfe_Field_NumberOfComponentsGet
    MODULE PROCEDURE cmfe_Field_NumberOfComponentsGetNumber
    MODULE PROCEDURE cmfe_Field_NumberOfComponentsGetObj
  END INTERFACE cmfe_Field_NumberOfComponentsGet

  !>Sets/changes the number of field components for a field variable.
  INTERFACE cmfe_Field_NumberOfComponentsSet
    MODULE PROCEDURE cmfe_Field_NumberOfComponentsSetNumber
    MODULE PROCEDURE cmfe_Field_NumberOfComponentsSetObj
  END INTERFACE cmfe_Field_NumberOfComponentsSet

  !>Returns the number of field variables for a field.
  INTERFACE cmfe_Field_NumberOfVariablesGet
    MODULE PROCEDURE cmfe_Field_NumberOfVariablesGetNumber
    MODULE PROCEDURE cmfe_Field_NumberOfVariablesGetObj
  END INTERFACE cmfe_Field_NumberOfVariablesGet

  !>Sets/changes the number of field variables for a field.
  INTERFACE cmfe_Field_NumberOfVariablesSet
    MODULE PROCEDURE cmfe_Field_NumberOfVariablesSetNumber
    MODULE PROCEDURE cmfe_Field_NumberOfVariablesSetObj
  END INTERFACE cmfe_Field_NumberOfVariablesSet

  !>Adds the given value to the given parameter set for the constant of the field variable component.
  INTERFACE cmfe_Field_ParameterSetAddConstant
    MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantLObj
  END INTERFACE cmfe_Field_ParameterSetAddConstant

  !>Adds the given value to the given parameter set for a particular user element of the field variable component.
  INTERFACE cmfe_Field_ParameterSetAddElement
    MODULE PROCEDURE cmfe_Field_ParameterSetAddElementIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddElementIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetAddElementSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddElementSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetAddElementDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddElementDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetAddElementLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddElementLObj
  END INTERFACE cmfe_Field_ParameterSetAddElement

  !>Adds the given value to the given parameter set for a particular user node of the field variable component.
  INTERFACE cmfe_Field_ParameterSetAddNode
    MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeLObj
  END INTERFACE cmfe_Field_ParameterSetAddNode

  !>Creates a new parameter set of type set type for a field variable.
  INTERFACE cmfe_Field_ParameterSetCreate
    MODULE PROCEDURE cmfe_Field_ParameterSetCreateNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetCreateObj
  END INTERFACE cmfe_Field_ParameterSetCreate

  !>Destroy a parameter set of type set type for a field variable.
  INTERFACE cmfe_Field_ParameterSetDestroy
    MODULE PROCEDURE cmfe_Field_ParameterSetDestroyNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetDestroyObj
  END INTERFACE cmfe_Field_ParameterSetDestroy

  !>Returns a pointer to the specified field parameter set local data array. The pointer must be restored with a call to OpenCMISS::Iron::cmfe_Field_ParameterSetDataRestore call. Note: the values can be used for read operations but a field parameter set update or add calls must be used to change any values.
  INTERFACE cmfe_Field_ParameterSetDataGet
    MODULE PROCEDURE cmfe_Field_ParameterSetDataGetIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetDataGetIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetDataGetSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetDataGetSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetDataGetDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetDataGetDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetDataGetLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetDataGetLObj
  END INTERFACE cmfe_Field_ParameterSetDataGet

  !>Restores the specified field variable parameter set local array that was obtained with an OpenCMISS::Iron::cmfe_Field_ParameterSetDataGet call.
  INTERFACE cmfe_Field_ParameterSetDataRestore
    MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreLObj
  END INTERFACE cmfe_Field_ParameterSetDataRestore

  !>Returns from the given parameter set a value for the specified constant of a field variable component.
  INTERFACE cmfe_Field_ParameterSetGetConstant
    MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantLObj
  END INTERFACE cmfe_Field_ParameterSetGetConstant
  
  !>Returns from the given parameter set a value for the specified data pont of a field variable component.
  INTERFACE cmfe_Field_ParameterSetGetDataPoint
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointIntgNumberI !Interface
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointIntgNumberR !Region
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointSPNumberI !Interface
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointSPNumberR !Region
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointDPNumberI !Interface
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointDPNumberR !Region
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointLNumberI !Interface
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointLNumberR !Region
    MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointLObj
  END INTERFACE cmfe_Field_ParameterSetGetDataPoint

  !>Returns from the given parameter set a value for the specified element of a field variable component.
  INTERFACE cmfe_Field_ParameterSetGetElement
    MODULE PROCEDURE cmfe_Field_ParameterSetGetElementIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetElementIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetElementSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetElementSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetElementDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetElementDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetElementLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetElementLObj
  END INTERFACE cmfe_Field_ParameterSetGetElement

  !>Returns from the given parameter set a value for the specified node and derivative of a field variable component.
  INTERFACE cmfe_Field_ParameterSetGetNode
    MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeLObj
  END INTERFACE cmfe_Field_ParameterSetGetNode

  !>Returns from the given parameter set a value for the specified element and Gauss point of a field variable component.
  INTERFACE cmfe_Field_ParameterSetGetGaussPoint ! TODO: other versions
    MODULE PROCEDURE cmfe_Field_ParameterSetGetGaussPointDPObj
  END INTERFACE cmfe_Field_ParameterSetGetGaussPoint

  !>Updates the given parameter set with the given value for the constant of a field variable component.
  INTERFACE cmfe_Field_ParameterSetUpdateConstant
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantLObj
  END INTERFACE cmfe_Field_ParameterSetUpdateConstant
  
  !>Update the given parameter set a value for the specified data pont of a field variable component.
  INTERFACE cmfe_Field_ParameterSetUpdateDataPoint
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointIntgNumberI !Interface
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointIntgNumberR !Region
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointSPNumberI !Interface
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointSPNumberR !Region
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointDPNumberI !Interface
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointDPNumberR !Region
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointLNumberI !Interface
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointLNumberR !Region
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointLObj
  END INTERFACE cmfe_Field_ParameterSetUpdateDataPoint

  !>Updates the given parameter set with the given value for a particular user element of a field variable component.
  INTERFACE cmfe_Field_ParameterSetUpdateElement
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementLObj
  END INTERFACE cmfe_Field_ParameterSetUpdateElement

  !>Finishes the parameter set update for a field variable. \see OpenCMISS::Iron::cmfe_Field_ParameterSetUpdateStart
  INTERFACE cmfe_Field_ParameterSetUpdateFinish
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateFinishNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateFinishObj
  END INTERFACE cmfe_Field_ParameterSetUpdateFinish

  !>Updates the given parameter set with the given value for a particular user node of a field variable component.
  INTERFACE cmfe_Field_ParameterSetUpdateNode
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeLObj
  END INTERFACE cmfe_Field_ParameterSetUpdateNode

  !\todo: merge the two types of routines for getting scalefactors under the same interface declaration?
  !>Gets a scale factor for a particular node.
  INTERFACE cmfe_Field_ParameterSetNodeScaleFactorGet
    MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorGetNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorGetObj
  END INTERFACE cmfe_Field_ParameterSetNodeScaleFactorGet

  !>Gets the scale factors for all nodes
  INTERFACE cmfe_Field_ParameterSetNodeScaleFactorsGet
    MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorsGetNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorsGetObj
  END INTERFACE cmfe_Field_ParameterSetNodeScaleFactorsGet

  !>Sets a scale factor for a particular node.
  INTERFACE cmfe_Field_ParameterSetNodeScaleFactorSet
    MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorSetNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorSetObj
  END INTERFACE cmfe_Field_ParameterSetNodeScaleFactorSet

  !>Sets the scale factors for all nodes
  INTERFACE cmfe_Field_ParameterSetNodeScaleFactorsSet
    MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorsSetNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorsSetObj
  END INTERFACE cmfe_Field_ParameterSetNodeScaleFactorsSet

  !>Gets the number of scalefactor dofs
  INTERFACE cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGet
    MODULE PROCEDURE cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetObj
  END INTERFACE cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGet

  !>Updates the given parameter set with the given values for all local dofs of the field variable.  
  INTERFACE cmfe_Field_ParameterSetUpdateLocalDofs
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateLocalDofsDPObj
    !\todo: add Intg/SP/L routines, both indexed by Number and Obj
  END INTERFACE cmfe_Field_ParameterSetUpdateLocalDofs

  !>Updates the given parameter set with the given value for a particular Gauss point of a field variable component.
  INTERFACE cmfe_Field_ParameterSetUpdateGaussPoint
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointIntgNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointIntgObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointSPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointSPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointLNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointLObj
  END INTERFACE cmfe_Field_ParameterSetUpdateGaussPoint

  !>Interpolates the given parameter set at a specified xi/set of xi locations for specified element and derviative.
  INTERFACE cmfe_Field_ParameterSetInterpolateXi
    MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateSingleXiDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateSingleXiDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateMultipleXiDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateMultipleXiDPObj
  END INTERFACE cmfe_Field_ParameterSetInterpolateXi

  !>Interpolates the given parameter set at a specified set of Gauss points for specified element and derviative. When interpolating at multiple Gauss points, if no Gauss points are specified then all Gauss points are interpolated.
  INTERFACE cmfe_Field_ParameterSetInterpolateGauss
    MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateSingleGaussDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateSingleGaussDPObj
    MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateMultipleGaussDPNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateMultipleGaussDPObj
  END INTERFACE CMFE_FIELD_PARAMETERSETINTERPOLATEGAUSS

  !>Updates the given parameter set with the given value for a particular data point of a field variable component.
  INTERFACE cmfe_Field_ParameterSetUpdateElementDataPoint
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementDataPointDPObj
  END INTERFACE cmfe_Field_ParameterSetUpdateElementDataPoint

  !>Starts the parameter set update for a field variable. \see OpenCMISS::Iron::cmfe_Field_ParameterSetUpdateFinish
  INTERFACE cmfe_Field_ParameterSetUpdateStart
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateStartNumber
    MODULE PROCEDURE cmfe_Field_ParameterSetUpdateStartObj
  END INTERFACE cmfe_Field_ParameterSetUpdateStart

  !>Copy the parameters from the parameter set of a component of a field variable to the paramters of a parameter set of
  !>a component of another field variable.
  INTERFACE cmfe_Field_ParametersToFieldParametersComponentCopy
    MODULE PROCEDURE cmfe_Field_ParametersToFieldParametersComponentCopyNumber
    MODULE PROCEDURE cmfe_Field_ParametersToFieldParametersComponentCopyObj
  END INTERFACE cmfe_Field_ParametersToFieldParametersComponentCopy

  !>Returns the scaling type for a field.
  INTERFACE cmfe_Field_ScalingTypeGet
    MODULE PROCEDURE cmfe_Field_ScalingTypeGetNumber
    MODULE PROCEDURE cmfe_Field_ScalingTypeGetObj
  END INTERFACE cmfe_Field_ScalingTypeGet

  !>Sets/changes the scaling type for a field.
  INTERFACE cmfe_Field_ScalingTypeSet
    MODULE PROCEDURE cmfe_Field_ScalingTypeSetNumber
    MODULE PROCEDURE cmfe_Field_ScalingTypeSetObj
  END INTERFACE cmfe_Field_ScalingTypeSet

  !>Returns the type for a field.
  INTERFACE cmfe_Field_TypeGet
    MODULE PROCEDURE cmfe_Field_TypeGetNumber
    MODULE PROCEDURE cmfe_Field_TypeGetObj
  END INTERFACE cmfe_Field_TypeGet

  !>Sets/changes the type for a field.
  INTERFACE cmfe_Field_TypeSet
    MODULE PROCEDURE cmfe_Field_TypeSetNumber
    MODULE PROCEDURE cmfe_Field_TypeSetObj
  END INTERFACE cmfe_Field_TypeSet

  !>Returns the label for a field variable.
  INTERFACE cmfe_Field_VariableLabelGet
    MODULE PROCEDURE cmfe_Field_VariableLabelGetCNumber
    MODULE PROCEDURE cmfe_Field_VariableLabelGetCObj
    MODULE PROCEDURE cmfe_Field_VariableLabelGetVSNumber
    MODULE PROCEDURE cmfe_Field_VariableLabelGetVSObj
  END INTERFACE cmfe_Field_VariableLabelGet

  !>Sets/changes the label for a field variable.
  INTERFACE cmfe_Field_VariableLabelSet
    MODULE PROCEDURE cmfe_Field_VariableLabelSetCNumber
    MODULE PROCEDURE cmfe_Field_VariableLabelSetCObj
    MODULE PROCEDURE cmfe_Field_VariableLabelSetVSNumber
    MODULE PROCEDURE cmfe_Field_VariableLabelSetVSObj
  END INTERFACE cmfe_Field_VariableLabelSet

  !>Returns the field variable types for a field.
  INTERFACE cmfe_Field_VariableTypesGet
    MODULE PROCEDURE cmfe_Field_VariableTypesGetNumber
    MODULE PROCEDURE cmfe_Field_VariableTypesGetObj
  END INTERFACE cmfe_Field_VariableTypesGet

  !>Sets/changes the field variable types for a field.
  INTERFACE cmfe_Field_VariableTypesSet
    MODULE PROCEDURE cmfe_Field_VariableTypesSetNumber
    MODULE PROCEDURE cmfe_Field_VariableTypesSetObj
  END INTERFACE cmfe_Field_VariableTypesSet


  PUBLIC CMFE_FIELD_DEPENDENT_TYPE,CMFE_FIELD_INDEPENDENT_TYPE

  PUBLIC CMFE_FIELD_SCALAR_DIMENSION_TYPE,CMFE_FIELD_VECTOR_DIMENSION_TYPE,CMFE_FIELD_TENSOR_DIMENSION_TYPE

  PUBLIC CMFE_FIELD_GEOMETRIC_TYPE,CMFE_FIELD_FIBRE_TYPE,CMFE_FIELD_GENERAL_TYPE,CMFE_FIELD_MATERIAL_TYPE, &
    & CMFE_FIELD_GEOMETRIC_GENERAL_TYPE

  PUBLIC CMFE_FIELD_CONSTANT_INTERPOLATION,CMFE_FIELD_ELEMENT_BASED_INTERPOLATION,CMFE_FIELD_NODE_BASED_INTERPOLATION, &
    & CMFE_FIELD_GRID_POINT_BASED_INTERPOLATION,CMFE_FIELD_GAUSS_POINT_BASED_INTERPOLATION, &
    & CMFE_FIELD_DATA_POINT_BASED_INTERPOLATION

  PUBLIC CMFE_FIELD_NUMBER_OF_VARIABLE_SUBTYPES

  PUBLIC CMFE_FIELD_U_VARIABLE_TYPE,CMFE_FIELD_DELUDELN_VARIABLE_TYPE,CMFE_FIELD_DELUDELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2UDELT2_VARIABLE_TYPE, &
    & CMFE_FIELD_V_VARIABLE_TYPE,CMFE_FIELD_DELVDELN_VARIABLE_TYPE,CMFE_FIELD_DELVDELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2VDELT2_VARIABLE_TYPE, &
    & CMFE_FIELD_U1_VARIABLE_TYPE,CMFE_FIELD_DELU1DELN_VARIABLE_TYPE,CMFE_FIELD_DELU1DELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2U1DELT2_VARIABLE_TYPE, &
    & CMFE_FIELD_U2_VARIABLE_TYPE,CMFE_FIELD_DELU2DELN_VARIABLE_TYPE,CMFE_FIELD_DELU2DELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2U2DELT2_VARIABLE_TYPE, &
    & CMFE_FIELD_U3_VARIABLE_TYPE,CMFE_FIELD_DELU3DELN_VARIABLE_TYPE,CMFE_FIELD_DELU3DELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2U3DELT2_VARIABLE_TYPE, &
    & CMFE_FIELD_U4_VARIABLE_TYPE,CMFE_FIELD_DELU4DELN_VARIABLE_TYPE,CMFE_FIELD_DELU4DELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2U4DELT2_VARIABLE_TYPE, &
    & CMFE_FIELD_U5_VARIABLE_TYPE,CMFE_FIELD_DELU5DELN_VARIABLE_TYPE,CMFE_FIELD_DELU5DELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2U5DELT2_VARIABLE_TYPE, &
    & CMFE_FIELD_U6_VARIABLE_TYPE,CMFE_FIELD_DELU6DELN_VARIABLE_TYPE,CMFE_FIELD_DELU6DELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2U6DELT2_VARIABLE_TYPE, &
    & CMFE_FIELD_U7_VARIABLE_TYPE,CMFE_FIELD_DELU7DELN_VARIABLE_TYPE,CMFE_FIELD_DELU7DELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2U7DELT2_VARIABLE_TYPE, &
    & CMFE_FIELD_U8_VARIABLE_TYPE,CMFE_FIELD_DELU8DELN_VARIABLE_TYPE,CMFE_FIELD_DELU8DELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2U8DELT2_VARIABLE_TYPE, &
    & CMFE_FIELD_U9_VARIABLE_TYPE,CMFE_FIELD_DELU9DELN_VARIABLE_TYPE,CMFE_FIELD_DELU9DELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2U9DELT2_VARIABLE_TYPE, &
    & CMFE_FIELD_U10_VARIABLE_TYPE,CMFE_FIELD_DELU10DELN_VARIABLE_TYPE,CMFE_FIELD_DELU10DELT_VARIABLE_TYPE, &
    & CMFE_FIELD_DEL2U10DELT2_VARIABLE_TYPE

  PUBLIC CMFE_FIELD_INTG_TYPE,CMFE_FIELD_SP_TYPE,CMFE_FIELD_DP_TYPE,CMFE_FIELD_L_TYPE

  PUBLIC CMFE_FIELD_SEPARATED_COMPONENT_DOF_ORDER,CMFE_FIELD_CONTIGUOUS_COMPONENT_DOF_ORDER

  PUBLIC CMFE_FIELD_VALUES_SET_TYPE,CMFE_FIELD_INITIAL_VALUES_SET_TYPE,CMFE_FIELD_INCREMENTAL_VALUES_SET_TYPE, &
    & CMFE_FIELD_BOUNDARY_CONDITIONS_SET_TYPE, &
    & CMFE_FIELD_ANALYTIC_VALUES_SET_TYPE, &
    & CMFE_FIELD_PREVIOUS_VALUES_SET_TYPE,CMFE_FIELD_MEAN_PREDICTED_DISPLACEMENT_SET_TYPE,CMFE_FIELD_VELOCITY_VALUES_SET_TYPE, &
    & CMFE_FIELD_INITIAL_VELOCITY_SET_TYPE,CMFE_FIELD_PREVIOUS_VELOCITY_SET_TYPE,CMFE_FIELD_MEAN_PREDICTED_VELOCITY_SET_TYPE, &
    & CMFE_FIELD_ACCELERATION_VALUES_SET_TYPE,CMFE_FIELD_INITIAL_ACCELERATION_SET_TYPE, &
    & CMFE_FIELD_PREVIOUS_ACCELERATION_SET_TYPE, &
    & CMFE_FIELD_MEAN_PREDICTED_ACCELERATION_SET_TYPE, CMFE_FIELD_PRESSURE_VALUES_SET_TYPE, &
    & CMFE_FIELD_PREVIOUS_PRESSURE_SET_TYPE, &
    & CMFE_FIELD_IMPERMEABLE_FLAG_VALUES_SET_TYPE,CMFE_FIELD_INTEGRATED_NEUMANN_SET_TYPE, &
    & CMFE_FIELD_MESH_DISPLACEMENT_SET_TYPE,CMFE_FIELD_MESH_VELOCITY_SET_TYPE

  PUBLIC CMFE_FIELD_NO_SCALING,CMFE_FIELD_UNIT_SCALING,CMFE_FIELD_ARC_LENGTH_SCALING,CMFE_FIELD_ARITHMETIC_MEAN_SCALING, &
    & CMFE_FIELD_GEOMETRIC_MEAN_SCALING,CMFE_FIELD_HARMONIC_MEAN_SCALING

  PUBLIC cmfe_Field_ComponentInterpolationGet,cmfe_Field_ComponentInterpolationSet

  PUBLIC cmfe_Field_ComponentLabelGet,cmfe_Field_ComponentLabelSet

  PUBLIC cmfe_Field_ComponentMeshComponentGet,cmfe_Field_ComponentMeshComponentSet

  PUBLIC cmfe_Field_ComponentValuesInitialise

  PUBLIC cmfe_Field_DataTypeGet,cmfe_Field_DataTypeSet

  PUBLIC cmfe_Field_DOFOrderTypeGet,cmfe_Field_DOFOrderTypeSet

  PUBLIC cmfe_Field_CreateFinish,cmfe_Field_CreateStart

  PUBLIC cmfe_Field_DependentTypeGet,cmfe_Field_DependentTypeSet

  PUBLIC cmfe_Field_Destroy

  PUBLIC cmfe_Field_DimensionGet,cmfe_Field_DimensionSet

  PUBLIC cmfe_Field_GeometricFieldGet,cmfe_Field_GeometricFieldSet

  PUBLIC cmfe_Field_GeometricParametersElementLineLengthGet, cmfe_Field_GeometricParametersElementVolumeGet

  PUBLIC cmfe_Field_LabelGet,cmfe_Field_LabelSet

  PUBLIC cmfe_Field_MeshDecompositionGet,cmfe_Field_MeshDecompositionSet

  PUBLIC cmfe_Field_DataProjectionSet

  PUBLIC cmfe_Field_PositionNormalTangentCalculateNode

  PUBLIC cmfe_Field_NumberOfComponentsGet,cmfe_Field_NumberOfComponentsSet

  PUBLIC cmfe_Field_NumberOfVariablesGet,cmfe_Field_NumberOfVariablesSet

  PUBLIC cmfe_Field_ParameterSetAddConstant,cmfe_Field_ParameterSetAddElement,cmfe_Field_ParameterSetAddNode

  PUBLIC cmfe_Field_ParameterSetCreate

  PUBLIC cmfe_Field_ParameterSetDestroy

  PUBLIC cmfe_Field_ParameterSetDataGet,cmfe_Field_ParameterSetDataRestore

  PUBLIC cmfe_Field_ParameterSetGetConstant,cmfe_Field_ParameterSetGetElement,cmfe_Field_ParameterSetGetNode
  
  PUBLIC cmfe_Field_ParameterSetGetDataPoint,cmfe_Field_ParameterSetUpdateDataPoint

  PUBLIC cmfe_Field_ParameterSetUpdateConstant,cmfe_Field_ParameterSetUpdateElement,cmfe_Field_ParameterSetUpdateNode

  PUBLIC cmfe_Field_ParameterSetNodeScaleFactorGet,cmfe_Field_ParameterSetNodeScaleFactorSet

  PUBLIC cmfe_Field_ParameterSetNodeScaleFactorsGet,cmfe_Field_ParameterSetNodeScaleFactorsSet

  PUBLIC cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGet

  PUBLIC cmfe_Field_ParameterSetUpdateLocalDofs

  PUBLIC cmfe_Field_ParameterSetUpdateGaussPoint,cmfe_Field_ParameterSetGetGaussPoint

  PUBLIC cmfe_Field_ParameterSetInterpolateXi

  PUBLIC cmfe_Field_ParameterSetInterpolateGauss

  PUBLIC cmfe_Field_ParameterSetUpdateElementDataPoint

  PUBLIC cmfe_Field_ParameterSetUpdateFinish,cmfe_Field_ParameterSetUpdateStart

  PUBLIC cmfe_Field_ParametersToFieldParametersComponentCopy

  PUBLIC cmfe_Field_ScalingTypeGet,cmfe_Field_ScalingTypeSet

  PUBLIC cmfe_Field_TypeGet,cmfe_Field_TypeSet

  PUBLIC cmfe_Field_VariableLabelGet,cmfe_Field_VariableLabelSet

  PUBLIC cmfe_Field_VariableTypesGet,cmfe_Field_VariableTypesSet

!!==================================================================================================================================
!!
!! FIELD_IO_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_Fields_ElementsExport
    MODULE PROCEDURE cmfe_Fields_ElementsExportCCObj
    MODULE PROCEDURE cmfe_Fields_ElementsExportVSCObj
    MODULE PROCEDURE cmfe_Fields_ElementsExportCVSObj
    MODULE PROCEDURE cmfe_Fields_ElementsExportVSVSObj
  END INTERFACE cmfe_Fields_ElementsExport

  INTERFACE cmfe_Fields_NodesExport
    MODULE PROCEDURE cmfe_Fields_NodesExportCCObj
    MODULE PROCEDURE cmfe_Fields_NodesExportVSCObj
    MODULE PROCEDURE cmfe_Fields_NodesExportCVSObj
    MODULE PROCEDURE cmfe_Fields_NodesExportVSVSObj
  END INTERFACE cmfe_Fields_NodesExport

  PUBLIC cmfe_Fields_ElementsExport,cmfe_Fields_NodesExport

!!==================================================================================================================================
!!
!! GENERATED_MESH_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !> \addtogroup OPENCMISS_GeneratedMeshConstants OPENCMISS::GeneratedMesh::Constants
  !> \brief Generated mesh constants.
  !>@{
  !> \addtogroup OPENCMISS_GeneratedMeshTypes OPENCMISS::GeneratedMesh::Types
  !> \brief Generated mesh types.
  !> \see OPENCMISS::GeneratedMesh,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_MESH_TYPE = GENERATED_MESH_REGULAR_MESH_TYPE !<A regular generated mesh. \see OPENCMISS_GeneratedMeshTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_POLAR_MESH_TYPE = GENERATED_MESH_POLAR_MESH_TYPE !<A polar generated mesh. \see OPENCMISS_GeneratedMeshTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_FRACTAL_TREE_MESH_TYPE = GENERATED_MESH_FRACTAL_TREE_MESH_TYPE !<A fractal tree generated mesh. \see OPENCMISS_GeneratedMeshTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_CYLINDER_MESH_TYPE = GENERATED_MESH_CYLINDER_MESH_TYPE !<A cylinder generated mesh. \see OPENCMISS_GeneratedMeshTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_ELLIPSOID_MESH_TYPE = GENERATED_MESH_ELLIPSOID_MESH_TYPE !<An ellipsoid generated mesh. \see OPENCMISS_GeneratedMeshTypes,OPENCMISS
  !>@}
  !>@}

  !> \addtogroup OPENCMISS_GeneratedMeshConstants OPENCMISS::GeneratedMesh::Constants
  !> \brief Generated mesh constants.
  !>@{
  !> \addtogroup OPENCMISS_GeneratedMeshSurfaceTypes OPENCMISS::GeneratedMesh::SurfaceTypes
  !> \brief Generated mesh surface types.
  !> \see OPENCMISS::GeneratedMesh,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_CYLINDER_INNER_SURFACE = GENERATED_MESH_CYLINDER_INNER_SURFACE !<Cylinder inner surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_CYLINDER_OUTER_SURFACE = GENERATED_MESH_CYLINDER_OUTER_SURFACE !<Cylinder outer surface. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_CYLINDER_TOP_SURFACE = GENERATED_MESH_CYLINDER_TOP_SURFACE !<Cylinder top surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_CYLINDER_BOTTOM_SURFACE = GENERATED_MESH_CYLINDER_BOTTOM_SURFACE !<Cylinder bottom surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_ELLIPSOID_INNER_SURFACE = GENERATED_MESH_ELLIPSOID_INNER_SURFACE !<Ellipsoid inner surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_ELLIPSOID_OUTER_SURFACE = GENERATED_MESH_ELLIPSOID_OUTER_SURFACE !<Ellipsoid outer surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_ELLIPSOID_TOP_SURFACE = GENERATED_MESH_ELLIPSOID_TOP_SURFACE !<Ellipsoid top surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_LEFT_SURFACE = GENERATED_MESH_REGULAR_LEFT_SURFACE !<Regular left surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_RIGHT_SURFACE = GENERATED_MESH_REGULAR_RIGHT_SURFACE !<Regular right surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_TOP_SURFACE = GENERATED_MESH_REGULAR_TOP_SURFACE !<Regular top surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_BOTTOM_SURFACE = GENERATED_MESH_REGULAR_BOTTOM_SURFACE !<Regular bottom surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_FRONT_SURFACE = GENERATED_MESH_REGULAR_FRONT_SURFACE !<Regular front surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_BACK_SURFACE = GENERATED_MESH_REGULAR_BACK_SURFACE !<Regular back surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
  !>@}
  !>@}

  !Module types

  !Module variables

  !Interfaces

  !>Returns the basis for a generated mesh.
  INTERFACE cmfe_GeneratedMesh_BasisGet
    MODULE PROCEDURE cmfe_GeneratedMesh_BasisGetNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_BasisGetObj
  END INTERFACE cmfe_GeneratedMesh_BasisGet

  !>Sets/changes the basis for a generated mesh.
  INTERFACE cmfe_GeneratedMesh_BasisSet
    MODULE PROCEDURE cmfe_GeneratedMesh_BasisSetNumber0
    MODULE PROCEDURE cmfe_GeneratedMesh_BasisSetNumber1
    MODULE PROCEDURE cmfe_GeneratedMesh_BasisSetObj0
    MODULE PROCEDURE cmfe_GeneratedMesh_BasisSetObj1
  END INTERFACE cmfe_GeneratedMesh_BasisSet

  !>Sets/changes the base vectors for a generated mesh.
  INTERFACE cmfe_GeneratedMesh_BaseVectorsSet
    MODULE PROCEDURE cmfe_GeneratedMesh_BaseVectorsSetNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_BaseVectorsSetObj
  END INTERFACE cmfe_GeneratedMesh_BaseVectorsSet

  !>Finishes the creation of a generated mesh. \see OpenCMISS::Iron::cmfe_GeneratedMesh_CreateStart
  INTERFACE cmfe_GeneratedMesh_CreateFinish
    MODULE PROCEDURE cmfe_GeneratedMesh_CreateFinishNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_CreateFinishObj
  END INTERFACE cmfe_GeneratedMesh_CreateFinish

  !>Starts the creation of a generated mesh. \see OpenCMISS::Iron::cmfe_GeneratedMesh_CreateFinish
  INTERFACE cmfe_GeneratedMesh_CreateStart
    MODULE PROCEDURE cmfe_GeneratedMesh_CreateStartNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_CreateStartInterfaceObj
    MODULE PROCEDURE cmfe_GeneratedMesh_CreateStartRegionObj
  END INTERFACE cmfe_GeneratedMesh_CreateStart

  !>Destroys a generated mesh.
  INTERFACE cmfe_GeneratedMesh_Destroy
    MODULE PROCEDURE cmfe_GeneratedMesh_DestroyNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_DestroyObj
  END INTERFACE cmfe_GeneratedMesh_Destroy

  !>Returns the extent of a generated mesh.
  INTERFACE cmfe_GeneratedMesh_ExtentGet
    MODULE PROCEDURE cmfe_GeneratedMesh_ExtentGetNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_ExtentGetObj
  END INTERFACE cmfe_GeneratedMesh_ExtentGet

  !>Sets/changes the extent of a generated mesh.
  INTERFACE cmfe_GeneratedMesh_ExtentSet
    MODULE PROCEDURE cmfe_GeneratedMesh_ExtentSetNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_ExtentSetObj
  END INTERFACE cmfe_GeneratedMesh_ExtentSet

  !>Returns the number of elements in a generated mesh.
  INTERFACE cmfe_GeneratedMesh_NumberOfElementsGet
    MODULE PROCEDURE cmfe_GeneratedMesh_NumberOfElementsGetNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_NumberOfElementsGetObj
  END INTERFACE cmfe_GeneratedMesh_NumberOfElementsGet

  !>Sets/changes the number of elements in a generated mesh.
  INTERFACE cmfe_GeneratedMesh_NumberOfElementsSet
    MODULE PROCEDURE cmfe_GeneratedMesh_NumberOfElementsSetNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_NumberOfElementsSetObj
  END INTERFACE cmfe_GeneratedMesh_NumberOfElementsSet

  !>Returns the origin of a generated mesh.
  INTERFACE cmfe_GeneratedMesh_OriginGet
    MODULE PROCEDURE cmfe_GeneratedMesh_OriginGetNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_OriginGetObj
  END INTERFACE cmfe_GeneratedMesh_OriginGet

  !>Sets/changes the origin of a generated mesh.
  INTERFACE cmfe_GeneratedMesh_OriginSet
    MODULE PROCEDURE cmfe_GeneratedMesh_OriginSetNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_OriginSetObj
  END INTERFACE cmfe_GeneratedMesh_OriginSet

  !>Returns the type of a generated mesh.
  INTERFACE cmfe_GeneratedMesh_TypeGet
    MODULE PROCEDURE cmfe_GeneratedMesh_TypeGetNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_TypeGetObj
  END INTERFACE cmfe_GeneratedMesh_TypeGet

  !>Sets/changes the type of a generated mesh.
  INTERFACE cmfe_GeneratedMesh_TypeSet
    MODULE PROCEDURE cmfe_GeneratedMesh_TypeSetNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_TypeSetObj
  END INTERFACE cmfe_GeneratedMesh_TypeSet

  !>Calculates and sets the geometric field parameters for a generated mesh
  INTERFACE cmfe_GeneratedMesh_GeometricParametersCalculate
    MODULE PROCEDURE cmfe_GeneratedMesh_GeometricParametersCalculateNumber
    MODULE PROCEDURE cmfe_GeneratedMesh_GeometricParametersCalculateObj
  END INTERFACE cmfe_GeneratedMesh_GeometricParametersCalculate

  !>Returns a list of nodes belonging to a surface of given type
  INTERFACE cmfe_GeneratedMesh_SurfaceGet
    MODULE PROCEDURE cmfe_GeneratedMesh_SurfaceGetNumber0
    MODULE PROCEDURE cmfe_GeneratedMesh_SurfaceGetNumber1
    MODULE PROCEDURE cmfe_GeneratedMesh_SurfaceGetObj0
    MODULE PROCEDURE cmfe_GeneratedMesh_SurfaceGetObj1
  END INTERFACE


  !>Creates an embedding of one mesh in another
  INTERFACE cmfe_MeshEmbedding_Create
    MODULE PROCEDURE cmfe_MeshEmbedding_CreateNumber
    MODULE PROCEDURE cmfe_MeshEmbedding_CreateObj
  END INTERFACE

  !>Sets the embedded nodes for one parent element
  INTERFACE cmfe_MeshEmbedding_SetChildNodePosition
    MODULE PROCEDURE cmfe_MeshEmbedding_SetChildNodePositionObj
  END INTERFACE


  !>Pushes data from the parent field to the child field
  INTERFACE cmfe_MeshEmbedding_PushData
    MODULE PROCEDURE cmfe_MeshEmbedding_PushDataObj
  END INTERFACE

  INTERFACE cmfe_MeshEmbedding_SetGaussPointData
   MODULE PROCEDURE cmfe_MeshEmbedding_SetGaussPointDataObj
  END INTERFACE

  INTERFACE cmfe_MeshEmbedding_PullGaussPointData
   MODULE PROCEDURE cmfe_MeshEmbedding_PullGaussPointDataObj
  END INTERFACE

   INTERFACE cmfe_MeshEmbedding_GetGaussPointCoord
    MODULE PROCEDURE cmfe_Field_ParameterSetGetGaussPointCoordObj
   END INTERFACE

  PUBLIC cmfe_MeshEmbedding_Create,cmfe_MeshEmbedding_SetChildNodePosition, cmfe_MeshEmbeddingType

  PUBLIC cmfe_MeshEmbedding_Initialise,cmfe_MeshEmbedding_SetGaussPointData

  PUBLIC cmfe_MeshEmbedding_PushData,cmfe_MeshEmbedding_PullGaussPointData

  PUBLIC cmfe_MeshEmbedding_GetGaussPointCoord

  PUBLIC CMFE_GENERATED_MESH_REGULAR_MESH_TYPE,CMFE_GENERATED_MESH_POLAR_MESH_TYPE,CMFE_GENERATED_MESH_FRACTAL_TREE_MESH_TYPE

  PUBLIC CMFE_GENERATED_MESH_CYLINDER_MESH_TYPE, CMFE_GENERATED_MESH_ELLIPSOID_MESH_TYPE

  PUBLIC CMFE_GENERATED_MESH_CYLINDER_INNER_SURFACE,CMFE_GENERATED_MESH_CYLINDER_OUTER_SURFACE

  PUBLIC CMFE_GENERATED_MESH_CYLINDER_TOP_SURFACE, CMFE_GENERATED_MESH_CYLINDER_BOTTOM_SURFACE

  PUBLIC CMFE_GENERATED_MESH_ELLIPSOID_INNER_SURFACE, CMFE_GENERATED_MESH_ELLIPSOID_OUTER_SURFACE

  PUBLIC CMFE_GENERATED_MESH_ELLIPSOID_TOP_SURFACE

  PUBLIC CMFE_GENERATED_MESH_REGULAR_LEFT_SURFACE, CMFE_GENERATED_MESH_REGULAR_RIGHT_SURFACE, &
    & CMFE_GENERATED_MESH_REGULAR_TOP_SURFACE

  PUBLIC CMFE_GENERATED_MESH_REGULAR_BOTTOM_SURFACE, CMFE_GENERATED_MESH_REGULAR_FRONT_SURFACE, &
    & CMFE_GENERATED_MESH_REGULAR_BACK_SURFACE

  PUBLIC cmfe_GeneratedMesh_BasisGet,cmfe_GeneratedMesh_BasisSet

  PUBLIC cmfe_GeneratedMesh_BaseVectorsSet

  PUBLIC cmfe_GeneratedMesh_CreateFinish,cmfe_GeneratedMesh_CreateStart

  PUBLIC cmfe_GeneratedMesh_Destroy

  PUBLIC cmfe_GeneratedMesh_ExtentGet,cmfe_GeneratedMesh_ExtentSet

  PUBLIC cmfe_GeneratedMesh_NumberOfElementsGet,cmfe_GeneratedMesh_NumberOfElementsSet

  PUBLIC cmfe_GeneratedMesh_OriginGet,cmfe_GeneratedMesh_OriginSet

  PUBLIC cmfe_GeneratedMesh_TypeGet,cmfe_GeneratedMesh_TypeSet

  PUBLIC cmfe_GeneratedMesh_GeometricParametersCalculate

  PUBLIC cmfe_GeneratedMesh_SurfaceGet


!!==================================================================================================================================
!!
!! INTERFACE_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !Module types

  !Module variables

  !Interfaces

  !>Adds a mesh to an interface.
  INTERFACE cmfe_Interface_MeshAdd
    MODULE PROCEDURE cmfe_Interface_MeshAddNumber
    MODULE PROCEDURE cmfe_Interface_MeshAddObj
  END INTERFACE cmfe_Interface_MeshAdd

  !>Finishes the creation of an interface. \see OpenCMISS::Iron::cmfe_Interface_CreateStart
  INTERFACE cmfe_Interface_CreateFinish
    MODULE PROCEDURE cmfe_Interface_CreateFinishNumber
    MODULE PROCEDURE cmfe_Interface_CreateFinishObj
  END INTERFACE cmfe_Interface_CreateFinish

  !>Starts the creation of an interface. \see OpenCMISS::Iron::cmfe_Interface_CreateFinish
  INTERFACE cmfe_Interface_CreateStart
    MODULE PROCEDURE cmfe_Interface_CreateStartNumber
    MODULE PROCEDURE cmfe_Interface_CreateStartObj
  END INTERFACE cmfe_Interface_CreateStart
  
  !>Set the coordinate system of an inteface
  INTERFACE cmfe_Interface_CoordinateSystemSet
    MODULE PROCEDURE cmfe_Interface_CoordinateSystemSetNumber
    MODULE PROCEDURE cmfe_Interface_CoordinateSystemSetObj
  END INTERFACE cmfe_Interface_CoordinateSystemSet
  
  !>Get the coordinate system of an inteface
  INTERFACE cmfe_Interface_CoordinateSystemGet
    MODULE PROCEDURE cmfe_Interface_CoordinateSystemGetNumber
    MODULE PROCEDURE cmfe_Interface_CoordinateSystemGetObj
  END INTERFACE cmfe_Interface_CoordinateSystemGet

  !>Destroys an interface.
  INTERFACE cmfe_Interface_Destroy
    MODULE PROCEDURE cmfe_Interface_DestroyNumber
    MODULE PROCEDURE cmfe_Interface_DestroyObj
  END INTERFACE cmfe_Interface_Destroy

  !>Returns the label of an interface.
  INTERFACE cmfe_Interface_LabelGet
    MODULE PROCEDURE cmfe_Interface_LabelGetCNumber
    MODULE PROCEDURE cmfe_Interface_LabelGetCObj
    MODULE PROCEDURE cmfe_Interface_LabelGetVSNumber
    MODULE PROCEDURE cmfe_Interface_LabelGetVSObj
  END INTERFACE cmfe_Interface_LabelGet

  !>Sets/changes the label of an interface.
  INTERFACE cmfe_Interface_LabelSet
    MODULE PROCEDURE cmfe_Interface_LabelSetCNumber
    MODULE PROCEDURE cmfe_Interface_LabelSetCObj
    MODULE PROCEDURE cmfe_Interface_LabelSetVSNumber
    MODULE PROCEDURE cmfe_Interface_LabelSetVSObj
  END INTERFACE cmfe_Interface_LabelSet

  !>Returns the nodes for a interface.
  INTERFACE cmfe_Interface_NodesGet
    MODULE PROCEDURE cmfe_Interface_NodesGetObj
  END INTERFACE cmfe_Interface_NodesGet

  !>Finishes the creation of an interface meshes connectivity. \see OpenCMISS::Iron::cmfe_InterfaceMeshConnectivity_CreateStart
  INTERFACE cmfe_InterfaceMeshConnectivity_CreateFinish
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_CreateFinishNumber
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_CreateFinishObj
  END INTERFACE cmfe_InterfaceMeshConnectivity_CreateFinish

  !>Starts the creation of an interface meshes connectivity.
  INTERFACE cmfe_InterfaceMeshConnectivity_CreateStart
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_CreateStartNumber
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_CreateStartObj
  END INTERFACE cmfe_InterfaceMeshConnectivity_CreateStart

  !>Sets the element xi values for the mesh connectivity between an element in the interface mesh and an element in a region mesh
  INTERFACE cmfe_InterfaceMeshConnectivity_ElementXiSet
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_ElementXiSetNumber
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_ElementXiSetObj
  END INTERFACE cmfe_InterfaceMeshConnectivity_ElementXiSet

  !>Sets the number of elements coupled through a given interface mesh element
  INTERFACE cmfe_InterfaceMeshConnectivity_ElementNumberSet
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_ElementNumberSetNumber
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_ElementNumberSetObj
  END INTERFACE cmfe_InterfaceMeshConnectivity_ElementNumberSet

  !>Sets the coupled node numbers
  INTERFACE cmfe_InterfaceMeshConnectivity_NodeNumberSet
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_NodeNumberSetNumber
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_NodeNumberSetObj
  END INTERFACE cmfe_InterfaceMeshConnectivity_NodeNumberSet

  !>Sets the number of elements coupled through a given interface mesh element
  INTERFACE cmfe_InterfaceMeshConnectivity_BasisSet
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_BasisSetNumber
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_BasisSetObj
  END INTERFACE cmfe_InterfaceMeshConnectivity_BasisSet

  !>Destroys an interface meshes connectivity.
  INTERFACE cmfe_InterfaceMeshConnectivity_Destroy
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_DestroyNumber
    MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_DestroyObj
  END INTERFACE cmfe_InterfaceMeshConnectivity_Destroy
  
  !>Finishes the creation of an interface points connectivity.
  INTERFACE cmfe_InterfacePointsConnectivity_CreateFinish
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_CreateFinishNumber
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_CreateFinishObj
  END INTERFACE cmfe_InterfacePointsConnectivity_CreateFinish
  
  !>Starts the creation of an interface points connectivity.
  INTERFACE cmfe_InterfacePointsConnectivity_CreateStart
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_CreateStartNumber
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_CreateStartObj
  END INTERFACE cmfe_InterfacePointsConnectivity_CreateStart
  
  !>Destroys an interface points connectivity.
  INTERFACE cmfe_InterfacePointsConnectivity_Destroy
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_DestroyNumber
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_DestroyObj
  END INTERFACE cmfe_InterfacePointsConnectivity_Destroy
  
  !>Get the coupled mesh element number that defines points connectivity
  INTERFACE cmfe_InterfacePointsConnectivity_ElementNumberGet
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_ElementNumberGetNumber
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_ElementNumberGetObj
  END INTERFACE cmfe_InterfacePointsConnectivity_ElementNumberGet
  
  !>Gets the element xi values for the points connectivity between a data point in the interface mesh and an element in a region mesh
  INTERFACE cmfe_InterfacePointsConnectivity_PointXiGet
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_PointXiGetNumber
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_PointXiGetObj
  END INTERFACE cmfe_InterfacePointsConnectivity_PointXiGet
  
  !>Sets the coupled mesh element number that defines points connectivity
  INTERFACE cmfe_InterfacePointsConnectivity_ElementNumberSet
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_ElementNumberSetNumber
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_ElementNumberSetObj
  END INTERFACE cmfe_InterfacePointsConnectivity_ElementNumberSet
  
  !>Sets the element xi values for the points connectivity between a data point in the interface mesh and an element in a region mesh
  INTERFACE cmfe_InterfacePointsConnectivity_PointXiSet
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_PointXiSetNumber
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_PointXiSetObj
  END INTERFACE cmfe_InterfacePointsConnectivity_PointXiSet
  
  !>Update points connectivity information with projection results
  INTERFACE cmfe_InterfacePointsConnectivity_UpdateFromProjection
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_UpdateFromProjectionRNumber
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_UpdateFromProjectionINumber
    MODULE PROCEDURE cmfe_InterfacePointsConnectivity_UpdateFromProjectionObj
  END INTERFACE cmfe_InterfacePointsConnectivity_UpdateFromProjection

  PUBLIC cmfe_Interface_MeshAdd

  PUBLIC cmfe_Interface_CreateFinish,cmfe_Interface_CreateStart
  
  PUBLIC cmfe_Interface_CoordinateSystemSet,cmfe_Interface_CoordinateSystemGet

  PUBLIC cmfe_Interface_Destroy

  PUBLIC cmfe_Interface_LabelGet,cmfe_Interface_LabelSet

  PUBLIC cmfe_Interface_NodesGet

  PUBLIC cmfe_InterfaceMeshConnectivity_CreateFinish,cmfe_InterfaceMeshConnectivity_CreateStart

  PUBLIC cmfe_InterfaceMeshConnectivity_Destroy,cmfe_InterfaceMeshConnectivity_BasisSet

  PUBLIC cmfe_InterfaceMeshConnectivity_ElementNumberSet,cmfe_InterfaceMeshConnectivity_ElementXiSet

  PUBLIC cmfe_InterfaceMeshConnectivity_NodeNumberSet

  PUBLIC cmfe_InterfacePointsConnectivity_CreateFinish,cmfe_InterfacePointsConnectivity_CreateStart

  PUBLIC cmfe_InterfacePointsConnectivity_Destroy
  
  PUBLIC cmfe_InterfacePointsConnectivity_ElementNumberGet,cmfe_InterfacePointsConnectivity_PointXiGet
  
  PUBLIC cmfe_InterfacePointsConnectivity_ElementNumberSet,cmfe_InterfacePointsConnectivity_PointXiSet
  
  PUBLIC cmfe_InterfacePointsConnectivity_UpdateFromProjection

!!==================================================================================================================================
!!
!! INTERFACE_CONDITION_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !> \addtogroup OPENCMISS_InterfaceConditionConstants OPENCMISS::InterfaceConditions::Constants
  !> \brief Interface conditions constants.
  !>@{
  !> \addtogroup OPENCMISS_InterfaceConditionMethods OPENCMISS::InterfaceConditions::Methods
  !> \brief Interface condition methods.
  !> \see OPENCMISS::InterfaceConditions,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_LAGRANGE_MULTIPLIERS_METHOD = &
    & INTERFACE_CONDITION_LAGRANGE_MULTIPLIERS_METHOD !<Lagrange multipliers interface condition method. \see OPENCMISS_InterfaceConditionMethods,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_AUGMENTED_LAGRANGE_METHOD = INTERFACE_CONDITION_AUGMENTED_LAGRANGE_METHOD !<Augmented Lagrange multiplers interface condition method. \see OPENCMISS_InterfaceConditionMethods,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_PENALTY_METHOD = INTERFACE_CONDITION_PENALTY_METHOD !<Penalty interface condition method. \see OPENCMISS_InterfaceConditionMethods,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_POINT_TO_POINT_METHOD = INTERFACE_CONDITION_POINT_TO_POINT_METHOD !<Point to point interface condition method. \see OPENCMISS_InterfaceConditionMethods,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_InterfaceConditionOperators OPENCMISS::InterfaceConditions::Operators
  !> \brief Interface condition operator types.
  !> \see OPENCMISS::InterfaceConditions,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_FIELD_CONTINUITY_OPERATOR = &
    & INTERFACE_CONDITION_FIELD_CONTINUITY_OPERATOR !<Continuous field operator, i.e., lambda.(u1_gauss-u2_gauss). \see OPENCMISS_InterfaceConditionOperators,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_FIELD_NORMAL_CONTINUITY_OPERATOR = &
    & INTERFACE_CONDITION_FIELD_NORMAL_CONTINUITY_OPERATOR !<Continuous field normal operator, i.e., lambda(u_1.n_1-u_2.n_2). \see OPENCMISS_InterfaceConditionOperators,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_FLS_CONTACT_OPERATOR= &
    & INTERFACE_CONDITION_FLS_CONTACT_OPERATOR !<Frictionless contact operator, i.e., lambda.(x_1.n-x_2.n). \see OPENCMISS_InterfaceConditionOperators,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_FLS_CONTACT_REPROJECT_OPERATOR= &
    & INTERFACE_CONDITION_FLS_CONTACT_REPROJECT_OPERATOR !<Frictionless contact operator, reproject at each newton iteration and has geometric linearisation terms i.e., lambda.(x_1.n-x_2.n). \see OPENCMISS_InterfaceConditionOperators,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_SOLID_FLUID_OPERATOR = INTERFACE_CONDITION_SOLID_FLUID_OPERATOR !<Solid fluid operator, i.e., lambda.(v_f-du_s/dt). \see OPENCMISS_InterfaceConditionOperators,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_SOLID_FLUID_NORMAL_OPERATOR = &
    & INTERFACE_CONDITION_SOLID_FLUID_NORMAL_OPERATOR !<Solid fluid normal operator, i.e., lambda(v_f.n_f-du_s/dt.n_s). \see OPENCMISS_InterfaceConditionOperators,OPENCMISS
  !>@}
  !> \addtogroup OPENCMISS_InterfaceConditionIntegrationTypes OPENCMISS::InterfaceConditions::IntegrationTypes
  !> \brief Interface condition integration types.
  !> \see OPENCMISS::InterfaceConditions,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_GAUSS_INTEGRATION=INTERFACE_CONDITION_GAUSS_INTEGRATION !<Gauss points integration type, i.e. Loop over element Gauss points and sum up their contribution. \see OPENCMISS_InterfaceConditionIntegrationTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_DATA_POINTS_INTEGRATION=INTERFACE_CONDITION_DATA_POINTS_INTEGRATION !< Data points integration type i.e. Loop over data points and  sum up their contribution. \see OPENCMISS_InterfaceConditionIntegrationTypes,OPENCMISS
  !>@}
  !>@}

  !Module types

  !Module variables

  !Interfaces

  !>Finishes the creation of an interface condition. \see OpenCMISS::Iron::cmfe_InterfaceCondition_CreateStart
  INTERFACE cmfe_InterfaceCondition_CreateFinish
    MODULE PROCEDURE cmfe_InterfaceCondition_CreateFinishNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_CreateFinishObj
  END INTERFACE cmfe_InterfaceCondition_CreateFinish

  !>Starts the creation of an interface condition. \see OpenCMISS::Iron::cmfe_InterfaceCondition_CreateFinish
  INTERFACE cmfe_InterfaceCondition_CreateStart
    MODULE PROCEDURE cmfe_InterfaceCondition_CreateStartNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_CreateStartObj
  END INTERFACE cmfe_InterfaceCondition_CreateStart

  !>Adds in a dependent variable to an interface condition.
  INTERFACE cmfe_InterfaceCondition_DependentVariableAdd
    MODULE PROCEDURE cmfe_InterfaceCondition_DependentVariableAddNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_DependentVariableAddObj
  END INTERFACE cmfe_InterfaceCondition_DependentVariableAdd

  !>Destroys an interface condition.
  INTERFACE cmfe_InterfaceCondition_Destroy
    MODULE PROCEDURE cmfe_InterfaceCondition_DestroyNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_DestroyObj
  END INTERFACE cmfe_InterfaceCondition_Destroy

  !>Finishes the creation of equations for an interface condition. \see OpenCMISS::Iron::cmfe_InterfaceCondition_EquationsCreateStart
  INTERFACE cmfe_InterfaceCondition_EquationsCreateFinish
    MODULE PROCEDURE cmfe_InterfaceCondition_EquationsCreateFinishNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_EquationsCreateFinishObj
  END INTERFACE cmfe_InterfaceCondition_EquationsCreateFinish

  !>Starts the creation of equations for an interface condition. \see OpenCMISS::Iron::cmfe_InterfaceCondition_EquationsCreateFinish
  INTERFACE cmfe_InterfaceCondition_EquationsCreateStart
    MODULE PROCEDURE cmfe_InterfaceCondition_EquationsCreateStartNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_EquationsCreateStartObj
  END INTERFACE cmfe_InterfaceCondition_EquationsCreateStart

  !>Destroys the interface equations for an interface condition.
  INTERFACE cmfe_InterfaceCondition_EquationsDestroy
    MODULE PROCEDURE cmfe_InterfaceCondition_EquationsDestroyNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_EquationsDestroyObj
  END INTERFACE cmfe_InterfaceCondition_EquationsDestroy
  
  !>Returns the integration type for an interface condition.
  INTERFACE cmfe_InterfaceCondition_IntegrationTypeGet
    MODULE PROCEDURE cmfe_InterfaceCondition_IntegrationTypeGetNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_IntegrationTypeGetObj
  END INTERFACE cmfe_InterfaceCondition_IntegrationTypeGet
  
  !>Sets/changes the integration type for an interface condition.
  INTERFACE cmfe_InterfaceCondition_IntegrationTypeSet
    MODULE PROCEDURE cmfe_InterfaceCondition_IntegrationTypeSetNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_IntegrationTypeSetObj
  END INTERFACE cmfe_InterfaceCondition_IntegrationTypeSet

  !>Finishes the creation of a Lagrange multipliers field for an interface condition. \see OpenCMISS::Iron::cmfe_InterfaceCondition_LagrangeFieldCreateStart
  INTERFACE cmfe_InterfaceCondition_LagrangeFieldCreateFinish
    MODULE PROCEDURE cmfe_InterfaceCondition_LagrangeFieldCreateFinishNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_LagrangeFieldCreateFinishObj
  END INTERFACE cmfe_InterfaceCondition_LagrangeFieldCreateFinish

  !>Starts the creation of a Lagrange multipliers field for an interface condition. \see OpenCMISS::Iron::cmfe_InterfaceCondition_LagrangeFieldCreateFinish
  INTERFACE cmfe_InterfaceCondition_LagrangeFieldCreateStart
    MODULE PROCEDURE cmfe_InterfaceCondition_LagrangeFieldCreateStartNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_LagrangeFieldCreateStartObj
  END INTERFACE cmfe_InterfaceCondition_LagrangeFieldCreateStart

  !>Finishes the creation of a Penalty field for an interface condition. \see OpenCMISS::Iron::cmfe_InterfaceCondition_PenaltyFieldCreateStart
  INTERFACE cmfe_InterfaceCondition_PenaltyFieldCreateFinish
    MODULE PROCEDURE cmfe_InterfaceCondition_PenaltyFieldCreateFinishNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_PenaltyFieldCreateFinishObj
  END INTERFACE cmfe_InterfaceCondition_PenaltyFieldCreateFinish

  !>Starts the creation of a Penalty field for an interface condition. \see OpenCMISS::Iron::cmfe_InterfaceCondition_PenaltyFieldCreateFinish
  INTERFACE cmfe_InterfaceCondition_PenaltyFieldCreateStart
    MODULE PROCEDURE cmfe_InterfaceCondition_PenaltyFieldCreateStartNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_PenaltyFieldCreateStartObj
  END INTERFACE cmfe_InterfaceCondition_PenaltyFieldCreateStart

  !>Returns the method for an interface condition.
  INTERFACE cmfe_InterfaceCondition_MethodGet
    MODULE PROCEDURE cmfe_InterfaceCondition_MethodGetNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_MethodGetObj
  END INTERFACE cmfe_InterfaceCondition_MethodGet

  !>Sets/changes the method for an interface condition.
  INTERFACE cmfe_InterfaceCondition_MethodSet
    MODULE PROCEDURE cmfe_InterfaceCondition_MethodSetNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_MethodSetObj
  END INTERFACE cmfe_InterfaceCondition_MethodSet

  !>Returns the operator for an interface condition.
  INTERFACE cmfe_InterfaceCondition_OperatorGet
    MODULE PROCEDURE cmfe_InterfaceCondition_OperatorGetNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_OperatorGetObj
  END INTERFACE cmfe_InterfaceCondition_OperatorGet

  !>Sets/changes the operator for an interface condition.
  INTERFACE cmfe_InterfaceCondition_OperatorSet
    MODULE PROCEDURE cmfe_InterfaceCondition_OperatorSetNumber
    MODULE PROCEDURE cmfe_InterfaceCondition_OperatorSetObj
  END INTERFACE cmfe_InterfaceCondition_OperatorSet

  !>Returns the sparsity for interface equations.
  INTERFACE cmfe_InterfaceEquations_SparsityGet
    MODULE PROCEDURE cmfe_InterfaceEquations_SparsityGetNumber
    MODULE PROCEDURE cmfe_InterfaceEquations_SparsityGetObj
  END INTERFACE cmfe_InterfaceEquations_SparsityGet

  !>Sets/changes the sparsity for interface equations.
  INTERFACE cmfe_InterfaceEquations_SparsitySet
    MODULE PROCEDURE cmfe_InterfaceEquations_SparsitySetNumber
    MODULE PROCEDURE cmfe_InterfaceEquations_SparsitySetObj
  END INTERFACE cmfe_InterfaceEquations_SparsitySet

  !>Returns the output type for interface equations.
  INTERFACE cmfe_InterfaceEquations_OutputTypeGet
    MODULE PROCEDURE cmfe_InterfaceEquations_OutputTypeGetNumber
    MODULE PROCEDURE cmfe_InterfaceEquations_OutputTypeGetObj
  END INTERFACE cmfe_InterfaceEquations_OutputTypeGet

  !>Sets/changes the output type for interface equations.
  INTERFACE cmfe_InterfaceEquations_OutputTypeSet
    MODULE PROCEDURE cmfe_InterfaceEquations_OutputTypeSetNumber
    MODULE PROCEDURE cmfe_InterfaceEquations_OutputTypeSetObj
  END INTERFACE cmfe_InterfaceEquations_OutputTypeSet

  PUBLIC CMFE_INTERFACE_CONDITION_LAGRANGE_MULTIPLIERS_METHOD,CMFE_INTERFACE_CONDITION_AUGMENTED_LAGRANGE_METHOD, &
    & CMFE_INTERFACE_CONDITION_PENALTY_METHOD,CMFE_INTERFACE_CONDITION_POINT_TO_POINT_METHOD

  PUBLIC CMFE_INTERFACE_CONDITION_FIELD_CONTINUITY_OPERATOR,CMFE_INTERFACE_CONDITION_FIELD_NORMAL_CONTINUITY_OPERATOR, &
    & CMFE_INTERFACE_CONDITION_FLS_CONTACT_OPERATOR,CMFE_INTERFACE_CONDITION_FLS_CONTACT_REPROJECT_OPERATOR, &
    & CMFE_INTERFACE_CONDITION_SOLID_FLUID_OPERATOR,CMFE_INTERFACE_CONDITION_SOLID_FLUID_NORMAL_OPERATOR
    
  PUBLIC CMFE_INTERFACE_CONDITION_GAUSS_INTEGRATION,CMFE_INTERFACE_CONDITION_DATA_POINTS_INTEGRATION

  PUBLIC cmfe_InterfaceCondition_CreateFinish,cmfe_InterfaceCondition_CreateStart

  PUBLIC cmfe_InterfaceCondition_DependentVariableAdd

  PUBLIC cmfe_InterfaceCondition_Destroy

  PUBLIC cmfe_InterfaceCondition_EquationsCreateFinish,cmfe_InterfaceCondition_EquationsCreateStart

  PUBLIC cmfe_InterfaceCondition_EquationsDestroy
  
  PUBLIC cmfe_InterfaceCondition_IntegrationTypeGet,cmfe_InterfaceCondition_IntegrationTypeSet

  PUBLIC cmfe_InterfaceCondition_LagrangeFieldCreateFinish,cmfe_InterfaceCondition_LagrangeFieldCreateStart

  PUBLIC cmfe_InterfaceCondition_PenaltyFieldCreateFinish,cmfe_InterfaceCondition_PenaltyFieldCreateStart

  PUBLIC cmfe_InterfaceCondition_MethodGet,cmfe_InterfaceCondition_MethodSet

  PUBLIC cmfe_InterfaceCondition_OperatorGet,cmfe_InterfaceCondition_OperatorSet

  PUBLIC cmfe_InterfaceEquations_SparsityGet,cmfe_InterfaceEquations_SparsitySet

  PUBLIC cmfe_InterfaceEquations_OutputTypeGet,cmfe_InterfaceEquations_OutputTypeSet

!!==================================================================================================================================
!!
!! INTERFACE MATRICES ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !> \addtogroup OPENCMISS_InterfaceMatricesTimeDependenceTypes OPENCMISS::InterfaceMatrices::TimeDependenceTypes
  !> \brief Interface matrices time dependency types
  !>@{
  INTEGER, PARAMETER :: CMFE_NUMBER_OF_INTERFACE_MATRIX_TYPES=NUMBER_OF_INTERFACE_MATRIX_TYPES
  INTEGER, PARAMETER :: CMFE_INTERFACE_MATRIX_STATIC=INTERFACE_MATRIX_STATIC !<Interface matrix is of static type \see INTERFACE_MATRICES_ROUTINES_InterfaceMatricesTimeDependenceTypes,INTERFACE_MATRICES_ROUTINES
  INTEGER, PARAMETER :: CMFE_INTERFACE_MATRIX_QUASI_STATIC=INTERFACE_MATRIX_QUASI_STATIC !<Interface matrix is of quasi-static type \see INTERFACE_MATRICES_ROUTINES_InterfaceMatricesTimeDependenceTypes,INTERFACE_MATRICES_ROUTINES
  INTEGER, PARAMETER :: CMFE_INTERFACE_MATRIX_FIRST_ORDER_DYNAMIC=INTERFACE_MATRIX_FIRST_ORDER_DYNAMIC !<Interface matrix is of first order dynamic type \see INTERFACE_MATRICES_ROUTINES_InterfaceMatricesTimeDependenceTypes,INTERFACE_MATRICES_ROUTINES
  INTEGER, PARAMETER :: CMFE_INTERFACE_MATRIX_SECOND_ORDER_DYNAMIC=INTERFACE_MATRIX_SECOND_ORDER_DYNAMIC !<Interface matrix is of second order dynamic type \see INTERFACE_MATRICES_ROUTINES_InterfaceMatricesTimeDependenceTypes,INTERFACE_MATRICES_ROUTINES
  !>@}

  !Module types

  !Module variables

  !Interfaces
  PUBLIC CMFE_NUMBER_OF_INTERFACE_MATRIX_TYPES,CMFE_INTERFACE_MATRIX_STATIC,CMFE_INTERFACE_MATRIX_QUASI_STATIC, &
    & CMFE_INTERFACE_MATRIX_FIRST_ORDER_DYNAMIC,CMFE_INTERFACE_MATRIX_SECOND_ORDER_DYNAMIC

  PUBLIC cmfe_InterfaceMatrices_TimeDependenceTypeSet,cmfe_InterfaceMatrices_TimeDependenceTypeGet

!!==================================================================================================================================
!!
!! MESH_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !> \addtogroup OPENCMISS_MeshConstants OPENCMISS::Mesh::Constants
  !> \brief Mesh constants.
  !>@{
  !> \addtogroup OPENCMISS_DecompositionTypes OPENCMISS::Mesh::DecompositionTypes
  !> \brief The Decomposition types parameters
  !> \see OPENCMISS::Mesh,OPENCMISS
  !>@{
  INTEGER(INTG), PARAMETER :: CMFE_DECOMPOSITION_ALL_TYPE = DECOMPOSITION_ALL_TYPE !<The decomposition contains all elements. \see OPENCMISS_DecompositionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_DECOMPOSITION_CALCULATED_TYPE = DECOMPOSITION_CALCULATED_TYPE !<The element decomposition is calculated by graph partitioning. \see OPENCMISS_DecompositionTypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: CMFE_DECOMPOSITION_USER_DEFINED_TYPE = DECOMPOSITION_USER_DEFINED_TYPE !<The user will set the element decomposition. \see OPENCMISS_DecompositionTypes,OPENCMISS
  !>@}
  !>@}

  !Module types

  !Module variables

  !Interfaces

  !>Finishes the creation of a domain decomposition. \see OpenCMISS::Iron::cmfe_Decomposition_CreateStart
  INTERFACE cmfe_Decomposition_CreateFinish
    MODULE PROCEDURE cmfe_Decomposition_CreateFinishNumber
    MODULE PROCEDURE cmfe_Decomposition_CreateFinishObj
  END INTERFACE cmfe_Decomposition_CreateFinish

  !>Start the creation of a domain decomposition for a given mesh. \see OpenCMISS::Iron::cmfe_Decomposition_CreateStart
  INTERFACE cmfe_Decomposition_CreateStart
    MODULE PROCEDURE cmfe_Decomposition_CreateStartNumber
    MODULE PROCEDURE cmfe_Decomposition_CreateStartObj
  END INTERFACE cmfe_Decomposition_CreateStart

  !>Destroys a domain decomposition.
  INTERFACE cmfe_Decomposition_Destroy
    MODULE PROCEDURE cmfe_Decomposition_DestroyNumber
    MODULE PROCEDURE cmfe_Decomposition_DestroyObj
  END INTERFACE cmfe_Decomposition_Destroy

  !>Calculates the element domains for the decomposition of a mesh.
  INTERFACE cmfe_Decomposition_ElementDomainCalculate
    MODULE PROCEDURE cmfe_Decomposition_ElementDomainCalculateNumber
    MODULE PROCEDURE cmfe_Decomposition_ElementDomainCalculateObj
  END INTERFACE cmfe_Decomposition_ElementDomainCalculate

  !>Returns the domain for a given element in a decomposition of a mesh.
  INTERFACE cmfe_Decomposition_ElementDomainGet
    MODULE PROCEDURE cmfe_Decomposition_ElementDomainGetNumber
    MODULE PROCEDURE cmfe_Decomposition_ElementDomainGetObj
  END INTERFACE cmfe_Decomposition_ElementDomainGet

  !>Sets/changes the domain for a given element in a decomposition of a mesh.
  INTERFACE cmfe_Decomposition_ElementDomainSet
    MODULE PROCEDURE cmfe_Decomposition_ElementDomainSetNumber
    MODULE PROCEDURE cmfe_Decomposition_ElementDomainSetObj
  END INTERFACE cmfe_Decomposition_ElementDomainSet

  !>Returns the mesh component number used for the decomposition of a mesh.
  INTERFACE cmfe_Decomposition_MeshComponentGet
    MODULE PROCEDURE cmfe_Decomposition_MeshComponentGetNumber
    MODULE PROCEDURE cmfe_Decomposition_MeshComponentGetObj
  END INTERFACE cmfe_Decomposition_MeshComponentGet

  !>Sets/changes the mesh component number used for the decomposition of a mesh.
  INTERFACE cmfe_Decomposition_MeshComponentSet
    MODULE PROCEDURE cmfe_Decomposition_MeshComponentSetNumber
    MODULE PROCEDURE cmfe_Decomposition_MeshComponentSetObj
  END INTERFACE cmfe_Decomposition_MeshComponentSet

  !>Returns the number of domains used for the decomposition of a mesh.
  INTERFACE cmfe_Decomposition_NumberOfDomainsGet
    MODULE PROCEDURE cmfe_Decomposition_NumberOfDomainsGetNumber
    MODULE PROCEDURE cmfe_Decomposition_NumberOfDomainsGetObj
  END INTERFACE cmfe_Decomposition_NumberOfDomainsGet

  !>Sets/changes the number of domains used for the decomposition of a mesh.
  INTERFACE cmfe_Decomposition_NumberOfDomainsSet
    MODULE PROCEDURE cmfe_Decomposition_NumberOfDomainsSetNumber
    MODULE PROCEDURE cmfe_Decomposition_NumberOfDomainsSetObj
  END INTERFACE cmfe_Decomposition_NumberOfDomainsSet

  !>Returns the type of decomposition.
  INTERFACE cmfe_Decomposition_TypeGet
    MODULE PROCEDURE cmfe_Decomposition_TypeGetNumber
    MODULE PROCEDURE cmfe_Decomposition_TypeGetObj
  END INTERFACE cmfe_Decomposition_TypeGet

  !>Sets/changes the type of decomposition.
  INTERFACE cmfe_Decomposition_TypeSet
    MODULE PROCEDURE cmfe_Decomposition_TypeSetNumber
    MODULE PROCEDURE cmfe_Decomposition_TypeSetObj
  END INTERFACE cmfe_Decomposition_TypeSet

  !>Sets/changes whether lines should be calculated for the decomposition.
  INTERFACE cmfe_Decomposition_CalculateLinesSet
    MODULE PROCEDURE cmfe_Decomposition_CalculateLinesSetNumber
    MODULE PROCEDURE cmfe_Decomposition_CalculateLinesSetObj
  END INTERFACE cmfe_Decomposition_CalculateLinesSet

  !>Sets/changes whether faces should be calculated for the decomposition.
  INTERFACE cmfe_Decomposition_CalculateFacesSet
    MODULE PROCEDURE cmfe_Decomposition_CalculateFacesSetNumber
    MODULE PROCEDURE cmfe_Decomposition_CalculateFacesSetObj
  END INTERFACE cmfe_Decomposition_CalculateFacesSet

  !>Finishes the creation of a mesh. \see OpenCMISS::Iron::cmfe_Mesh_CreateStart
  INTERFACE cmfe_Mesh_CreateFinish
    MODULE PROCEDURE cmfe_Mesh_CreateFinishNumber
    MODULE PROCEDURE cmfe_Mesh_CreateFinishObj
  END INTERFACE cmfe_Mesh_CreateFinish

  !>Starts the creation of a mesh. \see OpenCMISS::Iron::cmfe_Mesh_CreateFinish
  INTERFACE cmfe_Mesh_CreateStart
    MODULE PROCEDURE cmfe_Mesh_CreateStartNumber
    MODULE PROCEDURE cmfe_Mesh_CreateStartObj
    MODULE PROCEDURE cmfe_Mesh_CreateStartInterfaceObj
  END INTERFACE cmfe_Mesh_CreateStart

  !>Destroys a mesh.
  INTERFACE cmfe_Mesh_Destroy
    MODULE PROCEDURE cmfe_Mesh_DestroyNumber
    MODULE PROCEDURE cmfe_Mesh_DestroyObj
  END INTERFACE cmfe_Mesh_Destroy

  !>Returns the number of mesh components in a mesh.
  INTERFACE cmfe_Mesh_NumberOfComponentsGet
    MODULE PROCEDURE cmfe_Mesh_NumberOfComponentsGetNumber
    MODULE PROCEDURE cmfe_Mesh_NumberOfComponentsGetObj
  END INTERFACE cmfe_Mesh_NumberOfComponentsGet

  !>Sets/changes the number of mesh components in a mesh.
  INTERFACE cmfe_Mesh_NumberOfComponentsSet
    MODULE PROCEDURE cmfe_Mesh_NumberOfComponentsSetNumber
    MODULE PROCEDURE cmfe_Mesh_NumberOfComponentsSetObj
  END INTERFACE cmfe_Mesh_NumberOfComponentsSet

  !>Returns the number of elements in a mesh.
  INTERFACE cmfe_Mesh_NumberOfElementsGet
    MODULE PROCEDURE cmfe_Mesh_NumberOfElementsGetNumber
    MODULE PROCEDURE cmfe_Mesh_NumberOfElementsGetObj
  END INTERFACE cmfe_Mesh_NumberOfElementsGet

  !>Sets/changes the number of elements in a mesh.
  INTERFACE cmfe_Mesh_NumberOfElementsSet
    MODULE PROCEDURE cmfe_Mesh_NumberOfElementsSetNumber
    MODULE PROCEDURE cmfe_Mesh_NumberOfElementsSetObj
  END INTERFACE cmfe_Mesh_NumberOfElementsSet

  !>Sets/changes the surrounding elements calculate flag for the mesh.
  INTERFACE cmfe_Mesh_SurroundingElementsCalculateSet
    MODULE PROCEDURE cmfe_Mesh_SurroundingElementsCalculateSetNumber
    MODULE PROCEDURE cmfe_Mesh_SurroundingElementsCalculateSetObj
  END INTERFACE cmfe_Mesh_SurroundingElementsCalculateSet
  
  !>Sets/changes whether data points topology should be calculated for the decomposition.
  INTERFACE cmfe_Mesh_TopologyDataPointsCalculateProjection
    MODULE PROCEDURE cmfe_Mesh_TopologyDataPointsCalculateProjectionInterfaceNumber
    MODULE PROCEDURE cmfe_Mesh_TopologyDataPointsCalculateProjectionRegionNumber
    MODULE PROCEDURE cmfe_Mesh_TopologyDataPointsCalculateProjectionObj
  END INTERFACE cmfe_Mesh_TopologyDataPointsCalculateProjection

  !>Returns the basis for an element in a mesh.
  INTERFACE cmfe_MeshElements_BasisGet
    MODULE PROCEDURE cmfe_MeshElements_BasisGetNumber
    MODULE PROCEDURE cmfe_MeshElements_BasisGetObj
  END INTERFACE cmfe_MeshElements_BasisGet

  !>Sets/changes the basis for an element in a mesh.
  INTERFACE cmfe_MeshElements_BasisSet
    MODULE PROCEDURE cmfe_MeshElements_BasisSetNumber
    MODULE PROCEDURE cmfe_MeshElements_BasisSetObj
  END INTERFACE cmfe_MeshElements_BasisSet

  !>Returns the adjacent elements for a given element and adjacent xi direction for an element in a mesh.
  INTERFACE cmfe_MeshElements_AdjacentElementGet
    MODULE PROCEDURE cmfe_MeshElements_AdjacentElementGetNumber
    MODULE PROCEDURE cmfe_MeshElements_AdjacentElementGetObj
  END INTERFACE cmfe_MeshElements_AdjacentElementGet

  !>Finishes the creation of a mesh elements for a mesh component. \see OpenCMISS::Iron::cmfe_MeshElements_CreateStart
  INTERFACE cmfe_MeshElements_CreateFinish
    MODULE PROCEDURE cmfe_MeshElements_CreateFinishNumber
    MODULE PROCEDURE cmfe_MeshElements_CreateFinishObj
  END INTERFACE cmfe_MeshElements_CreateFinish

  !>Starts the creation of a mesh elements for a mesh component. \see OpenCMISS::Iron::cmfe_MeshElements_CreateFinish
  INTERFACE cmfe_MeshElements_CreateStart
    MODULE PROCEDURE cmfe_MeshElements_CreateStartNumber
    MODULE PROCEDURE cmfe_MeshElements_CreateStartObj
  END INTERFACE cmfe_MeshElements_CreateStart

  !>Get the mesh elements belonging to a mesh component.
  INTERFACE cmfe_Mesh_ElementsGet
    MODULE PROCEDURE cmfe_Mesh_ElementsGetNumber
    MODULE PROCEDURE cmfe_Mesh_ElementsGetObj
  END INTERFACE cmfe_Mesh_ElementsGet

  !>Returns the element nodes for an element in a mesh.
  INTERFACE cmfe_MeshElements_NodesGet
    MODULE PROCEDURE cmfe_MeshElements_NodesGetNumber
    MODULE PROCEDURE cmfe_MeshElements_NodesGetObj
  END INTERFACE cmfe_MeshElements_NodesGet

  !>Sets/changes the element nodes for an element in a mesh.
  INTERFACE cmfe_MeshElements_NodesSet
    MODULE PROCEDURE cmfe_MeshElements_NodesSetNumber
    MODULE PROCEDURE cmfe_MeshElements_NodesSetObj
  END INTERFACE cmfe_MeshElements_NodesSet

  !>Sets/changes a user node's derivative version for an element in a mesh.
  interface cmfe_meshelements_usernodeversionset
    MODULE PROCEDURE cmfe_meshelements_usernodeversionsetnumber
    MODULE PROCEDURE cmfe_meshelements_usernodeversionsetobj
  END INTERFACE cmfe_meshelements_usernodeversionset

  INTERFACE cmfe_meshelements_localelementnodeversionset
    MODULE PROCEDURE cmfe_meshelements_localelementnodeversionsetnumber
    MODULE PROCEDURE cmfe_meshelements_localelementnodeversionsetobj
  END INTERFACE cmfe_meshelements_localelementnodeversionset

  INTERFACE cmfe_meshelements_usernumberget
    MODULE PROCEDURE cmfe_meshelements_usernumbergetnumber
    MODULE PROCEDURE cmfe_meshelements_usernumbergetobj
  END INTERFACE cmfe_meshelements_usernumberget

  INTERFACE cmfe_meshelements_usernumberset
    MODULE PROCEDURE cmfe_meshelements_usernumbersetnumber
    MODULE PROCEDURE cmfe_meshelements_usernumbersetobj
  END INTERFACE cmfe_meshelements_usernumberset

  INTERFACE cmfe_meshelements_usernumbersallset
    MODULE PROCEDURE cmfe_meshelements_usernumbersallsetnumber
    MODULE PROCEDURE cmfe_meshelements_usernumbersallsetobj
  END INTERFACE cmfe_meshelements_usernumbersallset

  INTERFACE cmfe_mesh_nodeexists
    MODULE PROCEDURE cmfe_mesh_nodeexistsnumber
    MODULE PROCEDURE cmfe_mesh_nodeexistsobj
  END INTERFACE cmfe_mesh_nodeexists

  INTERFACE cmfe_mesh_elementexists
    MODULE PROCEDURE cmfe_mesh_elementexistsnumber
    MODULE PROCEDURE cmfe_mesh_elementexistsobj
  END INTERFACE cmfe_mesh_elementexists

  INTERFACE cmfe_mesh_nodesget
    MODULE PROCEDURE cmfe_mesh_nodesgetnumber
    MODULE PROCEDURE cmfe_mesh_nodesgetobj
  END INTERFACE cmfe_mesh_nodesget

  INTERFACE cmfe_meshnodes_numberofderivativesget
    MODULE PROCEDURE cmfe_meshnodes_numberofderivativesgetnumber
    MODULE PROCEDURE cmfe_meshnodes_numberofderivativesgetobj
  END INTERFACE cmfe_meshnodes_numberofderivativesget

  INTERFACE cmfe_meshnodes_derivativesget
    MODULE PROCEDURE cmfe_meshnodes_derivativesgetnumber
    MODULE PROCEDURE cmfe_meshnodes_derivativesgetobj
  END INTERFACE cmfe_meshnodes_derivativesget

  INTERFACE cmfe_meshnodes_numberofversionsget
    MODULE PROCEDURE cmfe_meshnodes_numberofversionsgetnumber
    MODULE PROCEDURE cmfe_meshnodes_numberofversionsgetobj
  END INTERFACE cmfe_meshnodes_numberofversionsget

  INTERFACE cmfe_meshnodes_numberofnodesget
    MODULE PROCEDURE cmfe_meshnodes_numberofnodesgetnumber
    MODULE PROCEDURE cmfe_meshnodes_numberofnodesgetobj
  END INTERFACE cmfe_meshnodes_numberofnodesget

  INTERFACE cmfe_decomposition_nodedomainget
    MODULE PROCEDURE cmfe_decomposition_nodedomaingetnumber
    MODULE PROCEDURE cmfe_decomposition_nodedomaingetobj
  END INTERFACE cmfe_decomposition_nodedomainget

  INTERFACE cmfe_decomposition_topologydataprojectioncalculate
    MODULE PROCEDURE cmfe_decomposition_topologydataprojectioncalculateobj
  END INTERFACE cmfe_decomposition_topologydataprojectioncalculate

  INTERFACE cmfe_decomposition_topologyelementdatapointlocalnumberget
    MODULE PROCEDURE cmfe_decomposition_topologyelementdatapointlocalnumbergetobj
  END INTERFACE cmfe_decomposition_topologyelementdatapointlocalnumberget

  INTERFACE cmfe_decomposition_topologyelementdatapointusernumberget
    MODULE PROCEDURE cmfe_decomposition_topologyelementdatapointusernumbergetobj
  END INTERFACE cmfe_decomposition_topologyelementdatapointusernumberget

  INTERFACE cmfe_decomposition_topologynumberofelementdatapointsget
    MODULE PROCEDURE cmfe_decomposition_topologynumberofelementdatapointsgetobj
  END INTERFACE cmfe_decomposition_topologynumberofelementdatapointsget

  PUBLIC cmfe_decomposition_all_type,cmfe_decomposition_calculated_type,cmfe_decomposition_user_defined_type

  PUBLIC cmfe_decomposition_createfinish,cmfe_decomposition_createstart

  PUBLIC cmfe_decomposition_topologydataprojectioncalculate

  PUBLIC cmfe_decomposition_topologyelementdatapointlocalnumberget

  PUBLIC cmfe_decomposition_topologyelementdatapointusernumberget

  PUBLIC cmfe_decomposition_topologynumberofelementdatapointsget

  PUBLIC cmfe_decomposition_destroy

  PUBLIC cmfe_decomposition_elementdomaincalculate

  PUBLIC cmfe_decomposition_elementdomainget,cmfe_decomposition_elementdomainset

  PUBLIC cmfe_decomposition_meshcomponentget,cmfe_decomposition_meshcomponentset

  PUBLIC cmfe_decomposition_numberofdomainsget,cmfe_decomposition_numberofdomainsset

  PUBLIC cmfe_decomposition_typeget,cmfe_decomposition_typeset

  PUBLIC cmfe_decomposition_nodedomainget

  PUBLIC cmfe_mesh_createfinish,cmfe_mesh_createstart

  PUBLIC cmfe_mesh_destroy

  PUBLIC cmfe_mesh_numberofcomponentsget,cmfe_mesh_numberofcomponentsset

  PUBLIC cmfe_mesh_numberofelementsget,cmfe_mesh_numberofelementsset

  PUBLIC cmfe_meshelements_basisget,cmfe_meshelements_basisset

  PUBLIC cmfe_meshelements_adjacentelementget

  PUBLIC cmfe_meshelements_usernodeversionset,cmfe_meshelements_localelementnodeversionset

  PUBLIC cmfe_meshelements_createfinish,cmfe_meshelements_createstart

  PUBLIC cmfe_meshelements_nodesget,cmfe_meshelements_nodesset

  PUBLIC cmfe_meshelements_usernumberget,cmfe_meshelements_usernumberset

  PUBLIC cmfe_meshelements_usernumbersallset
 
  PUBLIC cmfe_meshnodes_numberofderivativesget,cmfe_meshnodes_derivativesget

  PUBLIC cmfe_meshnodes_numberofversionsget

  PUBLIC cmfe_meshnodes_numberofnodesget

  PUBLIC cmfe_mesh_elementsget

  PUBLIC cmfe_mesh_nodesget

  PUBLIC cmfe_mesh_nodeexists,cmfe_mesh_elementexists

  PUBLIC cmfe_mesh_surroundingelementscalculateset

  PUBLIC cmfe_mesh_topologydatapointscalculateprojection

!!==================================================================================================================================
!!
!! DISTRIBUTED_MATRIX_VECTOR
!!
!!==================================================================================================================================

  INTEGER(INTG), PARAMETER :: cmfe_matrix_block_storage_type=distributed_matrix_block_storage_type 
  INTEGER(INTG), PARAMETER :: cmfe_matrix_diagonal_storage_type=distributed_matrix_diagonal_storage_type 
  INTEGER(INTG), PARAMETER :: cmfe_matrix_column_major_storage_type=distributed_matrix_column_major_storage_type 
  INTEGER(INTG), PARAMETER :: cmfe_matrix_row_major_storage_type=distributed_matrix_row_major_storage_type 
  INTEGER(INTG), PARAMETER :: cmfe_matrix_compressed_row_storage_type=distributed_matrix_compressed_row_storage_type 
  INTEGER(INTG), PARAMETER :: cmfe_matrix_compressed_column_storage_type=distributed_matrix_compressed_column_storage_type 
  INTEGER(INTG), PARAMETER :: cmfe_matrix_row_column_storage_type=distributed_matrix_row_column_storage_type 
  INTEGER(INTG), PARAMETER :: cmfe_matrix_vector_intg_type=distributed_matrix_vector_intg_type
  INTEGER(INTG), PARAMETER :: cmfe_matrix_vector_sp_type=distributed_matrix_vector_sp_type 
  INTEGER(INTG), PARAMETER :: cmfe_matrix_vector_dp_type=distributed_matrix_vector_dp_type 
  INTEGER(INTG), PARAMETER :: cmfe_matrix_vector_l_type=distributed_matrix_vector_l_type 

  PUBLIC cmfe_matrix_block_storage_type,cmfe_matrix_diagonal_storage_type,cmfe_matrix_column_major_storage_type, &
    & cmfe_matrix_row_major_storage_type,cmfe_matrix_compressed_row_storage_type,cmfe_matrix_compressed_column_storage_type, &
    & cmfe_matrix_row_column_storage_type

  PUBLIC cmfe_matrix_vector_intg_type,cmfe_matrix_vector_sp_type,cmfe_matrix_vector_dp_type,cmfe_matrix_vector_l_type

  !Note that currently we don't have any user number based routines for distributed matrices
  !as if we can't use a pointer to a CMISS object, a pointer to matrix data isn't going to
  !be much use either. It's also more awkward when matrices and vectors themselves don't have
  !user numbers and there are multiple ways to access them through user numbers, eg. solver equations
  !matrices or equations set matrices

  INTERFACE cmfe_distributedmatrix_storagetypeget
    MODULE PROCEDURE cmfe_distributedmatrix_storagetypegetobj
  END INTERFACE cmfe_distributedmatrix_storagetypeget

  INTERFACE cmfe_distributedmatrix_datatypeget
    MODULE PROCEDURE cmfe_distributedmatrix_datatypegetobj
  END INTERFACE cmfe_distributedmatrix_datatypeget

  INTERFACE cmfe_distributedmatrix_dimensionsget
    MODULE PROCEDURE cmfe_distributedmatrix_dimensionsgetobj
  END INTERFACE cmfe_distributedmatrix_dimensionsget

  INTERFACE cmfe_distributedmatrix_storagelocationsget
    MODULE PROCEDURE cmfe_distributedmatrix_storagelocationsgetobj
  END INTERFACE cmfe_distributedmatrix_storagelocationsget

  INTERFACE cmfe_distributedmatrix_dataget
    MODULE PROCEDURE cmfe_distributedmatrix_datagetintgobj
    MODULE PROCEDURE cmfe_distributedmatrix_datagetdpobj
    MODULE PROCEDURE cmfe_distributedmatrix_datagetspobj
    MODULE PROCEDURE cmfe_distributedmatrix_datagetlobj
  END INTERFACE cmfe_distributedmatrix_dataget

  INTERFACE cmfe_distributedmatrix_datarestore
    MODULE PROCEDURE cmfe_distributedmatrix_datarestoreintgobj
    MODULE PROCEDURE cmfe_distributedmatrix_datarestoredpobj
    MODULE PROCEDURE cmfe_distributedmatrix_datarestorespobj
    MODULE PROCEDURE cmfe_distributedmatrix_datarestorelobj
  END INTERFACE cmfe_distributedmatrix_datarestore

  INTERFACE cmfe_distributedvector_datatypeget
    MODULE PROCEDURE cmfe_distributedvector_datatypegetobj
  END INTERFACE cmfe_distributedvector_datatypeget

  INTERFACE cmfe_distributedvector_dataget
    MODULE PROCEDURE cmfe_distributedvector_datagetintgobj
    MODULE PROCEDURE cmfe_distributedvector_datagetdpobj
    MODULE PROCEDURE cmfe_distributedvector_datagetspobj
    MODULE PROCEDURE cmfe_distributedvector_datagetlobj
  END INTERFACE cmfe_distributedvector_dataget

  INTERFACE cmfe_distributedvector_datarestore
    MODULE PROCEDURE cmfe_distributedvector_datarestoreintgobj
    MODULE PROCEDURE cmfe_distributedvector_datarestoredpobj
    MODULE PROCEDURE cmfe_distributedvector_datarestorespobj
    MODULE PROCEDURE cmfe_distributedvector_datarestorelobj
  END INTERFACE cmfe_distributedvector_datarestore

  PUBLIC cmfe_distributedmatrix_storagetypeget,cmfe_distributedmatrix_storagelocationsget
  PUBLIC cmfe_distributedmatrix_datatypeget,cmfe_distributedmatrix_dimensionsget
  PUBLIC cmfe_distributedmatrix_dataget,cmfe_distributedmatrix_datarestore
  PUBLIC cmfe_distributedvector_datatypeget
  PUBLIC cmfe_distributedvector_dataget,cmfe_distributedvector_datarestore

!!==================================================================================================================================
!!
!! NODE_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_nodes_createfinish
    MODULE PROCEDURE cmfe_nodes_createfinishnumber
    MODULE PROCEDURE cmfe_nodes_createfinishobj
  END INTERFACE cmfe_nodes_createfinish

  INTERFACE cmfe_nodes_createstart
    MODULE PROCEDURE cmfe_nodes_createstartnumber
    MODULE PROCEDURE cmfe_nodes_createstartobj
    MODULE PROCEDURE cmfe_nodes_createstartinterfaceobj
  END INTERFACE cmfe_nodes_createstart

  INTERFACE cmfe_nodes_destroy
    MODULE PROCEDURE cmfe_nodes_destroynumber
    MODULE PROCEDURE cmfe_nodes_destroyobj
  END INTERFACE cmfe_nodes_destroy

  INTERFACE cmfe_nodes_numberofnodesget
    MODULE PROCEDURE cmfe_nodes_numberofnodesgetnumber
    MODULE PROCEDURE cmfe_nodes_numberofnodesgetobj
  END INTERFACE cmfe_nodes_numberofnodesget

  INTERFACE cmfe_nodes_labelget
    MODULE PROCEDURE cmfe_nodes_labelgetcnumber
    MODULE PROCEDURE cmfe_nodes_labelgetcobj
    MODULE PROCEDURE cmfe_nodes_labelgetvsnumber
    MODULE PROCEDURE cmfe_nodes_labelgetvsobj
  END INTERFACE cmfe_nodes_labelget

  INTERFACE cmfe_nodes_labelset
    MODULE PROCEDURE cmfe_nodes_labelsetcnumber
    MODULE PROCEDURE cmfe_nodes_labelsetcobj
    MODULE PROCEDURE cmfe_nodes_labelsetvsnumber
    MODULE PROCEDURE cmfe_nodes_labelsetvsobj
  END INTERFACE cmfe_nodes_labelset

  INTERFACE cmfe_nodes_usernumberget
    MODULE PROCEDURE cmfe_nodes_usernumbergetnumber
    MODULE PROCEDURE cmfe_nodes_usernumbergetobj
  END INTERFACE cmfe_nodes_usernumberget

  INTERFACE cmfe_nodes_usernumberset
    MODULE PROCEDURE cmfe_nodes_usernumbersetnumber
    MODULE PROCEDURE cmfe_nodes_usernumbersetobj
  END INTERFACE cmfe_nodes_usernumberset
  
  INTERFACE cmfe_nodes_usernumbersallset
    MODULE PROCEDURE cmfe_nodes_usernumbersallsetnumber
    MODULE PROCEDURE cmfe_nodes_usernumbersallsetobj
  END INTERFACE cmfe_nodes_usernumbersallset

  PUBLIC cmfe_nodes_createfinish,cmfe_nodes_createstart

  PUBLIC cmfe_nodes_destroy

  PUBLIC cmfe_nodes_numberofnodesget

  PUBLIC cmfe_nodes_labelget,cmfe_nodes_labelset

  PUBLIC cmfe_nodes_usernumberget,cmfe_nodes_usernumberset,cmfe_nodes_usernumbersallset

!!==================================================================================================================================
!!
!! PROBLEM_CONSTANTS_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  INTEGER(INTG), PARAMETER :: cmfe_problem_no_class = problem_no_class 
  INTEGER(INTG), PARAMETER :: cmfe_problem_elasticity_class = problem_elasticity_class 
  INTEGER(INTG), PARAMETER :: cmfe_problem_fluid_mechanics_class = problem_fluid_mechanics_class 
  INTEGER(INTG), PARAMETER :: cmfe_problem_electromagnetics_class = problem_electromagnetics_class 
  INTEGER(INTG), PARAMETER :: cmfe_problem_classical_field_class = problem_classical_field_class 
  INTEGER(INTG), PARAMETER :: cmfe_problem_bioelectrics_class = problem_bioelectrics_class 
  INTEGER(INTG), PARAMETER :: cmfe_problem_modal_class = problem_modal_class 
  INTEGER(INTG), PARAMETER :: cmfe_problem_fitting_class = problem_fitting_class 
  INTEGER(INTG), PARAMETER :: cmfe_problem_optimisation_class = problem_optimisation_class 
  INTEGER(INTG), PARAMETER :: cmfe_problem_multi_physics_class = problem_multi_physics_class 
  INTEGER(INTG), PARAMETER :: cmfe_problem_no_type = problem_no_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_linear_elasticity_type = problem_linear_elasticity_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_finite_elasticity_type = problem_finite_elasticity_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_linear_elasticity_contact_type = problem_linear_elasticity_contact_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_finite_elasticity_contact_type = problem_finite_elasticity_contact_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_stokes_equation_type = problem_stokes_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_navier_stokes_equation_type = problem_navier_stokes_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_darcy_equation_type = problem_darcy_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_poiseuille_equation_type = problem_poiseuille_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_burgers_equation_type = problem_burgers_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_electrostatic_type = problem_electrostatic_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_magnetostatic_type = problem_magnetostatic_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_maxwells_equations_type = problem_maxwells_equations_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_laplace_equation_type = problem_laplace_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_poisson_equation_type = problem_poisson_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_helmholtz_equation_type = problem_helmholtz_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_wave_equation_type = problem_wave_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_diffusion_equation_type = problem_diffusion_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_advection_diffusion_equation_type = problem_advection_diffusion_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_reaction_diffusion_equation_type = problem_reaction_diffusion_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_biharmonic_equation_type = problem_biharmonic_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_monodomain_equation_type = problem_monodomain_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_bidomain_equation_type = problem_bidomain_equation_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_linear_elastic_modal_type = problem_linear_elastic_modal_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_data_fitting_type = problem_data_fitting_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_finite_elasticity_darcy_type = problem_finite_elasticity_darcy_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_finite_elasticity_stokes_type = problem_finite_elasticity_stokes_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_finite_elasticity_navier_stokes_type = problem_finite_elasticity_navier_stokes_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_diffusion_diffusion_type = problem_diffusion_diffusion_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_diffusion_advection_diffusion_type = problem_diffusion_advection_diffusion_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_multi_compartment_transport_type = problem_multi_compartment_transport_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_finite_elasticity_fluid_pressure_type = problem_finite_elasticity_fluid_pressure_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_bioelectric_finite_elasticity_type = problem_bioelectric_finite_elasticity_type 

  INTEGER(INTG), PARAMETER :: cmfe_problem_monodomain_strang_splitting_equation_type = &
    & PROBLEM_MONODOMAIN_STRANG_SPLITTING_EQUATION_TYPE !<Monodomain equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: cmfe_problem_no_subtype = problem_no_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_static_stokes_subtype = problem_static_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_laplace_stokes_subtype = problem_laplace_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_transient_stokes_subtype = problem_transient_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_ale_stokes_subtype = problem_ale_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_pgm_stokes_subtype = problem_pgm_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_optimised_stokes_subtype = problem_optimised_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_static_navier_stokes_subtype = problem_static_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_laplace_navier_stokes_subtype = problem_laplace_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_transient_navier_stokes_subtype = problem_transient_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_transient_rbs_navier_stokes_subtype = problem_transient_rbs_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_multiscale_navier_stokes_subtype = &
    & PROBLEM_MULTISCALE_NAVIER_STOKES_SUBTYPE !<Transient stabilised Navier-Stokes problem with multiscale boundary coupling subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_transient1d_navier_stokes_subtype = problem_transient1d_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_coupled1d0d_navier_stokes_subtype = problem_coupled1d0d_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_transient1d_adv_navier_stokes_subtype = problem_transient1d_adv_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_coupled1d0d_adv_navier_stokes_subtype = problem_coupled1d0d_adv_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_stree1d0d_subtype = problem_coupled1d0d_adv_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_stree1d0d_adv_subtype = problem_coupled1d0d_adv_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_ale_navier_stokes_subtype = problem_ale_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_pgm_navier_stokes_subtype = problem_pgm_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_optimised_navier_stokes_subtype = problem_optimised_navier_stokes_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_standard_darcy_subtype = problem_standard_darcy_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_quasistatic_darcy_subtype = problem_quasistatic_darcy_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_ale_darcy_subtype = problem_ale_darcy_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_transient_darcy_subtype = problem_transient_darcy_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_pgm_darcy_subtype = problem_pgm_darcy_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_pgm_transient_darcy_subtype = problem_pgm_transient_darcy_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_standard_laplace_subtype = problem_standard_laplace_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_generalised_laplace_subtype = problem_generalised_laplace_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_static_poiseuille_subtype = problem_static_poiseuille_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_dynamic_poiseuille_subtype = problem_dynamic_poiseuille_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_extracellular_bidomain_poisson_subtype = problem_extracellular_bidomain_poisson_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_linear_source_poisson_subtype = problem_linear_source_poisson_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_linear_pressure_poisson_subtype = problem_linear_pressure_poisson_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_nonlinear_pressure_poisson_subtype = problem_nonlinear_pressure_poisson_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_ale_pressure_poisson_subtype = problem_ale_pressure_poisson_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_fitted_pressure_poisson_subtype = problem_fitted_pressure_poisson_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_nonlinear_source_poisson_subtype = problem_nonlinear_source_poisson_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_standard_helmholtz_subtype = problem_standard_helmholtz_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_generalised_helmholtz_subtype = problem_generalised_helmholtz_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_no_source_diffusion_subtype = problem_no_source_diffusion_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_linear_source_diffusion_subtype = problem_linear_source_diffusion_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_nonlinear_source_diffusion_subtype = problem_nonlinear_source_diffusion_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_no_source_ale_diffusion_subtype = problem_no_source_ale_diffusion_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_linear_source_ale_diffusion_subtype = problem_linear_source_ale_diffusion_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_nonlinear_source_ale_diffusion_subtype = &
    & PROBLEM_NONLINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE !<Nonlinear source Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_no_source_advection_diffusion_subtype = &
    & problem_no_source_advection_diffusion_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_linear_source_advection_diffusion_subtype = &
    & PROBLEM_LINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<Linear source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_nonlinear_source_advection_diffusion_subtype = &
    & problem_nonlinear_source_advection_diffusion_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_no_source_ale_advection_diffusion_subtype = &
    & PROBLEM_NO_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<No source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_linear_source_ale_advection_diffusion_subtype = &
    & problem_linear_source_ale_advection_diffusion_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_nonlinear_source_ale_advection_diffusion_subtype = &
    & PROBLEM_NONLINEAR_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<Nonlinear source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: cmfe_problem_no_source_static_advec_diff_subtype = problem_no_source_static_advec_diff_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_linear_source_static_advec_diff_subtype = &
    & PROBLEM_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE !<Linear source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_nonlinear_source_static_advec_diff_subtype = &
    & problem_nonlinear_source_static_advec_diff_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_static_burgers_subtype = problem_static_burgers_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_dynamic_burgers_subtype = problem_dynamic_burgers_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_cellml_reac_integ_reac_diff_strang_split_subtype = &
    & PROBLEM_CELLML_REAC_INTEG_REAC_DIFF_STRANG_SPLIT_SUBTYPE !CellML reaction integrated strang-split subtype of reaction diffusion \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_cellml_reac_eval_reac_diff_no_split_subtype = &
    & problem_cellml_reac_eval_reac_diff_no_split_subtype !CellML reaction evaluated no-split subtype of reaction diffusion \see OPENCMISS_ProblemSubtypes,OPENCMISS
  INTEGER(INTG), PARAMETER :: cmfe_problem_constant_reac_diff_no_split_subtype = &
    & PROBLEM_CONSTANT_REAC_DIFF_NO_SPLIT_SUBTYPE !Standard constant reaction reaction diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: cmfe_problem_standard_data_fitting_subtype = &
    & PROBLEM_STANDARD_DATA_FITTING_SUBTYPE !<Standard Galerkin projection problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_vector_data_fitting_subtype = &
    & problem_vector_data_fitting_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_div_free_vector_data_fitting_subtype = &
    & PROBLEM_DIV_FREE_VECTOR_DATA_FITTING_SUBTYPE !<Standard Galerkin projection problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_data_point_vector_static_fitting_subtype = &
    & problem_datapointvectorstaticfittingsubtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_data_pt_vector_quasistatic_fitting_subtype = &
    & Problem_DataPointVectorQuasistaticFittingSubtype !<Standard quasistatic Galerkin projection problem using data points subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_vector_data_pre_fitting_subtype = &
    & problem_vector_data_pre_fitting_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_div_free_vector_data_pre_fitting_subtype = &
    & PROBLEM_DIV_FREE_VECTOR_DATA_PRE_FITTING_SUBTYPE !<Standard Galerkin projection problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_generalised_data_fitting_subtype = &
    & problem_generalised_data_fitting_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_mat_properties_data_fitting_subtype = &
    & PROBLEM_MAT_PROPERTIES_DATA_FITTING_SUBTYPE !<Material Properties Galerkin projection problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: cmfe_problem_standard_elasticity_darcy_subtype = problem_standard_elasticity_darcy_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_pgm_elasticity_darcy_subtype = problem_pgm_elasticity_darcy_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_quasistatic_elasticity_transient_darcy_subtype = &
    & PROBLEM_QUASISTATIC_ELASTICITY_TRANSIENT_DARCY_SUBTYPE !<Quasistatic Elasticity Transient Darcy problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_quasistatic_elast_trans_darcy_mat_solve_subtype = &
    & problem_quasistatic_elast_trans_darcy_mat_solve_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_coupled_source_diffusion_diffusion_subtype = &
    & PROBLEM_COUPLED_SOURCE_DIFFUSION_DIFFUSION_SUBTYPE !<Coupled source diffusion-diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_coupled_source_diffusion_advec_diffusion_subtype = &
    & problem_coupled_source_diffusion_advec_diffusion_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_standard_multi_compartment_transport_subtype = &
    & PROBLEM_STANDARD_MULTI_COMPARTMENT_TRANSPORT_SUBTYPE !<Standard multi-compartment transport problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_standard_elasticity_fluid_pressure_subtype = &
    & problem_standard_elasticity_fluid_pressure_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_gudunov_monodomain_simple_elasticity_subtype = &
    & PROBLEM_GUDUNOV_MONODOMAIN_SIMPLE_ELASTICITY_SUBTYPE !<Transient monodomain simple elasticity problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_gudunov_monodomain_1d3d_elasticity_subtype = & 
    & problem_gudunov_monodomain_1d3d_elasticity_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_monodomain_elasticity_w_titin_subtype = & 
    & PROBLEM_MONODOMAIN_ELASTICITY_W_TITIN_SUBTYPE !<Transient monodomain simple elasticity problem subtype with titin \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_monodomain_elasticity_velocity_subtype = & 
    & problem_monodomain_elasticity_velocity_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_monodomain_1d3d_active_strain_subtype = & 
    & PROBLEM_MONODOMAIN_1D3D_ACTIVE_STRAIN_SUBTYPE !<Transient monodomain active strain elasticity problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_problem_finite_elasticity_navier_stokes_ale_subtype = &
    & problem_finite_elasticity_navier_stokes_ale_subtype 

  INTEGER(INTG), PARAMETER :: cmfe_problem_quasistatic_finite_elasticity_subtype = problem_quasistatic_finite_elasticity_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_finite_elasticity_cellml_subtype = problem_finite_elasticity_cellml_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_multiscale_finite_elasticity_subtype = problem_multiscale_finite_elasticity_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_finite_elasticity_with_growth_cellml_subtype =  &
    & PROBLEM_FINITE_ELASTICITY_WITH_GROWTH_CELLML_SUBTYPE !<Quasistatic finite elasticity subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: cmfe_problem_monodomain_gudunov_split_subtype = problem_monodomain_gudunov_split_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_monodomain_strang_split_subtype = problem_monodomain_strang_split_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_bidomain_gudunov_split_subtype = problem_bidomain_gudunov_split_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_bidomain_strang_split_subtype = problem_bidomain_strang_split_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_monodomain_buenoorovio_subtype = problem_monodomain_buenoorovio_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_monodomain_tentusscher06_subtype = problem_monodomain_tentusscher06_subtype 

  INTEGER(INTG), PARAMETER :: cmfe_problem_le_contact_transform_reproject_subtype=problem_le_contact_transform_reproject_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_le_contact_transform_subtype=problem_le_contact_transform_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_le_contact_reproject_subtype=problem_le_contact_reproject_subtype 
    
  INTEGER(INTG), PARAMETER :: cmfe_problem_fe_contact_transform_reproject_subtype=problem_fe_contact_transform_reproject_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_fe_contact_transform_subtype=problem_fe_contact_transform_subtype 
  INTEGER(INTG), PARAMETER :: cmfe_problem_fe_contact_reproject_subtype=problem_fe_contact_reproject_subtype 

  INTEGER(INTG), PARAMETER :: cmfe_problem_control_simple_type = problem_control_simple_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_control_fixed_loop_type = problem_control_fixed_loop_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_control_time_loop_type = problem_control_time_loop_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_control_while_loop_type = problem_control_while_loop_type 
  INTEGER(INTG), PARAMETER :: cmfe_problem_control_load_increment_loop_type = problem_control_load_increment_loop_type 

  !Module types

  !Module variables

  !Interfaces

  PUBLIC cmfe_problem_no_class,cmfe_problem_elasticity_class,cmfe_problem_fluid_mechanics_class, &
    & cmfe_problem_electromagnetics_class, &
    & cmfe_problem_classical_field_class,cmfe_problem_bioelectrics_class,cmfe_problem_modal_class,cmfe_problem_fitting_class, &
    & cmfe_problem_optimisation_class,cmfe_problem_multi_physics_class

  PUBLIC cmfe_problem_no_type

  PUBLIC cmfe_problem_linear_elasticity_type,cmfe_problem_finite_elasticity_type
  
  PUBLIC cmfe_problem_linear_elasticity_contact_type, cmfe_problem_finite_elasticity_contact_type

  PUBLIC cmfe_problem_stokes_equation_type,cmfe_problem_navier_stokes_equation_type,cmfe_problem_darcy_equation_type, &
    & cmfe_problem_poiseuille_equation_type,cmfe_problem_burgers_equation_type

  PUBLIC cmfe_problem_electrostatic_type,cmfe_problem_magnetostatic_type,cmfe_problem_maxwells_equations_type

  PUBLIC cmfe_problem_laplace_equation_type,cmfe_problem_poisson_equation_type,cmfe_problem_helmholtz_equation_type, &
    & cmfe_problem_wave_equation_type,cmfe_problem_diffusion_equation_type,cmfe_problem_advection_diffusion_equation_type, &
    & cmfe_problem_reaction_diffusion_equation_type,cmfe_problem_biharmonic_equation_type

  PUBLIC cmfe_problem_monodomain_equation_type,cmfe_problem_bidomain_equation_type

  PUBLIC cmfe_problem_linear_elastic_modal_type

  PUBLIC cmfe_problem_data_fitting_type

  PUBLIC cmfe_problem_finite_elasticity_darcy_type, &
    & cmfe_problem_finite_elasticity_stokes_type, cmfe_problem_finite_elasticity_navier_stokes_type, &
    & cmfe_problem_diffusion_diffusion_type, cmfe_problem_diffusion_advection_diffusion_type, &
    & cmfe_problem_multi_compartment_transport_type,cmfe_problem_finite_elasticity_fluid_pressure_type, &
    & cmfe_problem_bioelectric_finite_elasticity_type

  PUBLIC cmfe_problem_no_subtype
  
  PUBLIC cmfe_problem_le_contact_transform_reproject_subtype, cmfe_problem_le_contact_transform_subtype, &
    & cmfe_problem_le_contact_reproject_subtype
    
  PUBLIC cmfe_problem_fe_contact_transform_reproject_subtype, cmfe_problem_fe_contact_transform_subtype, &
    & cmfe_problem_fe_contact_reproject_subtype

  PUBLIC cmfe_problem_static_stokes_subtype,cmfe_problem_laplace_stokes_subtype,cmfe_problem_transient_stokes_subtype, &
    & cmfe_problem_optimised_stokes_subtype,cmfe_problem_ale_stokes_subtype,cmfe_problem_pgm_stokes_subtype

  PUBLIC cmfe_problem_static_navier_stokes_subtype,cmfe_problem_laplace_navier_stokes_subtype, &
    & cmfe_problem_transient_navier_stokes_subtype,cmfe_problem_transient_rbs_navier_stokes_subtype, &
    & cmfe_problem_pgm_navier_stokes_subtype,cmfe_problem_optimised_navier_stokes_subtype, &
    & cmfe_problem_transient1d_navier_stokes_subtype,cmfe_problem_coupled1d0d_navier_stokes_subtype, &
    & cmfe_problem_transient1d_adv_navier_stokes_subtype,cmfe_problem_coupled1d0d_adv_navier_stokes_subtype, &
    & cmfe_problem_stree1d0d_adv_subtype,cmfe_problem_stree1d0d_subtype, &
    & cmfe_problem_ale_navier_stokes_subtype,cmfe_problem_multiscale_navier_stokes_subtype

  PUBLIC cmfe_problem_standard_darcy_subtype,cmfe_problem_quasistatic_darcy_subtype,cmfe_problem_ale_darcy_subtype, &
    & cmfe_problem_transient_darcy_subtype,cmfe_problem_pgm_darcy_subtype,cmfe_problem_pgm_transient_darcy_subtype

  PUBLIC cmfe_problem_static_poiseuille_subtype,cmfe_problem_dynamic_poiseuille_subtype

  PUBLIC cmfe_problem_static_burgers_subtype,cmfe_problem_dynamic_burgers_subtype

  PUBLIC cmfe_problem_standard_laplace_subtype,cmfe_problem_generalised_laplace_subtype, &
    & cmfe_problem_monodomain_strang_splitting_equation_type

  PUBLIC cmfe_problem_linear_source_poisson_subtype,cmfe_problem_nonlinear_source_poisson_subtype, &
    & cmfe_problem_linear_pressure_poisson_subtype,cmfe_problem_nonlinear_pressure_poisson_subtype, &
    & cmfe_problem_ale_pressure_poisson_subtype, cmfe_problem_fitted_pressure_poisson_subtype, &
    & cmfe_problem_extracellular_bidomain_poisson_subtype

  PUBLIC cmfe_problem_standard_helmholtz_subtype,cmfe_problem_generalised_helmholtz_subtype

  PUBLIC cmfe_problem_no_source_diffusion_subtype,cmfe_problem_linear_source_diffusion_subtype, &
    & cmfe_problem_nonlinear_source_diffusion_subtype

  PUBLIC cmfe_problem_no_source_ale_diffusion_subtype,cmfe_problem_linear_source_ale_diffusion_subtype, &
    & cmfe_problem_nonlinear_source_ale_diffusion_subtype

  PUBLIC cmfe_problem_no_source_advection_diffusion_subtype,cmfe_problem_linear_source_advection_diffusion_subtype, &
    & cmfe_problem_nonlinear_source_advection_diffusion_subtype

  PUBLIC cmfe_problem_no_source_ale_advection_diffusion_subtype,cmfe_problem_linear_source_ale_advection_diffusion_subtype, &
    & cmfe_problem_nonlinear_source_ale_advection_diffusion_subtype

  PUBLIC cmfe_problem_no_source_static_advec_diff_subtype,cmfe_problem_linear_source_static_advec_diff_subtype, &
    & cmfe_problem_nonlinear_source_static_advec_diff_subtype

  PUBLIC cmfe_problem_cellml_reac_integ_reac_diff_strang_split_subtype, &
    & cmfe_problem_cellml_reac_eval_reac_diff_no_split_subtype, &
    & cmfe_problem_constant_reac_diff_no_split_subtype


  PUBLIC cmfe_problem_standard_data_fitting_subtype,cmfe_problem_generalised_data_fitting_subtype, &
    & cmfe_problem_vector_data_fitting_subtype,cmfe_problem_div_free_vector_data_fitting_subtype, &
    & cmfe_problem_vector_data_pre_fitting_subtype,cmfe_problem_div_free_vector_data_pre_fitting_subtype, &
    & cmfe_problem_mat_properties_data_fitting_subtype,cmfe_problem_data_point_vector_static_fitting_subtype, &
    & cmfe_problem_data_pt_vector_quasistatic_fitting_subtype

  PUBLIC cmfe_problem_monodomain_gudunov_split_subtype,cmfe_problem_monodomain_strang_split_subtype, &
    & cmfe_problem_bidomain_gudunov_split_subtype,cmfe_problem_bidomain_strang_split_subtype

  PUBLIC cmfe_problem_monodomain_buenoorovio_subtype, cmfe_problem_monodomain_tentusscher06_subtype

  PUBLIC cmfe_problem_control_simple_type,cmfe_problem_control_fixed_loop_type,cmfe_problem_control_time_loop_type, &
    & cmfe_problem_control_while_loop_type,cmfe_problem_control_load_increment_loop_type

  PUBLIC cmfe_problem_standard_elasticity_darcy_subtype, cmfe_problem_pgm_elasticity_darcy_subtype, &
   & cmfe_problem_quasistatic_elasticity_transient_darcy_subtype,cmfe_problem_quasistatic_elast_trans_darcy_mat_solve_subtype, &
   & cmfe_problem_coupled_source_diffusion_diffusion_subtype, cmfe_problem_coupled_source_diffusion_advec_diffusion_subtype, &
   & cmfe_problem_standard_multi_compartment_transport_subtype,cmfe_problem_standard_elasticity_fluid_pressure_subtype, &
   & cmfe_problem_gudunov_monodomain_simple_elasticity_subtype,cmfe_problem_gudunov_monodomain_1d3d_elasticity_subtype, &
   & cmfe_problem_monodomain_elasticity_w_titin_subtype,cmfe_problem_monodomain_elasticity_velocity_subtype, &
   & cmfe_problem_monodomain_1d3d_active_strain_subtype, &
   & cmfe_problem_finite_elasticity_navier_stokes_ale_subtype

  PUBLIC cmfe_problem_quasistatic_finite_elasticity_subtype,cmfe_problem_finite_elasticity_cellml_subtype, &
    & cmfe_problem_finite_elasticity_with_growth_cellml_subtype,cmfe_problem_multiscale_finite_elasticity_subtype
  
!!==================================================================================================================================
!!
!! PROBLEM_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_problem_cellmlequationscreatefinish
    MODULE PROCEDURE cmfe_problem_cellmlequationscreatefinishnumber
    MODULE PROCEDURE cmfe_problem_cellmlequationscreatefinishobj
  END INTERFACE cmfe_problem_cellmlequationscreatefinish

  INTERFACE cmfe_problem_cellmlequationscreatestart
    MODULE PROCEDURE cmfe_problem_cellmlequationscreatestartnumber
    MODULE PROCEDURE cmfe_problem_cellmlequationscreatestartobj
  END INTERFACE cmfe_problem_cellmlequationscreatestart

  INTERFACE cmfe_problem_cellmlequationsget
    MODULE PROCEDURE cmfe_problem_cellmlequationsgetnumber0
    MODULE PROCEDURE cmfe_problem_cellmlequationsgetnumber1
    MODULE PROCEDURE cmfe_problem_cellmlequationsgetobj0
    MODULE PROCEDURE cmfe_problem_cellmlequationsgetobj1
  END INTERFACE cmfe_problem_cellmlequationsget

  INTERFACE cmfe_problem_createfinish
    MODULE PROCEDURE cmfe_problem_createfinishnumber
    MODULE PROCEDURE cmfe_problem_createfinishobj
  END INTERFACE cmfe_problem_createfinish

  INTERFACE cmfe_problem_createstart
    MODULE PROCEDURE cmfe_problem_createstartnumber
    MODULE PROCEDURE cmfe_problem_createstartobj
  END INTERFACE cmfe_problem_createstart

  INTERFACE cmfe_problem_controlloopcreatefinish
    MODULE PROCEDURE cmfe_problem_controlloopcreatefinishnumber
    MODULE PROCEDURE cmfe_problem_controlloopcreatefinishobj
  END INTERFACE cmfe_problem_controlloopcreatefinish

  INTERFACE cmfe_problem_controlloopcreatestart
    MODULE PROCEDURE cmfe_problem_controlloopcreatestartnumber
    MODULE PROCEDURE cmfe_problem_controlloopcreatestartobj
  END INTERFACE cmfe_problem_controlloopcreatestart

  INTERFACE cmfe_problem_controlloopdestroy
    MODULE PROCEDURE cmfe_problem_controlloopdestroynumber
    MODULE PROCEDURE cmfe_problem_controlloopdestroyobj
  END INTERFACE cmfe_problem_controlloopdestroy

  INTERFACE cmfe_problem_controlloopget
    MODULE PROCEDURE cmfe_problem_controlloopgetnumber0
    MODULE PROCEDURE cmfe_problem_controlloopgetnumber1
    MODULE PROCEDURE cmfe_problem_controlloopgetobj0
    MODULE PROCEDURE cmfe_problem_controlloopgetobj1
  END INTERFACE cmfe_problem_controlloopget

  INTERFACE cmfe_problem_destroy
    MODULE PROCEDURE cmfe_problem_destroynumber
    MODULE PROCEDURE cmfe_problem_destroyobj
  END INTERFACE cmfe_problem_destroy

  INTERFACE cmfe_problem_solve
    MODULE PROCEDURE cmfe_problem_solvenumber
    MODULE PROCEDURE cmfe_problem_solveobj
  END INTERFACE cmfe_problem_solve

  INTERFACE cmfe_problem_solverget
    MODULE PROCEDURE cmfe_problem_solvergetnumber0
    MODULE PROCEDURE cmfe_problem_solvergetnumber1
    MODULE PROCEDURE cmfe_problem_solvergetobj0
    MODULE PROCEDURE cmfe_problem_solvergetobj1
  END INTERFACE cmfe_problem_solverget

  INTERFACE cmfe_solverequations_boundaryconditionsanalytic
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionsanalyticnumber0
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionsanalyticnumber1
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionsanalyticobj
  END INTERFACE cmfe_solverequations_boundaryconditionsanalytic

  INTERFACE cmfe_problem_solverequationscreatefinish
    MODULE PROCEDURE cmfe_problem_solverequationscreatefinishnumber
    MODULE PROCEDURE cmfe_problem_solverequationscreatefinishobj
  END INTERFACE cmfe_problem_solverequationscreatefinish

  INTERFACE cmfe_problem_solverequationscreatestart
    MODULE PROCEDURE cmfe_problem_solverequationscreatestartnumber
    MODULE PROCEDURE cmfe_problem_solverequationscreatestartobj
  END INTERFACE cmfe_problem_solverequationscreatestart

  INTERFACE cmfe_problem_solverequationsdestroy
    MODULE PROCEDURE cmfe_problem_solverequationsdestroynumber
    MODULE PROCEDURE cmfe_problem_solverequationsdestroyobj
  END INTERFACE cmfe_problem_solverequationsdestroy

  INTERFACE cmfe_problem_solverequationsget
    MODULE PROCEDURE cmfe_problem_solverequationsgetnumber0
    MODULE PROCEDURE cmfe_problem_solverequationsgetnumber1
    MODULE PROCEDURE cmfe_problem_solverequationsgetobj0
    MODULE PROCEDURE cmfe_problem_solverequationsgetobj1
  END INTERFACE cmfe_problem_solverequationsget

  INTERFACE cmfe_problem_solverscreatefinish
    MODULE PROCEDURE cmfe_problem_solverscreatefinishnumber
    MODULE PROCEDURE cmfe_problem_solverscreatefinishobj
  END INTERFACE cmfe_problem_solverscreatefinish

  INTERFACE cmfe_problem_solverscreatestart
    MODULE PROCEDURE cmfe_problem_solverscreatestartnumber
    MODULE PROCEDURE cmfe_problem_solverscreatestartobj
  END INTERFACE cmfe_problem_solverscreatestart

  INTERFACE cmfe_problem_solversdestroy
    MODULE PROCEDURE cmfe_problem_solversdestroynumber
    MODULE PROCEDURE cmfe_problem_solversdestroyobj
  END INTERFACE cmfe_problem_solversdestroy

  INTERFACE cmfe_problem_specificationget
    MODULE PROCEDURE cmfe_problem_specificationgetnumber
    MODULE PROCEDURE cmfe_problem_specificationgetobj
  END INTERFACE cmfe_problem_specificationget

  INTERFACE cmfe_problem_specificationsizeget
    MODULE PROCEDURE cmfe_problem_specificationsizegetnumber
    MODULE PROCEDURE cmfe_problem_specificationsizegetobj
  END INTERFACE cmfe_problem_specificationsizeget 

  PUBLIC cmfe_problem_cellmlequationscreatefinish,cmfe_problem_cellmlequationscreatestart

  PUBLIC cmfe_problem_cellmlequationsget

  PUBLIC cmfe_problem_createfinish,cmfe_problem_createstart

  PUBLIC cmfe_problem_controlloopcreatefinish,cmfe_problem_controlloopcreatestart

  PUBLIC cmfe_problem_controlloopdestroy

  PUBLIC cmfe_problem_controlloopget

  PUBLIC cmfe_problem_destroy

  PUBLIC cmfe_problem_solve

  PUBLIC cmfe_problem_solverget

  PUBLIC cmfe_solverequations_boundaryconditionsanalytic

  PUBLIC cmfe_problem_solverequationscreatefinish,cmfe_problem_solverequationscreatestart

  PUBLIC cmfe_problem_solverequationsdestroy

  PUBLIC cmfe_problem_solverequationsget

  PUBLIC cmfe_problem_solverscreatefinish,cmfe_problem_solverscreatestart

  PUBLIC cmfe_problem_solversdestroy

  PUBLIC cmfe_problem_specificationget,cmfe_problem_specificationsizeget

!!==================================================================================================================================
!!
!! REGION_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_region_coordinatesystemget
    MODULE PROCEDURE cmfe_region_coordinatesystemgetnumber
    MODULE PROCEDURE cmfe_region_coordinatesystemgetobj
  END INTERFACE cmfe_region_coordinatesystemget

  INTERFACE cmfe_region_coordinatesystemset
    MODULE PROCEDURE cmfe_region_coordinatesystemsetnumber
    MODULE PROCEDURE cmfe_region_coordinatesystemsetobj
  END INTERFACE cmfe_region_coordinatesystemset

  INTERFACE cmfe_region_createfinish
    MODULE PROCEDURE cmfe_region_createfinishnumber
    MODULE PROCEDURE cmfe_region_createfinishobj
  END INTERFACE cmfe_region_createfinish

  INTERFACE cmfe_region_createstart
    MODULE PROCEDURE cmfe_region_createstartnumber
    MODULE PROCEDURE cmfe_region_createstartobj
  END INTERFACE cmfe_region_createstart

  INTERFACE cmfe_region_datapointsget
    MODULE PROCEDURE cmfe_region_datapointsgetobj
  END INTERFACE cmfe_region_datapointsget

  INTERFACE cmfe_region_destroy
    MODULE PROCEDURE cmfe_region_destroynumber
    MODULE PROCEDURE cmfe_region_destroyobj
  END INTERFACE cmfe_region_destroy

  INTERFACE cmfe_region_labelget
    MODULE PROCEDURE cmfe_region_labelgetcnumber
    MODULE PROCEDURE cmfe_region_labelgetcobj
    MODULE PROCEDURE cmfe_region_labelgetvsnumber
    MODULE PROCEDURE cmfe_region_labelgetvsobj
  END INTERFACE cmfe_region_labelget

  INTERFACE cmfe_region_labelset
    MODULE PROCEDURE cmfe_region_labelsetcnumber
    MODULE PROCEDURE cmfe_region_labelsetcobj
    MODULE PROCEDURE cmfe_region_labelsetvsnumber
    MODULE PROCEDURE cmfe_region_labelsetvsobj
  END INTERFACE cmfe_region_labelset

  INTERFACE cmfe_region_nodesget
    MODULE PROCEDURE cmfe_region_nodesgetobj
  END INTERFACE cmfe_region_nodesget

  PUBLIC cmfe_region_coordinatesystemget,cmfe_region_coordinatesystemset

  PUBLIC cmfe_region_createfinish,cmfe_region_createstart

  PUBLIC cmfe_region_datapointsget

  PUBLIC cmfe_region_destroy

  PUBLIC cmfe_region_labelget,cmfe_region_labelset

  PUBLIC cmfe_region_nodesget

!!==================================================================================================================================
!!
!! SOLVER_ROUTINES
!!
!!==================================================================================================================================

  !Module parameters

  INTEGER(INTG), PARAMETER :: cmfe_solver_linear_type = solver_linear_type 
  INTEGER(INTG), PARAMETER :: cmfe_solver_nonlinear_type = solver_nonlinear_type 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_type = solver_dynamic_type 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_type = solver_dae_type 
  INTEGER(INTG), PARAMETER :: cmfe_solver_eigenproblem_type = solver_eigenproblem_type 
  INTEGER(INTG), PARAMETER :: cmfe_solver_optimiser_type = solver_optimiser_type 
  INTEGER(INTG), PARAMETER :: cmfe_solvercellmlevaluatortype = solver_cellml_evaluator_type 
  INTEGER(INTG), PARAMETER :: cmfe_solver_cmiss_library = solver_cmiss_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_petsc_library = solver_petsc_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_mumps_library = solver_mumps_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_superlu_library = solver_superlu_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_spooles_library = solver_spooles_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_umfpack_library = solver_umfpack_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_lusol_library = solver_lusol_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_essl_library = solver_essl_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_lapack_library = solver_lapack_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_tao_library = solver_tao_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_hypre_library = solver_hypre_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_pastix_library = solver_pastix_library 
  INTEGER(INTG), PARAMETER :: cmfe_solver_linear_direct_solve_type = solver_linear_direct_solve_type 
  INTEGER(INTG), PARAMETER :: cmfe_solver_linear_iterative_solve_type = solver_linear_iterative_solve_type 
  INTEGER(INTG), PARAMETER :: cmfe_solver_direct_lu = solver_direct_lu 
  INTEGER(INTG), PARAMETER :: cmfe_solver_direct_cholesky = solver_direct_cholesky 
  INTEGER(INTG), PARAMETER :: cmfe_solver_direct_svd = solver_direct_svd 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_richardson = solver_iterative_richardson 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_chebyshev = solver_iterative_chebyshev 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_conjugate_gradient = solver_iterative_conjugate_gradient 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_biconjugate_gradient = solver_iterative_biconjugate_gradient 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_gmres = solver_iterative_gmres 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_bicgstab = solver_iterative_bicgstab 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_conjgrad_squared = solver_iterative_conjgrad_squared 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_no_preconditioner = solver_iterative_no_preconditioner 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_jacobi_preconditioner = solver_iterative_jacobi_preconditioner 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_block_jacobi_preconditioner = solver_iterative_block_jacobi_preconditioner 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_sor_preconditioner = solver_iterative_sor_preconditioner 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_incomplete_cholesky_preconditioner = &
    & SOLVER_ITERATIVE_INCOMPLETE_CHOLESKY_PRECONDITIONER !<Incomplete Cholesky preconditioner type. \see OPENCMISS_IterativePreconditionerTypes,OPENCMISS
  integer(intg), PARAMETER :: cmfe_solver_iterative_incomplete_lu_preconditioner = solver_iterative_incomplete_lu_preconditioner 
  INTEGER(INTG), PARAMETER :: cmfe_solver_iterative_additive_schwarz_preconditioner =  &
    & SOLVER_ITERATIVE_ADDITIVE_SCHWARZ_PRECONDITIONER !<Additive Schwrz preconditioner type. \see OPENCMISS_IterativePreconditionerTypes,OPENCMISS

  INTEGER(INTG), PARAMETER :: cmfe_solver_nonlinear_newton = solver_nonlinear_newton 
  INTEGER(INTG), PARAMETER :: cmfe_solver_nonlinear_bfgs_inverse = solver_nonlinear_bfgs_inverse 
  INTEGER(INTG), PARAMETER :: cmfe_solver_nonlinear_sqp = solver_nonlinear_sqp 
  INTEGER(INTG), PARAMETER :: cmfe_solver_nonlinear_quasi_newton = solver_nonlinear_quasi_newton 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_linesearch=solver_quasi_newton_linesearch 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_trustregion=solver_quasi_newton_trustregion 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_lbfgs=solver_quasi_newton_lbfgs 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_goodbroyden=solver_quasi_newton_goodbroyden 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_badbroyden=solver_quasi_newton_badbroyden 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_linesearch_basic=solver_quasi_newton_linesearch_basic 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_linesearch_l2=solver_quasi_newton_linesearch_l2 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_linesearch_cp=solver_quasi_newton_linesearch_cp 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_restart_none=solver_quasi_newton_restart_none 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_restart_powell=solver_quasi_newton_restart_powell 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_restart_periodic=solver_quasi_newton_restart_periodic 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_scale_none=solver_quasi_newton_scale_none 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_scale_shanno=solver_quasi_newton_scale_shanno 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_scale_linesearch=solver_quasi_newton_scale_linesearch 
  INTEGER(INTG), PARAMETER :: cmfe_solver_quasi_newton_scale_jacobian=solver_quasi_newton_scale_jacobian 
  INTEGER(INTG), PARAMETER :: cmfe_solver_newton_linesearch = solver_newton_linesearch 
  INTEGER(INTG), PARAMETER :: cmfe_solver_newton_trustregion = solver_newton_trustregion 
  INTEGER(INTG), PARAMETER :: cmfe_solver_newton_linesearch_linear = solver_newton_linesearch_linear 
  INTEGER(INTG), PARAMETER :: cmfe_solver_newton_linesearch_quadratic = solver_newton_linesearch_quadratic 
  INTEGER(INTG), PARAMETER :: cmfe_solver_newton_linesearch_cubic = solver_newton_linesearch_cubic 
  INTEGER(INTG), PARAMETER :: cmfe_solver_newton_jacobian_not_calculated = solver_newton_jacobian_not_calculated 
  INTEGER(INTG), PARAMETER :: cmfe_solver_newton_jacobian_equations_calculated = solver_newton_jacobian_equations_calculated 
  INTEGER(INTG), PARAMETER :: cmfe_solver_newton_jacobian_fd_calculated = solver_newton_jacobian_fd_calculated 
  INTEGER(INTG), PARAMETER :: cmfe_solver_newton_convergence_petsc_default = solver_newton_convergence_petsc_default 
  INTEGER(INTG), PARAMETER :: cmfe_solver_newton_convergence_energy_norm = solver_newton_convergence_energy_norm 
  INTEGER(INTG), PARAMETER :: cmfe_solver_newton_convergence_differentiated_ratio = solver_newton_convergence_differentiated_ratio 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_first_order = solver_dynamic_first_order 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_second_order = solver_dynamic_second_order 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_linear = solver_dynamic_linear 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_nonlinear = solver_dynamic_nonlinear 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_first_degree = solver_dynamic_first_degree 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_second_degree = solver_dynamic_second_degree 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_third_degree = solver_dynamic_third_degree 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_euler_scheme = solver_dynamic_euler_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_backward_euler_scheme = solver_dynamic_backward_euler_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_crank_nicolson_scheme = solver_dynamic_crank_nicolson_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_galerkin_scheme = solver_dynamic_galerkin_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_zlamal_scheme = solver_dynamic_zlamal_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_second_degree_gear_scheme = solver_dynamic_second_degree_gear_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_second_degree_liniger1_scheme = solver_dynamic_second_degree_liniger1_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_second_degree_liniger2_scheme = solver_dynamic_second_degree_liniger2_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_newmark1_scheme = solver_dynamic_newmark1_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_newmark2_scheme = solver_dynamic_newmark2_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_newmark3_scheme = solver_dynamic_newmark3_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_third_degree_gear_scheme = solver_dynamic_third_degree_gear_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_third_degree_liniger1_scheme = solver_dynamic_third_degree_liniger1_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_third_degree_liniger2_scheme = solver_dynamic_third_degree_liniger2_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_houbolt_scheme = solver_dynamic_houbolt_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_wilson_scheme = solver_dynamic_wilson_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_bossak_newmark1_scheme = solver_dynamic_bossak_newmark1_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_bossak_newmark2_scheme = solver_dynamic_bossak_newmark2_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_hilbert_hughes_taylor1_scheme = solver_dynamic_hilbert_hughes_taylor1_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_hilbert_hughes_taylor2_scheme = solver_dynamic_hilbert_hughes_taylor2_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dynamic_user_defined_scheme = solver_dynamic_user_defined_scheme 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_differential_only = solver_dae_differential_only 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_index_1 = solver_dae_index_1 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_index_2 = solver_dae_index_2 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_index_3 = solver_dae_index_3 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_euler = solver_dae_euler 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_crank_nicolson = solver_dae_crank_nicolson 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_runge_kutta = solver_dae_runge_kutta 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_adams_moulton = solver_dae_adams_moulton 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_bdf = solver_dae_bdf 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_rush_larson = solver_dae_rush_larson 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_external = solver_dae_external 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_euler_forward = solver_dae_euler_forward 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_euler_backward = solver_dae_euler_backward 
  INTEGER(INTG), PARAMETER :: cmfe_solver_dae_euler_improved = solver_dae_euler_improved 
  INTEGER(INTG), PARAMETER :: cmfe_solver_solution_initialise_zero = solver_solution_initialise_zero 
  INTEGER(INTG), PARAMETER :: cmfe_solver_solution_initialise_current_field = solver_solution_initialise_current_field 
  INTEGER(INTG), PARAMETER :: cmfe_solver_solution_initialise_no_change = solver_solution_initialise_no_change 
  INTEGER(INTG), PARAMETER :: cmfe_solver_no_output = solver_no_output 
  INTEGER(INTG), PARAMETER :: cmfe_solver_progress_output = solver_progress_output 
  INTEGER(INTG), PARAMETER :: cmfe_solver_timing_output = solver_timing_output 
  INTEGER(INTG), PARAMETER :: cmfe_solver_solver_output = solver_solver_output 
  INTEGER(INTG), PARAMETER :: cmfe_solver_matrix_output = solver_matrix_output 
  INTEGER(INTG), PARAMETER :: cmfe_solver_sparse_matrices = solver_sparse_matrices 
  INTEGER(INTG), PARAMETER :: cmfe_solver_full_matrices = solver_full_matrices 

  !Module types

  !Module variables

  !Interfaces

  INTERFACE cmfe_solver_cellmlequationsget
    MODULE PROCEDURE cmfe_solver_cellmlequationsgetnumber0
    MODULE PROCEDURE cmfe_solver_cellmlequationsgetnumber1
    MODULE PROCEDURE cmfe_solver_cellmlequationsgetobj
  END INTERFACE cmfe_solver_cellmlequationsget

  INTERFACE cmfe_cellmlequations_cellmladd
    MODULE PROCEDURE cmfe_cellmlequations_cellmladdnumber0
    MODULE PROCEDURE cmfe_cellmlequations_cellmladdnumber1
    MODULE PROCEDURE cmfe_cellmlequations_cellmladdobj
  END INTERFACE cmfe_cellmlequations_cellmladd

  INTERFACE cmfe_solver_daeeulersolvertypeget
    MODULE PROCEDURE cmfe_solver_daeeulersolvertypegetnumber0
    MODULE PROCEDURE cmfe_solver_daeeulersolvertypegetnumber1
    MODULE PROCEDURE cmfe_solver_daeeulersolvertypegetobj
  END INTERFACE cmfe_solver_daeeulersolvertypeget

  INTERFACE cmfe_solver_daeeulersolvertypeset
    MODULE PROCEDURE cmfe_solver_daeeulersolvertypesetnumber0
    MODULE PROCEDURE cmfe_solver_daeeulersolvertypesetnumber1
    MODULE PROCEDURE cmfe_solver_daeeulersolvertypesetobj
  END INTERFACE cmfe_solver_daeeulersolvertypeset

  INTERFACE cmfe_solver_daesolvertypeget
    MODULE PROCEDURE cmfe_solver_daesolvertypegetnumber0
    MODULE PROCEDURE cmfe_solver_daesolvertypegetnumber1
    MODULE PROCEDURE cmfe_solver_daesolvertypegetobj
  END INTERFACE cmfe_solver_daesolvertypeget

  INTERFACE cmfe_solver_daesolvertypeset
    MODULE PROCEDURE cmfe_solver_daesolvertypesetnumber0
    MODULE PROCEDURE cmfe_solver_daesolvertypesetnumber1
    MODULE PROCEDURE cmfe_solver_daesolvertypesetobj
  END INTERFACE cmfe_solver_daesolvertypeset

  INTERFACE cmfe_solver_daetimesset
    MODULE PROCEDURE cmfe_solver_daetimessetnumber0
    MODULE PROCEDURE cmfe_solver_daetimessetnumber1
    MODULE PROCEDURE cmfe_solver_daetimessetobj
  END INTERFACE cmfe_solver_daetimesset

  INTERFACE cmfe_solver_daetimestepset
    MODULE PROCEDURE cmfe_solver_daetimestepsetnumber0
    MODULE PROCEDURE cmfe_solver_daetimestepsetnumber1
    MODULE PROCEDURE cmfe_solver_daetimestepsetobj
  END INTERFACE cmfe_solver_daetimestepset

  INTERFACE cmfe_solver_dynamicdegreeget
    MODULE PROCEDURE cmfe_solver_dynamicdegreegetnumber0
    MODULE PROCEDURE cmfe_solver_dynamicdegreegetnumber1
    MODULE PROCEDURE cmfe_solver_dynamicdegreegetobj
  END INTERFACE cmfe_solver_dynamicdegreeget

  INTERFACE cmfe_solver_dynamicdegreeset
    MODULE PROCEDURE cmfe_solver_dynamicdegreesetnumber0
    MODULE PROCEDURE cmfe_solver_dynamicdegreesetnumber1
    MODULE PROCEDURE cmfe_solver_dynamicdegreesetobj
  END INTERFACE cmfe_solver_dynamicdegreeset

  INTERFACE cmfe_solver_dynamiclinearitytypeget
    MODULE PROCEDURE cmfe_solver_dynamiclinearitytypegetnumber0
    MODULE PROCEDURE cmfe_solver_dynamiclinearitytypegetnumber1
    MODULE PROCEDURE cmfe_solver_dynamiclinearitytypegetobj
  END INTERFACE cmfe_solver_dynamiclinearitytypeget

  INTERFACE cmfe_solver_dynamiclinearsolverget
    MODULE PROCEDURE cmfe_solver_dynamiclinearsolvergetnumber0
    MODULE PROCEDURE cmfe_solver_dynamiclinearsolvergetnumber1
    MODULE PROCEDURE cmfe_solver_dynamiclinearsolvergetobj
  END INTERFACE cmfe_solver_dynamiclinearsolverget

  INTERFACE cmfe_solver_dynamicnonlinearsolverget
    MODULE PROCEDURE cmfe_solver_dynamicnonlinearsolvergetnumber0
    MODULE PROCEDURE cmfe_solver_dynamicnonlinearsolvergetnumber1
    MODULE PROCEDURE cmfe_solver_dynamicnonlinearsolvergetobj
  END INTERFACE cmfe_solver_dynamicnonlinearsolverget

  INTERFACE cmfe_solver_dynamicschemeset
    MODULE PROCEDURE cmfe_solver_dynamicschemesetnumber0
    MODULE PROCEDURE cmfe_solver_dynamicschemesetnumber1
    MODULE PROCEDURE cmfe_solver_dynamicschemesetobj
  END INTERFACE cmfe_solver_dynamicschemeset

  INTERFACE cmfe_solver_dynamicthetaset
    MODULE PROCEDURE cmfe_solver_dynamicthetasetnumber00
    MODULE PROCEDURE cmfe_solver_dynamicthetasetnumber01
    MODULE PROCEDURE cmfe_solver_dynamicthetasetnumber10
    MODULE PROCEDURE cmfe_solver_dynamicthetasetnumber11
    MODULE PROCEDURE cmfe_solver_dynamicthetasetobj0
    MODULE PROCEDURE cmfe_solver_dynamicthetasetobj1
  END INTERFACE cmfe_solver_dynamicthetaset

  INTERFACE cmfe_solver_dynamictimesset
    MODULE PROCEDURE cmfe_solver_dynamictimessetnumber0
    MODULE PROCEDURE cmfe_solver_dynamictimessetnumber1
    MODULE PROCEDURE cmfe_solver_dynamictimessetobj
  END INTERFACE cmfe_solver_dynamictimesset
  
  !Sets the arbitrary path logical for the transformation
  INTERFACE cmfe_solver_geometrictransformationarbitrarypathset
    MODULE PROCEDURE cmfe_solver_geometrictransformationarbitrarypathsetnumber
    MODULE PROCEDURE cmfe_solver_geometrictransformationarbitrarypathsetobj
  END INTERFACE cmfe_solver_geometrictransformationarbitrarypathset
  
  !Clear transformation for a geometric transformation solver
  INTERFACE cmfe_solver_geometrictransformationclear
    MODULE PROCEDURE cmfe_solver_geometrictransformationclearnumber
    MODULE PROCEDURE cmfe_solver_geometrictransformationclearobj
  END INTERFACE cmfe_solver_geometrictransformationclear
  
  !Sets the field to transform
  INTERFACE cmfe_solver_geometrictransformationfieldset
    MODULE PROCEDURE cmfe_solver_geometrictransformationfieldsetnumber
    MODULE PROCEDURE cmfe_solver_geometrictransformationfieldsetobj
  END INTERFACE cmfe_solver_geometrictransformationfieldset
  
  !Sets the full transformation matrix for a geometric transformation
  INTERFACE cmfe_solver_geometrictransformationmatrixset
    MODULE PROCEDURE cmfe_solver_geometrictransformationmatrixsetnumber0
    MODULE PROCEDURE cmfe_solver_geometrictransformationmatrixsetobj0
    MODULE PROCEDURE cmfe_solver_geometrictransformationmatrixsetnumber1
    MODULE PROCEDURE cmfe_solver_geometrictransformationmatrixsetobj1
  END INTERFACE cmfe_solver_geometrictransformationmatrixset
  
  !Sets number of load increments for the transformation
  INTERFACE cmfe_solver_geometrictransformationnumberofloadincrementsset
    MODULE PROCEDURE cmfe_solver_geometrictransformationnoloadincrementssetnumber
    MODULE PROCEDURE cmfe_solver_geometrictransformationnoloadincrementssetobj
  END INTERFACE cmfe_solver_geometrictransformationnumberofloadincrementsset
  
  !Sets the rotation for a geometric transformation
  INTERFACE cmfe_solver_geometrictransformationrotationset
    MODULE PROCEDURE cmfe_solver_geometrictransformationrotationsetnumber0
    MODULE PROCEDURE cmfe_solver_geometrictransformationrotationsetobj0
    MODULE PROCEDURE cmfe_solver_geometrictransformationrotationsetnumber1
    MODULE PROCEDURE cmfe_solver_geometrictransformationrotationsetobj1
  END INTERFACE cmfe_solver_geometrictransformationrotationset
  
  !Sets the scalings for a uni-directional geometric transformation
  INTERFACE cmfe_solver_geometrictransformationscalingsset
    MODULE PROCEDURE cmfe_solver_geometrictransformationscalingssetnumber
    MODULE PROCEDURE cmfe_solver_geometrictransformationscalingssetobj
  END INTERFACE cmfe_solver_geometrictransformationscalingsset
  
  !Sets the translation for a geometric transformation
  INTERFACE cmfe_solver_geometrictransformationtranslationset
    MODULE PROCEDURE cmfe_solver_geometrictransformationtranslationsetnumber0
    MODULE PROCEDURE cmfe_solver_geometrictransformationtranslationsetobj0
    MODULE PROCEDURE cmfe_solver_geometrictransformationtranslationsetnumber1
    MODULE PROCEDURE cmfe_solver_geometrictransformationtranslationsetobj1
  END INTERFACE cmfe_solver_geometrictransformationtranslationset

  INTERFACE cmfe_solver_labelget
    MODULE PROCEDURE cmfe_solver_labelgetcnumber0
    MODULE PROCEDURE cmfe_solver_labelgetcnumber1
    MODULE PROCEDURE cmfe_solver_labelgetcobj
    MODULE PROCEDURE cmfe_solver_labelgetvsnumber0
    MODULE PROCEDURE cmfe_solver_labelgetvsnumber1
    MODULE PROCEDURE cmfe_solver_labelgetvsobj
  END INTERFACE cmfe_solver_labelget

  INTERFACE cmfe_solver_labelset
    MODULE PROCEDURE cmfe_solver_labelsetcnumber0
    MODULE PROCEDURE cmfe_solver_labelsetcnumber1
    MODULE PROCEDURE cmfe_solver_labelsetcobj
    MODULE PROCEDURE cmfe_solver_labelsetvsnumber0
    MODULE PROCEDURE cmfe_solver_labelsetvsnumber1
    MODULE PROCEDURE cmfe_solver_labelsetvsobj
  END INTERFACE cmfe_solver_labelset

  INTERFACE cmfe_solver_librarytypeget
    MODULE PROCEDURE cmfe_solver_librarytypegetnumber0
    MODULE PROCEDURE cmfe_solver_librarytypegetnumber1
    MODULE PROCEDURE cmfe_solver_librarytypegetobj
  END INTERFACE cmfe_solver_librarytypeget

  INTERFACE cmfe_solver_librarytypeset
    MODULE PROCEDURE cmfe_solver_librarytypesetnumber0
    MODULE PROCEDURE cmfe_solver_librarytypesetnumber1
    MODULE PROCEDURE cmfe_solver_librarytypesetobj
  END INTERFACE cmfe_solver_librarytypeset

  INTERFACE cmfe_solver_lineardirecttypeset
    MODULE PROCEDURE cmfe_solver_lineardirecttypesetnumber0
    MODULE PROCEDURE cmfe_solver_lineardirecttypesetnumber1
    MODULE PROCEDURE cmfe_solver_lineardirecttypesetobj
  END INTERFACE cmfe_solver_lineardirecttypeset

  INTERFACE cmfe_solver_lineariterativeabsolutetoleranceset
    MODULE PROCEDURE cmfe_solver_lineariterativeabsolutetolerancesetnumber0
    MODULE PROCEDURE cmfe_solver_lineariterativeabsolutetolerancesetnumber1
    MODULE PROCEDURE cmfe_solver_lineariterativeabsolutetolerancesetobj
  END INTERFACE cmfe_solver_lineariterativeabsolutetoleranceset

  INTERFACE cmfe_solver_lineariterativedivergencetoleranceset
    MODULE PROCEDURE cmfe_solver_lineariterativedivergencetolerancesetnumber0
    MODULE PROCEDURE cmfe_solver_lineariterativedivergencetolerancesetnumber1
    MODULE PROCEDURE cmfe_solver_lineariterativedivergencetolerancesetobj
  END INTERFACE cmfe_solver_lineariterativedivergencetoleranceset

  INTERFACE cmfe_solver_lineariterativegmresrestartset
    MODULE PROCEDURE cmfe_solver_lineariterativegmresrestartsetnumber0
    MODULE PROCEDURE cmfe_solver_lineariterativegmresrestartsetnumber1
    MODULE PROCEDURE cmfe_solver_lineariterativegmresrestartsetobj
  END INTERFACE cmfe_solver_lineariterativegmresrestartset

  INTERFACE cmfe_solver_lineariterativemaximumiterationsset
    MODULE PROCEDURE cmfe_solver_lineariterativemaximumiterationssetnumber0
    MODULE PROCEDURE cmfe_solver_lineariterativemaximumiterationssetnumber1
    MODULE PROCEDURE cmfe_solver_lineariterativemaximumiterationssetobj
  END INTERFACE cmfe_solver_lineariterativemaximumiterationsset

  INTERFACE cmfe_solver_lineariterativepreconditionertypeset
    MODULE PROCEDURE cmfe_solver_lineariterativepreconditionertypesetnumber0
    MODULE PROCEDURE cmfe_solver_lineariterativepreconditionertypesetnumber1
    MODULE PROCEDURE cmfe_solver_lineariterativepreconditionertypesetobj
  END INTERFACE cmfe_solver_lineariterativepreconditionertypeset

  INTERFACE cmfe_solver_lineariterativerelativetoleranceset
    MODULE PROCEDURE cmfe_solver_lineariterativerelativetolerancesetnumber0
    MODULE PROCEDURE cmfe_solver_lineariterativerelativetolerancesetnumber1
    MODULE PROCEDURE cmfe_solver_lineariterativerelativetolerancesetobj
  END INTERFACE cmfe_solver_lineariterativerelativetoleranceset

  INTERFACE cmfe_solver_lineariterativetypeset
    MODULE PROCEDURE cmfe_solver_lineariterativetypesetnumber0
    MODULE PROCEDURE cmfe_solver_lineariterativetypesetnumber1
    MODULE PROCEDURE cmfe_solver_lineariterativetypesetobj
  END INTERFACE cmfe_solver_lineariterativetypeset

  INTERFACE cmfe_solver_lineartypeset
    MODULE PROCEDURE cmfe_solver_lineartypesetnumber0
    MODULE PROCEDURE cmfe_solver_lineartypesetnumber1
    MODULE PROCEDURE cmfe_solver_lineartypesetobj
  END INTERFACE cmfe_solver_lineartypeset

  INTERFACE cmfe_solver_quasinewtonabsolutetoleranceset
    MODULE PROCEDURE cmfe_solver_quasinewtonabsolutetolerancesetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonabsolutetolerancesetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonabsolutetolerancesetobj
  END INTERFACE cmfe_solver_quasinewtonabsolutetoleranceset

  INTERFACE cmfe_solver_quasinewtonlinesearchmonitoroutputset
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchmonitoroutputsetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchmonitoroutputsetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchmonitoroutputsetobj
  END INTERFACE cmfe_solver_quasinewtonlinesearchmonitoroutputset

  INTERFACE cmfe_solver_quasinewtonjacobiancalculationtypeset
    MODULE PROCEDURE cmfe_solver_quasinewtonjacobiancalculationtypesetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonjacobiancalculationtypesetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonjacobiancalculationtypesetobj
  END INTERFACE cmfe_solver_quasinewtonjacobiancalculationtypeset

  INTERFACE cmfe_solver_quasinewtonlinearsolverget
    MODULE PROCEDURE cmfe_solver_quasinewtonlinearsolvergetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonlinearsolvergetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonlinearsolvergetobj
  END INTERFACE cmfe_solver_quasinewtonlinearsolverget

  INTERFACE cmfe_solver_quasinewtoncellmlsolverget
    MODULE PROCEDURE cmfe_solver_quasinewtoncellmlsolvergetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtoncellmlsolvergetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtoncellmlsolvergetobj
  END INTERFACE cmfe_solver_quasinewtoncellmlsolverget

  INTERFACE cmfe_solver_quasinewtonconvergencetesttypeset
    MODULE PROCEDURE cmfe_solver_quasinewtonconvergencetesttypesetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonconvergencetesttypesetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonconvergencetesttypesetobj
  END INTERFACE cmfe_solver_quasinewtonconvergencetesttypeset

  INTERFACE cmfe_solver_quasinewtonlinesearchmaxstepset
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchmaxstepsetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchmaxstepsetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchmaxstepsetobj
  END INTERFACE cmfe_solver_quasinewtonlinesearchmaxstepset

  INTERFACE cmfe_solver_quasinewtonlinesearchsteptolset
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchsteptolsetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchsteptolsetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchsteptolsetobj
  END INTERFACE cmfe_solver_quasinewtonlinesearchsteptolset

  INTERFACE cmfe_solver_quasinewtonlinesearchtypeset
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchtypesetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchtypesetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonlinesearchtypesetobj
  END INTERFACE cmfe_solver_quasinewtonlinesearchtypeset

  INTERFACE cmfe_solver_quasinewtonmaximumfunctionevaluationsset
    MODULE PROCEDURE cmfe_solver_quasinewtonmaximumfunctionevaluationssetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonmaximumfunctionevaluationssetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonmaximumfunctionevaluationssetobj
  END INTERFACE cmfe_solver_quasinewtonmaximumfunctionevaluationsset

  INTERFACE cmfe_solver_quasinewtonmaximumiterationsset
    MODULE PROCEDURE cmfe_solver_quasinewtonmaximumiterationssetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonmaximumiterationssetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonmaximumiterationssetobj
  END INTERFACE cmfe_solver_quasinewtonmaximumiterationsset

  INTERFACE cmfe_solver_quasinewtonrelativetoleranceset
    MODULE PROCEDURE cmfe_solver_quasinewtonrelativetolerancesetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonrelativetolerancesetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonrelativetolerancesetobj
  END INTERFACE cmfe_solver_quasinewtonrelativetoleranceset

  INTERFACE cmfe_solver_quasinewtonsolutiontoleranceset
    MODULE PROCEDURE cmfe_solver_quasinewtonsolutiontolerancesetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonsolutiontolerancesetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonsolutiontolerancesetobj
  END INTERFACE cmfe_solver_quasinewtonsolutiontoleranceset

  INTERFACE cmfe_solver_quasinewtontrustregiondelta0set
    MODULE PROCEDURE cmfe_solver_quasinewtontrustregiondelta0setnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtontrustregiondelta0setnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtontrustregiondelta0setobj
  END INTERFACE cmfe_solver_quasinewtontrustregiondelta0set

  INTERFACE cmfe_solver_quasinewtontrustregiontoleranceset
    MODULE PROCEDURE cmfe_solver_quasinewtontrustregiontolerancesetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtontrustregiontolerancesetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtontrustregiontolerancesetobj
  END INTERFACE cmfe_solver_quasinewtontrustregiontoleranceset

  INTERFACE cmfe_solver_quasinewtonrestartset
    MODULE PROCEDURE cmfe_solver_quasinewtonrestartsetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonrestartsetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonrestartsetobj
  END INTERFACE cmfe_solver_quasinewtonrestartset

  INTERFACE cmfe_solver_quasinewtonrestarttypeset
    MODULE PROCEDURE cmfe_solver_quasinewtonrestarttypesetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonrestarttypesetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonrestarttypesetobj
  END INTERFACE cmfe_solver_quasinewtonrestarttypeset

  INTERFACE cmfe_solver_quasinewtonscaletypeset
    MODULE PROCEDURE cmfe_solver_quasinewtonscaletypesetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonscaletypesetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonscaletypesetobj
  END INTERFACE cmfe_solver_quasinewtonscaletypeset

  INTERFACE cmfe_solver_quasinewtonsolvetypeset
    MODULE PROCEDURE cmfe_solver_quasinewtonsolvetypesetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtonsolvetypesetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtonsolvetypesetobj
  END INTERFACE cmfe_solver_quasinewtonsolvetypeset

  INTERFACE cmfe_solver_quasinewtontypeset
    MODULE PROCEDURE cmfe_solver_quasinewtontypesetnumber0
    MODULE PROCEDURE cmfe_solver_quasinewtontypesetnumber1
    MODULE PROCEDURE cmfe_solver_quasinewtontypesetobj
  END INTERFACE cmfe_solver_quasinewtontypeset

  INTERFACE cmfe_solver_newtonabsolutetoleranceset
    MODULE PROCEDURE cmfe_solver_newtonabsolutetolerancesetnumber0
    MODULE PROCEDURE cmfe_solver_newtonabsolutetolerancesetnumber1
    MODULE PROCEDURE cmfe_solver_newtonabsolutetolerancesetobj
  END INTERFACE cmfe_solver_newtonabsolutetoleranceset

  INTERFACE cmfe_solver_newtonlinesearchmonitoroutputset
    MODULE PROCEDURE cmfe_solver_newtonlinesearchmonitoroutputsetnumber0
    MODULE PROCEDURE cmfe_solver_newtonlinesearchmonitoroutputsetnumber1
    MODULE PROCEDURE cmfe_solver_newtonlinesearchmonitoroutputsetobj
  END INTERFACE cmfe_solver_newtonlinesearchmonitoroutputset

  INTERFACE cmfe_solver_newtonjacobiancalculationtypeset
    MODULE PROCEDURE cmfe_solver_newtonjacobiancalculationtypesetnumber0
    MODULE PROCEDURE cmfe_solver_newtonjacobiancalculationtypesetnumber1
    MODULE PROCEDURE cmfe_solver_newtonjacobiancalculationtypesetobj
  END INTERFACE cmfe_solver_newtonjacobiancalculationtypeset

  INTERFACE cmfe_solver_newtonlinearsolverget
    MODULE PROCEDURE cmfe_solver_newtonlinearsolvergetnumber0
    MODULE PROCEDURE cmfe_solver_newtonlinearsolvergetnumber1
    MODULE PROCEDURE cmfe_solver_newtonlinearsolvergetobj
  END INTERFACE cmfe_solver_newtonlinearsolverget

  INTERFACE cmfe_solver_newtoncellmlsolverget
    MODULE PROCEDURE cmfe_solver_newtoncellmlsolvergetnumber0
    MODULE PROCEDURE cmfe_solver_newtoncellmlsolvergetnumber1
    MODULE PROCEDURE cmfe_solver_newtoncellmlsolvergetobj
  END INTERFACE cmfe_solver_newtoncellmlsolverget

  INTERFACE cmfe_solver_newtonconvergencetesttypeset
    MODULE PROCEDURE cmfe_solver_newtonconvergencetesttypesetnumber0
    MODULE PROCEDURE cmfe_solver_newtonconvergencetesttypesetnumber1
    MODULE PROCEDURE cmfe_solver_newtonconvergencetesttypesetobj
  END INTERFACE cmfe_solver_newtonconvergencetesttypeset

  INTERFACE cmfe_solver_newtonlinesearchalphaset
    MODULE PROCEDURE cmfe_solver_newtonlinesearchalphasetnumber0
    MODULE PROCEDURE cmfe_solver_newtonlinesearchalphasetnumber1
    MODULE PROCEDURE cmfe_solver_newtonlinesearchalphasetobj
  END INTERFACE cmfe_solver_newtonlinesearchalphaset

  INTERFACE cmfe_solver_newtonlinesearchmaxstepset
    MODULE PROCEDURE cmfe_solver_newtonlinesearchmaxstepsetnumber0
    MODULE PROCEDURE cmfe_solver_newtonlinesearchmaxstepsetnumber1
    MODULE PROCEDURE cmfe_solver_newtonlinesearchmaxstepsetobj
  END INTERFACE cmfe_solver_newtonlinesearchmaxstepset

  INTERFACE cmfe_solver_newtonlinesearchsteptolset
    MODULE PROCEDURE cmfe_solver_newtonlinesearchsteptolsetnumber0
    MODULE PROCEDURE cmfe_solver_newtonlinesearchsteptolsetnumber1
    MODULE PROCEDURE cmfe_solver_newtonlinesearchsteptolsetobj
  END INTERFACE cmfe_solver_newtonlinesearchsteptolset

  INTERFACE cmfe_solver_newtonlinesearchtypeset
    MODULE PROCEDURE cmfe_solver_newtonlinesearchtypesetnumber0
    MODULE PROCEDURE cmfe_solver_newtonlinesearchtypesetnumber1
    MODULE PROCEDURE cmfe_solver_newtonlinesearchtypesetobj
  END INTERFACE cmfe_solver_newtonlinesearchtypeset

  INTERFACE cmfe_solver_newtonmaximumfunctionevaluationsset
    MODULE PROCEDURE cmfe_solver_newtonmaximumfunctionevaluationssetnumber0
    MODULE PROCEDURE cmfe_solver_newtonmaximumfunctionevaluationssetnumber1
    MODULE PROCEDURE cmfe_solver_newtonmaximumfunctionevaluationssetobj
  END INTERFACE cmfe_solver_newtonmaximumfunctionevaluationsset

  INTERFACE cmfe_solver_newtonmaximumiterationsset
    MODULE PROCEDURE cmfe_solver_newtonmaximumiterationssetnumber0
    MODULE PROCEDURE cmfe_solver_newtonmaximumiterationssetnumber1
    MODULE PROCEDURE cmfe_solver_newtonmaximumiterationssetobj
  END INTERFACE cmfe_solver_newtonmaximumiterationsset

  INTERFACE cmfe_solver_newtonrelativetoleranceset
    MODULE PROCEDURE cmfe_solver_newtonrelativetolerancesetnumber0
    MODULE PROCEDURE cmfe_solver_newtonrelativetolerancesetnumber1
    MODULE PROCEDURE cmfe_solver_newtonrelativetolerancesetobj
  END INTERFACE cmfe_solver_newtonrelativetoleranceset

  INTERFACE cmfe_solver_newtonsolutiontoleranceset
    MODULE PROCEDURE cmfe_solver_newtonsolutiontolerancesetnumber0
    MODULE PROCEDURE cmfe_solver_newtonsolutiontolerancesetnumber1
    MODULE PROCEDURE cmfe_solver_newtonsolutiontolerancesetobj
  END INTERFACE cmfe_solver_newtonsolutiontoleranceset

  INTERFACE cmfe_solver_newtontrustregiondelta0set
    MODULE PROCEDURE cmfe_solver_newtontrustregiondelta0setnumber0
    MODULE PROCEDURE cmfe_solver_newtontrustregiondelta0setnumber1
    MODULE PROCEDURE cmfe_solver_newtontrustregiondelta0setobj
  END INTERFACE cmfe_solver_newtontrustregiondelta0set

  INTERFACE cmfe_solver_newtontrustregiontoleranceset
    MODULE PROCEDURE cmfe_solver_newtontrustregiontolerancesetnumber0
    MODULE PROCEDURE cmfe_solver_newtontrustregiontolerancesetnumber1
    MODULE PROCEDURE cmfe_solver_newtontrustregiontolerancesetobj
  END INTERFACE cmfe_solver_newtontrustregiontoleranceset

  INTERFACE cmfe_solver_newtontypeset
    MODULE PROCEDURE cmfe_solver_newtontypesetnumber0
    MODULE PROCEDURE cmfe_solver_newtontypesetnumber1
    MODULE PROCEDURE cmfe_solver_newtontypesetobj
  END INTERFACE cmfe_solver_newtontypeset

  INTERFACE cmfe_solver_nonlineartypeset
    MODULE PROCEDURE cmfe_solver_nonlineartypesetnumber0
    MODULE PROCEDURE cmfe_solver_nonlineartypesetnumber1
    MODULE PROCEDURE cmfe_solver_nonlineartypesetobj
  END INTERFACE cmfe_solver_nonlineartypeset

  INTERFACE cmfe_solver_outputtypeset
    MODULE PROCEDURE cmfe_solver_outputtypesetnumber0
    MODULE PROCEDURE cmfe_solver_outputtypesetnumber1
    MODULE PROCEDURE cmfe_solver_outputtypesetobj
  END INTERFACE cmfe_solver_outputtypeset

  INTERFACE cmfe_solver_solverequationsget
    MODULE PROCEDURE cmfe_solver_solverequationsgetnumber0
    MODULE PROCEDURE cmfe_solver_solverequationsgetnumber1
    MODULE PROCEDURE cmfe_solver_solverequationsgetobj
  END INTERFACE cmfe_solver_solverequationsget

  INTERFACE cmfe_solverequations_equationssetadd
    MODULE PROCEDURE cmfe_solverequations_equationssetaddnumber0
    MODULE PROCEDURE cmfe_solverequations_equationssetaddnumber1
    MODULE PROCEDURE cmfe_solverequations_equationssetaddobj
  END INTERFACE cmfe_solverequations_equationssetadd

  INTERFACE cmfe_solverequations_interfaceconditionadd
    MODULE PROCEDURE cmfe_solverequations_interfaceconditionaddnumber0
    MODULE PROCEDURE cmfe_solverequations_interfaceconditionaddnumber1
    MODULE PROCEDURE cmfe_solverequations_interfaceconditionaddobj
  END INTERFACE cmfe_solverequations_interfaceconditionadd

  INTERFACE cmfe_solverequations_sparsitytypeset
    MODULE PROCEDURE cmfe_solverequations_sparsitytypesetnumber0
    MODULE PROCEDURE cmfe_solverequations_sparsitytypesetnumber1
    MODULE PROCEDURE cmfe_solverequations_sparsitytypesetobj
  END INTERFACE cmfe_solverequations_sparsitytypeset

  INTERFACE cmfe_solverequations_boundaryconditionscreatefinish
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionscreatefinishnumber0
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionscreatefinishnumber1
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionscreatefinishobj
  END INTERFACE cmfe_solverequations_boundaryconditionscreatefinish

  INTERFACE cmfe_solverequations_boundaryconditionscreatestart
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionscreatestartnumber0
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionscreatestartnumber1
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionscreatestartobj
  END INTERFACE cmfe_solverequations_boundaryconditionscreatestart

  INTERFACE cmfe_solverequations_boundaryconditionsget
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionsgetnumber0
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionsgetnumber1
    MODULE PROCEDURE cmfe_solverequations_boundaryconditionsgetobj
  END INTERFACE cmfe_solverequations_boundaryconditionsget

  PUBLIC cmfe_solver_linear_type,cmfe_solver_nonlinear_type,cmfe_solver_dynamic_type,cmfe_solver_dae_type, &
    & cmfe_solver_eigenproblem_type, &
    & cmfe_solver_optimiser_type

  PUBLIC cmfe_solver_cmiss_library,cmfe_solver_petsc_library,cmfe_solver_mumps_library,cmfe_solver_superlu_library, &
    & cmfe_solver_spooles_library,cmfe_solver_umfpack_library,cmfe_solver_lusol_library,cmfe_solver_essl_library, &
    & cmfe_solver_lapack_library,cmfe_solver_tao_library,cmfe_solver_hypre_library,cmfe_solver_pastix_library

  PUBLIC cmfe_solver_linear_direct_solve_type,cmfe_solver_linear_iterative_solve_type

  PUBLIC cmfe_solver_direct_lu,cmfe_solver_direct_cholesky,cmfe_solver_direct_svd

   PUBLIC cmfe_solver_iterative_richardson,cmfe_solver_iterative_conjugate_gradient,cmfe_solver_iterative_chebyshev, &
    & cmfe_solver_iterative_biconjugate_gradient,cmfe_solver_iterative_gmres,cmfe_solver_iterative_bicgstab, &
    & cmfe_solver_iterative_conjgrad_squared

  PUBLIC cmfe_solver_iterative_no_preconditioner,cmfe_solver_iterative_jacobi_preconditioner, &
    & cmfe_solver_iterative_block_jacobi_preconditioner,cmfe_solver_iterative_sor_preconditioner, &
    & cmfe_solver_iterative_incomplete_cholesky_preconditioner,cmfe_solver_iterative_incomplete_lu_preconditioner, &
    & cmfe_solver_iterative_additive_schwarz_preconditioner

  PUBLIC cmfe_solver_nonlinear_newton,cmfe_solver_nonlinear_bfgs_inverse,cmfe_solver_nonlinear_sqp
  
  PUBLIC cmfe_solver_nonlinear_quasi_newton

  PUBLIC cmfe_solver_quasi_newton_linesearch,cmfe_solver_quasi_newton_trustregion

  PUBLIC cmfe_solver_quasi_newton_lbfgs,cmfe_solver_quasi_newton_goodbroyden,cmfe_solver_quasi_newton_badbroyden

  PUBLIC cmfe_solver_quasi_newton_linesearch_basic,cmfe_solver_quasi_newton_linesearch_l2, &
    & cmfe_solver_quasi_newton_linesearch_cp

  PUBLIC cmfe_solver_quasi_newton_restart_none,cmfe_solver_quasi_newton_restart_powell, &
    & cmfe_solver_quasi_newton_restart_periodic

  PUBLIC cmfe_solver_quasi_newton_scale_none,cmfe_solver_quasi_newton_scale_shanno, &
    & cmfe_solver_quasi_newton_scale_linesearch,cmfe_solver_quasi_newton_scale_jacobian
  
  PUBLIC cmfe_solver_newton_linesearch,cmfe_solver_newton_trustregion

  PUBLIC cmfe_solver_newton_linesearch_linear,cmfe_solver_newton_linesearch_quadratic,cmfe_solver_newton_linesearch_cubic
 
  PUBLIC cmfe_solver_newton_jacobian_not_calculated,cmfe_solver_newton_jacobian_equations_calculated, &
    & cmfe_solver_newton_jacobian_fd_calculated

  PUBLIC cmfe_solver_newton_convergence_petsc_default,cmfe_solver_newton_convergence_energy_norm, &
    & cmfe_solver_newton_convergence_differentiated_ratio

  PUBLIC cmfe_solver_dynamic_first_order,cmfe_solver_dynamic_second_order

  PUBLIC cmfe_solver_dynamic_linear,cmfe_solver_dynamic_nonlinear

  PUBLIC cmfe_solver_dynamic_first_degree,cmfe_solver_dynamic_second_degree,cmfe_solver_dynamic_third_degree

  PUBLIC cmfe_solver_dynamic_euler_scheme,cmfe_solver_dynamic_backward_euler_scheme,cmfe_solver_dynamic_crank_nicolson_scheme, &
    & cmfe_solver_dynamic_galerkin_scheme,cmfe_solver_dynamic_zlamal_scheme,cmfe_solver_dynamic_second_degree_gear_scheme, &
    & cmfe_solver_dynamic_second_degree_liniger1_scheme,cmfe_solver_dynamic_second_degree_liniger2_scheme, &
    & cmfe_solver_dynamic_newmark1_scheme,cmfe_solver_dynamic_newmark2_scheme,cmfe_solver_dynamic_newmark3_scheme, &
    & cmfe_solver_dynamic_third_degree_gear_scheme,cmfe_solver_dynamic_third_degree_liniger1_scheme, &
    & cmfe_solver_dynamic_third_degree_liniger2_scheme,cmfe_solver_dynamic_houbolt_scheme,cmfe_solver_dynamic_wilson_scheme, &
    & cmfe_solver_dynamic_bossak_newmark1_scheme,cmfe_solver_dynamic_bossak_newmark2_scheme, &
    & cmfe_solver_dynamic_hilbert_hughes_taylor1_scheme, &
    & cmfe_solver_dynamic_hilbert_hughes_taylor2_scheme,cmfe_solver_dynamic_user_defined_scheme

  PUBLIC cmfe_solver_dae_differential_only,cmfe_solver_dae_index_1,cmfe_solver_dae_index_2,cmfe_solver_dae_index_3

  PUBLIC cmfe_solver_dae_euler,cmfe_solver_dae_crank_nicolson,cmfe_solver_dae_runge_kutta,cmfe_solver_dae_adams_moulton, &
    & cmfe_solver_dae_bdf, &
    & cmfe_solver_dae_rush_larson,cmfe_solver_dae_external

  PUBLIC cmfe_solver_dae_euler_forward,cmfe_solver_dae_euler_backward,cmfe_solver_dae_euler_improved

  PUBLIC cmfe_solver_solution_initialise_zero,cmfe_solver_solution_initialise_current_field, &
    & cmfe_solver_solution_initialise_no_change

  PUBLIC cmfe_solver_no_output,cmfe_solver_progress_output,cmfe_solver_timing_output,cmfe_solver_solver_output, &
    & cmfe_solver_matrix_output

  PUBLIC cmfe_solver_sparse_matrices,cmfe_solver_full_matrices

  PUBLIC cmfe_solver_cellmlequationsget

  PUBLIC cmfe_cellmlequations_cellmladd

  PUBLIC cmfe_solver_daeeulersolvertypeget,cmfe_solver_daeeulersolvertypeset

  PUBLIC cmfe_solver_daesolvertypeget,cmfe_solver_daesolvertypeset

  PUBLIC cmfe_solver_daetimesset,cmfe_solver_daetimestepset

  PUBLIC cmfe_solver_dynamicdegreeget,cmfe_solver_dynamicdegreeset

  PUBLIC cmfe_solver_dynamiclinearitytypeget

  PUBLIC cmfe_solver_dynamiclinearsolverget,cmfe_solver_dynamicnonlinearsolverget

  PUBLIC cmfe_solver_dynamicschemeset

  PUBLIC cmfe_solver_dynamicthetaset

  PUBLIC cmfe_solver_dynamictimesset
  
  PUBLIC cmfe_solver_geometrictransformationarbitrarypathset,cmfe_solver_geometrictransformationclear
  
  PUBLIC cmfe_solver_geometrictransformationnumberofloadincrementsset
  
  PUBLIC cmfe_solver_geometrictransformationscalingsset
  
  PUBLIC cmfe_solver_geometrictransformationfieldset
  
  PUBLIC cmfe_solver_geometrictransformationmatrixset
  
  PUBLIC cmfe_solver_geometrictransformationrotationset,cmfe_solver_geometrictransformationtranslationset

  PUBLIC cmfe_solver_labelget,cmfe_solver_labelset

  PUBLIC cmfe_solver_librarytypeget,cmfe_solver_librarytypeset

  PUBLIC cmfe_solver_lineardirecttypeset

  PUBLIC cmfe_solver_mumpsseticntl,cmfe_solver_mumpssetcntl

  PUBLIC cmfe_solver_lineariterativeabsolutetoleranceset

  PUBLIC cmfe_solver_lineariterativedivergencetoleranceset

  PUBLIC cmfe_solver_lineariterativegmresrestartset

  PUBLIC cmfe_solver_lineariterativemaximumiterationsset

  PUBLIC cmfe_solver_lineariterativepreconditionertypeset

  PUBLIC cmfe_solver_lineariterativerelativetoleranceset

  PUBLIC cmfe_solver_lineariterativetypeset

  PUBLIC cmfe_solver_lineartypeset

  PUBLIC cmfe_solver_newtonabsolutetoleranceset

  PUBLIC cmfe_solver_newtonlinesearchmonitoroutputset

  PUBLIC cmfe_solver_newtonjacobiancalculationtypeset

  PUBLIC cmfe_solver_newtonlinearsolverget

  PUBLIC cmfe_solver_newtoncellmlsolverget

  PUBLIC cmfe_solver_newtonconvergencetesttypeset

  PUBLIC cmfe_solver_newtonlinesearchalphaset

  PUBLIC cmfe_solver_newtonlinesearchmaxstepset

  PUBLIC cmfe_solver_newtonlinesearchsteptolset

  PUBLIC cmfe_solver_newtonlinesearchtypeset

  PUBLIC cmfe_solver_newtonmaximumfunctionevaluationsset

  PUBLIC cmfe_solver_newtonmaximumiterationsset

  PUBLIC cmfe_solver_newtonrelativetoleranceset

  PUBLIC cmfe_solver_newtonsolutiontoleranceset

  PUBLIC cmfe_solver_newtontrustregiondelta0set

  PUBLIC cmfe_solver_newtontrustregiontoleranceset

  PUBLIC cmfe_solver_newtontypeset

  PUBLIC cmfe_solver_quasinewtonabsolutetoleranceset
  
  PUBLIC cmfe_solver_quasinewtonlinesearchmonitoroutputset
  
  PUBLIC cmfe_solver_quasinewtonjacobiancalculationtypeset
  
  PUBLIC cmfe_solver_quasinewtonlinearsolverget
  
  PUBLIC cmfe_solver_quasinewtoncellmlsolverget
  
  PUBLIC cmfe_solver_quasinewtonconvergencetesttypeset
  
  PUBLIC cmfe_solver_quasinewtonlinesearchmaxstepset
  
  PUBLIC cmfe_solver_quasinewtonlinesearchsteptolset
  
  PUBLIC cmfe_solver_quasinewtonlinesearchtypeset
  
  PUBLIC cmfe_solver_quasinewtonmaximumfunctionevaluationsset
  
  PUBLIC cmfe_solver_quasinewtonmaximumiterationsset
  
  PUBLIC cmfe_solver_quasinewtonrelativetoleranceset
  
  PUBLIC cmfe_solver_quasinewtonsolutiontoleranceset
  
  PUBLIC cmfe_solver_quasinewtontrustregiondelta0set
  
  PUBLIC cmfe_solver_quasinewtontrustregiontoleranceset
  
  PUBLIC cmfe_solver_quasinewtonrestartset
  
  PUBLIC cmfe_solver_quasinewtonrestarttypeset
  
  PUBLIC cmfe_solver_quasinewtonscaletypeset
  
  PUBLIC cmfe_solver_quasinewtonsolvetypeset
  
  PUBLIC cmfe_solver_quasinewtontypeset

  PUBLIC cmfe_solver_nonlineartypeset

  PUBLIC cmfe_solver_outputtypeset

  PUBLIC cmfe_solver_solverequationsget

  PUBLIC cmfe_solverequations_equationssetadd

  PUBLIC cmfe_solverequations_interfaceconditionadd

  PUBLIC cmfe_solverequations_sparsitytypeset

  PUBLIC cmfe_solverequations_boundaryconditionscreatefinish,cmfe_solverequations_boundaryconditionscreatestart

  PUBLIC cmfe_solverequations_boundaryconditionsget

  PUBLIC cmfe_solverequations_numberofmatricesget

  PUBLIC cmfe_solverequations_matrixget

  PUBLIC cmfe_solverequations_jacobianmatrixget

  PUBLIC cmfe_solverequations_vectorget

  PUBLIC cmfe_solverequations_residualvectorget

  PUBLIC cmfe_solverequations_rhsvectorget

  PUBLIC cmfe_bioelectricsfiniteelasticity_updategeometricfield
  
!!==================================================================================================================================
!!
!! FieldML routines
!!
!!==================================================================================================================================

  TYPE cmfe_fieldmliotype
    PRIVATE
#ifdef WITH_FIELDML
    TYPE(fieldml_io_type), POINTER :: fieldmlinfo
#endif
  END TYPE cmfe_fieldmliotype

  INTERFACE cmfe_fieldml_inputcreatemeshcomponent
    MODULE PROCEDURE cmfe_fieldml_inputcreatemeshcomponentobjvs
    MODULE PROCEDURE cmfe_fieldml_inputcreatemeshcomponentnumbervs
    MODULE PROCEDURE cmfe_fieldml_inputcreatemeshcomponentobjc
    MODULE PROCEDURE cmfe_fieldml_inputcreatemeshcomponentnumberc
  END INTERFACE cmfe_fieldml_inputcreatemeshcomponent

  INTERFACE cmfe_fieldml_inputfieldcreatestart
    MODULE PROCEDURE cmfe_fieldml_inputfieldcreatestartobjvs
    MODULE PROCEDURE cmfe_fieldml_inputfieldcreatestartnumbervs
    MODULE PROCEDURE cmfe_fieldml_inputfieldcreatestartobjc
    MODULE PROCEDURE cmfe_fieldml_inputfieldcreatestartnumberc
  END INTERFACE cmfe_fieldml_inputfieldcreatestart

  INTERFACE cmfe_fieldml_inputfieldparametersupdate
    MODULE PROCEDURE cmfe_fieldml_inputfieldparametersupdateobjvs
    MODULE PROCEDURE cmfe_fieldml_inputfieldparametersupdatenumbervs
    MODULE PROCEDURE cmfe_fieldml_inputfieldparametersupdateobjc
    MODULE PROCEDURE cmfe_fieldml_inputfieldparametersupdatenumberc
  END INTERFACE cmfe_fieldml_inputfieldparametersupdate

  INTERFACE cmfe_fieldml_inputbasiscreatestart
    MODULE PROCEDURE cmfe_fieldml_inputbasiscreatestartobjvs
    MODULE PROCEDURE cmfe_fieldml_inputbasiscreatestartnumbervs
    MODULE PROCEDURE cmfe_fieldml_inputbasiscreatestartobjc
    MODULE PROCEDURE cmfe_fieldml_inputbasiscreatestartnumberc
  END INTERFACE cmfe_fieldml_inputbasiscreatestart

  INTERFACE cmfe_fieldml_inputnodescreatestart
    MODULE PROCEDURE cmfe_fieldml_inputnodescreatestartobjvs
    MODULE PROCEDURE cmfe_fieldml_inputnodescreatestartnumbervs
    MODULE PROCEDURE cmfe_fieldml_inputnodescreatestartobjc
    MODULE PROCEDURE cmfe_fieldml_inputnodescreatestartnumberc
  END INTERFACE cmfe_fieldml_inputnodescreatestart

  INTERFACE cmfe_fieldml_inputcoordinatesystemcreatestart
    MODULE PROCEDURE cmfe_fieldml_inputcoordinatesystemcreatestartobjvs
    MODULE PROCEDURE cmfe_fieldml_inputcoordinatesystemcreatestartnumbervs
    MODULE PROCEDURE cmfe_fieldml_inputcoordinatesystemcreatestartobjc
    MODULE PROCEDURE cmfe_fieldml_inputcoordinatesystemcreatestartnumberc
  END INTERFACE cmfe_fieldml_inputcoordinatesystemcreatestart

  INTERFACE cmfe_fieldml_inputmeshcreatestart
    MODULE PROCEDURE cmfe_fieldml_inputmeshcreatestartobjvs
    MODULE PROCEDURE cmfe_fieldml_inputmeshcreatestartnumbervs
    MODULE PROCEDURE cmfe_fieldml_inputmeshcreatestartobjc
    MODULE PROCEDURE cmfe_fieldml_inputmeshcreatestartnumberc
  END INTERFACE cmfe_fieldml_inputmeshcreatestart

  INTERFACE cmfe_fieldml_inputcreatefromfile
    MODULE PROCEDURE cmfe_fieldml_inputcreatefromfilevs
    MODULE PROCEDURE cmfe_fieldml_inputcreatefromfilec
  END INTERFACE cmfe_fieldml_inputcreatefromfile

  PUBLIC :: cmfe_fieldml_inputcreatefromfile,cmfe_fieldml_inputmeshcreatestart, &
    & cmfe_fieldml_inputcoordinatesystemcreatestart,cmfe_fieldml_inputcreatemeshcomponent, &
    & cmfe_fieldml_inputfieldcreatestart,cmfe_fieldml_inputbasiscreatestart,cmfe_fieldml_inputnodescreatestart, &
    & cmfe_fieldml_inputfieldparametersupdate

  PUBLIC :: cmfe_fieldmlio_finalise,cmfe_fieldmlio_initialise,cmfe_fieldmlio_getsession

  INTERFACE cmfe_fieldml_outputaddfield
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldnotypeobjvs
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldnotypenumbervs
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldwithtypeobjvs
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldwithtypenumbervs
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldnotypeobjc
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldnotypenumberc
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldwithtypeobjc
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldwithtypenumberc
  END INTERFACE cmfe_fieldml_outputaddfield

  INTERFACE cmfe_fieldml_outputcreate
    MODULE PROCEDURE cmfe_fieldml_outputcreateobjvs
    MODULE PROCEDURE cmfe_fieldml_outputcreatenumbervs
    MODULE PROCEDURE cmfe_fieldml_outputcreateobjc
    MODULE PROCEDURE cmfe_fieldml_outputcreatenumberc
  END INTERFACE cmfe_fieldml_outputcreate

  INTERFACE cmfe_fieldml_outputaddfieldcomponents
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldcomponentsobjvs
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldcomponentsnumbervs
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldcomponentsobjc
    MODULE PROCEDURE cmfe_fieldml_outputaddfieldcomponentsnumberc
  END INTERFACE cmfe_fieldml_outputaddfieldcomponents

  INTERFACE cmfe_fieldml_outputwrite
    MODULE PROCEDURE cmfe_fieldml_outputwritevs
    MODULE PROCEDURE cmfe_fieldml_outputwritec
  END INTERFACE cmfe_fieldml_outputwrite

  PUBLIC :: cmfe_fieldmliotype

  PUBLIC :: cmfe_fieldml_outputwrite,cmfe_fieldml_outputaddfield,cmfe_fieldml_outputcreate, &
    & cmfe_fieldml_outputaddfieldcomponents, &
    & cmfe_fieldml_outputaddimport

!!==================================================================================================================================
!!
!! GENERAL_ROUTINES
!!
!!==================================================================================================================================

  INTERFACE cmfe_usernumberget
    MODULE PROCEDURE cmfe_usernumbergetregion
    MODULE PROCEDURE cmfe_usernumbergetmesh
    MODULE PROCEDURE cmfe_usernumbergetbasis
  END INTERFACE cmfe_usernumberget

  PUBLIC cmfe_usernumberget

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

CONTAINS

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

  SUBROUTINE cmfe_finalise(err)
    !DLLEXPORT(cmfe_Finalise)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    CALL cmfe_finalise_(err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('OpenCMISS World Phase')
#endif

    RETURN
999 CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_finalise

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

  SUBROUTINE cmfe_initialisenumber(worldCoordinateSystemUserNumber,worldRegionUserNumber,err)
    !DLLEXPORT(cmfe_InitialiseNumber)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: worldCoordinateSystemUserNumber
    INTEGER(INTG), INTENT(OUT) :: worldRegionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: WORLD_COORDINATE_SYSTEM
    TYPE(region_type), POINTER :: WORLD_REGION

#ifdef TAUPROF
    CALL tau_static_phase_start('OpenCMISS World Phase')
#endif

    NULLIFY(world_coordinate_system)
    NULLIFY(world_region)
    CALL cmfe_initialise_(world_region,err,error,*999)
    worldcoordinatesystemusernumber=0
    worldregionusernumber=world_region%USER_NUMBER

    RETURN
999 CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_initialisenumber

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

  SUBROUTINE cmfe_initialiseobj(worldCoordinateSystem,worldRegion,err)
    !DLLEXPORT(cmfe_InitialiseObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: worldCoordinateSystem
    TYPE(cmfe_regiontype), INTENT(INOUT) :: worldRegion
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

#ifdef TAUPROF
    CALL tau_static_phase_start('OpenCMISS World Phase')
#endif

    CALL cmfe_coordinatesystem_initialise(worldcoordinatesystem,err)
    CALL cmfe_region_initialise(worldregion,err)
    CALL cmfe_initialise_(worldregion%region,err,error,*999)

    RETURN
999 CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_initialiseobj

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

  SUBROUTINE cmfe_workingrealprecisionget(workingRealPrecision,err)
    !DLLEXPORT(cmfe_WorkingRealPrecisionGet)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: workingRealPrecision
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
 
    enters("cmfe_WorkingRealPrecisionGet",err,error,*999)
    
#ifdef SINGLE_REAL_PRECISION
    workingrealprecision=cmfe_single_real_type
#else
    workingrealprecision=cmfe_double_real_type
#endif

    exits("cmfe_WorkingRealPrecisionGet")
    RETURN
999 errorsexits("cmfe_WorkingRealPrecisionGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_workingrealprecisionget

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

  SUBROUTINE cmfe_basistypescopy(bases,basesSize,basesPtr,err)
    !DLLEXPORT(cmfe_BasisTypesCopy)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(INOUT) :: bases(:)
    INTEGER(C_INT), INTENT(IN) :: basesSize
    TYPE(c_ptr), INTENT(IN) :: basesPtr
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    INTEGER(INTG) :: basis_idx
    TYPE(c_ptr), POINTER :: BasesCPtrs(:)
    TYPE(cmfe_basistype), POINTER :: Basis

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

    IF(c_associated(basesptr)) THEN
      CALL c_f_pointer(basesptr,basescptrs,[basessize])
      IF(ASSOCIATED(basescptrs)) THEN
        DO basis_idx=1,basessize
          CALL c_f_pointer(basescptrs(basis_idx),basis)
          IF(ASSOCIATED(basescptrs)) THEN
            bases(basis_idx)%basis => basis%basis
          ELSE
            CALL flagerror("error converting C pointer.",err,error,*999)
          END IF
        END DO
      ELSE
        CALL flagerror("error converting C pointer.",err,error,*999)
      END IF
    ELSE
      CALL flagerror("bases C pointer is not associated.",err,error,*999)
    END IF

    exits("cmfe_BasisTypesCopy")
    RETURN
999 errorsexits("cmfe_BasisTypesCopy",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basistypescopy

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

  SUBROUTINE cmfe_basis_finalise(cmfe_Basis,err)
    !DLLEXPORT(cmfe_Basis_Finalise)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(OUT) :: cmfe_Basis
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_basis%basis)) CALL basis_destroy(cmfe_basis%basis,err,error,*999)

    exits("cmfe_Basis_Finalise")
    RETURN
999 errorsexits("cmfe_Basis_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_finalise

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

  SUBROUTINE cmfe_basis_initialise(cmfe_Basis,err)
    !DLLEXPORT(cmfe_Basis_Initialise)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(OUT) :: cmfe_Basis
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_basis%basis)

    exits("cmfe_Basis_Initialise")
    RETURN
999 errorsexits("cmfe_Basis_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_initialise

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

  SUBROUTINE cmfe_boundaryconditions_finalise(cmfe_BoundaryConditions,err)
    !DLLEXPORT(cmfe_BoundaryConditions_Finalise)

    !Argument variables
    TYPE(cmfe_boundaryconditionstype), INTENT(OUT) :: cmfe_BoundaryConditions
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_boundaryconditions%boundaryConditions))  &
      & CALL boundary_conditions_destroy(cmfe_boundaryconditions%boundaryConditions,err,error,*999)

    exits("cmfe_BoundaryConditions_Finalise")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_finalise
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_boundaryconditions_initialise(cmfe_BoundaryConditions,err)
    !DLLEXPORT(cmfe_BoundaryConditions_Initialise)

    !Argument variables
    TYPE(cmfe_boundaryconditionstype), INTENT(OUT) :: cmfe_BoundaryConditions
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_boundaryconditions%boundaryConditions)

    exits("cmfe_BoundaryConditions_Initialise")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_initialise

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

  SUBROUTINE cmfe_cellml_finalise(cmfe_CellML,err)
    !DLLEXPORT(cmfe_CellML_Finalise)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(OUT) :: cmfe_CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_cellml%cellml)) CALL cellml_destroy(cmfe_cellml%cellml,err,error,*999)

    exits("cmfe_CellML_Finalise")
    RETURN
999 errorsexits("cmfe_CellML_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_finalise
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_cellml_initialise(cmfe_CellML,err)
    !DLLEXPORT(cmfe_CellML_Initialise)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(OUT) :: cmfe_CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_cellml%cellml)

    exits("cmfe_CellML_Initialise")
    RETURN
999 errorsexits("cmfe_CellML_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_initialise

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

  SUBROUTINE cmfe_cellmlequations_finalise(cmfe_CellMLEquations,err)
    !DLLEXPORT(cmfe_CellMLEquations_Finalise)

    !Argument variables
    TYPE(cmfe_cellmlequationstype), INTENT(OUT) :: cmfe_CellMLEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_cellmlequations%cellmlEquations))  &
      & CALL cellml_equations_destroy(cmfe_cellmlequations%cellmlEquations,err,error,*999)

    exits("cmfe_CellMLEquations_Finalise")
    RETURN
999 errorsexits("cmfe_CellMLEquations_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellmlequations_finalise

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

  SUBROUTINE cmfe_cellmlequations_initialise(cmfe_CellMLEquations,err)
    !DLLEXPORT(cmfe_CellMLEquations_Initialise)

    !Argument variables
    TYPE(cmfe_cellmlequationstype), INTENT(OUT) :: cmfe_CellMLEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_cellmlequations%cellmlEquations)

    exits("cmfe_CellMLEquations_Initialise")
    RETURN
999 errorsexits("cmfe_CellMLEquations_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellmlequations_initialise

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

  SUBROUTINE cmfe_computationalworkgroup_initialise(cmfe_ComputationalWorkGroup,err)
    !DLLEXPORT(cmfe_ComputationalWorkGroup_Initialise)

    !Argument variables
    TYPE(cmfe_computationalworkgrouptype), INTENT(OUT) :: cmfe_ComputationalWorkGroup
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_computationalworkgroup%computationalWorkGroup)

    exits("cmfe_ComputationalWorkGroup_Initialise")
    RETURN
999 errorsexits("cmfe_ComputationalWorkGroup_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_computationalworkgroup_initialise

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

  SUBROUTINE cmfe_controlloop_finalise(cmfe_ControlLoop,err)
    !DLLEXPORT(cmfe_ControlLoop_Finalise)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(OUT) :: cmfe_ControlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_controlloop%controlLoop))  &
      & CALL control_loop_destroy(cmfe_controlloop%controlLoop,err,error,*999)

    exits("cmfe_ControlLoop_Finalise")
    RETURN
999 errorsexits("cmfe_ControlLoop_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_finalise
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_controlloop_initialise(cmfe_ControlLoop,err)
    !DLLEXPORT(cmfe_ControlLoop_Initialise)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(OUT) :: cmfe_ControlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_controlloop%controlLoop)

    exits("cmfe_ControlLoop_Initialise")
    RETURN
999 errorsexits("cmfe_ControlLoop_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_initialise

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

  SUBROUTINE cmfe_coordinatesystem_finalise(cmfe_CoordinateSystem,err)
    !DLLEXPORT(cmfe_CoordinateSystem_Finalise)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(OUT) :: cmfe_CoordinateSystem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_coordinatesystem%coordinateSystem))  &
      & CALL coordinate_system_destroy(cmfe_coordinatesystem%coordinateSystem,err,error,*999)

    exits("cmfe_CoordinateSystem_Finalise")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_finalise
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_coordinatesystem_initialise(cmfe_CoordinateSystem,err)
    !DLLEXPORT(cmfe_CoordinateSystem_Initialise)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(OUT) :: cmfe_CoordinateSystem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_coordinatesystem%coordinateSystem)

    exits("cmfe_CoordinateSystem_Initialise")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_initialise

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

  SUBROUTINE cmfe_datapoints_finalise(cmfe_DataPoints,err)
    !DLLEXPORT(cmfe_DataPoints_Finalise)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(OUT) :: cmfe_DataPoints
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_datapoints%dataPoints))  &
      & CALL data_points_destroy(cmfe_datapoints%dataPoints,err,error,*999)

    exits("cmfe_DataPoints_Finalise")
    RETURN
999 errorsexits("cmfe_DataPoints_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_finalise

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

  SUBROUTINE cmfe_datapoints_initialise(cmfe_DataPoints,err)
    !DLLEXPORT(cmfe_DataPoints_Initialise)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(OUT) :: cmfe_DataPoints
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_datapoints%dataPoints)

    exits("cmfe_DataPoints_Initialise")
    RETURN
999 errorsexits("cmfe_DataPoints_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_initialise

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

  SUBROUTINE cmfe_dataprojection_finalise(cmfe_DataProjection,err)
    !DLLEXPORT(cmfe_DataProjection_Finalise)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(OUT) :: cmfe_DataProjection
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_dataprojection%dataProjection))  &
      & CALL data_projection_destroy(cmfe_dataprojection%dataProjection,err,error,*999)

    exits("cmfe_DataProjection_Finalise")
    RETURN
999 errorsexits("cmfe_DataProjection_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_finalise

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

  SUBROUTINE cmfe_dataprojection_initialise(cmfe_DataProjection,err)
    !DLLEXPORT(cmfe_DataProjection_Initialise)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(OUT) :: cmfe_DataProjection
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_dataprojection%dataProjection)

    exits("cmfe_DataProjection_Initialise")
    RETURN
999 errorsexits("cmfe_DataProjection_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_initialise

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

  SUBROUTINE cmfe_decomposition_finalise(cmfe_Decomposition,err)
    !DLLEXPORT(cmfe_Decomposition_Finalise)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(OUT) :: cmfe_Decomposition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_decomposition%decomposition))  &
      & CALL decomposition_destroy(cmfe_decomposition%decomposition,err,error,*999)

    exits("cmfe_Decomposition_Finalise")
    RETURN
999 errorsexits("cmfe_Decomposition_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_finalise

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

  SUBROUTINE cmfe_decomposition_initialise(cmfe_Decomposition,err)
    !DLLEXPORT(cmfe_Decomposition_Initialise)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(OUT) :: cmfe_Decomposition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_decomposition%decomposition)

    exits("cmfe_Decomposition_Initialise")
    RETURN
999 errorsexits("cmfe_Decomposition_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_initialise

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

  SUBROUTINE cmfe_equations_finalise(cmfe_Equations,err)
    !DLLEXPORT(cmfe_Equations_Finalise)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(OUT) :: cmfe_Equations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_equations%equations))  &
      & CALL equations_destroy(cmfe_equations%equations,err,error,*999)

    exits("cmfe_Equations_Finalise")
    RETURN
999 errorsexits("cmfe_Equations_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_finalise

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

  SUBROUTINE cmfe_equations_initialise(cmfe_Equations,err)
    !DLLEXPORT(cmfe_Equations_Initialise)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(OUT) :: cmfe_Equations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_equations%equations)

    exits("cmfe_Equations_Initialise")
    RETURN
999 errorsexits("cmfe_Equations_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_initialise

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

  SUBROUTINE cmfe_equationsset_finalise(cmfe_EquationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_Finalise)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(OUT) :: cmfe_EquationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_equationsset%equationsSet))  &
      & CALL equations_set_destroy(cmfe_equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_Finalise")
    RETURN
999 errorsexits("cmfe_EquationsSet_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_finalise

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

  SUBROUTINE cmfe_equationsset_initialise(cmfe_EquationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_Initialise)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(OUT) :: cmfe_EquationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_equationsset%equationsSet)

    exits("cmfe_EquationsSet_Initialise")
    RETURN
999 errorsexits("cmfe_EquationsSet_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_initialise

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

  SUBROUTINE cmfe_field_finalise(cmfe_Field,err)
    !DLLEXPORT(cmfe_Field_Finalise)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(OUT) :: cmfe_Field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_field%field)) CALL field_destroy(cmfe_field%field,err,error,*999)

    exits("cmfe_Field_Finalise")
    RETURN
999 errorsexits("cmfe_Field_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_finalise

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

  SUBROUTINE cmfe_field_initialise(cmfe_Field,err)
    !DLLEXPORT(cmfe_Field_Initialise)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(OUT) :: cmfe_Field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_field%field)

    exits("cmfe_Field_Initialise")
    RETURN
999 errorsexits("cmfe_Field_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_initialise

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

  SUBROUTINE cmfe_fields_createinterface(interface,fields,err)
    !DLLEXPORT(cmfe_Fields_CreateInterface)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    TYPE(cmfe_fieldstype), INTENT(INOUT) :: fields
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(interface%interface)) THEN
      IF(ASSOCIATED(fields%fields)) THEN
        CALL flagerror("Fields is already associated.",err,error,*999)
      ELSE
        fields%fields=>interface%interface%fields
      END IF
    ELSE
      CALL flagerror("The interface is not associated.",err,error,*999)
    END IF

    exits("cmfe_Fields_CreateInterface")
    RETURN
999 errorsexits("cmfe_Fields_CreateInterface",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_createinterface

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

  SUBROUTINE cmfe_fields_createregion(region,fields,err)
    !DLLEXPORT(cmfe_Fields_CreateRegion)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_fieldstype), INTENT(INOUT) :: fields
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(region%region)) THEN
      IF(ASSOCIATED(fields%fields)) THEN
        CALL flagerror("fields is already associated.",err,error,*999)
      ELSE
        fields%fields=>region%region%fields
      END IF
    ELSE
      CALL flagerror("The region is not associated.",err,error,*999)
    END IF

    exits("cmfe_Fields_CreateRegion")
    RETURN
999 errorsexits("cmfe_Fields_CreateRegion",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_createregion

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

  SUBROUTINE cmfe_fields_finalise(cmfe_Fields,err)
    !DLLEXPORT(cmfe_Fields_Finalise)

    !Argument variables
    TYPE(cmfe_fieldstype), INTENT(OUT) :: cmfe_Fields
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_fields%fields)

#ifdef TAUPROF
    CALL tau_static_phase_stop('Fields Type')
#endif

    exits("cmfe_Fields_Finalise")
    RETURN
999 errorsexits("cmfe_Fields_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_finalise

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

  SUBROUTINE cmfe_fields_initialise(cmfe_Fields,err)
    !DLLEXPORT(cmfe_Fields_Initialise)

    !Argument variables
    TYPE(cmfe_fieldstype), INTENT(OUT) :: cmfe_Fields
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

#ifdef TAUPROF
    CALL tau_static_phase_start('Fields Type')
#endif

    NULLIFY(cmfe_fields%fields)

    exits("cmfe_Fields_Initialise")
    RETURN
999 errorsexits("cmfe_Fields_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_initialise

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

  SUBROUTINE cmfe_generatedmesh_finalise(cmfe_GeneratedMesh,err)
    !DLLEXPORT(cmfe_GeneratedMesh_Finalise)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(OUT) :: cmfe_GeneratedMesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_generatedmesh%generatedMesh))  &
      & CALL generated_mesh_destroy(cmfe_generatedmesh%generatedMesh,err,error,*999)

    exits("cmfe_GeneratedMesh_Finalise")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_finalise

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

  SUBROUTINE cmfe_generatedmesh_initialise(cmfe_GeneratedMesh,err)
    !DLLEXPORT(cmfe_GeneratedMesh_Initialise)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(OUT) :: cmfe_GeneratedMesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_generatedmesh%generatedMesh)

    exits("cmfe_GeneratedMesh_Initialise")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_initialise

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

  SUBROUTINE cmfe_interface_finalise(cmfe_Interface,err)
    !DLLEXPORT(cmfe_Interface_Finalise)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(OUT) :: cmfe_Interface
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_interface%interface))  &
      & CALL interface_destroy(cmfe_interface%interface,err,error,*999)

    exits("cmfe_Interface_Finalise")
    RETURN
999 errorsexits("cmfe_Interface_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_finalise

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

  SUBROUTINE cmfe_interface_initialise(cmfe_Interface,err)
    !DLLEXPORT(cmfe_Interface_Initialise)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(OUT) :: cmfe_Interface
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_interface%interface)

    exits("cmfe_Interface_Initialise")
    RETURN
999 errorsexits("cmfe_Interface_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_initialise

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

  SUBROUTINE cmfe_interfacecondition_finalise(cmfe_InterfaceCondition,err)
    !DLLEXPORT(cmfe_InterfaceCondition_Finalise)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(OUT) :: cmfe_InterfaceCondition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_interfacecondition%interfaceCondition))  &
      & CALL interface_condition_destroy(cmfe_interfacecondition%interfaceCondition,err,error,*999)

    exits("cmfe_InterfaceCondition_Finalise")
    RETURN
999 errorsexits("cmfe_InterfaceTypeConditionFinalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_finalise

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

  SUBROUTINE cmfe_interfacecondition_initialise(cmfe_InterfaceCondition,err)
    !DLLEXPORT(cmfe_InterfaceCondition_Initialise)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(OUT) :: cmfe_InterfaceCondition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_interfacecondition%interfaceCondition)

    exits("cmfe_InterfaceCondition_Initialise")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_initialise

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

  SUBROUTINE cmfe_interfaceequations_finalise(cmfe_InterfaceEquations,err)
    !DLLEXPORT(cmfe_InterfaceEquations_Finalise)

    !Argument variables
    TYPE(cmfe_interfaceequationstype), INTENT(OUT) :: cmfe_InterfaceEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_interfaceequations%interfaceEquations))  &
      & CALL interface_equations_destroy(cmfe_interfaceequations%interfaceEquations,err,error,*999)

    exits("cmfe_InterfaceEquations_Finalise")
    RETURN
999 errorsexits("cmfe_InterfaceEquations_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfaceequations_finalise

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

  SUBROUTINE cmfe_interfaceequations_initialise(cmfe_InterfaceEquations,err)
    !DLLEXPORT(cmfe_InterfaceEquations_Initialise)

    !Argument variables
    TYPE(cmfe_interfaceequationstype), INTENT(OUT) :: cmfe_InterfaceEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_interfaceequations%interfaceEquations)

    exits("cmfe_InterfaceEquations_Initialise")
    RETURN
999 errorsexits("cmfe_InterfaceEquations_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfaceequations_initialise
  
  !
  !================================================================================================================================
  !
  
  SUBROUTINE cmfe_interfacepointsconnectivity_finalise(cmfe_InterfacePointsConnectivity,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_Finalise)
   
    !Argument variables
    TYPE(cmfe_interfacepointsconnectivitytype), INTENT(OUT) :: cmfe_InterfacePointsConnectivity
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables

    enters("cmfe_InterfacePointsConnectivity_Finalise",err,error,*999)
    
    IF(ASSOCIATED(cmfe_interfacepointsconnectivity%pointsConnectivity)) &
      & CALL interfacepointsconnectivity_destroy(cmfe_interfacepointsconnectivity%pointsConnectivity,err,error,*999)
 
    exits("cmfe_InterfacePointsConnectivity_Finalise")
    RETURN
999 errorsexits("cmfe_InterfacePointsConnectivity_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
     
  END SUBROUTINE cmfe_interfacepointsconnectivity_finalise
  
  !
  !================================================================================================================================
  !
  
  SUBROUTINE cmfe_interfacepointsconnectivity_initialise(cmfe_InterfacePointsConnectivity,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_Initialise)
   
    !Argument variables
    TYPE(cmfe_interfacepointsconnectivitytype), INTENT(OUT) :: cmfe_InterfacePointsConnectivity
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables

    enters("cmfe_InterfacePointsConnectivity_Initialise",err,error,*999)
    
    NULLIFY(cmfe_interfacepointsconnectivity%pointsConnectivity)
 
    exits("cmfe_InterfacePointsConnectivity_Initialise")
    RETURN
999 errorsexits("cmfe_InterfacePointsConnectivity_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
     
  END SUBROUTINE cmfe_interfacepointsconnectivity_initialise

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

   SUBROUTINE cmfe_interfacemeshconnectivity_finalise(cmfe_InterfaceMeshConnectivity,err)
     !DLLEXPORT(cmfe_InterfaceMeshConnectivity_Finalise)

     !Argument variables
     TYPE(cmfe_interfacemeshconnectivitytype), INTENT(OUT) :: cmfe_InterfaceMeshConnectivity
     INTEGER(INTG), INTENT(OUT) :: err
     !Local variables

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

     IF(ASSOCIATED(cmfe_interfacemeshconnectivity%meshConnectivity)) &
       & CALL interface_mesh_connectivity_destroy(cmfe_interfacemeshconnectivity%meshConnectivity,err,error,*999)

     exits("cmfe_InterfaceMeshConnectivity_Finalise")
     RETURN
 999 errorsexits("cmfe_InterfaceMeshConnectivity_Finalise",err,error)
     CALL cmfe_handleerror(err,error)
     RETURN

   END SUBROUTINE cmfe_interfacemeshconnectivity_finalise

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

   SUBROUTINE cmfe_interfacemeshconnectivity_initialise(cmfe_InterfaceMeshConnectivity,err)
     !DLLEXPORT(cmfe_InterfaceMeshConnectivity_Initialise)

     !Argument variables
     TYPE(cmfe_interfacemeshconnectivitytype), INTENT(OUT) :: cmfe_InterfaceMeshConnectivity
     INTEGER(INTG), INTENT(OUT) :: err
     !Local variables

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

     NULLIFY(cmfe_interfacemeshconnectivity%meshConnectivity)

     exits("cmfe_InterfaceMeshConnectivity_Initialise")
     RETURN
 999 errorsexits("cmfe_InterfaceMeshConnectivity_Initialise",err,error)
     CALL cmfe_handleerror(err,error)
     RETURN

   END SUBROUTINE cmfe_interfacemeshconnectivity_initialise

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

  SUBROUTINE cmfe_history_finalise(cmfe_History,err)
    !DLLEXPORT(cmfe_History_Finalise)

    !Argument variables
    TYPE(cmfe_historytype), INTENT(OUT) :: cmfe_History
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_history%history))  &
      & CALL history_destroy(cmfe_history%history,err,error,*999)

    exits("cmfe_History_Finalise")
    RETURN
999 errorsexits("cmfe_History_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_history_finalise

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

  SUBROUTINE cmfe_history_initialise(cmfe_History,err)
    !DLLEXPORT(cmfe_History_Initialise)

    !Argument variables
    TYPE(cmfe_historytype), INTENT(OUT) :: cmfe_History
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_history%history)

    exits("cmfe_History_Initialise")
    RETURN
999 errorsexits("cmfe_History_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_history_initialise

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

  SUBROUTINE cmfe_distributedmatrix_initialise(cmfe_DistributedMatrix,err)
    !DLLEXPORT(cmfe_DistributedMatrix_Initialise)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(OUT) :: cmfe_DistributedMatrix
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_distributedmatrix%distributedMatrix)

    exits("cmfe_DistributedMatrix_Initialise")
    RETURN
999 errorsexits("cmfe_DistributedMatrix_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_initialise

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

  SUBROUTINE cmfe_distributedvector_initialise(cmfe_DistributedVector,err)
    !DLLEXPORT(cmfe_DistributedVector_Initialise)

    !Argument variables
    TYPE(cmfe_distributedvectortype), INTENT(OUT) :: cmfe_DistributedVector
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_distributedvector%distributedVector)

    exits("cmfe_DistributedVector_Initialise")
    RETURN
999 errorsexits("cmfe_DistributedVector_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedvector_initialise

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

  SUBROUTINE cmfe_mesh_finalise(cmfe_Mesh,err)
    !DLLEXPORT(cmfe_Mesh_Finalise)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(OUT) :: cmfe_Mesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_mesh%mesh))  &
      & CALL mesh_destroy(cmfe_mesh%mesh,err,error,*999)

    exits("cmfe_Mesh_Finalise")
    RETURN
999 errorsexits("cmfe_Mesh_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_finalise

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

  SUBROUTINE cmfe_mesh_initialise(cmfe_Mesh,err)
    !DLLEXPORT(cmfe_Mesh_Initialise)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(OUT) :: cmfe_Mesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_mesh%mesh)

    exits("cmfe_Mesh_Initialise")
    RETURN
999 errorsexits("cmfe_Mesh_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
   RETURN

  END SUBROUTINE cmfe_mesh_initialise

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

  SUBROUTINE cmfe_meshelements_finalise(cmfe_MeshElements,err)
    !DLLEXPORT(cmfe_MeshElements_Finalise)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(OUT) :: cmfe_MeshElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_meshelements%meshElements))  &
      & CALL mesh_topology_elements_destroy(cmfe_meshelements%meshElements,err,error,*999)

    exits("cmfe_MeshElements_Finalise")
    RETURN
999 errorsexits("cmfe_MeshElements_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_finalise

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

  SUBROUTINE cmfe_meshelements_initialise(cmfe_MeshElements,err)
    !DLLEXPORT(cmfe_MeshElements_Initialise)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(OUT) :: cmfe_MeshElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_meshelements%meshElements)

    exits("cmfe_MeshElements_Initialise")
    RETURN
999 errorsexits("cmfe_MeshElements_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_initialise

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

  SUBROUTINE cmfe_meshnodes_finalise(cmfe_MeshNodes,err)
    !DLLEXPORT(cmfe_MeshNodes_Finalise)

    !Argument variables
    TYPE(cmfe_meshnodestype), INTENT(OUT) :: cmfe_MeshNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_meshnodes%meshNodes))  &
      & CALL meshtopologynodesdestroy(cmfe_meshnodes%meshNodes,err,error,*999)

    exits("cmfe_MeshNodes_Finalise")
    RETURN
999 errorsexits("cmfe_MeshNodes_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshnodes_finalise

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

  SUBROUTINE cmfe_meshnodes_initialise(cmfe_MeshNodes,err)
    !DLLEXPORT(cmfe_MeshNodes_Initialise)

    !Argument variables
    TYPE(cmfe_meshnodestype), INTENT(OUT) :: cmfe_MeshNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_meshnodes%meshNodes)

    exits("cmfe_MeshNodes_Initialise")
    RETURN
999 errorsexits("cmfe_MeshNodes_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshnodes_initialise

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

  SUBROUTINE cmfe_nodes_finalise(cmfe_Nodes,err)
    !DLLEXPORT(cmfe_Nodes_Finalise)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(OUT) :: cmfe_Nodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_nodes%nodes)) CALL nodes_destroy(cmfe_nodes%nodes,err,error,*999)

    exits("cmfe_Nodes_Finalise")
    RETURN
999 errorsexits("cmfe_Nodes_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_finalise

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

  SUBROUTINE cmfe_nodes_initialise(cmfe_Nodes,err)
    !DLLEXPORT(cmfe_Nodes_Initialise)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(OUT) :: cmfe_Nodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_nodes%nodes)

    exits("cmfe_Nodes_Initialise")
    RETURN
999 errorsexits("cmfe_Nodes_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_initialise

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

  SUBROUTINE cmfe_problem_finalise(cmfe_Problem,err)
    !DLLEXPORT(cmfe_Problem_Finalise)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(OUT) :: cmfe_Problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_problem%problem)) CALL problem_destroy(cmfe_problem%problem,err,error,*999)

    exits("cmfe_Problem_Finalise")
    RETURN
999 errorsexits("cmfe_Problem_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_finalise

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

  SUBROUTINE cmfe_problem_initialise(cmfe_Problem,err)
    !DLLEXPORT(cmfe_Problem_Initialise)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(OUT) :: cmfe_Problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_problem%problem)

    exits("cmfe_Problem_Initialise")
    RETURN
999 errorsexits("cmfe_Problem_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_initialise

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

  SUBROUTINE cmfe_quadrature_finalise(cmfe_Quadrature,err)
    !DLLEXPORT(cmfe_Quadrature_Finalise)

    !Argument variables
    TYPE(cmfe_quadraturetype), INTENT(OUT) :: cmfe_Quadrature
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_quadrature%quadrature))  &
      & CALL basis_quadrature_destroy(cmfe_quadrature%quadrature,err,error,*999)

    exits("cmfe_Quadrature_Finalise")
    RETURN
999 errorsexits("cmfe_Quadrature_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_quadrature_finalise

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

  SUBROUTINE cmfe_quadrature_initialise(cmfe_Quadrature,err)
    !DLLEXPORT(cmfe_Quadrature_Initialise)

    !Argument variables
    TYPE(cmfe_quadraturetype), INTENT(OUT) :: cmfe_Quadrature
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_quadrature%quadrature)

    exits("cmfe_Quadrature_Initialise")
    RETURN
999 errorsexits("cmfe_Quadrature_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_quadrature_initialise

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

  SUBROUTINE cmfe_region_finalise(cmfe_Region,err)
    !DLLEXPORT(cmfe_Region_Finalise)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(OUT) :: cmfe_Region
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_region%region))  &
      & CALL region_destroy(cmfe_region%region,err,error,*999)

    exits("cmfe_Region_Finalise")
    RETURN
999 errorsexits("cmfe_Region_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_finalise

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

  SUBROUTINE cmfe_region_initialise(cmfe_Region,err)
    !DLLEXPORT(cmfe_Region_Initialise)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(OUT) :: cmfe_Region
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_region%region)

    exits("cmfe_Region_Initialise")
    RETURN
999 errorsexits("cmfe_Region_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_initialise

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

  SUBROUTINE cmfe_solver_finalise(cmfe_Solver,err)
    !DLLEXPORT(cmfe_Solver_Finalise)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(OUT) :: cmfe_Solver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_solver%solver)) CALL solver_destroy(cmfe_solver%solver,err,error,*999)

    exits("cmfe_Solver_Finalise")
    RETURN
999 errorsexits("cmfe_Solver_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_finalise

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

  SUBROUTINE cmfe_solver_initialise(cmfe_Solver,err)
    !DLLEXPORT(cmfe_Solver_Initialise)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(OUT) :: cmfe_Solver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_solver%solver)

    exits("cmfe_Solver_Initialise")
    RETURN
999 errorsexits("cmfe_Solver_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_initialise

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

  SUBROUTINE cmfe_solverequations_finalise(cmfe_SolverEquations,err)
    !DLLEXPORT(cmfe_SolverEquations_Finalise)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(OUT) :: cmfe_SolverEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    IF(ASSOCIATED(cmfe_solverequations%solverEquations))  &
      & CALL solver_equations_destroy(cmfe_solverequations%solverEquations,err,error,*999)

    exits("cmfe_SolverEquations_Finalise")
    RETURN
999 errorsexits("cmfe_SolverEquations_Finalise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_finalise

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

  SUBROUTINE cmfe_solverequations_initialise(cmfe_SolverEquations,err)
    !DLLEXPORT(cmfe_SolverEquations_Initialise)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(OUT) :: cmfe_SolverEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    NULLIFY(cmfe_solverequations%solverEquations)

    exits("cmfe_SolverEquations_Initialise")
    RETURN
999 errorsexits("cmfe_SolverEquations_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_initialise

!!==================================================================================================================================
!!
!! ANALYTIC_ANALYSIS_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_analyticanalysis_outputnumber(regionUserNumber,fieldUserNumber,fileName,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_OutputNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: fileName
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_output(field,filename,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_AnalyticAnalysis_OutputNumber")
    RETURN
999 errorsexits("cmfe_AnalyticAnalysis_OutputNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_outputnumber

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

  SUBROUTINE cmfe_analyticanalysis_outputobj(field,fileName,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_OutputObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    CHARACTER(LEN=*), INTENT(IN) :: fileName
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_output(field%field,filename,err,error,*999)

    exits("cmfe_AnalyticAnalysis_OutputObj")
    RETURN
999 errorsexits("cmfe_AnalyticAnalysis_OutputObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_outputobj

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

  SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetnodenumber(regionUserNumber,fieldUserNumber,variableType,versionNumber, &
    & derivativenumber, nodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_AbsoluteErrorGetNodeNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: nodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_absoluteerrorgetnode(field,variabletype,versionnumber,derivativenumber,nodenumber, &
          & componentnumber,value,err, error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetNodeNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_AbsoluteErrorGetNodeNumber",err,error)
    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetNodeNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetnodenumber

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

  SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetnodeobj(field,variableType,versionNumber,derivativeNumber,nodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_AbsoluteErrorGetNodeObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: nodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_absoluteerrorgetnode(field%field,variabletype,versionnumber,derivativenumber,nodenumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetNodeObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_AbsoluteErrorGetNodeObj",err,error)
    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetNodeObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetnodeobj

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

  SUBROUTINE cmfe_analyticanalysis_percentageerrorgetnodenumber(regionUserNumber,fieldUserNumber,variableType,versionNumber, &
    & derivativenumber,nodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_PercentageErrorGetNodeNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: nodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_percentageerrorgetnode(field,variabletype,versionnumber,derivativenumber,nodenumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_PercentageErrorGetNodeNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_PercentageErrorGetNodeNumber",err,error)
    exits("cmfe_AnalyticAnalysis_PercentageErrorGetNodeNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_percentageerrorgetnodenumber

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

  SUBROUTINE cmfe_analyticanalysis_percentageerrorgetnodeobj(field,variableType,versionNumber,derivativeNumber,nodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_PercentageErrorGetNodeObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: nodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_percentageerrorgetnode(field%field,variabletype,versionnumber,derivativenumber,nodenumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_AnalyticAnalysis_PercentageErrorGetNodeObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_PercentageErrorGetNodeObj",err,error)
    exits("cmfe_AnalyticAnalysis_PercentageErrorGetNodeObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_percentageerrorgetnodeobj


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

  SUBROUTINE cmfe_analyticanalysis_relativeerrorgetnodenumber(regionUserNumber,fieldUserNumber,variableType,versionNumber, &
    & derivativenumber,nodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_RelativeErrorGetNodeNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: nodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_relativeerrorgetnode(field,variabletype,versionnumber,derivativenumber,nodenumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_RelativeErrorGetNodeNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_RelativeErrorGetNodeNumber",err,error)
    exits("cmfe_AnalyticAnalysis_RelativeErrorGetNodeNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_analyticanalysis_relativeerrorgetnodenumber

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

  SUBROUTINE cmfe_analyticanalysis_relativeerrorgetnodeobj(field,variableType,versionNumber,derivativeNumber,nodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_RelativeErrorGetNodeObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: nodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_relativeerrorgetnode(field%field,variabletype,versionnumber,derivativenumber,nodenumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_AnalyticAnalysisRelativeErrorGetNodeObj")
    RETURN
999 errors("cmfe_AnalyticAnalysisRelativeErrorGetNodeObj",err,error)
    exits("cmfe_AnalyticAnalysisRelativeErrorGetNodeObj")
    CALL cmfe_handleerror(err,error)
   RETURN

 END SUBROUTINE cmfe_analyticanalysis_relativeerrorgetnodeobj

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

  SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetelementnumber(regionUserNumber,fieldUserNumber,variableType,elementNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_AbsoluteErrorGetElementNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_absoluteerrorgetelement(field,variabletype,elementnumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetElementNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_AbsoluteErrorGetElementNumber",err,error)
    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetElementNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetelementnumber

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

  SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetelementobj(field,variableType,elementNumber,componentNumber,VALUE,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_AbsoluteErrorGetElementObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_absoluteerrorgetelement(field%field,variabletype,elementnumber,componentnumber,value,err,error,*999)

    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetElementObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_AbsoluteErrorGetElementObj",err,error)
    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetElementObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetelementobj

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

  SUBROUTINE cmfe_analyticanalysis_percentageerrorgetelementnumber(regionUserNumber,fieldUserNumber,variableType,elementNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_PercentageErrorGetElementNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_percentageerrorgetelement(field,variabletype,elementnumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_PercentageErrorGetElementNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_PercentageErrorGetElementNumber",err,error)
    exits("cmfe_AnalyticAnalysis_PercentageErrorGetElementNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_percentageerrorgetelementnumber

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

  SUBROUTINE cmfe_analyticanalysis_percentageerrorgetelementobj(field,variableType,elementNumber,componentNumber,VALUE,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_PercentageErrorGetElementObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_percentageerrorgetelement(field%field,variabletype,elementnumber,componentnumber,value,err,error,*999)

    exits("cmfe_AnalyticAnalysis_PercentageErrorGetElementObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_PercentageErrorGetElementObj",err,error)
    exits("cmfe_AnalyticAnalysis_PercentageErrorGetElementObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_percentageerrorgetelementobj


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

  SUBROUTINE cmfe_analyticanalysis_relativeerrorgetelementnumber(regionUserNumber,fieldUserNumber,variableType,elementNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_RelativeErrorGetElementNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_relativeerrorgetelement(field,variabletype,elementnumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_RelativeErrorGetElementNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_RelativeErrorGetElementNumber",err,error)
    exits("cmfe_AnalyticAnalysis_RelativeErrorGetElementNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_relativeerrorgetelementnumber

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

  SUBROUTINE cmfe_analyticanalysis_relativeerrorgetelementobj(field,variableType,elementNumber,componentNumber,VALUE,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_RelativeErrorGetElementObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_relativeerrorgetelement(field%field,variabletype,elementnumber,componentnumber,value,err,error,*999)

    exits("cmfe_AnalyticAnalysis_RelativeErrorGetElementObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_RelativeErrorGetElementObj",err,error)
    exits("cmfe_AnalyticAnalysis_RelativeErrorGetElementObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_relativeerrorgetelementobj

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

  SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetconstantnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_AbsoluteErrorGetConstantNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_absoluteerrorgetconstant(field,variabletype,componentnumber,value,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetConstantNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_AbsoluteErrorGetConstantNumber",err,error)
    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetConstantNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetconstantnumber

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

  SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetconstantobj(field,variableType,componentNumber,VALUE,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_AbsoluteErrorGetConstantObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_absoluteerrorgetconstant(field%field,variabletype,componentnumber,value,err,error,*999)

    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetConstantObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_AbsoluteErrorGetConstantObj",err,error)
    exits("cmfe_AnalyticAnalysis_AbsoluteErrorGetConstantObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_absoluteerrorgetconstantobj

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

  SUBROUTINE cmfe_analyticanalysis_percentageerrorgetconstantnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_PercentageErrorGetConstantNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_percentageerrorgetconstant(field,variabletype,componentnumber,value,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_PercentageErrorGetConstantNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_PercentageErrorGetConstantNumber",err,error)
    exits("cmfe_AnalyticAnalysis_PercentageErrorGetConstantNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_percentageerrorgetconstantnumber

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

  SUBROUTINE cmfe_analyticanalysis_percentageerrorgetconstantobj(field,variableType,componentNumber,VALUE,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_PercentageErrorGetConstantObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_percentageerrorgetconstant(field%field,variabletype,componentnumber,value,err,error,*999)

    exits("cmfe_AnalyticAnalysis_PercentageErrorGetConstantObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_PercentageErrorGetConstantObj",err,error)
    exits("cmfe_AnalyticAnalysis_PercentageErrorGetConstantObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_percentageerrorgetconstantobj


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

  SUBROUTINE cmfe_analyticanalysis_relativeerrorgetconstantnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & value,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_RelativeErrorGetConstantNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_relativeerrorgetconstant(field,variabletype,componentnumber,value,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_RelativeErrorGetConstantNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_RelativeErrorGetConstantNumber",err,error)
    exits("cmfe_AnalyticAnalysis_RelativeErrorGetConstantNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_relativeerrorgetconstantnumber

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

  SUBROUTINE cmfe_analyticanalysis_relativeerrorgetconstantobj(field,variableType,componentNumber,VALUE,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_RelativeErrorGetConstantObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_relativeerrorgetconstant(field%field,variabletype,componentnumber,value,err,error,*999)

    exits("cmfe_AnalyticAnalysis_RelativeErrorGetConstantObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_RelativeErrorGetConstantObj",err,error)
    exits("cmfe_AnalyticAnalysis_RelativeErrorGetConstantObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_relativeerrorgetconstantobj

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

  SUBROUTINE cmfe_analyticanalysis_rmserrorgetnodenumber(regionUserNumber,fieldUserNumber,variableType,componentNumber,errorType, &
    & localvalue,localghostvalue,globalvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_RMSErrorGetNodeNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: errorType
    REAL(DP), INTENT(OUT) :: localValue(8)
    REAL(DP), INTENT(OUT) :: localGhostValue(8)
    REAL(DP), INTENT(OUT) :: globalValue(8)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_rmserrorgetnode(field,variabletype,componentnumber,errortype,localvalue,localghostvalue, &
          & globalvalue,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_RMSErrorGetNodeNumber")
    RETURN
999 errorsexits("cmfe_AnalyticAnalysis_RMSErrorGetNodeNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_rmserrorgetnodenumber

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

  SUBROUTINE cmfe_analyticanalysis_rmserrorgetnodeobj(field,variableType,componentNumber,errorType,localValue,localGhostValue, &
    & globalvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_RMSErrorGetNodeObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: errorType
    REAL(DP), INTENT(OUT) :: localValue(8)
    REAL(DP), INTENT(OUT) :: localGhostValue(8)
    REAL(DP), INTENT(OUT) :: globalValue(8)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_rmserrorgetnode(field%field,variabletype,componentnumber,errortype,localvalue,localghostvalue, &
      & globalvalue,err,error,*999)

    exits("cmfe_AnalyticAnalysis_RMSErrorGetNodeObj")
    RETURN
999 errorsexits("cmfe_AnalyticAnalysis_RMSErrorGetNodeObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_rmserrorgetnodeobj

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

  SUBROUTINE cmfe_analyticanalysis_rmserrorgetelementnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & errortype,localvalue,localghostvalue,globalvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_RMSErrorGetElementNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: errorType
    REAL(DP), INTENT(OUT) :: localValue
    REAL(DP), INTENT(OUT) :: localGhostValue
    REAL(DP), INTENT(OUT) :: globalValue
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_rmserrorgetelement(field,variabletype,componentnumber,errortype,localvalue,localghostvalue, &
          & globalvalue,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_RMSErrorGetElementNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_RMSErrorGetElementNumber",err,error)
    exits("cmfe_AnalyticAnalysis_RMSErrorGetElementNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_rmserrorgetelementnumber

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

  SUBROUTINE cmfe_analyticanalysis_rmserrorgetelementobj(field,variableType,componentNumber,errorType,localValue,localGhostValue, &
    & globalvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_RMSErrorGetElementObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: errorType
    REAL(DP), INTENT(OUT) :: localValue
    REAL(DP), INTENT(OUT) :: localGhostValue
    REAL(DP), INTENT(OUT) :: globalValue
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_rmserrorgetelement(field%field,variabletype,componentnumber,errortype,localvalue,localghostvalue, &
      & globalvalue,err,error,*999)

    exits("cmfe_AnalyticAnalysis_RMSErrorGetElementObj")
    RETURN
999 errorsexits("cmfe_AnalyticAnalysis_RMSErrorGetElementObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_rmserrorgetelementobj

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

  SUBROUTINE cmfe_analyticanalysis_integralnumericalvaluegetnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & integralvalue,ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralNumericalValueGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_integralnumericalvalueget(field,variabletype,componentnumber,integralvalue,ghostintegralvalue, &
          & err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_IntegralNumericalValueGetNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralNumericalValueGetNumber",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralNumericalValueGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralnumericalvaluegetnumber

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

  SUBROUTINE cmfe_analyticanalysis_integralnumericalvaluegetobj(field,variableType,componentNumber,integralValue, &
    & ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralNumericalValueGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_integralnumericalvalueget(field%field,variabletype,componentnumber,integralvalue,ghostintegralvalue, &
      & err,error,*999)

    exits("cmfe_AnalyticAnalysis_IntegralNumericalValueGetObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralNumericalValueGetObj",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralNumericalValueGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralnumericalvaluegetobj

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

  SUBROUTINE cmfe_analyticanalysis_integralanalyticvaluegetnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & integralvalue,ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralAnalyticValueGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_integralanalyticvalueget(field,variabletype,componentnumber,integralvalue,ghostintegralvalue, &
          & err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_IntegralAnalyticValueGetNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralAnalyticValueGetNumber",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralAnalyticValueGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralanalyticvaluegetnumber

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

  SUBROUTINE cmfe_analyticanalysis_integralanalyticvaluegetobj(field,variableType,componentNumber,integralValue, &
    & ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralAnalyticValueGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_integralanalyticvalueget(field%field,variabletype,componentnumber,integralvalue,ghostintegralvalue, &
      & err,error,*999)

    exits("cmfe_AnalyticAnalysis_IntegralAnalyticValueGetObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralAnalyticValueGetObj",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralAnalyticValueGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralanalyticvaluegetobj

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

  SUBROUTINE cmfe_analyticanalysis_integralpercentageerrorgetnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & integralvalue,ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralPercentageErrorGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_integralpercentageerrorget(field,variabletype,componentnumber,integralvalue,ghostintegralvalue, &
          & err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_IntegralPercentageErrorGetNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralPercentageErrorGetNumber",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralPercentageErrorGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralpercentageerrorgetnumber

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

  SUBROUTINE cmfe_analyticanalysis_integralpercentageerrorgetobj(field,variableType,componentNumber,integralValue, &
    & ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralPercentageErrorGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_integralpercentageerrorget(field%field,variabletype,componentnumber,integralvalue, &
      & ghostintegralvalue,err,error,*999)

    exits("cmfe_AnalyticAnalysis_IntegralPercentageErrorGetObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralPercentageErrorGetObj",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralPercentageErrorGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_analyticanalysis_integralpercentageerrorgetobj

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

  SUBROUTINE cmfe_analyticanalysis_integralabsoluteerrorgetnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & integralvalue,ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_integralabsoluteerrorget(field,variabletype,componentnumber,integralvalue,ghostintegralvalue, &
          & err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGetNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGetNumber",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralabsoluteerrorgetnumber

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

  SUBROUTINE cmfe_analyticanalysis_integralabsoluteerrorgetobj(field,variableType,componentNumber,integralValue, &
    & ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_integralabsoluteerrorget(field%field,variabletype,componentnumber,integralvalue,ghostintegralvalue, &
      & err,error,*999)

    exits("cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGetObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGetObj",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralabsoluteerrorgetobj

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

  SUBROUTINE cmfe_analyticanalysis_integralrelativeerrorgetnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & integralvalue,ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralRelativeErrorGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_integralrelativeerrorget(field,variabletype,componentnumber,integralvalue,ghostintegralvalue, &
          & err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_IntegralRelativeErrorGetNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralRelativeErrorGetNumber",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralRelativeErrorGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralrelativeerrorgetnumber

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

  SUBROUTINE cmfe_analyticanalysis_integralrelativeerrorgetobj(field,variableType,componentNumber,integralValue, &
    & ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralRelativeErrorGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_integralrelativeerrorget(field%field,variabletype,componentnumber,integralvalue,ghostintegralvalue, &
      & err,error,*999)

    exits("cmfe_AnalyticAnalysis_IntegralRelativeErrorGetObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralRelativeErrorGetObj",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralRelativeErrorGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralrelativeerrorgetobj

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

  SUBROUTINE cmfe_analyticanalysis_integralnidnumericalvaluegetnumber(regionUserNumber,fieldUserNumber,variableType, &
    & componentnumber,integralvalue,ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralNIDNumericalValueGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_integralnidnumericalvalueget(field,variabletype,componentnumber,integralvalue, &
          & ghostintegralvalue,err,error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_IntegralNIDNumericalValueGetNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralNIDNumericalValueGetNumber",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralNIDNumericalValueGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralnidnumericalvaluegetnumber

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

  SUBROUTINE cmfe_analyticanalysis_integralnidnumericalvaluegetobj(field,variableType,componentNumber,integralValue, &
    & ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralNIDNumericalValueGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_integralnidnumericalvalueget(field%field,variabletype,componentnumber,integralvalue, &
      & ghostintegralvalue,err,error,*999)

    exits("cmfe_AnalyticAnalysis_IntegralNidNumericalValueGetObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralNidNumericalValueGetObj",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralNidNumericalValueGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralnidnumericalvaluegetobj

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

  SUBROUTINE cmfe_analyticanalysis_integralniderrorgetnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & integralvalue,ghostintegralvalue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralNIDErrorGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL analyticanalysis_integralniderrorget(field,variabletype,componentnumber,integralvalue,ghostintegralvalue,err, &
          & error,*999)
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_AnalyticAnalysis_IntegralNidErrorGetNumber")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralNidErrorGetNumber",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralNidErrorGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralniderrorgetnumber

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

  SUBROUTINE cmfe_analyticanalysis_integralniderrorgetobj(field,variableType,componentNumber,integralValue,ghostIntegralValue,err)
    !DLLEXPORT(cmfe_AnalyticAnalysis_IntegralNIDErrorGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    REAL(DP), INTENT(OUT) :: integralValue(2)
    REAL(DP), INTENT(OUT) :: ghostIntegralValue(2)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL analyticanalysis_integralniderrorget(field%field,variabletype,componentnumber,integralvalue,ghostintegralvalue,err, &
      & error,*999)

    exits("cmfe_AnalyticAnalysis_IntegralNIDErrorGetObj")
    RETURN
999 errors("cmfe_AnalyticAnalysis_IntegralNIDErrorGetObj",err,error)
    exits("cmfe_AnalyticAnalysis_IntegralNIDErrorGetObj")
     CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_analyticanalysis_integralniderrorgetobj
  

!!==================================================================================================================================
!!
!! BASE_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_diagnosticssetoff(err)
    !DLLEXPORT(cmfe_DiagnosticsSetOff)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL diagnostics_set_off(err,error,*999)

    exits("cmfe_DiagnosticsSetOff")
    RETURN
999 errorsexits("cmfe_DiagnosticsSetOff",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_diagnosticssetoff

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

  SUBROUTINE cmfe_diagnosticsseton(diagType,levelList,diagFilename,routineList,err)
    !DLLEXPORT(cmfe_DiagnosticsSetOn)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: diagType
    INTEGER(INTG), INTENT(IN) :: levelList(:)
    CHARACTER(LEN=*), INTENT(IN) :: diagFilename
    CHARACTER(LEN=*), INTENT(IN) :: routineList(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DiagnosticsSetOn",err,error,*999)
    
#ifdef WITH_DIAGNOSTICS
    
    CALL diagnostics_set_on(diagtype,levellist,diagfilename,routinelist,err,error,*999)

#else

    CALL flagwarning("Can not turn diagnostics on as WITH_DIAGNOSTICS is set to OFF. Set WITH_DIAGNOSTICS to ON.",err,error,*999)
    
#endif

    exits("cmfe_DiagnosticsSetOn")
    RETURN
999 errorsexits("cmfe_DiagnosticsSetOn",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_diagnosticsseton

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

  SUBROUTINE cmfe_outputsetoff(err)
    !DLLEXPORT(cmfe_OutputSetOff)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL output_set_off(err,error,*999)

    exits("cmfe_OutputSetOff")
    RETURN
999 errorsexits("cmfe_OutputSetOff",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_outputsetoff

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

  SUBROUTINE cmfe_outputseton(echoFilename,err)
    !DLLEXPORT(cmfe_OutputSetOn)

    !Argument variables
    CHARACTER(LEN=*), INTENT(IN) :: echoFilename
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL output_set_on(echofilename,err,error,*999)

    exits("cmfe_OutputSetOn")
    RETURN
999 errorsexits("cmfe_OutputSetOn",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_outputseton

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

  SUBROUTINE cmfe_timingsetoff(err)
    !DLLEXPORT(cmfe_TimingSetOff)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL timing_set_off(err,error,*999)

    exits("cmfe_TimingSetOff")
    RETURN
999 errorsexits("cmfe_TimingSetOff",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_timingsetoff

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

  SUBROUTINE cmfe_timingseton(timingType,timingSummaryFlag,timingFilename,routineList,err)
    !DLLEXPORT(cmfe_TimingSetOn)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: timingType
    LOGICAL, INTENT(IN) :: timingSummaryFlag
    CHARACTER(LEN=*), INTENT(IN) :: timingFilename
    CHARACTER(LEN=*), INTENT(IN) :: routineList(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

#ifdef WITH_DIAGNOSTICS
    
    CALL timing_set_on(timingtype,timingsummaryflag,timingfilename,routinelist,err,error,*999)

#else

    CALL flagwarning("Can not turn timing on as WITH_DIAGNOSTICS is set to OFF. Set WITH_DIAGNOSTICS to ON.",err,error,*999)
    
#endif

    exits("cmfe_TimingSetOn")
    RETURN
999 errorsexits("cmfe_TimingSetOn",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_timingseton

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

  SUBROUTINE cmfe_timingsummaryoutput(err)
    !DLLEXPORT(cmfe_TimingSummaryOutput)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: ERR
    !Local variables

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

    CALL timing_summary_output(err,error,*999)

    exits("cmfe_TimingSummaryOutput")
    RETURN
999 errorsexits("cmfe_TimingSummaryOutput",err,error)
    RETURN

  END SUBROUTINE cmfe_timingsummaryoutput

!!==================================================================================================================================
!!
!! BASIS_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_basis_collapsedxigetnumber(userNumber,collapsedXi,err)
    !DLLEXPORT(cmfe_Basis_CollapsedXiGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: collapsedXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_collapsed_xi_get(basis,collapsedxi,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_CollapsedXiGetNumber")
    RETURN
999 errorsexits("cmfe_Basis_CollapsedXiGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_collapsedxigetnumber

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

  SUBROUTINE cmfe_basis_collapsedxigetobj(basis,collapsedXi,err)
    !DLLEXPORT(cmfe_Basis_CollapsedXiGetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(OUT) :: collapsedXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_collapsed_xi_get(basis%basis,collapsedxi,err,error,*999)

    exits("cmfe_Basis_CollapsedXiGetObj")
    RETURN
999 errorsexits("cmfe_Basis_CollapsedXiGetObj",err,error)
    CALL cmfe_handleerror(err,error)
   RETURN

  END SUBROUTINE cmfe_basis_collapsedxigetobj

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

  SUBROUTINE cmfe_basis_collapsedxisetnumber(userNumber,collapsedXi,err)
    !DLLEXPORT(cmfe_Basis_CollapsedXiSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(IN) :: collapsedXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_collapsed_xi_set(basis,collapsedxi,err,error,*999)
    ELSE
     localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_CollapsedXiSetNumber")
    RETURN
999 errorsexits("cmfe_Basis_CollapsedXiSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_collapsedxisetnumber

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

  SUBROUTINE cmfe_basis_collapsedxisetobj(basis,collapsedXi,err)
    !DLLEXPORT(cmfe_Basis_CollapsedXiSetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(IN) :: collapsedXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_collapsed_xi_set(basis%basis,collapsedxi,err,error,*999)

    exits("cmfe_Basis_CollapsedXiSetObj")
    RETURN
999 errorsexits("cmfe_Basis_CollapsedXiSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_collapsedxisetobj

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

  SUBROUTINE cmfe_basis_createfinishnumber(userNumber,err)
    !DLLEXPORT(cmfe_Basis_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_create_finish(basis,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Basis Create')
#endif

    exits("cmfe_Basis_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_Basis_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_createfinishnumber

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

  SUBROUTINE cmfe_basis_createfinishobj(basis,err)
    !DLLEXPORT(cmfe_Basis_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_create_finish(basis%basis,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('basis Create')
#endif

    exits("cmfe_Basis_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_Basis_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_createfinishobj

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

  SUBROUTINE cmfe_basis_createstartnumber(userNumber,err)
    !DLLEXPORT(cmfe_Basis_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS

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

#ifdef TAUPROF
    CALL tau_static_phase_start('Basis Create')
#endif

    NULLIFY(basis)
    CALL basis_create_start(usernumber,basis,err,error,*999)

    exits("cmfe_Basis_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_Basis_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_createstartnumber

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

  SUBROUTINE cmfe_basis_createstartobj(userNumber,basis,err)
    !DLLEXPORT(cmfe_Basis_CreateStartObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

#ifdef TAUPROF
    CALL tau_static_phase_start('basis Create')
#endif

    CALL basis_create_start(usernumber,basis%basis,err,error,*999)

    exits("cmfe_Basis_CreateStartObj")
    RETURN
999 errorsexits("cmfe_Basis_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_createstartobj

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

  SUBROUTINE cmfe_basis_destroynumber(userNumber,err)
    !DLLEXPORT(cmfe_Basis_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_destroy(basis,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_DestroyNumber")
    RETURN
999 errorsexits("cmfe_Basis_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_destroynumber

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

  SUBROUTINE cmfe_basis_destroyobj(basis,err)
    !DLLEXPORT(cmfe_Basis_DestroyObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_destroy(basis%basis,err,error,*999)

    exits("cmfe_Basis_DestroyObj")
    RETURN
999 errorsexits("cmfe_Basis_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_destroyobj

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

  SUBROUTINE cmfe_basis_interpolationxigetnumber(userNumber,interpolationXi,err)
    !DLLEXPORT(cmfe_Basis_InterpolationXiGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: interpolationXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_interpolation_xi_get(basis,interpolationxi,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_InterpolationXiGetNumber")
    RETURN
999 errorsexits("cmfe_Basis_InterpolationXiGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_interpolationxigetnumber

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

  SUBROUTINE cmfe_basis_interpolationxigetobj(basis,interpolationXi,err)
    !DLLEXPORT(cmfe_Basis_InterpolationXiGetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(OUT) :: interpolationXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_interpolation_xi_get(basis%basis,interpolationxi,err,error,*999)

    exits("cmfe_Basis_InterpolationXiGetObj")
    RETURN
999 errorsexits("cmfe_Basis_InterpolationXiGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    exits("cmfe_Basis_InterpolationXiGetObj")
    RETURN

  END SUBROUTINE cmfe_basis_interpolationxigetobj

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

  SUBROUTINE cmfe_basis_interpolationxisetnumber(userNumber,interpolationXi,err)
    !DLLEXPORT(cmfe_Basis_InterpolationXiSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(IN) :: interpolationXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_interpolation_xi_set(basis,interpolationxi,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_InterpolationXiSetNumber")
    RETURN
999 errorsexits("cmfe_Basis_InterpolationXiSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_interpolationxisetnumber

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

  SUBROUTINE cmfe_basis_interpolationxisetobj(basis,interpolationXi,err)
    !DLLEXPORT(cmfe_Basis_InterpolationXiSetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(IN) :: interpolationXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_interpolation_xi_set(basis%basis,interpolationxi,err,error,*999)

    exits("cmfe_Basis_InterpolationXiSetObj")
    RETURN
999 errorsexits("cmfe_Basis_InterpolationXiSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_interpolationxisetobj

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

  SUBROUTINE cmfe_basis_numberoflocalnodesgetnumber(userNumber,numberOfLocalNodes,err)
    !DLLEXPORT(cmfe_Basis_NumberOfLocalNodesGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfLocalNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_number_of_local_nodes_get(basis,numberoflocalnodes,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_NumberOfLocalNodesGetNumber")
    RETURN
999 errorsexits("cmfe_Basis_NumberOfLocalNodesGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_numberoflocalnodesgetnumber

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

  SUBROUTINE cmfe_basis_numberoflocalnodesgetobj(basis,numberOfLocalNodes,err)
    !DLLEXPORT(cmfe_Basis_NumberOfLocalNodesGetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(OUT) :: numberOfLocalNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_number_of_local_nodes_get(basis%basis,numberoflocalnodes,err,error,*999)

    exits("cmfe_Basis_NumberOfLocalNodesGetObj")
    RETURN
999 errorsexits("cmfe_Basis_NumberOfLocalNodesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_numberoflocalnodesgetobj

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

  SUBROUTINE cmfe_basis_numberofxigetnumber(userNumber,numberOfXi,err)
    !DLLEXPORT(cmfe_Basis_NumberOfXiGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfXi
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_number_of_xi_get(basis,numberofxi,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_NumberOfXiGetNumber")
    RETURN
999 errorsexits("cmfe_Basis_NumberOfXiGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_numberofxigetnumber

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

  SUBROUTINE cmfe_basis_numberofxigetobj(basis,numberOfXi,err)
    !DLLEXPORT(cmfe_Basis_NumberOfXiGetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(OUT) :: numberOfXi
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_number_of_xi_get(basis%basis,numberofxi,err,error,*999)

    exits("cmfe_Basis_NumberOfXiGetObj")
    RETURN
999 errorsexits("cmfe_Basis_NumberOfXiGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_numberofxigetobj

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

  SUBROUTINE cmfe_basis_numberofxisetnumber(userNumber,numberOfXi,err)
    !DLLEXPORT(cmfe_Basis_NumberOfXiSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(IN) :: numberOfXi
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_number_of_xi_set(basis,numberofxi,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_NumberOfXiSetNumber")
    RETURN
999 errorsexits("cmfe_Basis_NumberOfXiSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_numberofxisetnumber

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

  SUBROUTINE cmfe_basis_numberofxisetobj(basis,numberOfXi,err)
    !DLLEXPORT(cmfe_Basis_NumberOfXiSetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(IN) :: numberOfXi
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_number_of_xi_set(basis%basis,numberofxi,err,error,*999)

    exits("cmfe_Basis_NumberOfXiSetObj")
    RETURN
999 errorsexits("cmfe_Basis_NumberOfXiSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_numberofxisetobj

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

  SUBROUTINE cmfe_basis_quadraturenumberofgaussxigetnumber(userNumber,numberOfGaussXi,err)
    !DLLEXPORT(cmfe_Basis_QuadratureNumberOfGaussXiGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfGaussXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_quadrature_number_of_gauss_xi_get(basis,numberofgaussxi,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_QuadratureNumberOfGaussXiGetNumber")
    RETURN
999 errors("cmfe_Basis_QuadratureNumberOfGaussXiGetNumber",err,error)
    exits("cmfe_Basis_QuadratureNumberOfGaussXiGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturenumberofgaussxigetnumber

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

  SUBROUTINE cmfe_basis_quadraturenumberofgaussxigetobj(basis,numberOfGaussXi,err)
    !DLLEXPORT(cmfe_Basis_QuadratureNumberOfGaussXiGetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(OUT) :: numberOfGaussXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_quadrature_number_of_gauss_xi_get(basis%basis,numberofgaussxi,err,error,*999)

    exits("cmfe_Basis_QuadratureNumberOfGaussXiGetObj")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureNumberOfGaussXiGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturenumberofgaussxigetobj

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

  SUBROUTINE cmfe_basis_quadraturenumberofgaussxisetnumber(userNumber,numberOfGaussXi,err)
    !DLLEXPORT(cmfe_Basis_QuadratureNumberOfGaussXiSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(IN) :: numberOfGaussXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_quadrature_number_of_gauss_xi_set(basis,numberofgaussxi,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_QuadratureNumberOfGaussXiSetNumber")
    RETURN
999 errors("cmfe_Basis_QuadratureNumberOfGaussXiSetNumber",err,error)
    exits("cmfe_Basis_QuadratureNumberOfGaussXiSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturenumberofgaussxisetnumber

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

  SUBROUTINE cmfe_basis_quadraturenumberofgaussxisetobj(basis,numberOfGaussXi,err)
    !DLLEXPORT(cmfe_Basis_QuadratureNumberOfGaussXiSetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(IN) :: numberOfGaussXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_quadrature_number_of_gauss_xi_set(basis%basis,numberofgaussxi,err,error,*999)

    exits("cmfe_Basis_QuadratureNumberOfGaussXiSetObj")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureNumberOfGaussXiSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturenumberofgaussxisetobj

  !
  !================================================================================================================================
  !
  SUBROUTINE cmfe_basis_quadraturesinglegaussxigetnumber(userNumber,quadratureScheme,GaussPoint,GaussXi,err)
    !DLLEXPORT(cmfe_Basis_QuadratureSingleGaussXiGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(IN) :: quadratureScheme
    INTEGER(INTG), INTENT(IN) :: GaussPoint
    REAL(DP), INTENT(OUT) :: GaussXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_quadrature_single_gauss_xi_get(basis,quadraturescheme,gausspoint,gaussxi,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_QuadratureSingleGaussXiGetNumber")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureSingleGaussXiGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturesinglegaussxigetnumber

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

  SUBROUTINE cmfe_basis_quadraturesinglegaussxigetobj(basis,quadratureScheme,GaussPoint,GaussXi,err)
    !DLLEXPORT(cmfe_Basis_QuadratureSingleGaussXiGetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(IN) :: quadratureScheme
    INTEGER(INTG), INTENT(IN) :: GaussPoint
    REAL(DP), INTENT(OUT) :: GaussXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_quadrature_single_gauss_xi_get(basis%basis,quadraturescheme,gausspoint,gaussxi,err,error,*999)

    exits("cmfe_Basis_QuadratureSingleGaussXiGetObj")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureSingleGaussXiGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturesinglegaussxigetobj

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

  SUBROUTINE cmfe_basis_quadraturemultiplegaussxigetnumber(userNumber,quadratureScheme,GaussPoints,GaussXi,err)
    !DLLEXPORT(cmfe_Basis_QuadratureMultipleGaussXiGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(IN) :: quadratureScheme
    INTEGER(INTG), INTENT(IN) :: GaussPoints(:)
    REAL(DP), INTENT(OUT) :: GaussXi(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_quadrature_multiple_gauss_xi_get(basis,quadraturescheme,gausspoints,gaussxi,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_QuadratureMultipleGaussXiGetNumber")
    RETURN
999 errors("cmfe_Basis_QuadratureMultipleGaussXiGetNumber",err,error)
    exits("cmfe_Basis_QuadratureMultipleGaussXiGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturemultiplegaussxigetnumber

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

  SUBROUTINE cmfe_basis_quadraturemultiplegaussxigetobj(basis,quadratureScheme,GaussPoints,GaussXi,err)
    !DLLEXPORT(cmfe_Basis_QuadratureMultipleGaussXiGetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(IN) :: quadratureScheme
    INTEGER(INTG), INTENT(IN) :: GaussPoints(:)
    REAL(DP), INTENT(OUT) :: GaussXi(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_quadrature_multiple_gauss_xi_get(basis%basis,quadraturescheme,gausspoints,gaussxi,err,error,*999)

    exits("cmfe_Basis_QuadratureMultipleGaussXiGetObj")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureMultipleGaussXiGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturemultiplegaussxigetobj

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

  SUBROUTINE cmfe_basis_quadratureordergetnumber(userNumber,quadratureOrder,err)
    !DLLEXPORT(cmfe_Basis_QuadratureOrderGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: quadratureOrder
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_quadrature_order_get(basis,quadratureorder,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_QuadratureOrderGetNumber")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureOrderGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadratureordergetnumber

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

  SUBROUTINE cmfe_basis_quadratureordergetobj(basis,quadratureOrder,err)
    !DLLEXPORT(cmfe_Basis_QuadratureOrderGetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(OUT) :: quadratureOrder
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_quadrature_order_get(basis%basis,quadratureorder,err,error,*999)

    exits("cmfe_Basis_QuadratureOrderGetObj")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureOrderGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadratureordergetobj


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

  SUBROUTINE cmfe_basis_quadratureordersetnumber(userNumber,quadratureOrder,err)
    !DLLEXPORT(cmfe_Basis_QuadratureOrderSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(IN) :: quadratureOrder
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_quadrature_order_set(basis,quadratureorder,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_QuadratureOrderSetNumber")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureOrderSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadratureordersetnumber

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

  SUBROUTINE cmfe_basis_quadratureordersetobj(basis,quadratureOrder,err)
    !DLLEXPORT(cmfe_Basis_QuadratureOrderSetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(IN) :: quadratureOrder
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_quadrature_order_set(basis%basis,quadratureorder,err,error,*999)

    exits("cmfe_Basis_QuadratureOrderSetObj")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureOrderSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadratureordersetobj

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

  SUBROUTINE cmfe_basis_quadraturetypegetnumber(userNumber,quadratureType,err)
    !DLLEXPORT(cmfe_Basis_QuadratureTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: quadratureType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_quadrature_type_get(basis,quadraturetype,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_QuadratureTypeGetNumber")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturetypegetnumber

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

  SUBROUTINE cmfe_basis_quadraturetypegetobj(basis,quadratureType,err)
    !DLLEXPORT(cmfe_Basis_QuadratureTypeGetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(OUT) :: quadratureType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_quadrature_type_get(basis%basis,quadraturetype,err,error,*999)

    exits("cmfe_Basis_QuadratureTypeGetObj")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturetypegetobj

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

  SUBROUTINE cmfe_basis_quadraturetypesetnumber(userNumber,quadratureType,err)
    !DLLEXPORT(cmfe_Basis_QuadratureTypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(IN) :: quadratureType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_quadrature_type_set(basis,quadraturetype,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_QuadratureTypeSetNumber")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureTypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturetypesetnumber

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

  SUBROUTINE cmfe_basis_quadraturetypesetobj(basis,quadratureType,err)
    !DLLEXPORT(cmfe_Basis_QuadratureTypeSetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(IN) :: quadratureType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_quadrature_type_set(basis%basis,quadraturetype,err,error,*999)

    exits("cmfe_Basis_QuadratureTypeSetObj")
    RETURN
999 errorsexits("cmfe_Basis_QuadratureTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturetypesetobj

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

  SUBROUTINE cmfe_basis_quadraturelocalfacegaussevaluatesetnumber(userNumber,faceGaussEvaluate,err)
    !DLLEXPORT(cmfe_Basis_QuadratureLocalFaceGaussEvaluateSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    LOGICAL, INTENT(IN) :: faceGaussEvaluate
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_quadraturelocalfacegaussevaluateset(basis,facegaussevaluate,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_QuadratureLocalFaceGaussEvaluateSetNumber")
    RETURN
999 errors("cmfe_Basis_QuadratureLocalFaceGaussEvaluateSetNumber",err,error)
    exits("cmfe_Basis_QuadratureLocalFaceGaussEvaluateSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturelocalfacegaussevaluatesetnumber

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

  SUBROUTINE cmfe_basis_quadraturelocalfacegaussevaluatesetobj(basis,faceGaussEvaluate,err)
    !DLLEXPORT(cmfe_Basis_QuadratureLocalFaceGaussEvaluateSetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    LOGICAL, INTENT(IN) :: faceGaussEvaluate
    INTEGER(INTG), INTENT(OUT) :: err

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

    CALL basis_quadraturelocalfacegaussevaluateset(basis%basis,facegaussevaluate,err,error,*999)

    exits("cmfe_Basis_QuadratureLocalFaceGaussEvaluateSetObj")
    RETURN
999 errors("cmfe_Basis_QuadratureLocalFaceGaussEvaluateSetObj",err,error)
    exits("cmfe_Basis_QuadratureLocalFaceGaussEvaluateSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_quadraturelocalfacegaussevaluatesetobj

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

  SUBROUTINE cmfe_basis_typegetnumber(userNumber,basisType,err)
    !DLLEXPORT(cmfe_Basis_TypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: basisType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_type_get(basis,basistype,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_TypeGetNumber")
    RETURN
999 errorsexits("cmfe_Basis_TypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_typegetnumber

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

  SUBROUTINE cmfe_basis_typegetobj(basis,basisType,err)
    !DLLEXPORT(cmfe_Basis_TypeGetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(OUT) :: basisType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_type_get(basis%basis,basistype,err,error,*999)

    exits("cmfe_Basis_TypeGetObj")
    RETURN
999 errorsexits("cmfe_Basis_TypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_typegetobj

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

  SUBROUTINE cmfe_basis_typesetnumber(userNumber,basisType,err)
    !DLLEXPORT(cmfe_Basis_TypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(IN) :: basisType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(varying_string) :: localError

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

    NULLIFY(basis)
    CALL basis_user_number_find(usernumber,basis,err,error,*999)
    IF(ASSOCIATED(basis)) THEN
      CALL basis_type_set(basis,basistype,err,error,*999)
    ELSE
      localerror="A basis with an user number of "//trim(numbertovstring(usernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Basis_TypeSetNumber")
    RETURN
999 errorsexits("cmfe_Basis_TypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_typesetnumber

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

  SUBROUTINE cmfe_basis_typesetobj(basis,basisType,err)
    !DLLEXPORT(cmfe_Basis_TypeSetObj)

    !Argument variables
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(IN) :: basisType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL basis_type_set(basis%basis,basistype,err,error,*999)

    exits("cmfe_Basis_TypeSetObj")
    RETURN
999 errorsexits("cmfe_Basis_TypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_basis_typesetobj


!!==================================================================================================================================
!!
!! BOUNDARY_CONDITIONS_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_boundaryconditions_destroynumber0(problemUserNumber,controlLoopIdentifier,solverIndex,err)
    !DLLEXPORT(cmfe_BoundaryConditions_DestroyNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(varying_string) :: localError

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

    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifier,solverindex,solver_equations,err,error,*999)
      IF(ASSOCIATED(solver_equations)) THEN
        CALL solver_equations_boundary_conditions_get(solver_equations,boundary_conditions,err,error,*999)
        IF(ASSOCIATED(boundary_conditions)) THEN
          CALL boundary_conditions_destroy(boundary_conditions,err,error,*999)
        ELSE
          localerror="Solver equations boundary conditions is not associated."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_DestroyNumber0")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_DestroyNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_destroynumber0

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

  SUBROUTINE cmfe_boundaryconditions_destroynumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,err)
    !DLLEXPORT(cmfe_BoundaryConditions_DestroyNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(varying_string) :: localError

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

    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solver_equations,err,error,*999)
      IF(ASSOCIATED(solver_equations)) THEN
        CALL solver_equations_boundary_conditions_get(solver_equations,boundary_conditions,err,error,*999)
        IF(ASSOCIATED(boundary_conditions)) THEN
          CALL boundary_conditions_destroy(boundary_conditions,err,error,*999)
        ELSE
          localerror="Solver equations boundary conditions is not associated."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_DestroyNumber1")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_DestroyNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_destroynumber1

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

  SUBROUTINE cmfe_boundaryconditions_destroyobj(boundaryConditions,err)
    !DLLEXPORT(cmfe_BoundaryConditions_DestroyObj)

    !Argument variables
    TYPE(cmfe_boundaryconditionstype), INTENT(INOUT) :: boundaryConditions
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL boundary_conditions_destroy(boundaryconditions%boundaryConditions,err,error,*999)

    exits("cmfe_BoundaryConditions_DestroyObj")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_destroyobj

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

  SUBROUTINE cmfe_boundaryconditions_addconstantnumber(regionUserNumber,problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & fieldusernumber,variabletype,componentnumber,condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_AddConstantNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(field_type), POINTER :: DEPENDENT_FIELD
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    NULLIFY(dependent_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
      IF(ASSOCIATED(problem)) THEN
        CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solver_equations,err,error,*999)
        IF(ASSOCIATED(solver_equations)) THEN
          CALL solver_equations_boundary_conditions_get(solver_equations,boundary_conditions,err,error,*999)
          IF(ASSOCIATED(boundary_conditions)) THEN
            CALL field_user_number_find(fieldusernumber,region,dependent_field,err,error,*999)
            IF(ASSOCIATED(dependent_field)) THEN
              CALL boundary_conditions_add_constant(boundary_conditions,dependent_field,variabletype,componentnumber, &
                & condition,value,err,error,*999)
            ELSE
              localerror="A field with a user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
                & " does not exist."
              CALL flagerror(localerror,err,error,*999)
            END IF
          ELSE
            CALL flagerror("The solver equations boundary conditions are not associated.",err,error,*999)
          END IF
        ELSE
          CALL flagerror("The solver equations are not associated.",err,error,*999)
        END IF
      ELSE
        localerror="A problem with a user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_AddConstantNumber")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_AddConstantNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_addconstantnumber

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

  SUBROUTINE cmfe_boundaryconditions_addconstantobj(boundaryConditions,field,variableType,componentNumber,condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_AddConstantObj)

    !Argument variables
    TYPE(cmfe_boundaryconditionstype), INTENT(IN) :: boundaryConditions
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL boundary_conditions_add_constant(boundaryconditions%boundaryConditions,field%field,variabletype,componentnumber, &
      & condition,value,err,error,*999)

    exits("cmfe_BoundaryConditions_AddConstantObj")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_AddConstantObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_addconstantobj

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


  SUBROUTINE cmfe_boundaryconditions_setconstantnumber(regionUserNumber,problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & variabletype,fieldusernumber,componentnumber,condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_SetConstantNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(field_type), POINTER :: DEPENDENT_FIELD
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    NULLIFY(dependent_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
      IF(ASSOCIATED(problem)) THEN
        CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solver_equations,err,error,*999)
        IF(ASSOCIATED(solver_equations)) THEN
          CALL solver_equations_boundary_conditions_get(solver_equations,boundary_conditions,err,error,*999)
          IF(ASSOCIATED(boundary_conditions)) THEN
            CALL field_user_number_find(fieldusernumber,region,dependent_field,err,error,*999)
            IF(ASSOCIATED(dependent_field)) THEN
              CALL boundary_conditions_set_constant(boundary_conditions,dependent_field,variabletype,componentnumber, &
                & condition,value,err,error,*999)
            ELSE
              localerror="A field with a user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
                & " does not exist."
              CALL flagerror(localerror,err,error,*999)
            END IF
          ELSE
            CALL flagerror("The solver equations boundary conditions are not associated.",err,error,*999)
          END IF
        ELSE
          CALL flagerror("The solver equations are not associated.",err,error,*999)
        END IF
      ELSE
        localerror="A problem with a user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_SetConstantNumber")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_SetConstantNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_setconstantnumber

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

  SUBROUTINE cmfe_boundaryconditions_setconstantobj(boundaryConditions,field,variableType,componentNumber,condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_SetConstantObj)

    !Argument variables
    TYPE(cmfe_boundaryconditionstype), INTENT(IN) :: boundaryConditions
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL boundary_conditions_set_constant(boundaryconditions%boundaryConditions,field%field,variabletype,componentnumber, &
      & condition,value,err,error,*999)

    exits("cmfe_BoundaryConditions_SetConstantObj")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_SetConstantObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_setconstantobj

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

  SUBROUTINE cmfe_boundaryconditions_addelementnumber(regionUserNumber,problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & fieldusernumber,variabletype,elementusernumber,componentnumber,condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_AddElementNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(field_type), POINTER :: DEPENDENT_FIELD
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    NULLIFY(dependent_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
      IF(ASSOCIATED(problem)) THEN
        CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solver_equations,err,error,*999)
        IF(ASSOCIATED(solver_equations)) THEN
          CALL solver_equations_boundary_conditions_get(solver_equations,boundary_conditions,err,error,*999)
          IF(ASSOCIATED(boundary_conditions)) THEN
            CALL field_user_number_find(fieldusernumber,region,dependent_field,err,error,*999)
            IF(ASSOCIATED(dependent_field)) THEN
              CALL boundary_conditions_add_element(boundary_conditions,dependent_field,variabletype,elementusernumber, &
                & componentnumber,condition,value,err,error,*999)
            ELSE
              localerror="A field with a user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
                & " does not exist."
              CALL flagerror(localerror,err,error,*999)
            END IF
          ELSE
            CALL flagerror("The solver equations boundary conditions are not associated.",err,error,*999)
          END IF
        ELSE
          CALL flagerror("The solver equations are not associated.",err,error,*999)
        END IF
      ELSE
        localerror="A problem with a user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_AddElementNumber")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_AddElementNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_addelementnumber

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

  SUBROUTINE cmfe_boundaryconditions_addelementobj(boundaryConditions,field,variableType,elementUserNumber,componentNumber, &
    & condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_AddElementObj)

    !Argument variables
    TYPE(cmfe_boundaryconditionstype), INTENT(IN) :: boundaryConditions
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL boundary_conditions_add_element(boundaryconditions%boundaryConditions,field%field,variabletype,elementusernumber, &
      & componentnumber,condition,value,err,error,*999)

    exits("cmfe_BoundaryConditions_AddElementObj")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_AddElementObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_addelementobj

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

  SUBROUTINE cmfe_boundaryconditions_setelementnumber(regionUserNumber,problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & fieldusernumber,variabletype,elementusernumber,componentnumber,condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_SetElementNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(field_type), POINTER :: DEPENDENT_FIELD
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    NULLIFY(dependent_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
      IF(ASSOCIATED(problem)) THEN
        CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solver_equations,err,error,*999)
        IF(ASSOCIATED(solver_equations)) THEN
          CALL solver_equations_boundary_conditions_get(solver_equations,boundary_conditions,err,error,*999)
          IF(ASSOCIATED(boundary_conditions)) THEN
            CALL field_user_number_find(fieldusernumber,region,dependent_field,err,error,*999)
            IF(ASSOCIATED(dependent_field)) THEN
              CALL boundary_conditions_set_element(boundary_conditions,dependent_field,variabletype,elementusernumber, &
                & componentnumber,condition,value,err,error,*999)
            ELSE
              localerror="A field with a user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
                & " does not exist."
              CALL flagerror(localerror,err,error,*999)
            END IF
          ELSE
            CALL flagerror("The solver equations boundary conditions are not associated.",err,error,*999)
          END IF
        ELSE
          CALL flagerror("The solver equations are not associated.",err,error,*999)
        END IF
      ELSE
        localerror="A problem with a user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_SetElementNumber")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_SetElementNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_setelementnumber

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

  SUBROUTINE cmfe_boundaryconditions_setelementobj(boundaryConditions,field,variableType,elementUserNumber,componentNumber, &
    & condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_SetElementObj)

    !Argument variables
    TYPE(cmfe_boundaryconditionstype), INTENT(IN) :: boundaryConditions
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL boundary_conditions_set_element(boundaryconditions%boundaryConditions,field%field,variabletype,elementusernumber, &
      & componentnumber,condition,value,err,error,*999)

    exits("cmfe_BoundaryConditions_SetElementObj")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_SetElementObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_setelementobj

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

  SUBROUTINE cmfe_boundaryconditions_addnodenumber(regionUserNumber,problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & fieldusernumber,variabletype,versionnumber,derivativenumber,nodeusernumber,componentnumber,condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_AddNodeNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(field_type), POINTER :: DEPENDENT_FIELD
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    NULLIFY(dependent_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
      IF(ASSOCIATED(problem)) THEN
        CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solver_equations,err,error,*999)
        IF(ASSOCIATED(solver_equations)) THEN
          CALL solver_equations_boundary_conditions_get(solver_equations,boundary_conditions,err,error,*999)
          IF(ASSOCIATED(boundary_conditions)) THEN
            CALL field_user_number_find(fieldusernumber,region,dependent_field,err,error,*999)
            IF(ASSOCIATED(dependent_field)) THEN
              CALL boundary_conditions_add_node(boundary_conditions,dependent_field,variabletype,versionnumber,derivativenumber, &
                & nodeusernumber,componentnumber,condition,value,err,error,*999)
            ELSE
              localerror="A field with a user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
                & " does not exist."
              CALL flagerror(localerror,err,error,*999)
            END IF
          ELSE
            CALL flagerror("The solver equations boundary conditions are not associated.",err,error,*999)
          END IF
        ELSE
          CALL flagerror("The solver equations are not associated.",err,error,*999)
        END IF
      ELSE
        localerror="A problem with a user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_AddNodeNumber")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_AddNodeNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_addnodenumber

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

  SUBROUTINE cmfe_boundaryconditions_addnodeobj(boundaryConditions,field,variableType,versionNumber,derivativeNumber, &
      & nodeusernumber,componentnumber,condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_AddNodeObj)

    !Argument variables
    TYPE(cmfe_boundaryconditionstype), INTENT(IN) :: boundaryConditions
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL boundary_conditions_add_node(boundaryconditions%boundaryConditions,field%field,variabletype,versionnumber, &
      & derivativenumber,nodeusernumber,componentnumber,condition,value,err,error,*999)

    exits("cmfe_BoundaryConditions_AddNodeObj")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_AddNodeObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_addnodeobj

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

  SUBROUTINE cmfe_boundaryconditions_setnodenumber0(regionUserNumber,problemUserNumber,controlLoopIdentifier,solverIndex, &
    & fieldusernumber,variabletype,versionnumber,derivativenumber,nodeusernumber,componentnumber,condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_SetNodeNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(field_type), POINTER :: DEPENDENT_FIELD
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    NULLIFY(dependent_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
      IF(ASSOCIATED(problem)) THEN
        CALL problem_solver_equations_get(problem,controlloopidentifier,solverindex,solver_equations,err,error,*999)
        IF(ASSOCIATED(solver_equations)) THEN
          CALL solver_equations_boundary_conditions_get(solver_equations,boundary_conditions,err,error,*999)
          IF(ASSOCIATED(boundary_conditions)) THEN
            CALL field_user_number_find(fieldusernumber,region,dependent_field,err,error,*999)
            IF(ASSOCIATED(dependent_field)) THEN
              CALL boundary_conditions_set_node(boundary_conditions,dependent_field,variabletype,versionnumber,derivativenumber, &
                & nodeusernumber,componentnumber,condition,value,err,error,*999)
            ELSE
              localerror="A field with a user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
                & " does not exist."
              CALL flagerror(localerror,err,error,*999)
            END IF
          ELSE
            CALL flagerror("The solver equations boundary conditions are not associated.",err,error,*999)
          END IF
        ELSE
          CALL flagerror("The solver equations are not associated.",err,error,*999)
        END IF
      ELSE
        localerror="A problem with a user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_SetNodeNumber0")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_SetNodeNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_setnodenumber0

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

  SUBROUTINE cmfe_boundaryconditions_setnodenumber1(regionUserNumber,problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & fieldusernumber,variabletype,versionnumber,derivativenumber,nodeusernumber,componentnumber,condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_SetNodeNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(field_type), POINTER :: DEPENDENT_FIELD
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    NULLIFY(dependent_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
      IF(ASSOCIATED(problem)) THEN
        CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solver_equations,err,error,*999)
        IF(ASSOCIATED(solver_equations)) THEN
          CALL solver_equations_boundary_conditions_get(solver_equations,boundary_conditions,err,error,*999)
          IF(ASSOCIATED(boundary_conditions)) THEN
            CALL field_user_number_find(fieldusernumber,region,dependent_field,err,error,*999)
            IF(ASSOCIATED(dependent_field)) THEN
              CALL boundary_conditions_set_node(boundary_conditions,dependent_field,variabletype,versionnumber,derivativenumber, &
                & nodeusernumber,componentnumber,condition,value,err,error,*999)
            ELSE
              localerror="A field with a user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
                & " does not exist."
              CALL flagerror(localerror,err,error,*999)
            END IF
          ELSE
            CALL flagerror("The solver equations boundary conditions are not associated.",err,error,*999)
          END IF
        ELSE
          CALL flagerror("The solver equations are not associated.",err,error,*999)
        END IF
      ELSE
        localerror="A problem with a user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_SetNodeNumber1")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_SetNodeNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_setnodenumber1

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

  SUBROUTINE cmfe_boundaryconditions_setnodeobj(boundaryConditions,field,variableType,versionNumber,derivativeNumber, &
    & nodeusernumber,componentnumber,condition,value,err)
    !DLLEXPORT(cmfe_BoundaryConditions_SetNodeObj)

    !Argument variables
    TYPE(cmfe_boundaryconditionstype), INTENT(IN) :: boundaryConditions
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    INTEGER(INTG), INTENT(IN) :: condition
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL boundary_conditions_set_node(boundaryconditions%boundaryConditions,field%field,variabletype,versionnumber, &
      & derivativenumber,nodeusernumber,componentnumber,condition,value,err,error,*999)

    exits("cmfe_BoundaryConditions_SetNodeObj")
    RETURN
999 errorsexits("cmfe_BoundaryConditions_SetNodeObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_setnodeobj

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

  SUBROUTINE cmfe_boundaryconditions_neumannsparsitytypesetnumber0( &
      & problemusernumber,controlloopidentifier,solverindex,sparsitytype,err)
    !DLLEXPORT(cmfe_BoundaryConditions_NeumannSparsityTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_equations_type), POINTER :: solverEquations
    TYPE(boundary_conditions_type), POINTER :: boundaryConditions
    TYPE(varying_string) :: localError

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

    NULLIFY(problem)
    NULLIFY(solverequations)
    NULLIFY(boundaryconditions)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifier,solverindex,solverequations,err,error,*999)
      IF(ASSOCIATED(solverequations)) THEN
        CALL solver_equations_boundary_conditions_get(solverequations,boundaryconditions,err,error,*999)
        IF(ASSOCIATED(boundaryconditions)) THEN
          CALL boundaryconditions_neumannsparsitytypeset(boundaryconditions,sparsitytype,err,error,*999)
        ELSE
          localerror="Solver equations boundary conditions is not associated."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_NeumannSparsityTypeSetNumber0")
    RETURN
999 errors("cmfe_BoundaryConditions_NeumannSparsityTypeSetNumber0",err,error)
    exits("cmfe_BoundaryConditions_NeumannSparsityTypeSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_neumannsparsitytypesetnumber0

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

  SUBROUTINE cmfe_boundaryconditions_neumannsparsitytypesetnumber1( &
      & problemusernumber,controlloopidentifiers,solverindex,sparsitytype,err)
    !DLLEXPORT(cmfe_BoundaryConditions_NeumannSparsityTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_equations_type), POINTER :: solverEquations
    TYPE(boundary_conditions_type), POINTER :: boundaryConditions
    TYPE(varying_string) :: localError

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

    NULLIFY(problem)
    NULLIFY(solverequations)
    NULLIFY(boundaryconditions)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solverequations,err,error,*999)
      IF(ASSOCIATED(solverequations)) THEN
        CALL solver_equations_boundary_conditions_get(solverequations,boundaryconditions,err,error,*999)
        IF(ASSOCIATED(boundaryconditions)) THEN
          CALL boundaryconditions_neumannsparsitytypeset(boundaryconditions,sparsitytype,err,error,*999)
        ELSE
          localerror="Solver equations boundary conditions is not associated."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_NeumannSparsityTypeSetNumber1")
    RETURN
999 errors("cmfe_BoundaryConditions_NeumannSparsityTypeSetNumber1",err,error)
    exits("cmfe_BoundaryConditions_NeumannSparsityTypeSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_neumannsparsitytypesetnumber1

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

  SUBROUTINE cmfe_boundaryconditions_neumannsparsitytypesetobj(boundaryConditions,sparsityType,err)
    !DLLEXPORT(cmfe_BoundaryConditions_NeumannSparsityTypeSetObj)

    !Argument variables
    TYPE(cmfe_boundaryconditionstype), INTENT(INOUT) :: boundaryConditions
    INTEGER(INTG), INTENT(IN) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL boundaryconditions_neumannsparsitytypeset(boundaryconditions%boundaryConditions,sparsitytype,err,error,*999)

    exits("cmfe_BoundaryConditions_NeumannSparsityTypeSetObj")
    RETURN
999 errors("cmfe_BoundaryConditions_NeumannSparsityTypeSetObj",err,error)
    exits("cmfe_BoundaryConditions_NeumannSparsityTypeSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_neumannsparsitytypesetobj

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

  SUBROUTINE cmfe_boundaryconditions_constrainnodedofsequalnumber(regionUserNumber,problemUserNumber,controlLoopIdentifier, &
    & solverindex,fieldusernumber,fieldvariabletype,versionnumber,derivativenumber,component,nodes,coefficient,err)
    !DLLEXPORT(cmfe_BoundaryConditions_ConstrainNodeDofsEqualNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldVariableType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: component
    INTEGER(INTG), INTENT(IN) :: nodes(:)
    REAL(DP), INTENT(IN) :: coefficient
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_equations_type), POINTER :: solverEquations
    TYPE(boundary_conditions_type), POINTER :: boundaryConditions
    TYPE(field_type), POINTER :: field
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(problem)
    NULLIFY(solverequations)
    NULLIFY(field)

    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
      IF(ASSOCIATED(problem)) THEN
        CALL problem_solver_equations_get(problem,controlloopidentifier,solverindex,solverequations,err,error,*999)
        IF(ASSOCIATED(solverequations)) THEN
          CALL solver_equations_boundary_conditions_get(solverequations,boundaryconditions,err,error,*999)
          IF(ASSOCIATED(boundaryconditions)) THEN
            CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
            IF(ASSOCIATED(field)) THEN
              CALL boundaryconditions_constrainnodedofsequal(boundaryconditions,field, &
                & fieldvariabletype,versionnumber,derivativenumber,component,nodes,coefficient,err,error,*999)
            ELSE
              localerror="A field with a user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
                & " does not exist."
              CALL flagerror(localerror,err,error,*999)
            END IF
          ELSE
            localerror="The boundary conditions for the solver equations are not associated."
            CALL flagerror(localerror,err,error,*999)
          END IF
        ELSE
          CALL flagerror("The solver equations are not associated.",err,error,*999)
        END IF
      ELSE
        localerror="A problem with a user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_BoundaryConditions_ConstrainNodeDofsEqualNumber")
    RETURN
999 errors("cmfe_BoundaryConditions_ConstrainNodeDofsEqualNumber",err,error)
    exits("cmfe_BoundaryConditions_ConstrainNodeDofsEqualNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_constrainnodedofsequalnumber

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

  SUBROUTINE cmfe_boundaryconditions_constrainnodedofsequalobj( &
      & boundaryconditions,field,fieldvariabletype,versionnumber,derivativenumber,component,nodes,coefficient,err)
    !DLLEXPORT(cmfe_BoundaryConditions_ConstrainNodeDofsEqualObj)

    !Argument variables
    TYPE(cmfe_boundaryconditionstype), INTENT(IN) :: boundaryConditions
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: fieldVariableType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: component
    INTEGER(INTG), INTENT(IN) :: nodes(:)
    REAL(DP), INTENT(IN) :: coefficient
    INTEGER(INTG), INTENT(OUT) :: err

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

    CALL boundaryconditions_constrainnodedofsequal(boundaryconditions%boundaryConditions,field%field, &
      & fieldvariabletype,versionnumber,derivativenumber,component,nodes,coefficient,err,error,*999)

    exits("cmfe_BoundaryConditions_ConstrainNodeDofsEqualObj")
    RETURN
999 errors("cmfe_BoundaryConditions_ConstrainNodeDofsEqualObj",err,error)
    exits("cmfe_BoundaryConditions_ConstrainNodeDofsEqualObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_boundaryconditions_constrainnodedofsequalobj

!!==================================================================================================================================
!!
!! CMISS
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_errorhandlingmodeget(errorHandlingMode,err)
    !DLLEXPORT(cmfe_ErrorHandlingModeGet)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: errorHandlingMode
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cmfe_errorhandlingmodeget_(errorhandlingmode,err,error,*999)

    exits("cmfe_ErrorHandlingModeGet")
    RETURN
999 errorsexits("cmfe_ErrorHandlingModeGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_errorhandlingmodeget

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

  SUBROUTINE cmfe_errorhandlingmodeset(errorHandlingMode,err)
    !DLLEXPORT(cmfe_ErrorHandlingModeSet)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: errorHandlingMode
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cmfe_errorhandlingmodeset_(errorhandlingmode,err,error,*999)

    exits("cmfe_ErrorHandlingModeSet")
    RETURN
999 errorsexits("cmfe_ErrorHandlingModeSet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_errorhandlingmodeset

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

  SUBROUTINE cmfe_extracterrormessagec(errorMessage,err)
    !DLLEXPORT(cmfe_ExtractErrorMessageC)

    !Argument variables
    CHARACTER(LEN=*), INTENT(OUT) :: errorMessage
    INTEGER(INTG), INTENT(IN) :: err
    !Local variables

    CALL extracterrormessage(errormessage,err,error,*999)

    RETURN
999 RETURN

  END SUBROUTINE cmfe_extracterrormessagec

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

  SUBROUTINE cmfe_extracterrormessagevs(errorMessage,err)
    !DLLEXPORT(cmfe_ExtractErrorMessageVS)

    !Argument variables
    TYPE(varying_string), INTENT(OUT) :: errorMessage
    INTEGER(INTG), INTENT(IN) :: err
    !Local variables

    CALL extracterrormessage(errormessage,err,error,*999)

    RETURN
999 RETURN

  END SUBROUTINE cmfe_extracterrormessagevs

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

  SUBROUTINE cmfe_randomseedsget0(randomSeed,err)
    !DLLEXPORT(cmfe_RandomSeedsGet0)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: randomSeed
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    INTEGER(INTG) :: RandomSeeds(1)

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

    CALL random_seeds_get(randomseeds,err,error,*999)
    randomseed=randomseeds(1)

    exits("cmfe_RandomSeedsGet0")
    RETURN
999 errorsexits("cmfe_RandomSeedsGet0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_randomseedsget0

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

  SUBROUTINE cmfe_randomseedsget1(randomSeeds,err)
    !DLLEXPORT(cmfe_RandomSeedsGet1)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: randomSeeds(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL random_seeds_get(randomseeds,err,error,*999)

    exits("cmfe_RandomSeedsGet1")
    RETURN
999 errorsexits("cmfe_RandomSeedsGet1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_randomseedsget1

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

  SUBROUTINE cmfe_randomseedssizeget(randomSeedsSize,err)
    !DLLEXPORT(cmfe_RandomSeedsSizeGet)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: randomSeedsSize
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL random_seeds_size_get(randomseedssize,err,error,*999)

    exits("cmfe_RandomSeedsSizeGet")
    RETURN
999 errorsexits("cmfe_RandomSeedsSizeGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_randomseedssizeget

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

  SUBROUTINE cmfe_randomseedsset0(randomSeed,err)
    !DLLEXPORT(cmfe_RandomSeedsSet0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: randomSeed
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL random_seeds_set([randomseed],err,error,*999)

    exits("cmfe_RandomSeedsSet0")
    RETURN
999 errorsexits("cmfe_RandomSeedsSet0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_randomseedsset0

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

  SUBROUTINE cmfe_randomseedsset1(randomSeeds,err)
    !DLLEXPORT(cmfe_RandomSeedsSet1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: randomSeeds(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL random_seeds_set(randomseeds,err,error,*999)

    exits("cmfe_RandomSeedsSet1")
    RETURN
999 errorsexits("cmfe_RandomSeedsSet1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_randomseedsset1

!!==================================================================================================================================
!!
!! CMISS_CELLML
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_cellml_variablesetasknownnumberc(regionUserNumber,CellMLUserNumber,CellMLModelUserNumber,variableID,err)
    !DLLEXPORT(cmfe_CellML_VariableSetAsKnownNumberC)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_variable_set_as_known(cellml,cellmlmodelusernumber,variableid,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_VariableSetAsKnownNumberC")
    RETURN
999 errorsexits("cmfe_CellML_VariableSetAsKnownNumberC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_variablesetasknownnumberc

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

  SUBROUTINE cmfe_cellml_variablesetasknownobjc(CellML,CellMLModelUserNumber,variableID,err)
    !DLLEXPORT(cmfe_CellML_VariableSetAsKnownObjC)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(IN) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_variable_set_as_known(cellml%CELLML,cellmlmodelusernumber,variableid,err,error,*999)

    exits("cmfe_CellML_VariableSetAsKnownObjC")
    RETURN
999 errorsexits("cmfe_CellML_VariableSetAsKnownObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_variablesetasknownobjc

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

  SUBROUTINE cmfe_cellml_variablesetasknownnumbervs(regionUserNumber,CellMLUserNumber,CellMLModelUserNumber,variableID,err)
    !DLLEXPORT(cmfe_CellML_VariableSetAsKnownNumberVS)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    TYPE(varying_string), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_variable_set_as_known(cellml,cellmlmodelusernumber,variableid,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_VariableSetAsKnownNumberVS")
    RETURN
999 errorsexits("cmfe_CellML_VariableSetAsKnownNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_variablesetasknownnumbervs

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

  SUBROUTINE cmfe_cellml_variablesetasknownobjvs(CellML,CellMLModelUserNumber,variableID,err)
    !DLLEXPORT(cmfe_CellML_VariableSetAsKnownObjVS)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(IN) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    TYPE(varying_string), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_variable_set_as_known(cellml%CELLML,cellmlmodelusernumber,variableid,err,error,*999)

    exits("cmfe_CellML_VariableSetAsKnownObjVS")
    RETURN
999 errorsexits("cmfe_CellML_VariableSetAsKnownObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_variablesetasknownobjvs

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

  SUBROUTINE cmfe_cellml_variablesetaswantednumberc(regionUserNumber,CellMLUserNumber,CellMLModelUserNumber,variableID,err)
    !DLLEXPORT(cmfe_CellML_VariableSetAsWantedNumberC)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_variable_set_as_wanted(cellml,cellmlmodelusernumber,variableid,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_VariableSetAsWantedNumberC")
    RETURN
999 errorsexits("cmfe_CellML_VariableSetAsWantedNumberC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_variablesetaswantednumberc

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

  SUBROUTINE cmfe_cellml_variablesetaswantedobjc(CellML,CellMLModelUserNumber,variableID,err)
    !DLLEXPORT(cmfe_CellML_VariableSetAsWantedObjC)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(IN) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_variable_set_as_wanted(cellml%CELLML,cellmlmodelusernumber,variableid,err,error,*999)

    exits("cmfe_CellML_VariableSetAsWantedObjC")
    RETURN
999 errorsexits("cmfe_CellML_VariableSetAsWantedObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_variablesetaswantedobjc

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

  SUBROUTINE cmfe_cellml_variablesetaswantednumbervs(regionUserNumber,CellMLUserNumber,CellMLModelUserNumber,variableID,err)
    !DLLEXPORT(cmfe_CellML_VariableSetAsWantedNumberVS)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    TYPE(varying_string), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_variable_set_as_wanted(cellml,cellmlmodelusernumber,variableid,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_VariableSetAsWantedNumberVS")
    RETURN
999 errorsexits("cmfe_CellML_VariableSetAsWantedNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_variablesetaswantednumbervs

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

  SUBROUTINE cmfe_cellml_variablesetaswantedobjvs(CellML,CellMLModelUserNumber,variableID,err)
    !DLLEXPORT(cmfe_CellML_VariableSetAsWantedObjVS)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(IN) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    TYPE(varying_string), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_variable_set_as_wanted(cellml%CELLML,cellmlmodelusernumber,variableid,err,error,*999)

    exits("cmfe_CellML_VariableSetAsWantedObjVS")
    RETURN
999 errorsexits("cmfe_CellML_VariableSetAsWantedObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_variablesetaswantedobjvs

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

  SUBROUTINE cmfe_cellml_createcellmltofieldmapnumberc(regionUserNumber,CellMLUserNumber,CellMLModelUserNumber,variableID, &
    & cellmlparameterset,fieldusernumber,variabletype,componentnumber,fieldparameterset,err)
    !DLLEXPORT(cmfe_CellML_CreateCellMLToFieldMapNumberC)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLParameterSet
    CHARACTER(LEN=*), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: fieldParameterSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL cellml_create_cellml_to_field_map(cellml,cellmlmodelusernumber,variableid,cellmlparameterset, &
            & field,variabletype,componentnumber,fieldparameterset,err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_CreateCellMLToFieldMapNumberC")
    RETURN
999 errorsexits("cmfe_CellML_CreateCellMLToFieldMapNumberC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createcellmltofieldmapnumberc

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

  SUBROUTINE cmfe_cellml_createcellmltofieldmapobjc(CellML, CellMLModelUserNumber,variableID,CellMLParameterSet, &
    & field,variabletype,componentnumber,fieldparameterset,err)
    !DLLEXPORT(cmfe_CellML_CreateCellMLToFieldMapObjC)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(IN) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(IN) :: CellMLParameterSet
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: fieldParameterSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_create_cellml_to_field_map(cellml%CELLML,cellmlmodelusernumber,variableid,cellmlparameterset, &
      & field%field,variabletype,componentnumber,fieldparameterset,err,error,*999)

    exits("cmfe_CellML_CreateCellMLToFieldMapObjC")
    RETURN
999 errorsexits("cmfe_CellML_CreateCellMLToFieldMapObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createcellmltofieldmapobjc

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

  SUBROUTINE cmfe_cellml_createcellmltofieldmapnumbervs(regionUserNumber,CellMLUserNumber,CellMLModelUserNumber,variableID, &
    & cellmlparameterset,fieldusernumber,variabletype,componentnumber,fieldparameterset,err)
    !DLLEXPORT(cmfe_CellML_CreateCellMLToFieldMapNumberVS)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    TYPE(varying_string), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(IN) :: CellMLParameterSet
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: fieldParameterSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL cellml_create_cellml_to_field_map(cellml,cellmlmodelusernumber,variableid,cellmlparameterset, &
            & field,variabletype,componentnumber,fieldparameterset,err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_CreateCellMLToFieldMapNumberVS")
    RETURN
999 errorsexits("cmfe_CellML_CreateCellMLToFieldMapNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createcellmltofieldmapnumbervs

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

  SUBROUTINE cmfe_cellml_createcellmltofieldmapobjvs(CellML,CellMLModelUserNumber,variableID,CellMLParameterSet, &
    & field,variabletype,componentnumber,fieldparameterset,err)
    !DLLEXPORT(cmfe_CellML_CreateCellMLToFieldMapObjVS)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(IN) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    TYPE(varying_string), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(IN) :: CellMLParameterSet
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: fieldParameterSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_create_cellml_to_field_map(cellml%CELLML,cellmlmodelusernumber,variableid,cellmlparameterset, &
      & field%field,variabletype,componentnumber,fieldparameterset,err,error,*999)

    exits("cmfe_CellML_CreateCellMLToFieldMapObjVS")
    RETURN
999 errorsexits("cmfe_CellML_CreateCellMLToFieldMapObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createcellmltofieldmapobjvs

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

  SUBROUTINE cmfe_cellml_createfieldtocellmlmapnumberc(regionUserNumber,CellMLUserNumber,fieldUserNumber,variableType, &
    & componentnumber,fieldparameterset,cellmlmodelusernumber,variableid,cellmlparameterset,err)
    !DLLEXPORT(cmfe_CellML_CreateFieldToCellMLMapNumberC)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: fieldParameterSet
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(IN) :: CellMLParameterSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL cellml_create_field_to_cellml_map(cellml,field,variabletype,componentnumber,fieldparameterset, &
            & cellmlmodelusernumber,variableid,cellmlparameterset,err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_CreateFieldToCellMLMapNumberC")
    RETURN
999 errorsexits("cmfe_CellML_CreateFieldToCellMLMapNumberC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createfieldtocellmlmapnumberc

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

  SUBROUTINE cmfe_cellml_createfieldtocellmlmapobjc(CellML,field,variableType,componentNumber,fieldParameterSet, &
    & cellmlmodelusernumber,variableid,cellmlparameterset,err)
    !DLLEXPORT(cmfe_CellML_CreateFieldToCellMLMapObjC)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(IN) :: CellML
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: fieldParameterSet
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(IN) :: CellMLParameterSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_create_field_to_cellml_map(cellml%CELLML,field%field,variabletype,componentnumber,fieldparameterset, &
      & cellmlmodelusernumber,variableid,cellmlparameterset,err,error,*999)

    exits("cmfe_CellML_CreateFieldToCellMLMapObjC")
    RETURN
999 errorsexits("cmfe_CellML_CreateFieldToCellMLMapObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createfieldtocellmlmapobjc

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

  SUBROUTINE cmfe_cellml_createfieldtocellmlmapnumbervs(regionUserNumber,CellMLUserNumber,fieldUserNumber,variableType, &
    & fieldparameterset,componentnumber,cellmlmodelusernumber,variableid,cellmlparameterset,err)
    !DLLEXPORT(cmfe_CellML_CreateFieldToCellMLMapNumberVS)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: fieldParameterSet
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    TYPE(varying_string), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(IN) :: CellMLParameterSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL cellml_create_field_to_cellml_map(cellml,field,variabletype,componentnumber,fieldparameterset, &
            & cellmlmodelusernumber,variableid,cellmlparameterset,err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_CreateFieldToCellMLMapNumberVS")
    RETURN
999 errorsexits("cmfe_CellML_CreateFieldToCellMLMapNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createfieldtocellmlmapnumbervs

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

  SUBROUTINE cmfe_cellml_createfieldtocellmlmapobjvs(CellML,field,variableType,componentNumber,fieldParameterSet, &
    & cellmlmodelusernumber,variableid,cellmlparameterset,err)
    !DLLEXPORT(cmfe_CellML_CreateFieldToCellMLMapObjVS)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(IN) :: CellML
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: fieldParameterSet
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    TYPE(varying_string), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(IN) :: CellMLParameterSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_create_field_to_cellml_map(cellml%CELLML,field%field,variabletype,componentnumber,fieldparameterset, &
      & cellmlmodelusernumber,variableid,cellmlparameterset,err,error,*999)

    exits("cmfe_CellML_CreateFieldToCellMLMapObjVS")
    RETURN
999 errorsexits("cmfe_CellML_CreateFieldToCellMLMapObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createfieldtocellmlmapobjvs

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

  SUBROUTINE cmfe_cellml_createfinishnumber(regionUserNumber,CellMLUserNumber,err)
    !DLLEXPORT(cmfe_CellML_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_create_finish(cellml,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_start('CellML Create')
#endif

    exits("cmfe_CellML_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_CellML_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createfinishnumber

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

  SUBROUTINE cmfe_cellml_createfinishobj(CellML,err)
    !DLLEXPORT(cmfe_CellML_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_create_finish(cellml%CELLML,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('CellML Create')
#endif

    exits("cmfe_CellML_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_CellML_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createfinishobj

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

  SUBROUTINE cmfe_cellml_createstartnumber(CellMLUserNumber,regionUserNumber,err)
    !DLLEXPORT(cmfe_CellML_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

#ifdef TAUPROF
    CALL tau_static_phase_start('CellML Create')
#endif

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_create_start(cellmlusernumber,region,cellml,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_CellML_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createstartnumber

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

  SUBROUTINE cmfe_cellml_createstartobj(CellMLUserNumber,region,CellML,err)
    !DLLEXPORT(cmfe_CellML_CreateStartObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

#ifdef TAUPROF
    CALL tau_static_phase_start('CellML Create')
#endif

    CALL cellml_create_start(cellmlusernumber,region%region,cellml%CELLML,err,error,*999)

    exits("cmfe_CellML_CreateStartObj")
    RETURN
999 errorsexits("cmfe_CellML_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_createstartobj

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

  SUBROUTINE cmfe_cellml_destroynumber(regionUserNumber,CellMLUserNumber,err)
    !DLLEXPORT(cmfe_CellML_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_destroy(cellml,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_DestroyNumber")
    RETURN
999 errorsexits("cmfe_CellML_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_destroynumber

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

  SUBROUTINE cmfe_cellml_destroyobj(CellML,err)
    !DLLEXPORT(cmfe_CellML_DestroyObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_destroy(cellml%CELLML,err,error,*999)

    exits("cmfe_CellML_DestroyObj")
    RETURN
999 errorsexits("cmfe_CellML_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_destroyobj

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

  SUBROUTINE cmfe_cellml_fieldmapscreatefinishnumber(regionUserNumber,CellMLUserNumber,err)
    !DLLEXPORT(cmfe_CellML_FieldMapsCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_field_maps_create_finish(cellml,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_start('CellML Create')
#endif

    exits("cmfe_CellML_FieldMapsCreateFinishNumber")
    RETURN
999 errorsexits("cmfe_CellML_FieldMapsCreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_fieldmapscreatefinishnumber

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

  SUBROUTINE cmfe_cellml_fieldmapscreatefinishobj(CellML,err)
    !DLLEXPORT(cmfe_CellML_FieldMapsCreateFinishObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_field_maps_create_finish(cellml%CELLML,err,error,*999)

    exits("cmfe_CellML_FieldMapsCreateFinishObj")
    RETURN
999 errorsexits("cmfe_CellML_FieldMapsCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_fieldmapscreatefinishobj

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

  SUBROUTINE cmfe_cellml_fieldmapscreatestartnumber(regionUserNumber,CellMLUserNumber,err)
    !DLLEXPORT(cmfe_CellML_FieldMapsCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_field_maps_create_start(cellml,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellMLFieldCreateStartNumber")
    RETURN
999 errorsexits("cmfe_CellMLFieldCreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_fieldmapscreatestartnumber

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

  SUBROUTINE cmfe_cellml_fieldmapscreatestartobj(CellML,err)
    !DLLEXPORT(cmfe_CellML_FieldMapsCreateStartObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_field_maps_create_start(cellml%CELLML,err,error,*999)

    exits("cmfe_CellML_FieldMapsCreateStartObj")
    RETURN
999 errorsexits("cmfe_CellML_FieldMapsCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_fieldmapscreatestartobj

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

  SUBROUTINE cmfe_cellml_modelimportnumberc(regionUserNumber,CellMLUserNumber,URI,modelIndex,err)
    !DLLEXPORT(cmfe_CellML_ModelImportNumberC)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: URI
    INTEGER(INTG), INTENT(OUT) :: modelIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_model_import(cellml,uri,modelindex,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_ModelImportNumberC")
    RETURN
999 errorsexits("cmfe_CellML_ModelImportNumberC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_modelimportnumberc

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

  SUBROUTINE cmfe_cellml_modelimportobjc(CellML,URI,modelIndex,err)
    !DLLEXPORT(cmfe_CellML_ModelImportObjC)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    CHARACTER(LEN=*), INTENT(IN) :: URI
    INTEGER(INTG), INTENT(OUT) :: modelIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_model_import(cellml%CELLML,uri,modelindex,err,error,*999)

    exits("cmfe_CellML_ModelImportObjC")
    RETURN
999 errorsexits("cmfe_CellML_ModelImportObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_modelimportobjc

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

  SUBROUTINE cmfe_cellml_modelimportnumbervs(regionUserNumber,CellMLUserNumber,URI,modelIndex,err)
    !DLLEXPORT(cmfe_CellML_ModelImportNumberVS)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    TYPE(varying_string), INTENT(IN) :: URI
    INTEGER(INTG), INTENT(OUT) :: modelIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_model_import(cellml,uri,modelindex,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_ModelImportNumberVS")
    RETURN
999 errorsexits("cmfe_CellML_ModelImportNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_modelimportnumbervs

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

  SUBROUTINE cmfe_cellml_modelimportobjvs(CellML,URI,modelIndex,err)
    !DLLEXPORT(cmfe_CellML_ModelImportObjVS)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    TYPE(varying_string), INTENT(IN) :: URI
    INTEGER(INTG), INTENT(OUT) :: modelIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_model_import(cellml%CELLML,uri,modelindex,err,error,*999)

    exits("cmfe_CellML_ModelImportObjVS")
    RETURN
999 errorsexits("cmfe_CellML_ModelImportObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_modelimportobjvs

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

  SUBROUTINE cmfe_cellml_modelsfieldcreatefinishnumber(regionUserNumber,CellMLUserNumber,err)
    !DLLEXPORT(cmfe_CellML_ModelsFieldCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_models_field_create_finish(cellml,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_ModelsFieldCreateFinishNumber")
    RETURN
999 errorsexits("cmfe_CellML_ModelsFieldCreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_modelsfieldcreatefinishnumber

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

  SUBROUTINE cmfe_cellml_modelsfieldcreatefinishobj(CellML,err)
    !DLLEXPORT(cmfe_CellML_ModelsFieldCreateFinishObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_models_field_create_finish(cellml%CELLML,err,error,*999)

    exits("cmfe_CellML_ModelsFieldCreateFinishObj")
    RETURN
999 errorsexits("cmfe_CellML_ModelsFieldCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_modelsfieldcreatefinishobj

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

  SUBROUTINE cmfe_cellml_modelsfieldcreatestartnumber(regionUserNumber,CellMLUserNumber,CellMLModelsFieldUserNumber,err)
    !DLLEXPORT(cmfe_CellML_ModelsFieldCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLModelsFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_models_field_create_start(cellmlmodelsfieldusernumber,cellml,field,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_ModelsFieldCreateStartNumber")
    RETURN
999 errorsexits("cmfe_CellML_ModelsFieldCreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_modelsfieldcreatestartnumber

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

  SUBROUTINE cmfe_cellml_modelsfieldcreatestartobj(CellML,CellMLModelsFieldUserNumber,field,err)
    !DLLEXPORT(cmfe_CellML_ModelsFieldCreateStartObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLModelsFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_models_field_create_start(cellmlmodelsfieldusernumber,cellml%CELLML,field%field,err,error,*999)

    exits("cmfe_CellML_ModelsFieldCreateStartObj")
    RETURN
999 errorsexits("cmfe_CellML_ModelsFieldCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_modelsfieldcreatestartobj

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

  SUBROUTINE cmfe_cellml_modelsfieldgetnumber(regionUserNumber,CellMLUserNumber,CellMLModelsFieldUserNumber,err)
    !DLLEXPORT(cmfe_CellML_ModelsFieldGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: CellMLModelsFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_models_field_get(cellml,field,err,error,*999)
        cellmlmodelsfieldusernumber = field%USER_NUMBER
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_ModelsFieldGetNumber")
    RETURN
999 errorsexits("cmfe_CellML_ModelsFieldGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_modelsfieldgetnumber

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

  SUBROUTINE cmfe_cellml_modelsfieldgetobj(CellML,field,err)
    !DLLEXPORT(cmfe_CellML_ModelsFieldGetObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_models_field_get(cellml%CELLML,field%field,err,error,*999)

    exits("cmfe_CellML_ModelsFieldGetObj")
    RETURN
999 errorsexits("cmfe_CellML_ModelsFieldGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_modelsfieldgetobj

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

  SUBROUTINE cmfe_cellml_statefieldcreatefinishnumber(regionUserNumber,CellMLUserNumber,err)
    !DLLEXPORT(cmfe_CellML_StateFieldCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_state_field_create_finish(cellml,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_StateFieldCreateFinishNumber")
    RETURN
999 errorsexits("cmfe_CellML_StateFieldCreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_statefieldcreatefinishnumber

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

  SUBROUTINE cmfe_cellml_statefieldcreatefinishobj(CellML,err)
    !DLLEXPORT(cmfe_CellML_StateFieldCreateFinishObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_state_field_create_finish(cellml%CELLML,err,error,*999)

    exits("cmfe_CellML_StateFieldCreateFinishObj")
    RETURN
999 errorsexits("cmfe_CellML_StateFieldCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_statefieldcreatefinishobj

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

  SUBROUTINE cmfe_cellml_statefieldcreatestartnumber(regionUserNumber,CellMLUserNumber,CellMLStateFieldUserNumber,err)
    !DLLEXPORT(cmfe_CellML_StateFieldCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLStateFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_state_field_create_start(cellmlstatefieldusernumber,cellml,field,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_StateFieldCreateStartNumber")
    RETURN
999 errorsexits("cmfe_CellML_StateFieldCreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_statefieldcreatestartnumber

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

  SUBROUTINE cmfe_cellml_statefieldcreatestartobj(CellML,CellMLStateFieldUserNumber,field,err)
    !DLLEXPORT(cmfe_CellML_StateFieldCreateStartObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLStateFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_state_field_create_start(cellmlstatefieldusernumber,cellml%CELLML,field%field,err,error,*999)

    exits("cmfe_CellML_StateFieldCreateStartObj")
    RETURN
999 errorsexits("cmfe_CellML_StateFieldCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_statefieldcreatestartobj

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

  SUBROUTINE cmfe_cellml_statefieldgetnumber(regionUserNumber,CellMLUserNumber,CellMLStateFieldUserNumber,err)
    !DLLEXPORT(cmfe_CellML_StateFieldGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: CellMLStateFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_state_field_get(cellml,field,err,error,*999)
        cellmlstatefieldusernumber = field%USER_NUMBER
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_StateFieldGetNumber")
    RETURN
999 errorsexits("cmfe_CellML_StateFieldGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_statefieldgetnumber

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

  SUBROUTINE cmfe_cellml_statefieldgetobj(CellML,field,err)
    !DLLEXPORT(cmfe_CellML_StateFieldGetObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_state_field_get(cellml%CELLML,field%field,err,error,*999)

    exits("cmfe_CellML_StateFieldGetObj")
    RETURN
999 errorsexits("cmfe_CellML_StateFieldGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_statefieldgetobj

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

  SUBROUTINE cmfe_cellml_fieldcomponentgetnumberc(regionUserNumber,CellMLUserNumber,CellMLModelUserNumber,CellMLFieldType,&
  & variableid,fieldcomponent,err)
    !DLLEXPORT(cmfe_CellML_FieldComponentGetNumberC)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLFieldType
    CHARACTER(LEN=*), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: fieldComponent
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_field_component_get(cellml,cellmlmodelusernumber,cellmlfieldtype,variableid,fieldcomponent,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_FieldComponentGetNumberC")
    RETURN
999 errorsexits("cmfe_CellML_FieldComponentGetNumberC",err,error)
    CALL cmfe_handleerror(err,error)

    RETURN

  END SUBROUTINE cmfe_cellml_fieldcomponentgetnumberc

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

  SUBROUTINE cmfe_cellml_fieldcomponentgetobjc(CellML,CellMLModelUserNumber,CellMLFieldType,variableID,fieldComponent,err)
    !DLLEXPORT(cmfe_CellML_FieldComponentGetObjC)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLFieldType
    CHARACTER(LEN=*), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: fieldComponent
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_field_component_get(cellml%CELLML,cellmlmodelusernumber,cellmlfieldtype,variableid,fieldcomponent,err,error,*999)

    exits("cmfe_CellML_FieldComponentGetObjC")
    RETURN
999 errorsexits("cmfe_CellML_FieldComponentGetObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_fieldcomponentgetobjc

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

  SUBROUTINE cmfe_cellml_fieldcomponentgetnumbervs(regionUserNumber,CellMLUserNumber,CellMLModelUserNumber,CellMLFieldType,&
  & variableid,fieldcomponent,err)
    !DLLEXPORT(cmfe_CellML_FieldComponentGetNumberVS)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLFieldType
    TYPE(varying_string), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: fieldComponent
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_field_component_get(cellml,cellmlmodelusernumber,cellmlfieldtype,variableid,fieldcomponent,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_FieldComponentGetNumberVS")
    RETURN
999 errorsexits("cmfe_CellML_FieldComponentGetNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_fieldcomponentgetnumbervs

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

  SUBROUTINE cmfe_cellml_fieldcomponentgetobjvs(CellML,CellMLModelUserNumber,CellMLFieldType,variableID,fieldComponent,err)
    !DLLEXPORT(cmfe_CellML_FieldComponentGetObjVS)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLModelUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLFieldType
    TYPE(varying_string), INTENT(IN) :: variableID
    INTEGER(INTG), INTENT(OUT) :: fieldComponent
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_field_component_get(cellml%CELLML,cellmlmodelusernumber,cellmlfieldtype,variableid,fieldcomponent,err,error,*999)

    exits("cmfe_CellML_FieldComponentGetObjVS")
    RETURN
999 errorsexits("cmfe_CellML_FieldComponentGetObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_fieldcomponentgetobjvs

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

  SUBROUTINE cmfe_cellml_intermediatefieldcreatefinishnumber(regionUserNumber,CellMLUserNumber,err)
    !DLLEXPORT(cmfe_CellML_IntermediateFieldCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_intermediate_field_create_finish(cellml,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_IntermediateFieldCreateFinishNumber")
    RETURN
999 errors("cmfe_CellML_IntermediateFieldCreateFinishNumber",err,error)
    exits("cmfe_CellML_IntermediateFieldCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_intermediatefieldcreatefinishnumber

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

  SUBROUTINE cmfe_cellml_intermediatefieldcreatefinishobj(CellML,err)
    !DLLEXPORT(cmfe_CellML_IntermediateFieldCreateFinishObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_intermediate_field_create_finish(cellml%CELLML,err,error,*999)

    exits("cmfe_CellML_IntermediateFieldCreateFinishObj")
    RETURN
999 errors("cmfe_CellML_IntermediateFieldCreateFinishObj",err,error)
    exits("cmfe_CellML_IntermediateFieldCreateFinishObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_intermediatefieldcreatefinishobj

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

  SUBROUTINE cmfe_cellml_intermediatefieldcreatestartnumber(regionUserNumber,CellMLUserNumber,CellMLIntermediateFieldUserNumber,err)
    !DLLEXPORT(cmfe_CellML_IntermediateFieldCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLIntermediateFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_intermediate_field_create_start(cellmlintermediatefieldusernumber,cellml,field,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_IntermediateFieldCreateStartNumber")
    RETURN
999 errors("cmfe_CellML_IntermediateFieldCreateStartNumber",err,error)
    exits("cmfe_CellML_IntermediateFieldCreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_intermediatefieldcreatestartnumber

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

  SUBROUTINE cmfe_cellml_intermediatefieldcreatestartobj(CellML,CellMLIntermediateFieldUserNumber,field,err)
    !DLLEXPORT(cmfe_CellML_IntermediateFieldCreateStartObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLIntermediateFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_intermediate_field_create_start(cellmlintermediatefieldusernumber,cellml%CELLML,field%field,err,error,*999)

    exits("cmfe_CellML_IntermediateFieldCreateStartObj")
    RETURN
999 errorsexits("cmfe_CellML_IntermediateFieldCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_intermediatefieldcreatestartobj

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

  SUBROUTINE cmfe_cellml_intermediatefieldgetnumber(regionUserNumber,CellMLUserNumber,CellMLIntermediateFieldUserNumber,err)
    !DLLEXPORT(cmfe_CellML_IntermediateFieldGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: CellMLIntermediateFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_intermediate_field_get(cellml,field,err,error,*999)
        cellmlintermediatefieldusernumber = field%USER_NUMBER
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_IntermediateFieldGetNumber")
    RETURN
999 errorsexits("cmfe_CellML_IntermediateFieldGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_intermediatefieldgetnumber

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

  SUBROUTINE cmfe_cellml_intermediatefieldgetobj(CellML,field,err)
    !DLLEXPORT(cmfe_CellML_IntermediateFieldGetObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_intermediate_field_get(cellml%CELLML,field%field,err,error,*999)

    exits("cmfe_CellML_IntermediateFieldGetObj")
    RETURN
999 errorsexits("cmfe_CellML_IntermediateFieldGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_intermediatefieldgetobj

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

  SUBROUTINE cmfe_cellml_parametersfieldcreatefinishnumber(regionUserNumber,CellMLUserNumber,err)
    !DLLEXPORT(cmfe_CellML_ParametersFieldCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_parameters_field_create_finish(cellml,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_ParametersFieldCreateFinishNumber")
    RETURN
999 errors("cmfe_CellML_ParametersFieldCreateFinishNumber",err,error)
    exits("cmfe_CellML_ParametersFieldCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_parametersfieldcreatefinishnumber

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

  SUBROUTINE cmfe_cellml_parametersfieldcreatefinishobj(CellML,err)
    !DLLEXPORT(cmfe_CellML_ParametersFieldCreateFinishObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_parameters_field_create_finish(cellml%CELLML,err,error,*999)

    exits("cmfe_CellML_ParametersFieldCreateFinishObj")
    RETURN
999 errorsexits("cmfe_CellML_ParametersFieldCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_parametersfieldcreatefinishobj

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

  SUBROUTINE cmfe_cellml_parametersfieldcreatestartnumber(regionUserNumber,CellMLUserNumber,CellMLParametersFieldUserNumber,err)
    !DLLEXPORT(cmfe_CellML_ParametersFieldCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLParametersFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_parameters_field_create_start(cellmlparametersfieldusernumber,cellml,field,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_ParametersFieldCreateStartNumber")
    RETURN
999 errors("cmfe_CellML_ParametersFieldCreateStartNumber",err,error)
    exits("cmfe_CellML_ParametersFieldCreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_parametersfieldcreatestartnumber

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

  SUBROUTINE cmfe_cellml_parametersfieldcreatestartobj(CellML,CellMLParametersFieldUserNumber,field,err)
    !DLLEXPORT(cmfe_CellML_ParametersFieldCreateStartObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(IN) :: CellMLParametersFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_parameters_field_create_start(cellmlparametersfieldusernumber,cellml%CELLML,field%field,err,error,*999)

    exits("cmfe_CellML_ParametersFieldCreateStartObj")
    RETURN
999 errorsexits("cmfe_CellML_ParametersFieldCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_parametersfieldcreatestartobj

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

  SUBROUTINE cmfe_cellml_parametersfieldgetnumber(regionUserNumber,CellMLUserNumber,CellMLParametersFieldUserNumber,err)
    !DLLEXPORT(cmfe_CellML_ParametersFieldGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: CellMLParametersFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_parameters_field_get(cellml,field,err,error,*999)
        cellmlparametersfieldusernumber = field%USER_NUMBER
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_ParametersFieldGetNumber")
    RETURN
999 errorsexits("cmfe_CellML_ParametersFieldGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_parametersfieldgetnumber

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

  SUBROUTINE cmfe_cellml_parametersfieldgetobj(CellML,field,err)
    !DLLEXPORT(cmfe_CellML_ParametersFieldGetObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_parameters_field_get(cellml%CELLML,field%field,err,error,*999)

    exits("cmfe_CellML_ParametersFieldGetObj")
    RETURN
999 errorsexits("cmfe_CellML_ParametersFieldGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_parametersfieldgetobj

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

  SUBROUTINE cmfe_cellml_generatenumber(regionUserNumber,CellMLUserNumber,err)
    !DLLEXPORT(cmfe_CellML_GenerateNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(cellml)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
      IF(ASSOCIATED(cellml)) THEN
        CALL cellml_generate(cellml,err,error,*999)
      ELSE
        localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
          & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellML_GenerateNumber")
    RETURN
999 errorsexits("cmfe_CellML_GenerateNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_generatenumber

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

  SUBROUTINE cmfe_cellml_generateobj(CellML,err)
    !DLLEXPORT(cmfe_CellML_GenerateObj)

    !Argument variables
    TYPE(cmfe_cellmltype), INTENT(INOUT) :: CellML
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL cellml_generate(cellml%CELLML,err,error,*999)

    exits("cmfe_CellML_GenerateObj")
    RETURN
999 errorsexits("cmfe_CellML_GenerateObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellml_generateobj


!!==================================================================================================================================
!!
!! COMP_ENVIRONMENT
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_computationalnodenumberget(nodeNumber,err)
    !DLLEXPORT(cmfe_ComputationalNodeNumberGet)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: nodeNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    nodenumber = computational_node_number_get(err,error)

    exits("cmfe_ComputationalNodeNumberGet")
    RETURN
999 errorsexits("cmfe_ComputationalNodeNumberGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_computationalnodenumberget

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

  SUBROUTINE cmfe_computationalnumberofnodesget(numberOfNodes,err)
    !DLLEXPORT(cmfe_ComputationalNumberOfNodesGet)

    !Argument variables
    INTEGER(INTG), INTENT(OUT) :: numberOfNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    numberofnodes = computational_nodes_number_get(err,error)

    exits("cmfe_ComputationalNumberOfNodesGet")
    RETURN
999 errorsexits("cmfe_ComputationalNumberOfNodesGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_computationalnumberofnodesget

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

  SUBROUTINE cmfe_computationalworkgroup_createstart(worldWorkGroup, numberComputationalNodes, err)
    !DLLEXPORT(cmfe_ComputationalWorkGroup_CreateStart)
    !Argument Variables
    TYPE(cmfe_computationalworkgrouptype), INTENT(INOUT) :: worldWorkGroup
    INTEGER(INTG),INTENT(IN) :: numberComputationalNodes
    INTEGER(INTG), INTENT(OUT) :: err

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

    CALL computational_work_group_create_start(worldworkgroup%computationalWorkGroup,numbercomputationalnodes, &
      & err,error,*999)

    exits("cmfe_ComputationalWorkGroup_CreateStart")
    RETURN
999 errorsexits("cmfe_ComputationalWorkGroup_CreateStart",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_computationalworkgroup_createstart

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

  SUBROUTINE cmfe_computationalworkgroup_createfinish(worldWorkGroup, err)
    !DLLEXPORT(cmfe_ComputationalWorkGroup_CreateFinish)
    !Argument Variables
    TYPE(cmfe_computationalworkgrouptype), INTENT(INOUT) :: worldWorkGroup
    INTEGER(INTG), INTENT(OUT) :: err

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

    CALL computational_work_group_create_finish(worldworkgroup%computationalWorkGroup, err,error,*999)

    exits("cmfe_ComputationalWorkGroup_CreateFinish")
    RETURN
999 errorsexits("cmfe_ComputationalWorkGroup_CreateFinish",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_computationalworkgroup_createfinish

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

  SUBROUTINE cmfe_computationalworkgroup_subgroupadd(parentWorkGroup, numberComputationalNodes,addedWorkGroup, err)
    !DLLEXPORT(cmfe_ComputationalWorkGroup_SubgroupAdd)
    !Argument Variables
    TYPE(cmfe_computationalworkgrouptype), INTENT(INOUT) :: parentWorkGroup
    TYPE(cmfe_computationalworkgrouptype), INTENT(INOUT) :: addedWorkGroup
    INTEGER(INTG),INTENT(IN) :: numberComputationalNodes
    INTEGER(INTG), INTENT(OUT) :: err

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

    CALL computational_work_group_subgroup_add(parentworkgroup%computationalWorkGroup,numbercomputationalnodes, &
    & addedworkgroup%computationalWorkGroup, err,error,*999)

    exits("cmfe_ComputationalWorkGroup_SubgroupAdd")
    RETURN
999 errorsexits("cmfe_ComputationalWorkGroup_SubgroupAdd",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_computationalworkgroup_subgroupadd  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_worldworkgroupset(decomposition, worldWorkGroup, err)
    !DLLEXPORT(cmfe_Decomposition_WorldWorkGroupSet)
    !Argument Variables
    TYPE(cmfe_decompositiontype), INTENT(INOUT) :: decomposition
    TYPE(cmfe_computationalworkgrouptype),INTENT(IN) :: worldWorkGroup
    INTEGER(INTG), INTENT(OUT) :: err

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

    ! todo
    CALL flagerror('not implemented yet', err,error, *999)

    exits("cmfe_Decomposition_WorldWorkGroupSet")
    RETURN
999 errorsexits("cmfe_Decomposition_WorldWorkGroupSet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_worldworkgroupset

!!==================================================================================================================================
!!
!! CONTROL_LOOP_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_controlloop_currenttimesgetnumber0(problemUserNumber,controlLoopIdentifier,currentTime,timeIncrement,err)
    !DLLEXPORT(cmfe_ControlLoop_CurrentTimesGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    REAL(DP), INTENT(OUT) :: currentTime
    REAL(DP), INTENT(OUT) :: timeIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_current_times_get(control_loop,currenttime,timeincrement,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_CurrentTimesGetNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_CurrentTimesGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_currenttimesgetnumber0

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

  SUBROUTINE cmfe_controlloop_currenttimesgetnumber1(problemUserNumber,controlLoopIdentifiers,currentTime,timeIncrement,err)
    !DLLEXPORT(cmfe_ControlLoop_CurrentTimesGetNumber1)

    !Argument variables
     INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    REAL(DP), INTENT(OUT) :: currentTime
    REAL(DP), INTENT(OUT) :: timeIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_current_times_get(control_loop,currenttime,timeincrement,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_CurrentTimesGetNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_CurrentTimesGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_currenttimesgetnumber1

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

  SUBROUTINE cmfe_controlloop_currenttimesgetobj(controlLoop,currentTime,timeIncrement,err)
    !DLLEXPORT(cmfe_ControlLoop_CurrentTimesGetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoop
    REAL(DP), INTENT(OUT) :: currentTime
    REAL(DP), INTENT(OUT) :: timeIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_current_times_get(controlloop%controlLoop,currenttime,timeincrement,err,error,*999)

    exits("cmfe_ControlLoop_CurrentTimesGetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_CurrentTimesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_currenttimesgetobj

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

  SUBROUTINE cmfe_controlloop_destroynumber0(problemUserNumber,controlLoopIdentifier,err)
    !DLLEXPORT(cmfe_ControlLoop_DestroyNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_destroy(control_loop,err,error,*999)
   ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_DestroyNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_DestroyNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_destroynumber0

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

  SUBROUTINE cmfe_controlloop_destroynumber1(problemUserNumber,controlLoopIdentifiers,err)
    !DLLEXPORT(cmfe_ControlLoop_DestroyNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_destroy(control_loop,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_DestroyNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_DestroyNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_destroynumber1

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

  SUBROUTINE cmfe_controlloop_destroyobj(controlLoop,err)
    !DLLEXPORT(cmfe_ControlLoop_DestroyObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_destroy(controlloop%controlLoop,err,error,*999)

    exits("cmfe_ControlLoop_DestroyObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_destroyobj

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

  SUBROUTINE cmfe_controlloop_controlloopgetnumber00(problemUserNumber,controlLoopRootIdentifier,controlLoopIdentifier, &
      & controlloop,err)
    !DLLEXPORT(cmfe_ControlLoop_ControlLoopGetNumber00)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopRootIdentifier
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: ROOT_CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(root_control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controllooprootidentifier,root_control_loop,err,error,*999)
      CALL control_loop_get(root_control_loop,controlloopidentifier,controlloop%controlLoop,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_ControlLoopGetNumber00")
    RETURN
999 errorsexits("cmfe_ControlLoop_ControlLoopGetNumber00",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_controlloopgetnumber00

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

  SUBROUTINE cmfe_controlloop_controlloopgetnumber10(problemUserNumber,controlLoopRootIdentifiers,controlLoopIdentifier, &
      & controlloop,err)
    !DLLEXPORT(cmfe_ControlLoop_ControlLoopGetNumber10)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopRootIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: ROOT_CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(root_control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controllooprootidentifiers,root_control_loop,err,error,*999)
      CALL control_loop_get(root_control_loop,controlloopidentifier,controlloop%controlLoop,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_ControlLoopGetNumber10")
    RETURN
999 errorsexits("cmfe_ControlLoop_ControlLoopGetNumber10",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_controlloopgetnumber10

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

  SUBROUTINE cmfe_controlloop_controlloopgetnumber01(problemUserNumber,controlLoopRootIdentifier,controlLoopIdentifiers, &
      & controlloop,err)
    !DLLEXPORT(cmfe_ControlLoop_ControlLoopGetNumber01)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopRootIdentifier
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: ROOT_CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(root_control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controllooprootidentifier,root_control_loop,err,error,*999)
      CALL control_loop_get(root_control_loop,controlloopidentifiers,controlloop%controlLoop,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_ControlLoopGetNumber01")
    RETURN
999 errorsexits("cmfe_ControlLoop_ControlLoopGetNumber01",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_controlloopgetnumber01

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

  SUBROUTINE cmfe_controlloop_controlloopgetnumber11(problemUserNumber,controlLoopRootIdentifiers,controlLoopIdentifiers, &
      & controlloop,err)
    !DLLEXPORT(cmfe_ControlLoop_ControlLoopGetNumber11)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopRootIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: ROOT_CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(root_control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controllooprootidentifiers,root_control_loop,err,error,*999)
      CALL control_loop_get(root_control_loop,controlloopidentifiers,controlloop%controlLoop,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_ControlLoopGetNumber11")
    RETURN
999 errorsexits("cmfe_ControlLoop_ControlLoopGetNumber11",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_controlloopgetnumber11

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

  SUBROUTINE cmfe_controlloop_controlloopgetobj0(controlLoopRoot,controlLoopIdentifier,controlLoop,err)
    !DLLEXPORT(cmfe_ControlLoop_ControlLoopGetObj0)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoopRoot
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_get(controllooproot%controlLoop,controlloopidentifier,controlloop%controlLoop,err,error,*999)

    exits("cmfe_ControlLoop_ControlLoopGetObj0")
    RETURN
999 errorsexits("cmfe_ControlLoop_ControlLoopGetObj0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_controlloopgetobj0

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

  SUBROUTINE cmfe_controlloop_controlloopgetobj1(controlLoopRoot,controlLoopIdentifiers,controlLoop,err)
    !DLLEXPORT(cmfe_ControlLoop_ControlLoopGetObj1)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoopRoot
    INTEGER(INTG), INTENT(INOUT) :: controlLoopIdentifiers(:)
    TYPE(cmfe_controllooptype), INTENT(OUT) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_get(controllooproot%controlLoop,controlloopidentifiers,controlloop%controlLoop,err,error,*999)

    exits("cmfe_ControlLoop_ControlLoopGetObj1")
    RETURN
999 errorsexits("cmfe_ControlLoop_ControlLoopGetObj1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_controlloopgetobj1

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

  SUBROUTINE cmfe_controlloop_iterationssetnumber0(problemUserNumber,controlLoopIdentifier,startIteration,stopIteration, &
    & iterationincrement,err)
    !DLLEXPORT(cmfe_ControlLoop_IterationsSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: startIteration
    INTEGER(INTG), INTENT(IN) :: stopIteration
    INTEGER(INTG), INTENT(IN) :: iterationIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_iterations_set(control_loop,startiteration,stopiteration,iterationincrement,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_IterationsSetNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_IterationsSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_iterationssetnumber0

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

  SUBROUTINE cmfe_controlloop_iterationssetnumber1(problemUserNumber,controlLoopIdentifiers,startIteration,stopIteration, &
    & iterationincrement,err)
    !DLLEXPORT(cmfe_ControlLoop_IterationsSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: startIteration
    INTEGER(INTG), INTENT(IN) :: stopIteration
    INTEGER(INTG), INTENT(IN) :: iterationIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_iterations_set(control_loop,startiteration,stopiteration,iterationincrement,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_IterationsSetNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_IterationsSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_iterationssetnumber1

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

  SUBROUTINE cmfe_controlloop_iterationssetobj(controlLoop,startIteration,stopIteration,iterationIncrement,err)
    !DLLEXPORT(cmfe_ControlLoop_IterationsSetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(IN) :: startIteration
    INTEGER(INTG), INTENT(IN) :: stopIteration
    INTEGER(INTG), INTENT(IN) :: iterationIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_iterations_set(controlloop%controlLoop,startiteration,stopiteration,iterationincrement,err,error,*999)

    exits("cmfe_ControlLoop_IterationsSetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_IterationsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_iterationssetobj

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

  SUBROUTINE cmfe_controlloop_labelgetcnumber0(problemUserNumber,controlLoopIdentifier,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelGetCNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_label_get(control_loop,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_LabelGetCNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelGetCNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelgetcnumber0

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

  SUBROUTINE cmfe_controlloop_labelgetcnumber1(problemUserNumber,controlLoopIdentifiers,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelGetCNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_label_get(control_loop,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_LabelGetCNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelGetCNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelgetcnumber1

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

  SUBROUTINE cmfe_controlloop_labelgetcobj(controlLoop,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelGetCObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoop
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_label_get(controlloop%controlLoop,label,err,error,*999)

    exits("cmfe_ControlLoop_LabelGetCObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelGetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelgetcobj

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

  SUBROUTINE cmfe_controlloop_labelgetvsnumber0(problemUserNumber,controlLoopIdentifier,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelGetVSNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_label_get(control_loop,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_LabelGetVSNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelGetVSNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelgetvsnumber0

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

  SUBROUTINE cmfe_controlloop_labelgetvsnumber1(problemUserNumber,controlLoopIdentifiers,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelGetVSNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_label_get(control_loop,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_LabelGetVSNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelGetVSNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelgetvsnumber1

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

  SUBROUTINE cmfe_controlloop_labelgetvsobj(controlLoop,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelGetVSObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoop
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_label_get(controlloop%controlLoop,label,err,error,*999)

    exits("cmfe_ControlLoop_LabelGetVSObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelGetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelgetvsobj

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

  SUBROUTINE cmfe_controlloop_labelsetcnumber0(problemUserNumber,controlLoopIdentifier,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelSetCNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_label_set(control_loop,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_LabelSetCNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelSetCNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelsetcnumber0

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

  SUBROUTINE cmfe_controlloop_labelsetcnumber1(problemUserNumber,controlLoopIdentifiers,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelSetCNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_label_set(control_loop,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_LabelSetCNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelSetCNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelsetcnumber1

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

  SUBROUTINE cmfe_controlloop_labelsetcobj(controlLoop,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelSetCObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoop
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_label_set(controlloop%controlLoop,label,err,error,*999)

    exits("cmfe_ControlLoop_LabelSetCObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelSetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelsetcobj

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

  SUBROUTINE cmfe_controlloop_labelsetvsnumber0(problemUserNumber,controlLoopIdentifier,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelSetVSNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_label_set(control_loop,char(label),err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoopLabelStVSNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelSetVSNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelsetvsnumber0

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

  SUBROUTINE cmfe_controlloop_labelsetvsnumber1(problemUserNumber,controlLoopIdentifiers,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelSetVSNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_label_set(control_loop,char(label),err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoopLabelStVSNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelSetVSNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelsetvsnumber1

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

  SUBROUTINE cmfe_controlloop_labelsetvsobj(controlLoop,label,err)
    !DLLEXPORT(cmfe_ControlLoop_LabelSetVSObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoop
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_label_set(controlloop%controlLoop,char(label),err,error,*999)

    exits("cmfe_ControlLoop_LabelSetVSObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_LabelSetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_labelsetvsobj

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

  SUBROUTINE cmfe_controlloop_maximumiterationssetnumber0(problemUserNumber,controlLoopIdentifier,maximumIterations,err)
    !DLLEXPORT(cmfe_ControlLoop_MaximumIterationsSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_maximum_iterations_set(control_loop,maximumiterations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_MaximumIterationsSetNumber0")
    RETURN
999 errors("cmfe_ControlLoop_MaximumIterationsSetNumber0",err,error)
    exits("cmfe_ControlLoop_MaximumIterationsSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_maximumiterationssetnumber0

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

  SUBROUTINE cmfe_controlloop_maximumiterationssetnumber1(problemUserNumber,controlLoopIdentifiers,maximumIterations,err)
    !DLLEXPORT(cmfe_ControlLoop_MaximumIterationsSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_maximum_iterations_set(control_loop,maximumiterations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_MaximumIterationsSetNumber1")
    RETURN
999 errors("cmfe_ControlLoop_MaximumIterationsSetNumber1",err,error)
    exits("cmfe_ControlLoop_MaximumIterationsSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_maximumiterationssetnumber1

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

  SUBROUTINE cmfe_controlloop_maximumiterationssetobj(controlLoop,maximumIterations,err)
    !DLLEXPORT(cmfe_ControlLoop_MaximumIterationsSetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_maximum_iterations_set(controlloop%controlLoop,maximumiterations,err,error,*999)

    exits("cmfe_ControlLoop_MaximumIterationsSetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_MaximumIterationsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_maximumiterationssetobj

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

  SUBROUTINE cmfe_controlloop_loadoutputset(controlLoop,outputFrequency,err)
    !DLLEXPORT(cmfe_ControlLoop_LoadOutputSet)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(IN) ::  outputFrequency
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_load_output_set(controlloop%controlLoop,outputfrequency,err,error,*999)

    exits("cmfe_ControlLoop_LoadOutputSet")
    RETURN
999 errorsexits("cmfe_ControlLoop_LoadOutputSet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_loadoutputset

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

  SUBROUTINE cmfe_controlloop_absolutetolerancesetnumber0(problemUserNumber,controlLoopIdentifier,absoluteTolerance,err)
    !DLLEXPORT(cmfe_ControlLoop_AbsoluteToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL controlloop_absolutetoleranceset(control_loop,absolutetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_AbsoluteToleranceSetNumber0")
    RETURN
999 errors("cmfe_ControlLoop_AbsoluteToleranceSetNumber0",err,error)
    exits("cmfe_ControlLoop_AbsoluteToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_absolutetolerancesetnumber0

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

  SUBROUTINE cmfe_controlloop_absolutetolerancesetnumber1(problemUserNumber,controlLoopIdentifiers,absoluteTolerance,err)
    !DLLEXPORT(cmfe_ControlLoop_AbsoluteToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL controlloop_absolutetoleranceset(control_loop,absolutetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_AbsoluteToleranceSetNumber1")
    RETURN
999 errors("cmfe_ControlLoop_AbsoluteToleranceSetNumber1",err,error)
    exits("cmfe_ControlLoop_AbsoluteToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_absolutetolerancesetnumber1

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

  SUBROUTINE cmfe_controlloop_absolutetolerancesetobj(controlLoop,absoluteTolerance,err)
    !DLLEXPORT(cmfe_ControlLoop_AbsoluteToleranceSetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL controlloop_absolutetoleranceset(controlloop%controlLoop,absolutetolerance,err,error,*999)

    exits("cmfe_ControlLoop_AbsoluteToleranceSetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_AbsoluteToleranceSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_absolutetolerancesetobj

  !
  !================================================================================================================================
  !
  
  SUBROUTINE cmfe_controlloop_numberofiterationsgetnumber0(problemUserNumber,controlLoopIdentifier,numberOfIterations,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfIterationsGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(OUT) :: numberOfIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_ControlLoop_NumberOfItGetNumber0",err,error,*999)  ! name is abbreviated because of maximum line length

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_number_of_iterations_get(control_loop,numberofiterations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF
    
    exits("cmfe_ControlLoop_NumberOfItGetNumber0")  ! name is abbreviated because of maximum line length
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfItGetNumber0",err,error)  ! name is abbreviated because of maximum line length
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofiterationsgetnumber0

  !
  !================================================================================================================================
  !
  
  SUBROUTINE cmfe_controlloop_numberofiterationsgetnumber1(problemUserNumber,controlLoopIdentifiers,numberOfIterations,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfIterationsGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(OUT) :: numberOfIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_ControlLoop_NumberOfItGetNumber1",err,error,*999)        ! name is abbreviated because of maximum line length

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_number_of_iterations_get(control_loop,numberofiterations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_NumberOfItGetNumber1")        ! name is abbreviated because of maximum line length
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfItGetNumber1",err,error)      ! name is abbreviated because of maximum line length
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofiterationsgetnumber1

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

  SUBROUTINE cmfe_controlloop_numberofiterationsgetobj(controlLoop,numberOfIterations,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfIterationsGetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: numberOfIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_number_of_iterations_get(controlloop%controlLoop,numberofiterations,err,error,*999)

    exits("cmfe_ControlLoop_NumberOfIterationsGetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfIterationsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofiterationsgetobj

  !
  !================================================================================================================================
  !
  
  SUBROUTINE cmfe_controlloop_numberofiterationssetnumber0(problemUserNumber,controlLoopIdentifier,numberOfIterations,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfIterationsSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: numberOfIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_ControlLoop_NumberOfItSetNumber0",err,error,*999)        ! name is abbreviated because of maximum line length

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_number_of_iterations_set(control_loop,numberofiterations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF
    
    exits("cmfe_ControlLoop_NumberOfItSetNumber0")        ! name is abbreviated because of maximum line length
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfItSetNumber0",err,error)    ! name is abbreviated because of maximum line length
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofiterationssetnumber0

  !
  !================================================================================================================================
  !
  
  SUBROUTINE cmfe_controlloop_numberofiterationssetnumber1(problemUserNumber,controlLoopIdentifiers,numberOfIterations,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfIterationsSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: numberOfIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_ControlLoop_NumberOfItSetNumber1",err,error,*999)    ! name is abbreviated because of maximum line length

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_number_of_iterations_set(control_loop,numberofiterations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_NumberOfItSetNumber1")    ! name is abbreviated because of maximum line length
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfItSetNumber1",err,error)    ! name is abbreviated because of maximum line length
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofiterationssetnumber1

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

  SUBROUTINE cmfe_controlloop_numberofiterationssetobj(controlLoop,numberOfIterations,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfIterationsSetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoop
    INTEGER(INTG), INTENT(IN) :: numberOfIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_number_of_iterations_set(controlloop%controlLoop,numberofiterations,err,error,*999)

    exits("cmfe_ControlLoop_NumberOfIterationsSetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfIterationsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofiterationssetobj

  !
  !================================================================================================================================
  !
  
  SUBROUTINE cmfe_controlloop_numberofsubloopsgetnumber0(problemUserNumber,controlLoopIdentifier,numberOfSubLoops,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfSubLoopsGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(OUT) :: numberOfSubLoops
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_number_of_sub_loops_get(control_loop,numberofsubloops,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_NumberOfSubLoopsGetNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfSubLoopsGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofsubloopsgetnumber0

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

  SUBROUTINE cmfe_controlloop_numberofsubloopsgetnumber1(problemUserNumber,controlLoopIdentifiers,numberOfSubLoops,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfSubLoopsGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(OUT) :: numberOfSubLoops
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_number_of_sub_loops_get(control_loop,numberofsubloops,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_NumberOfSubLoopsGetNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfSubLoopsGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofsubloopsgetnumber1

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

  SUBROUTINE cmfe_controlloop_numberofsubloopsgetobj(controlLoop,numberOfSubLoops,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfSubLoopsGetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: numberOfSubLoops
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_number_of_sub_loops_get(controlloop%controlLoop,numberofsubloops,err,error,*999)

    exits("cmfe_ControlLoop_NumberOfSubLoopsGetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfSubLoopsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofsubloopsgetobj

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

  SUBROUTINE cmfe_controlloop_numberofsubloopssetnumber0(problemUserNumber,controlLoopIdentifier,numberOfSubLoops,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfSubLoopsSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: numberOfSubLoops
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_number_of_sub_loops_set(control_loop,numberofsubloops,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_NumberOfSubLoopsSetNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfSubLoopsSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofsubloopssetnumber0

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

  SUBROUTINE cmfe_controlloop_numberofsubloopssetnumber1(problemUserNumber,controlLoopIdentifiers,numberOfSubLoops,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfSubLoopsSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: numberOfSubLoops
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_number_of_sub_loops_set(control_loop,numberofsubloops,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_NumberOfSubLoopsSetNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfSubLoopsSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofsubloopssetnumber1

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

  SUBROUTINE cmfe_controlloop_numberofsubloopssetobj(controlLoop,numberOfSubLoops,err)
    !DLLEXPORT(cmfe_ControlLoop_NumberOfSubLoopsSetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(IN) :: numberOfSubLoops
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_number_of_sub_loops_set(controlloop%controlLoop,numberofsubloops,err,error,*999)

    exits("cmfe_ControlLoop_NumberOfSubLoopsSetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_NumberOfSubLoopsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_numberofsubloopssetobj

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

  SUBROUTINE cmfe_controlloop_outputtypegetnumber0(problemUserNumber,controlLoopIdentifier,outputType,err)
    !DLLEXPORT(cmfe_ControlLoop_OutputTypeGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(OUT) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_output_type_get(control_loop,outputtype,err,error,*999)
   ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_OutputTypeGetNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_OutputTypeGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_outputtypegetnumber0

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

  SUBROUTINE cmfe_controlloop_outputtypegetnumber1(problemUserNumber,controlLoopIdentifiers,outputType,err)
    !DLLEXPORT(cmfe_ControlLoop_OutputTypeGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(OUT) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_output_type_get(control_loop,outputtype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_OutputTypeGetNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_OutputTypeGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_outputtypegetnumber1

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

  SUBROUTINE cmfe_controlloop_outputtypegetobj(controlLoop,outputType,err)
    !DLLEXPORT(cmfe_ControlLoop_OutputTypeGetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_output_type_get(controlloop%controlLoop,outputtype,err,error,*999)

    exits("cmfe_ControlLoop_OutputTypeGetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_OutputTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_outputtypegetobj

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

  SUBROUTINE cmfe_controlloop_outputtypesetnumber0(problemUserNumber,controlLoopIdentifier,outputType,err)
    !DLLEXPORT(cmfe_ControlLoop_OutputTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_output_type_set(control_loop,outputtype,err,error,*999)
   ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_OutputTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_OutputTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_outputtypesetnumber0

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

  SUBROUTINE cmfe_controlloop_outputtypesetnumber1(problemUserNumber,controlLoopIdentifiers,outputType,err)
    !DLLEXPORT(cmfe_ControlLoop_OutputTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_output_type_set(control_loop,outputtype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_OutputTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_OutputTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_outputtypesetnumber1

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

  SUBROUTINE cmfe_controlloop_outputtypesetobj(controlLoop,outputType,err)
    !DLLEXPORT(cmfe_ControlLoop_OutputTypeSetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoop
    INTEGER(INTG), INTENT(IN) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_output_type_set(controlloop%controlLoop,outputtype,err,error,*999)

    exits("cmfe_ControlLoop_OutputTypeSetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_OutputTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_outputtypesetobj

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

  SUBROUTINE cmfe_controlloop_timeoutputsetnumber0(problemUserNumber,controlLoopIdentifier,outputFrequency,err)
    !DLLEXPORT(cmfe_ControlLoop_TimeOutputSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: outputFrequency
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_time_output_set(control_loop,outputfrequency,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_TimeOutputSetNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimeOutputSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timeoutputsetnumber0

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

  SUBROUTINE cmfe_controlloop_timeoutputsetnumber1(problemUserNumber,controlLoopIdentifiers,outputFrequency,err)
    !DLLEXPORT(cmfe_ControlLoop_TimeOutputSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: outputFrequency
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(varying_string) :: localError
    TYPE(problem_type), POINTER :: PROBLEM

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_time_output_set(control_loop,outputfrequency,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_TimeOutputSetNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimeOutputSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timeoutputsetnumber1

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

  SUBROUTINE cmfe_controlloop_timeoutputsetobj(controlLoop,outputFrequency,err)
    !DLLEXPORT(cmfe_ControlLoop_TimeOutputSetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(IN) ::  outputFrequency
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_time_output_set(controlloop%controlLoop,outputfrequency,err,error,*999)

    exits("cmfe_ControlLoop_TimeOutputSetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimeOutputSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timeoutputsetobj

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

  SUBROUTINE cmfe_controlloop_timeinputsetnumber0(problemUserNumber,controlLoopIdentifier,inputOption,err)
    !DLLEXPORT(cmfe_ControlLoop_TimeInputSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: inputOption
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_time_output_set(control_loop,inputoption,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_TimeInputSetNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimeInputSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timeinputsetnumber0

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

  SUBROUTINE cmfe_controlloop_timeinputsetnumber1(problemUserNumber,controlLoopIdentifiers,inputOption,err)
    !DLLEXPORT(cmfe_ControlLoop_TimeInputSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: inputOption
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(varying_string) :: localError
    TYPE(problem_type), POINTER :: PROBLEM

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_time_output_set(control_loop,inputoption,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_TimeInputSetNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimeInputSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timeinputsetnumber1

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

  SUBROUTINE cmfe_controlloop_timeinputsetobj(controlLoop,inputOption,err)
    !DLLEXPORT(cmfe_ControlLoop_TimeInputSetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(IN) ::  inputOption
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_time_input_set(controlloop%controlLoop,inputoption,err,error,*999)

    exits("cmfe_ControlLoop_TimeInputSetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimeInputSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timeinputsetobj


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

  SUBROUTINE cmfe_controlloop_timesgetnumber0(problemUserNumber,controlLoopIdentifier,startTime,stopTime,timeIncrement, &
    & currenttime,currentloopiteration,outputiterationnumber,err)
    !DLLEXPORT(cmfe_ControlLoop_TimesGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    REAL(DP), INTENT(OUT) :: startTime
    REAL(DP), INTENT(OUT) :: stopTime
    REAL(DP), INTENT(OUT) :: timeIncrement
    REAL(DP), INTENT(OUT) :: currentTime
    INTEGER(INTG), INTENT(OUT) :: currentLoopIteration
    INTEGER(INTG), INTENT(OUT) :: outputIterationNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_times_get(control_loop,starttime,stoptime,currenttime,timeincrement, &
        & currentloopiteration,outputiterationnumber,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_TimesGetNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimesGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timesgetnumber0

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

  SUBROUTINE cmfe_controlloop_timesgetnumber1(problemUserNumber,controlLoopIdentifiers,startTime,stopTime,timeIncrement, &
    & currenttime,currentloopiteration,outputiterationnumber,err)
    !DLLEXPORT(cmfe_ControlLoop_TimesGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    REAL(DP), INTENT(OUT) :: startTime
    REAL(DP), INTENT(OUT) :: stopTime
    REAL(DP), INTENT(OUT) :: timeIncrement
    REAL(DP), INTENT(OUT) :: currentTime
    INTEGER(INTG), INTENT(OUT) :: currentLoopIteration
    INTEGER(INTG), INTENT(OUT) :: outputIterationNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_times_get(control_loop,starttime,stoptime,currenttime,timeincrement, &
        & currentloopiteration,outputiterationnumber,err,error,*999)
   ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_TimesGetNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimesGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timesgetnumber1

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

  SUBROUTINE cmfe_controlloop_timesgetobj(controlLoop,startTime,stopTime,timeIncrement,currentTime, &
    & currentloopiteration,outputiterationnumber,err)
    !DLLEXPORT(cmfe_ControlLoop_TimesGetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(IN) :: controlLoop
    REAL(DP), INTENT(OUT) :: startTime
    REAL(DP), INTENT(OUT) :: stopTime
    REAL(DP), INTENT(OUT) :: timeIncrement
    REAL(DP), INTENT(OUT) :: currentTime
    INTEGER(INTG), INTENT(OUT) :: currentLoopIteration
    INTEGER(INTG), INTENT(OUT) :: outputIterationNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_times_get(controlloop%controlLoop,starttime,stoptime,currenttime,timeincrement, &
      & currentloopiteration,outputiterationnumber,err,error,*999)

    exits("cmfe_ControlLoop_TimesGetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timesgetobj

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

  SUBROUTINE cmfe_controlloop_timessetnumber0(problemUserNumber,controlLoopIdentifier,startTime,stopTime,timeIncrement,err)
    !DLLEXPORT(cmfe_ControlLoop_TimesSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    REAL(DP), INTENT(IN) :: startTime
    REAL(DP), INTENT(IN) :: stopTime
    REAL(DP), INTENT(IN) :: timeIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_times_set(control_loop,starttime,stoptime,timeincrement,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_TimesSetNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimesSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timessetnumber0

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

  SUBROUTINE cmfe_controlloop_timessetnumber1(problemUserNumber,controlLoopIdentifiers,startTime,stopTime,timeIncrement,err)
    !DLLEXPORT(cmfe_ControlLoop_TimesSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    REAL(DP), INTENT(IN) :: startTime
    REAL(DP), INTENT(IN) :: stopTime
    REAL(DP), INTENT(IN) :: timeIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(varying_string) :: localError
    TYPE(problem_type), POINTER :: PROBLEM

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_times_set(control_loop,starttime,stoptime,timeincrement,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_TimesSetNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimesSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timessetnumber1

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

  SUBROUTINE cmfe_controlloop_timessetobj(controlLoop,startTime,stopTime,timeIncrement,err)
    !DLLEXPORT(cmfe_ControlLoop_TimesSetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    REAL(DP), INTENT(IN) :: startTime
    REAL(DP), INTENT(IN) :: stopTime
    REAL(DP), INTENT(IN) :: timeIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_times_set(controlloop%controlLoop,starttime,stoptime,timeincrement,err,error,*999)

    exits("cmfe_ControlLoop_TimesSetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_TimesSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_timessetobj

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

  SUBROUTINE cmfe_controlloop_typesetnumber0(problemUserNumber,controlLoopIdentifier,loopType,err)
    !DLLEXPORT(cmfe_ControlLoop_TypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: loopType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,control_loop,err,error,*999)
      CALL control_loop_type_set(control_loop,looptype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_TypeSetNumber0")
    RETURN
999 errorsexits("cmfe_ControlLoop_TypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_typesetnumber0

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

  SUBROUTINE cmfe_controlloop_typesetnumber1(problemUserNumber,controlLoopIdentifiers,loopType,err)
    !DLLEXPORT(cmfe_ControlLoop_TypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: loopType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(control_loop_type), POINTER :: CONTROL_LOOP
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

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

    NULLIFY(control_loop)
    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,control_loop,err,error,*999)
      CALL control_loop_type_set(control_loop,looptype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_ControlLoop_TypeSetNumber1")
    RETURN
999 errorsexits("cmfe_ControlLoop_TypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_typesetnumber1

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

  SUBROUTINE cmfe_controlloop_typesetobj(controlLoop,loopType,err)
    !DLLEXPORT(cmfe_ControlLoop_TypeSetObj)

    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(IN) :: loopType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL control_loop_type_set(controlloop%controlLoop,looptype,err,error,*999)

    exits("cmfe_ControlLoop_TypeSetObj")
    RETURN
999 errorsexits("cmfe_ControlLoop_TypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_controlloop_typesetobj

!!==================================================================================================================================
!!
!! COORDINATE_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_coordinatesystem_createfinishnumber(coordinateSystemUserNumber,err)
    !DLLEXPORT(cmfe_CoordinateSystem_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_create_finish(coordinate_system,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Coordinate System Create')
#endif

    exits("cmfe_CoordinateSystem_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_createfinishnumber

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

  SUBROUTINE cmfe_coordinatesystem_createfinishobj(coordinateSystem,err)
    !DLLEXPORT(cmfe_CoordinateSystem_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: coordinateSystem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_create_finish(coordinatesystem%coordinateSystem,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('Coordinate System Create')
#endif

    exits("cmfe_CoordinateSystem_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_createfinishobj

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

  SUBROUTINE cmfe_coordinatesystem_createstartnumber(coordinateSystemUserNumber,err)
    !DLLEXPORT(cmfe_CoordinateSystem_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM

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

#ifdef TAUPROF
    CALL tau_static_phase_start('Coordinate System Create')
#endif

    NULLIFY(coordinate_system)
    CALL coordinate_system_create_start(coordinatesystemusernumber,coordinate_system,err,error,*999)

    exits("cmfe_CoordinateSystem_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_createstartnumber

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

  SUBROUTINE cmfe_coordinatesystem_createstartobj(coordinateSystemUserNumber,coordinateSystem,err)
    !DLLEXPORT(cmfe_CoordinateSystem_CreateStartObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: coordinateSystem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

#ifdef TAUPROF
    CALL tau_static_phase_start('Coordinate System Create')
#endif

    CALL coordinate_system_create_start(coordinatesystemusernumber,coordinatesystem%coordinateSystem,err,error,*999)

    exits("cmfe_CoordinateSystem_CreateStartObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_createstartobj

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

  SUBROUTINE cmfe_coordinatesystem_destroynumber(coordinateSystemUserNumber,err)
    !DLLEXPORT(cmfe_CoordinateSystem_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_destroy(coordinate_system,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_DestroyNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_destroynumber

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

  SUBROUTINE cmfe_coordinatesystem_destroyobj(coordinateSystem,err)
    !DLLEXPORT(cmfe_CoordinateSystem_DestroyObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: coordinateSystem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_destroy(coordinatesystem%coordinateSystem,err,error,*999)

    exits("cmfe_CoordinateSystem_DestroyObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_destroyobj

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

  SUBROUTINE cmfe_coordinatesystem_dimensiongetnumber(coordinateSystemUserNumber,coordinateSystemDimension,err)
    !DLLEXPORT(cmfe_CoordinateSystem_DimensionGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(OUT) :: coordinateSystemDimension
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_dimension_get(coordinate_system,coordinatesystemdimension,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_DimensionGetNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_DimensionGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_dimensiongetnumber

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

  SUBROUTINE cmfe_coordinatesystem_dimensiongetobj(coordinateSystem,coordinateSystemDimension,err)
    !DLLEXPORT(cmfe_CoordinateSystem_DimensionGetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(IN) :: coordinateSystem
    INTEGER(INTG), INTENT(OUT) :: coordinateSystemDimension
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_dimension_get(coordinatesystem%coordinateSystem,coordinatesystemdimension,err,error,*999)

    exits("cmfe_CoordinateSystem_DimensionGetObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_DimensionGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_dimensiongetobj

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

  SUBROUTINE cmfe_coordinatesystem_dimensionsetnumber(coordinateSystemUserNumber,coordinateSystemDimension,err)
    !DLLEXPORT(cmfe_CoordinateSystem_DimensionSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(IN) :: coordinateSystemDimension
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_dimension_set(coordinate_system,coordinatesystemdimension,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_DimensionSetNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_DimensionSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_dimensionsetnumber

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

  SUBROUTINE cmfe_coordinatesystem_dimensionsetobj(coordinateSystem,coordinateSystemDimension,err)
    !DLLEXPORT(cmfe_CoordinateSystem_DimensionSetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT)  :: coordinateSystem
    INTEGER(INTG), INTENT(IN) :: coordinateSystemDimension
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_dimension_set(coordinatesystem%coordinateSystem,coordinatesystemdimension,err,error,*999)

    exits("cmfe_CoordinateSystem_DimensionSetObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_DimensionSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_dimensionsetobj

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

  SUBROUTINE cmfe_coordinatesystem_focusgetnumber(coordinateSystemUserNumber,focus,err)
    !DLLEXPORT(cmfe_CoordinateSystem_FocusGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    REAL(DP), INTENT(OUT) :: focus
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_focus_get(coordinate_system,focus,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_FocusGetNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_FocusGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_focusgetnumber

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

  SUBROUTINE cmfe_coordinatesystem_focusgetobj(coordinateSystem,focus,err)
    !DLLEXPORT(cmfe_CoordinateSystem_FocusGetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(IN) :: coordinateSystem
    REAL(DP), INTENT(OUT) :: focus
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_focus_get(coordinatesystem%coordinateSystem,focus,err,error,*999)

    exits("cmfe_CoordinateSystem_FocusGetObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_FocusGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_focusgetobj

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

  SUBROUTINE cmfe_coordinatesystem_focussetnumber(coordinateSystemUserNumber,focus,err)
    !DLLEXPORT(cmfe_CoordinateSystem_FocusSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    REAL(DP), INTENT(IN) :: focus
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_focus_set(coordinate_system,focus,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_FocusSetNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_FocusSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_focussetnumber

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

  SUBROUTINE cmfe_coordinatesystem_focussetobj(coordinateSystem,focus,err)
    !DLLEXPORT(cmfe_CoordinateSystem_FocusSetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: coordinateSystem
    REAL(DP), INTENT(IN) :: focus
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_focus_set(coordinatesystem%coordinateSystem,focus,err,error,*999)

    exits("cmfe_CoordinateSystem_FocusSetObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_FocusSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_focussetobj

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

  SUBROUTINE cmfe_coordinatesystem_radialinterpolationgetnumber(coordinateSystemUserNumber,radialInterpolationType,err)
    !DLLEXPORT(cmfe_CoordinateSystem_RadialInterpolationGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(OUT) :: radialInterpolationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinates_radialinterpolationtypeget(coordinate_system,radialinterpolationtype,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_RadialInterpolationGetNumber")
    RETURN
999 errors("cmfe_CoordinateSystem_RadialInterpolationGetNumber",err,error)
    exits("cmfe_CoordinateSystem_RadialInterpolationGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_radialinterpolationgetnumber

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

  SUBROUTINE cmfe_coordinatesystem_radialinterpolationgetobj(coordinateSystem,radialInterpolationType,err)
    !DLLEXPORT(cmfe_CoordinateSystem_RadialInterpolationGetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: coordinateSystem
    INTEGER(INTG), INTENT(OUT) :: radialInterpolationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinates_radialinterpolationtypeget(coordinatesystem%coordinateSystem,radialinterpolationtype,err,error,*999)

    exits("cmfe_CoordinateSystem_RadialInterpolationGetObj")
    RETURN
999 errors("cmfe_CoordinateSystem_RadialInterpolationGetObj",err,error)
    exits("cmfe_CoordinateSystem_RadialInterpolationGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_radialinterpolationgetobj

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

  SUBROUTINE cmfe_coordinatesystem_radialinterpolationsetnumber(coordinateSystemUserNumber,radialInterpolationType,err)
    !DLLEXPORT(cmfe_CoordinateSystem_RadialInterpolationSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(IN) :: radialInterpolationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinates_radialinterpolationtypeset(coordinate_system,radialinterpolationtype,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_RadialInterpolationSetNumber")
    RETURN
999 errors("cmfe_CoordinateSystem_RadialInterpolationSetNumber",err,error)
    exits("cmfe_CoordinateSystem_RadialInterpolationSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_radialinterpolationsetnumber

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

  SUBROUTINE cmfe_coordinatesystem_radialinterpolationsetobj(coordinateSystem,radialInterpolationType,err)
    !DLLEXPORT(cmfe_CoordinateSystem_RadialInterpolationSetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT)  :: coordinateSystem
    INTEGER(INTG), INTENT(IN) :: radialInterpolationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinates_radialinterpolationtypeset(coordinatesystem%coordinateSystem,radialinterpolationtype,err,error,*999)

    exits("cmfe_CoordinateSystem_RadialInterpolationSetObj")
    RETURN
999 errors("cmfe_CoordinateSystem_RadialInterpolationSetObj",err,error)
    exits("cmfe_CoordinateSystem_RadialInterpolationSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_radialinterpolationsetobj

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

  SUBROUTINE cmfe_coordinatesystem_typegetnumber(coordinateSystemUserNumber,coordinateSystemType,err)
    !DLLEXPORT(cmfe_CoordinateSystem_TypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(OUT) :: coordinateSystemType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_type_get(coordinate_system,coordinatesystemtype,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_TypeGetNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_TypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_typegetnumber

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

  SUBROUTINE cmfe_coordinatesystem_typegetobj(coordinateSystem,coordinateSystemType,err)
    !DLLEXPORT(cmfe_CoordinateSystem_TypeGetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(IN) :: coordinateSystem
    INTEGER(INTG), INTENT(OUT) :: coordinateSystemType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_type_get(coordinatesystem%coordinateSystem,coordinatesystemtype,err,error,*999)

    exits("cmfe_CoordinateSystem_TypeGetObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_TypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_typegetobj

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

  SUBROUTINE cmfe_coordinatesystem_typesetnumber(coordinateSystemUserNumber,coordinateSystemType,err)
    !DLLEXPORT(cmfe_CoordinateSystem_TypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(IN) :: coordinateSystemType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_type_set(coordinate_system,coordinatesystemtype,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_TypeSetNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_TypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_typesetnumber

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

  SUBROUTINE cmfe_coordinatesystem_typesetobj(coordinateSystem,coordinateSystemType,err)
    !DLLEXPORT(cmfe_CoordinateSystem_TypeSetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: coordinateSystem
    INTEGER(INTG), INTENT(IN) :: coordinateSystemType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_type_set(coordinatesystem%coordinateSystem,coordinatesystemtype,err,error,*999)

    exits("cmfe_CoordinateSystem_TypeSetObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_TypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_typesetobj

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

  SUBROUTINE cmfe_coordinatesystem_origingetnumber(coordinateSystemUserNumber,origin,err)
    !DLLEXPORT(cmfe_CoordinateSystem_OriginGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    REAL(DP), INTENT(OUT) :: origin(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_origin_get(coordinate_system,origin,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_OriginGetNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_OriginGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_origingetnumber

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

  SUBROUTINE cmfe_coordinatesystem_origingetobj(coordinateSystem,origin,err)
    !DLLEXPORT(cmfe_CoordinateSystem_OriginGetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(IN) :: coordinateSystem
    REAL(DP), INTENT(OUT) :: origin(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_origin_get(coordinatesystem%coordinateSystem,origin,err,error,*999)

    exits("cmfe_CoordinateSystem_OriginGetObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_OriginGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_origingetobj

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

  SUBROUTINE cmfe_coordinatesystem_originsetnumber(coordinateSystemUserNumber,origin,err)
    !DLLEXPORT(cmfe_CoordinateSystem_OriginSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    REAL(DP), INTENT(IN) :: origin(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_origin_set(coordinate_system,origin,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_OriginSetNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_OriginSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_originsetnumber

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

  SUBROUTINE cmfe_coordinatesystem_originsetobj(coordinateSystem,origin,err)
    !DLLEXPORT(cmfe_CoordinateSystem_OriginSetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(IN) :: coordinateSystem
    REAL(DP), INTENT(IN) :: origin(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_origin_set(coordinatesystem%coordinateSystem,origin,err,error,*999)

    exits("cmfe_CoordinateSystem_OriginSetObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_OriginSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_originsetobj

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

  SUBROUTINE cmfe_coordinatesystem_orientationgetnumber(coordinateSystemUserNumber,orientation,err)
    !DLLEXPORT(cmfe_CoordinateSystem_OrientationGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    REAL(DP), INTENT(OUT) :: orientation(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_orientation_get(coordinate_system,orientation,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_OrientationGetNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_OrientationGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_orientationgetnumber

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

  SUBROUTINE cmfe_coordinatesystem_orientationgetobj(coordinateSystem,orientation,err)
    !DLLEXPORT(cmfe_CoordinateSystem_OrientationGetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(IN) :: coordinateSystem
    REAL(DP), INTENT(OUT) :: orientation(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_orientation_get(coordinatesystem%coordinateSystem,orientation,err,error,*999)

    exits("cmfe_CoordinateSystem_OrientationGetObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_OrientationGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_orientationgetobj

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

  SUBROUTINE cmfe_coordinatesystem_orientationsetnumber(coordinateSystemUserNumber,orientation,err)
    !DLLEXPORT(cmfe_CoordinateSystem_OrientationSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    REAL(DP), INTENT(IN) :: orientation(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(varying_string) :: localError

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

    NULLIFY(coordinate_system)
    CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
    IF(ASSOCIATED(coordinate_system)) THEN
      CALL coordinate_system_orientation_set(coordinate_system,orientation,err,error,*999)
    ELSE
      localerror="A coordinate system with an user number of "// &
        & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CoordinateSystem_OrientationSetNumber")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_OrientationSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_orientationsetnumber

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

  SUBROUTINE cmfe_coordinatesystem_orientationsetobj(coordinateSystem,orientation,err)
    !DLLEXPORT(cmfe_CoordinateSystem_OrientationSetObj)

    !Argument variables
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: coordinateSystem
    REAL(DP), INTENT(IN) :: orientation(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL coordinate_system_orientation_set(coordinatesystem%coordinateSystem,orientation,err,error,*999)

    exits("cmfe_CoordinateSystem_OrientationSetObj")
    RETURN
999 errorsexits("cmfe_CoordinateSystem_OrientationSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_coordinatesystem_orientationsetobj

!!==================================================================================================================================
!!
!! DATA_POINT_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_datapoints_createfinishnumber(regionUserNumber,err)
    !DLLEXPORT(cmfe_DataPoints_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_create_finish(data_points,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_createfinishnumber

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

  SUBROUTINE cmfe_datapoints_createfinishobj(dataPoints,err)
    !DLLEXPORT(cmfe_DataPoints_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_create_finish(datapoints%dataPoints,err,error,*999)

    exits("cmfe_DataPoints_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_DataPoints_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_createfinishobj

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

  SUBROUTINE cmfe_datapoints_createstartnumber(regionUserNumber,numberOfDataPoints,err)
    !DLLEXPORT(cmfe_DataPoints_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: numberOfDataPoints
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL data_points_create_start(region,numberofdatapoints,data_points,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_createstartnumber

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

  SUBROUTINE cmfe_datapoints_createstartobj(region,numberOfDataPoints,dataPoints,err)
    !DLLEXPORT(cmfe_DataPoints_CreateStartObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    INTEGER(INTG), INTENT(IN) :: numberOfDataPoints
    TYPE(cmfe_datapointstype), INTENT(INOUT) :: dataPoints
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_create_start(region%region,numberofdatapoints,datapoints%dataPoints,err,error,*999)

    exits("cmfe_DataPoints_CreateStartObj")
    RETURN
999 errorsexits("cmfe_DataPoints_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_createstartobj

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

  SUBROUTINE cmfe_datapoints_createstartinterfaceobj(interface,numberOfDataPoints,dataPoints,err)
    !DLLEXPORT(cmfe_DataPoints_CreateStartInterfaceObj)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    INTEGER(INTG), INTENT(IN) :: numberOfDataPoints
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

#ifdef TAUPROF
    CALL tau_static_phase_start('dataPoints Create')
#endif

    CALL data_points_create_start(interface%interface,numberofdatapoints,datapoints%dataPoints,err,error,*999)

    exits("cmfe_DataPoints_CreateStartInterfaceObj")
    RETURN
999 errorsexits("cmfe_DataPoints_CreateStartInterfaceObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_createstartinterfaceobj


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

  SUBROUTINE cmfe_datapoints_destroynumber(regionUserNumber,err)
    !DLLEXPORT(cmfe_DataPoints_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_destroy(data_points,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_DestroyNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_destroynumber

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

  SUBROUTINE cmfe_datapoints_destroyobj(dataPoints,err)
    !DLLEXPORT(cmfe_DataPoints_DestroyObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_destroy(datapoints%dataPoints,err,error,*999)

    exits("cmfe_DataPoints_DestroyObj")
    RETURN
999 errorsexits("cmfe_DataPoints_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_destroyobj

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

  SUBROUTINE cmfe_datapoints_numberofdatapointsgetnumber(regionUserNumber,numberOfDataPoints,err)
    !DLLEXPORT(cmfe_DataPoints_NumberOfDataPointsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfDataPoints
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_number_of_data_points_get(data_points,numberofdatapoints,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_NumberOfDataPointsGetNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_NumberOfDataPointsGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_numberofdatapointsgetnumber

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

  SUBROUTINE cmfe_datapoints_numberofdatapointsgetobj(dataPoints,numberOfDataPoints,err)
    !DLLEXPORT(cmfe_DataPoints_NumberOfDataPointsGetObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(OUT) :: numberOfDataPoints
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_number_of_data_points_get(datapoints%dataPoints,numberofdatapoints,err,error,*999)

    exits("cmfe_DataPoints_NumberOfDataPointsGetObj")
    RETURN
999 errorsexits("cmfe_DataPoints_NumberOfDataPointsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_numberofdatapointsgetobj


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

  SUBROUTINE cmfe_datapoints_labelgetcnumber(regionUserNumber,dataPointGlobalNumber,label,err)
    !DLLEXPORT(cmfe_DataPoints_LabelGetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_label_get(data_points,datapointglobalnumber,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_LabelGetCNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_LabelGetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_labelgetcnumber

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

  SUBROUTINE cmfe_datapoints_labelgetcobj(dataPoints,dataPointGlobalNumber,label,err)
    !DLLEXPORT(cmfe_DataPoints_LabelGetCObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_label_get(datapoints%dataPoints,datapointglobalnumber,label,err,error,*999)

    exits("cmfe_DataPoints_LabelGetCObj")
    RETURN
999 errorsexits("cmfe_DataPoints_LabelGetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_labelgetcobj

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

  SUBROUTINE cmfe_datapoints_labelgetvsnumber(regionUserNumber,dataPointGlobalNumber,label,err)
    !DLLEXPORT(cmfe_DataPoints_LabelGetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_label_get(data_points,datapointglobalnumber,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_LabelGetVSNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_LabelGetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_labelgetvsnumber

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

  SUBROUTINE cmfe_datapoints_labelgetvsobj(dataPoints,dataPointGlobalNumber,label,err)
    !DLLEXPORT(cmfe_DataPoints_LabelGetVSObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_label_get(datapoints%dataPoints,datapointglobalnumber,label,err,error,*999)

    exits("cmfe_DataPoints_LabelGetVSObj")
    RETURN
999 errorsexits("cmfe_DataPoints_LabelGetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_labelgetvsobj

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

  SUBROUTINE cmfe_datapoints_labelsetcnumber(regionUserNumber,dataPointGlobalNumber,label,err)
    !DLLEXPORT(cmfe_DataPoints_LabelSetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_label_set(data_points,datapointglobalnumber,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_LabelSetCNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_LabelSetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_labelsetcnumber

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

  SUBROUTINE cmfe_datapoints_labelsetcobj(dataPoints,dataPointGlobalNumber,label,err)
    !DLLEXPORT(cmfe_DataPoints_LabelSetCObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_label_set(datapoints%dataPoints,datapointglobalnumber,label,err,error,*999)

    exits("cmfe_DataPoints_LabelSetCObj")
    RETURN
999 errorsexits("cmfe_DataPoints_LabelSetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_labelsetcobj

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

  SUBROUTINE cmfe_datapoints_labelsetvsnumber(regionUserNumber,dataPointGlobalNumber,label,err)
    !DLLEXPORT(cmfe_DataPoints_LabelSetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_label_set(data_points,datapointglobalnumber,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_LabelSetVSNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_LabelSetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_labelsetvsnumber

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

  SUBROUTINE cmfe_datapoints_labelsetvsobj(dataPoints,dataPointGlobalNumber,label,err)
    !DLLEXPORT(cmfe_DataPoints_LabelSetVSObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_label_set(datapoints%dataPoints,datapointglobalnumber,label,err,error,*999)

    exits("cmfe_DataPoints_LabelSetVSObj")
    RETURN
999 errorsexits("cmfe_DataPoints_LabelSetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_labelsetvsobj

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

  SUBROUTINE cmfe_datapoints_usernumbergetnumber(regionUserNumber,dataPointGlobalNumber,dataPointUserNumber,err)
    !DLLEXPORT(cmfe_DataPoints_UserNumberGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    INTEGER(INTG), INTENT(OUT) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_user_number_get(data_points,datapointglobalnumber,datapointusernumber,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_UserNumberGetNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_UserNumberGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_usernumbergetnumber

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

  SUBROUTINE cmfe_datapoints_usernumbergetobj(dataPoints,dataPointGlobalNumber,dataPointUserNumber,err)
    !DLLEXPORT(cmfe_DataPoints_UserNumberGetObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    INTEGER(INTG), INTENT(OUT) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_user_number_get(datapoints%dataPoints,datapointglobalnumber,datapointusernumber,err,error,*999)

    exits("cmfe_DataPoints_UserNumberGetObj")
    RETURN
999 errorsexits("cmfe_DataPoints_UserNumberGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_usernumbergetobj

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

  SUBROUTINE cmfe_datapoints_usernumbersetnumber(regionUserNumber,dataPointGlobalNumber,dataPointUserNumber,err)
    !DLLEXPORT(cmfe_DataPoints_UserNumberSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_user_number_set(data_points,datapointglobalnumber,datapointusernumber,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_UserNumberSetNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_UserNumberSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_usernumbersetnumber

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

  SUBROUTINE cmfe_datapoints_usernumbersetobj(dataPoints,dataPointGlobalNumber,dataPointUserNumber,err)
    !DLLEXPORT(cmfe_DataPoints_UserNumberSetObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_user_number_set(datapoints%dataPoints,datapointglobalnumber,datapointusernumber,err,error,*999)

    exits("cmfe_DataPoints_UserNumberSetObj")
    RETURN
999 errorsexits("cmfe_DataPoints_UserNumberSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_usernumbersetobj

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

  SUBROUTINE cmfe_datapoints_valuesgetnumber(regionUserNumber,dataPointGlobalNumber,dataPointValues,err)
    !DLLEXPORT(cmfe_DataPoints_ValuesGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    REAL(DP), INTENT(OUT) :: dataPointValues(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_values_get(data_points,datapointglobalnumber,datapointvalues,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_ValuesGetNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_ValuesGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_valuesgetnumber

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

  SUBROUTINE cmfe_datapoints_valuesgetobj(dataPoints,dataPointGlobalNumber,dataPointValues,err)
    !DLLEXPORT(cmfe_DataPoints_ValuesGetObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    REAL(DP), INTENT(OUT) :: dataPointValues(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_values_get(datapoints%dataPoints,datapointglobalnumber,datapointvalues,err,error,*999)

    exits("cmfe_DataPoints_ValuesGetObj")
    RETURN
999 errorsexits("cmfe_DataPoints_ValuesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_valuesgetobj

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

  SUBROUTINE cmfe_datapoints_valuessetnumber(regionUserNumber,dataPointGlobalNumber,dataPointValues,err)
    !DLLEXPORT(cmfe_DataPoints_ValuesSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    REAL(DP), INTENT(IN) :: dataPointValues(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_values_set(data_points,datapointglobalnumber,datapointvalues,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_ValuesSetNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_ValuesSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_valuessetnumber

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

  SUBROUTINE cmfe_datapoints_valuessetobj(dataPoints,dataPointGlobalNumber,dataPointValues,err)
    !DLLEXPORT(cmfe_DataPoints_ValuesSetObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    REAL(DP), INTENT(IN) :: dataPointValues(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_values_set(datapoints%dataPoints,datapointglobalnumber,datapointvalues,err,error,*999)

    exits("cmfe_DataPoints_ValuesSetObj")
    RETURN
999 errorsexits("cmfe_DataPoints_ValuesSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_valuessetobj

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

  SUBROUTINE cmfe_datapoints_weightsgetnumber(regionUserNumber,dataPointGlobalNumber,dataPointWeights,err)
    !DLLEXPORT(cmfe_DataPoints_WeightsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    REAL(DP), INTENT(OUT) :: dataPointWeights(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_weights_get(data_points,datapointglobalnumber,datapointweights,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_WeightsGetNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_WeightsGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_weightsgetnumber

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

  SUBROUTINE cmfe_datapoints_weightsgetobj(dataPoints,dataPointGlobalNumber,dataPointWeights,err)
    !DLLEXPORT(cmfe_DataPoints_WeightsGetObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    REAL(DP), INTENT(OUT) :: dataPointWeights(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_weights_get(datapoints%dataPoints,datapointglobalnumber,datapointweights,err,error,*999)

    exits("cmfe_DataPoints_WeightsGetObj")
    RETURN
999 errorsexits("cmfe_DataPoints_WeightsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_weightsgetobj

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

  SUBROUTINE cmfe_datapoints_weightssetnumber(regionUserNumber,dataPointGlobalNumber,dataPointWeights,err)
    !DLLEXPORT(cmfe_DataPoints_WeightsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    REAL(DP), INTENT(IN) :: dataPointWeights(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL data_points_weights_set(data_points,datapointglobalnumber,datapointweights,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataPoints_WeightsSetNumber")
    RETURN
999 errorsexits("cmfe_DataPoints_WeightsSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_weightssetnumber

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

  SUBROUTINE cmfe_datapoints_weightssetobj(dataPoints,dataPointGlobalNumber,dataPointWeights,err)
    !DLLEXPORT(cmfe_DataPoints_WeightsSetObj)

    !Argument variables
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    INTEGER(INTG), INTENT(IN) :: dataPointGlobalNumber
    REAL(DP), INTENT(IN) :: dataPointWeights(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_points_weights_set(datapoints%dataPoints,datapointglobalnumber,datapointweights,err,error,*999)

    exits("cmfe_DataPoints_WeightsSetObj")
    RETURN
999 errorsexits("cmfe_DataPoints_WeightsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_datapoints_weightssetobj

!!==================================================================================================================================
!!
!! DATA_PROJECTION_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_dataprojection_absolutetolerancegetnumber(dataProjectionUserNumber,regionUserNumber,absoluteTolerance,err)
    !DLLEXPORT(cmfe_DataProjection_AbsoluteToleranceGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    REAL(DP), INTENT(OUT) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

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

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL data_projection_absolute_tolerance_get(data_projection,absolutetolerance,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_AbsoluteToleranceGetNumber")
    RETURN
999 errors("cmfe_DataProjection_AbsoluteToleranceGetNumber",err,error)
    exits("cmfe_DataProjection_AbsoluteToleranceGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_absolutetolerancegetnumber

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

  SUBROUTINE cmfe_dataprojection_absolutetolerancegetobj(dataProjection,absoluteTolerance,err)
    !DLLEXPORT(cmfe_DataProjection_AbsoluteToleranceGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    REAL(DP), INTENT(OUT) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_projection_absolute_tolerance_get(dataprojection%dataProjection,absolutetolerance,err,error,*999)

    exits("cmfe_DataProjection_AbsoluteToleranceGetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_AbsoluteToleranceGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_absolutetolerancegetobj

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

  SUBROUTINE cmfe_dataprojection_absolutetolerancesetnumber(dataProjectionUserNumber,regionUserNumber,absoluteTolerance,err)
    !DLLEXPORT(cmfe_DataProjection_AbsoluteToleranceSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

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

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL data_projection_absolute_tolerance_set(data_projection,absolutetolerance,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_AbsoluteToleranceSetNumber")
    RETURN
999 errors("cmfe_DataProjection_AbsoluteToleranceSetNumber",err,error)
    exits("cmfe_DataProjection_AbsoluteToleranceSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_absolutetolerancesetnumber

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

  SUBROUTINE cmfe_dataprojection_absolutetolerancesetobj(dataProjection,absoluteTolerance,err)
    !DLLEXPORT(cmfe_DataProjection_AbsoluteToleranceSetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_projection_absolute_tolerance_set(dataprojection%dataProjection,absolutetolerance,err,error,*999)

    exits("cmfe_DataProjection_AbsoluteToleranceSetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_AbsoluteToleranceSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_absolutetolerancesetobj

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

  SUBROUTINE cmfe_dataprojection_createfinishnumber(dataProjectionUserNumber,regionUserNumber,err)
    !DLLEXPORT(cmfe_DataProjection_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

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

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL data_projection_create_finish(data_projection,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_createfinishnumber

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

  SUBROUTINE cmfe_dataprojection_createfinishobj(dataProjection,err)
    !DLLEXPORT(cmfe_DataProjection_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_projection_create_finish(dataprojection%dataProjection,err,error,*999)

    exits("cmfe_DataProjection_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_DataProjection_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_createfinishobj

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

  SUBROUTINE cmfe_dataprojection_createstartnumber(dataProjectionUserNumber,dataPointRegionUserNumber,meshUserNumber, &
    & meshregionusernumber,err)
    !DLLEXPORT(cmfe_DataProjection_CreateStartNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshRegionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: DATA_POINTS_REGION
    TYPE(region_type), POINTER :: MESH_REGION
    TYPE(varying_string) :: localError    

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

    NULLIFY(data_projection)
    NULLIFY(data_points) 
    NULLIFY(mesh)   
    NULLIFY(data_points_region)
    NULLIFY(mesh_region)
    CALL region_user_number_find(datapointregionusernumber,data_points_region,err,error,*999)
    CALL region_user_number_find(meshregionusernumber,mesh_region,err,error,*999)
    IF(ASSOCIATED(data_points_region)) THEN
      IF(ASSOCIATED(mesh_region)) THEN
        CALL mesh_user_number_find(meshusernumber,mesh_region,mesh,err,error,*999)
        IF(ASSOCIATED(mesh)) THEN
          CALL region_data_points_get(data_points_region,data_points,err,error,*999)
          CALL data_projection_create_start_data_points(dataprojectionusernumber,data_points,mesh,data_projection,err, &
            & error,*999)
        ELSE
          localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
            & " does not exist."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="A region with an user number of "//trim(numbertovstring(meshregionusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(datapointregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_DataProjection_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_dataprojection_createstartnumber

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

  SUBROUTINE cmfe_dataprojection_createstartobj(dataProjectionUserNumber,dataPoints,mesh,dataProjection,err)
    !DLLEXPORT(cmfe_DataProjection_CreateStartObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    TYPE(cmfe_datapointstype), INTENT(IN) :: dataPoints
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_projection_create_start_data_points(dataprojectionusernumber,datapoints%dataPoints,mesh%mesh, &
      & dataprojection%dataProjection,err,error,*999)

    exits("cmfe_DataProjection_CreateStartObj")
    RETURN
999 errorsexits("cmfe_DataProjection_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_createstartobj

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

  SUBROUTINE cmfe_dataprojection_destroynumber(dataProjectionUserNumber,regionUserNumber,err)
    !DLLEXPORT(cmfe_DataProjection_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

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

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL data_projection_destroy(data_projection,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_DestroyNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_destroynumber

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

  SUBROUTINE cmfe_dataprojection_destroyobj(dataProjection,err)
    !DLLEXPORT(cmfe_DataProjection_DestroyObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_projection_destroy(dataprojection%dataProjection,err,error,*999)

    exits("cmfe_DataProjection_DestroyObj")
    RETURN
999 errorsexits("cmfe_DataProjection_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_destroyobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_datapointspositionevaluateregionnumber(dataProjectionUserNumber,regionUserNumber, &
    & fieldusernumber,fieldvariabletype,err)
    !DLLEXPORT(cmfe_DataProjection_DataPointsPositionEvaluateRegionNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldVariableType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables  
    TYPE(data_projection_type), POINTER :: dataProjection
    TYPE(data_points_type), POINTER :: dataPoints
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    INTEGER(INTG) :: dataProjectionGlobalNumber
    TYPE(varying_string) :: localError      

    enters("cmfe_DataProjection_DataPointsPositionEvaluateRegionNumber",err,error,*999)
    
    NULLIFY(dataprojection)
    NULLIFY(datapoints) 
    NULLIFY(field)   
    NULLIFY(region)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,datapoints,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(datapoints,dataprojectionusernumber,dataprojectionglobalnumber, &
        & err,error,*999)
      CALL data_points_data_projection_get(datapoints,dataprojectionglobalnumber,dataprojection,err,error,*999)
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL dataprojection_datapointspositionevaluate(dataprojection,field,fieldvariabletype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_DataPointsPositionEvaluateRegionNumber")
    RETURN
999 errors("cmfe_DataProjection_DataPointsPositionEvaluateRegionNumber",err,error)
    exits("cmfe_DataProjection_DataPointsPositionEvaluateRegionNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_datapointspositionevaluateregionnumber

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

  SUBROUTINE cmfe_dataprojection_datapointspositionevaluateinterfacenumber(dataProjectionUserNumber, &
      & parentregionusernumber,interfaceusernumber,fieldusernumber,fieldvariabletype,err)
    !DLLEXPORT(cmfe_DataProjection_DataPointsPositionEvaluateInterfaceNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldVariableType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables  
    TYPE(data_projection_type), POINTER :: dataProjection
    TYPE(data_points_type), POINTER :: dataPoints
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: parentRegion
    TYPE(interface_type), POINTER :: interface
    INTEGER(INTG) :: dataProjectionGlobalNumber
    TYPE(varying_string) :: localError      

    enters("cmfe_DataProjection_DataPointsPositionEvaluateInterfaceNumber",err,error,*999)
    
    NULLIFY(dataprojection)
    NULLIFY(datapoints) 
    NULLIFY(field)   
    NULLIFY(parentregion)
    NULLIFY(interface)  
    CALL region_user_number_find(parentregionusernumber,parentregion,err,error,*999)
    IF(ASSOCIATED(parentregion)) THEN
      CALL interface_user_number_find(interfaceusernumber,parentregion,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_data_points_get(interface,datapoints,err,error,*999)
        CALL datapoints_dataprojectionglobalnumberget(datapoints,dataprojectionusernumber,dataprojectionglobalnumber, &
          & err,error,*999)
        CALL data_points_data_projection_get(datapoints,dataprojectionglobalnumber,dataprojection,err,error,*999)
        CALL field_user_number_find(fieldusernumber,interface,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL dataprojection_datapointspositionevaluate(dataprojection,field,fieldvariabletype,err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF
    
    exits("cmfe_DataProjection_DataPointsPositionEvaluateInterfaceNumber")
    RETURN
999 errors("cmfe_DataProjection_DataPointsPositionEvaluateInterfaceNumber",err,error)
    exits("cmfe_DataProjection_DataPointsPositionEvaluateInterfaceNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_datapointspositionevaluateinterfacenumber
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_datapointspositionevaluateobj(dataProjection,field,fieldVariableType,err)
    !DLLEXPORT(cmfe_DataProjection_DataPointsPositionEvaluateObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: fieldVariableType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables 

    enters("cmfe_DataProjection_DataPointsPositionEvaluateObj",err,error,*999)
    
    CALL dataprojection_datapointspositionevaluate(dataprojection%dataProjection,field%field,fieldvariabletype,err,error,*999)
    
    exits("cmfe_DataProjection_DataPointsPositionEvaluateObj")
    RETURN
999 errors("cmfe_DataProjection_DataPointsPositionEvaluateObj",err,error)
    exits("cmfe_DataProjection_DataPointsPositionEvaluateObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_datapointspositionevaluateobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_projectioncandidatessetregionnumber(dataProjectionUserNumber,regionUserNumber, &
    & candidateelements,localfacelinenumbers,err)
    !DLLEXPORT(cmfe_DataProjection_ProjectionCandidatesSetRegionNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: candidateElements(:)
    INTEGER(INTG), INTENT(IN) :: localFaceLineNumbers(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables  
    TYPE(data_projection_type), POINTER :: dataProjection
    TYPE(data_points_type), POINTER :: dataPoints
    TYPE(region_type), POINTER :: region
    INTEGER(INTG) :: dataProjectionGlobalNumber
    TYPE(varying_string) :: localError      

    enters("cmfe_DataProjection_ProjectionCandidatesSetRegionNumber",err,error,*999)
    
    NULLIFY(dataprojection)
    NULLIFY(datapoints) 
    NULLIFY(region)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,datapoints,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(datapoints,dataprojectionusernumber,dataprojectionglobalnumber, &
        & err,error,*999)
      CALL data_points_data_projection_get(datapoints,dataprojectionglobalnumber,dataprojection,err,error,*999)
      CALL dataprojection_projectioncandidatesset(dataprojection,candidateelements,localfacelinenumbers,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_ProjectionCandidatesSetRegionNumber")
    RETURN
999 errors("cmfe_DataProjection_ProjectionCandidatesSetRegionNumber",err,error)
    exits("cmfe_DataProjection_ProjectionCandidatesSetRegionNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_projectioncandidatessetregionnumber

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

  SUBROUTINE cmfe_dataprojection_projectioncandidatessetinterfacenumber(dataProjectionUserNumber, &
      & parentregionusernumber,interfaceusernumber,candidateelements,localfacelinenumbers,err)
    !DLLEXPORT(cmfe_DataProjection_ProjectionCandidatesSetInterfaceNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: candidateElements(:)
    INTEGER(INTG), INTENT(IN) :: localFaceLineNumbers(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables  
    TYPE(data_projection_type), POINTER :: dataProjection
    TYPE(data_points_type), POINTER :: dataPoints
    TYPE(region_type), POINTER :: parentRegion
    TYPE(interface_type), POINTER :: interface
    INTEGER(INTG) :: dataProjectionGlobalNumber
    TYPE(varying_string) :: localError      

    enters("cmfe_DataProjection_ProjectionCandidatesSetInterfaceNumber",err,error,*999)
    
    NULLIFY(dataprojection)
    NULLIFY(datapoints)  
    NULLIFY(parentregion)
    NULLIFY(interface)  
    CALL region_user_number_find(parentregionusernumber,parentregion,err,error,*999)
    IF(ASSOCIATED(parentregion)) THEN
      CALL interface_user_number_find(interfaceusernumber,parentregion,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_data_points_get(interface,datapoints,err,error,*999)
        CALL datapoints_dataprojectionglobalnumberget(datapoints,dataprojectionusernumber,dataprojectionglobalnumber, &
          & err,error,*999)
        CALL data_points_data_projection_get(datapoints,dataprojectionglobalnumber,dataprojection,err,error,*999)
        CALL dataprojection_projectioncandidatesset(dataprojection,candidateelements,localfacelinenumbers,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF
    
    exits("cmfe_DataProjection_ProjectionCandidatesSetInterfaceNumber")
    RETURN
999 errors("cmfe_DataProjection_ProjectionCandidatesSetInterfaceNumber",err,error)
    exits("cmfe_DataProjection_ProjectionCandidatesSetInterfaceNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_projectioncandidatessetinterfacenumber
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_projectioncandidatessetobj(dataProjection,candidateElements,localFaceLineNumbers,err)
    !DLLEXPORT(cmfe_DataProjection_ProjectionCandidatesSetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: candidateElements(:)
    INTEGER(INTG), INTENT(IN) :: localFaceLineNumbers(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables 

    enters("cmfe_DataProjection_ProjectionCandidatesSetObj",err,error,*999)
    
    CALL dataprojection_projectioncandidatesset(dataprojection%dataProjection,candidateelements,localfacelinenumbers, &
      & err,error,*999)
    
    exits("cmfe_DataProjection_ProjectionCandidatesSetObj")
    RETURN
999 errors("cmfe_DataProjection_ProjectionCandidatesSetObj",err,error)
    exits("cmfe_DataProjection_ProjectionCandidatesSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_projectioncandidatessetobj

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

  SUBROUTINE cmfe_dataprojection_datapointsprojectionevaluatenumber(dataProjectionUserNumber,dataPointsRegionUserNumber, &
    & projectionfieldusernumber,projectionfieldregionusernumber,err)
    !DLLEXPORT(cmfe_DataProjection_DataPointsProjectionEvaluateNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointsRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: projectionFieldUserNumber
    INTEGER(INTG), INTENT(IN) :: projectionFieldRegionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables  
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(field_type), POINTER :: PROJECTION_FIELD
    TYPE(region_type), POINTER :: DATA_POINTS_REGION
    TYPE(region_type), POINTER :: PROJECTION_FIELD_REGION
    INTEGER(INTG) :: GLOBAL_NUMBER
    TYPE(varying_string) :: localError      

    enters("cmfe_DataProjection_DataPointsProjectionEvaluateNumber",err,error,*999)
    
    NULLIFY(data_projection)
    NULLIFY(data_points) 
    NULLIFY(projection_field)   
    NULLIFY(data_points_region)
    NULLIFY(projection_field_region)
    CALL region_user_number_find(datapointsregionusernumber,data_points_region,err,error,*999)
    CALL region_user_number_find(projectionfieldregionusernumber,projection_field_region,err,error,*999)
    IF(ASSOCIATED(data_points_region)) THEN
      CALL region_data_points_get(data_points_region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      IF(ASSOCIATED(projection_field_region)) THEN
        CALL field_user_number_find(projectionfieldusernumber,projection_field_region,projection_field,err,error,*999)
        IF(ASSOCIATED(projection_field)) THEN
          CALL dataprojection_datapointsprojectionevaluate(data_projection,projection_field,err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(projectionfieldusernumber,"*",err,error))// &
            & " does not exist."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="A region with an user number of "//trim(numbertovstring(projectionfieldregionusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(datapointsregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_DataPointsProjectionEvaluateNumber")
    RETURN
999 errors("cmfe_DataProjection_DataPointsProjectionEvaluateNumber",err,error)
    exits("cmfe_DataProjection_DataPointsProjectionEvaluateNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_datapointsprojectionevaluatenumber


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

  SUBROUTINE cmfe_dataprojection_datapointsprojectionevaluateobj(dataProjection,projectionField,err)
    !DLLEXPORT(cmfe_DataProjection_DataPointsProjectionEvaluateObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    TYPE(cmfe_fieldtype), INTENT(IN) :: projectionField
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL dataprojection_datapointsprojectionevaluate(dataprojection%dataProjection,projectionfield%field,err,error,*999)

    exits("cmfe_DataProjection_DataPointsProjectionEvaluateObj")
    RETURN
999 errors("cmfe_DataProjection_DataPointsProjectionEvaluateObj",err,error)
    exits("cmfe_DataProjection_DataPointsProjectionEvaluateObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_datapointsprojectionevaluateobj

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

  SUBROUTINE cmfe_dataprojection_maximumiterationupdategetnumber(dataProjectionUserNumber,regionUserNumber, &
      & maximumiterationupdate,err)
    !DLLEXPORT(cmfe_DataProjection_MaximumIterationUpdateGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    REAL(DP), INTENT(OUT) :: maximumIterationUpdate
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

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

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL dataprojection_maximuminterationupdateget(data_projection,maximumiterationupdate,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_MaximumIterationUpdateGetNumber")
    RETURN
999 errors("cmfe_DataProjection_MaximumIterationUpdateGetNumber",err,error)
    exits("cmfe_DataProjection_MaximumIterationUpdateGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_maximumiterationupdategetnumber

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

  SUBROUTINE cmfe_dataprojection_maximumiterationupdategetobj(dataProjection,maximumIterationUpdate,err)
    !DLLEXPORT(cmfe_DataProjection_MaximumIterationUpdateGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    REAL(DP), INTENT(OUT) :: maximumIterationUpdate
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL dataprojection_maximuminterationupdateget(dataprojection%dataProjection,maximumiterationupdate,err,error,*999)

    exits("cmfe_DataProjection_MaximumIterationUpdateGetObj")
    RETURN
999 errors("cmfe_DataProjection_MaximumIterationUpdateGetObj",err,error)
    exits("cmfe_DataProjection_MaximumIterationUpdateGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_maximumiterationupdategetobj

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

  SUBROUTINE cmfe_dataprojection_maximumiterationupdatesetnumber(dataProjectionUserNumber,regionUserNumber, &
      & maximumiterationupdate,err)
    !DLLEXPORT(cmfe_DataProjection_MaximumIterationUpdateSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    REAL(DP), INTENT(IN) :: maximumIterationUpdate
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

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

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL dataprojection_maximuminterationupdateset(data_projection,maximumiterationupdate,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_MaximumIterationUpdateSetNumber")
    RETURN
999 errors("cmfe_DataProjection_MaximumIterationUpdateSetNumber",err,error)
    exits("cmfe_DataProjection_MaximumIterationUpdateSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_maximumiterationupdatesetnumber

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

  SUBROUTINE cmfe_dataprojection_maximumiterationupdatesetobj(dataProjection,maximumIterationUpdate,err)
    !DLLEXPORT(cmfe_DataProjection_MaximumIterationUpdateSetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    REAL(DP), INTENT(IN) :: maximumIterationUpdate
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL dataprojection_maximuminterationupdateset(dataprojection%dataProjection,maximumiterationupdate,err,error,*999)

    exits("cmfe_DataProjection_MaximumIterationUpdateSetObj")
    RETURN
999 errors("cmfe_DataProjection_MaximumIterationUpdateSetObj",err,error)
    exits("cmfe_DataProjection_MaximumIterationUpdateSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_maximumiterationupdatesetobj

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

  SUBROUTINE cmfe_dataprojection_maximumnumberofiterationsgetnumber(dataProjectionUserNumber,regionUserNumber, &
      & maximumnumberofiterations,err)
    !DLLEXPORT(cmfe_DataProjection_MaximumNumberOfIterationsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: maximumNumberOfIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

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

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL dataprojection_maximumnumberofiterationsget(data_projection,maximumnumberofiterations,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_MaximumNumberOfIterationsGetNumber")
    RETURN
999 errors("cmfe_DataProjection_MaximumNumberOfIterationsGetNumber",err,error)
    exits("cmfe_DataProjection_MaximumNumberOfIterationsGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_maximumnumberofiterationsgetnumber

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

  SUBROUTINE cmfe_dataprojection_resultdistancegetnumber(regionUserNumber,dataProjectionUserNumber,dataPointUserNumber, &
    & projectiondistance,err)
    !DLLEXPORT(cmfe_DataProjection_ResultDistanceGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    REAL(DP), INTENT(OUT) :: ProjectionDistance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    INTEGER(INTG) :: DATA_PROJECTION_GLOBAL_NUMBER    
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError 

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

    NULLIFY(region)
    NULLIFY(data_points)    
    NULLIFY(data_projection) 
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,data_projection_global_number,err, &
        & error,*999)
      CALL data_points_data_projection_get(data_points,data_projection_global_number,data_projection,err,error,*999)
      IF(ASSOCIATED(data_projection)) THEN
        CALL data_projection_result_distance_get(data_projection,datapointusernumber,projectiondistance,err,error,*999)
      ELSE
        localerror="A data projection with an user number of "//trim(numbertovstring(dataprojectionusernumber,"*",err,error)) &
          & //" does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_DataProjection_ResultDistanceGetNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_ResultDistanceGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultdistancegetnumber


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

  SUBROUTINE cmfe_dataprojection_resultdistancegetobj(dataProjection,dataPointUserNumber,ProjectionDistance,err)
    !DLLEXPORT(cmfe_DataProjection_ResultDistanceGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    REAL(DP), INTENT(OUT) :: ProjectionDistance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_projection_result_distance_get(dataprojection%dataProjection,datapointusernumber,projectiondistance, &
      & err,error,*999)

    exits("cmfe_DataProjection_ResultDistanceGetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_ResultDistanceGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultdistancegetobj

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

  SUBROUTINE cmfe_dataprojection_resultelementnumbergetnumber(regionUserNumber,dataProjectionUserNumber,dataPointUserNumber, &
    & projectionelementnumber,err)
    !DLLEXPORT(cmfe_DataProjection_ResultElementNumberGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: ProjectionElementNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    INTEGER(INTG) :: DATA_PROJECTION_GLOBAL_NUMBER  
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)    
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,data_projection_global_number,err, &
        & error,*999)
      CALL data_points_data_projection_get(data_points,data_projection_global_number,data_projection,err,error,*999)
      IF(ASSOCIATED(data_projection)) THEN
        CALL data_projection_result_element_number_get(data_projection,datapointusernumber,projectionelementnumber,err,error,*999)
      ELSE
        localerror="A data projection with an user number of "//trim(numbertovstring(dataprojectionusernumber,"*",err,error)) &
          & //" does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF    

    exits("cmfe_DataProjection_ResultElementNumberGetNumber")
    RETURN
999 errors("cmfe_DataProjection_ResultElementNumberGetNumber",err,error)
    exits("cmfe_DataProjection_ResultElementNumberGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultelementnumbergetnumber

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

  SUBROUTINE cmfe_dataprojection_resultelementnumbergetobj(dataProjection,dataPointUserNumber,ProjectionElementNumber,err)
    !DLLEXPORT(cmfe_DataProjection_ResultElementNumberGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: ProjectionElementNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_projection_result_element_number_get(dataprojection%dataProjection,datapointusernumber,projectionelementnumber, &
      & err,error,*999)

    exits("cmfe_DataProjection_ResultElementNumberGetObj")
    RETURN
999 errors("cmfe_DataProjection_ResultElementNumberGetObj",err,error)
    exits("cmfe_DataProjection_ResultElementNumberGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultelementnumbergetobj

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

  SUBROUTINE cmfe_dataprojection_resultelementfacenumbergetnumber(regionUserNumber,dataProjectionUserNumber,dataPointUserNumber, &
    & projectionelementfacenumber,err)
    !DLLEXPORT(cmfe_DataProjection_ResultElementFaceNumberGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: ProjectionElementFaceNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    INTEGER(INTG) :: DATA_PROJECTION_GLOBAL_NUMBER  
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)    
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,data_projection_global_number,err, &
        & error,*999)
      CALL data_points_data_projection_get(data_points,data_projection_global_number,data_projection,err,error,*999)
      IF(ASSOCIATED(data_projection)) THEN
        CALL dataprojection_resultelementfacenumberget(data_projection,datapointusernumber,projectionelementfacenumber,err, &
          & error,*999)
      ELSE
        localerror="A data projection with an user number of "//trim(numbertovstring(dataprojectionusernumber,"*",err,error)) &
          & //" does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF    

    exits("cmfe_DataProjection_ResultElementFaceNumberGetNumber")
    RETURN
999 errors("cmfe_DataProjection_ResultElementFaceNumberGetNumber",err,error)
    exits("cmfe_DataProjection_ResultElementFaceNumberGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultelementfacenumbergetnumber

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

  SUBROUTINE cmfe_dataprojection_resultelementfacenumbergetobj(dataProjection,dataPointUserNumber, &
    & projectionelementfacenumber,err)
    !DLLEXPORT(cmfe_DataProjection_ResultElementFaceNumberGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: ProjectionElementFaceNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL dataprojection_resultelementfacenumberget(dataprojection%dataProjection,datapointusernumber, &
      & projectionelementfacenumber,err,error,*999)

    exits("cmfe_DataProjection_ResultElementFaceNumberGetObj")
    RETURN
999 errors("cmfe_DataProjection_ResultElementFaceNumberGetObj",err,error)
    exits("cmfe_DataProjection_ResultElementFaceNumberGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultelementfacenumbergetobj

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

  SUBROUTINE cmfe_dataprojection_resultelementlinenumbergetnumber(regionUserNumber,dataProjectionUserNumber,dataPointUserNumber, &
    & projectionelementlinenumber,err)
    !DLLEXPORT(cmfe_DataProjection_ResultElementLineNumberGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: ProjectionElementLineNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    INTEGER(INTG) :: DATA_PROJECTION_GLOBAL_NUMBER  
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)    
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,data_projection_global_number,err, &
        & error,*999)
      CALL data_points_data_projection_get(data_points,data_projection_global_number,data_projection,err,error,*999)
      IF(ASSOCIATED(data_projection)) THEN
        CALL dataprojection_resultelementlinenumberget(data_projection,datapointusernumber,projectionelementlinenumber,err, &
          & error,*999)
      ELSE
        localerror="A data projection with an user number of "//trim(numbertovstring(dataprojectionusernumber,"*",err,error)) &
          & //" does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF    

    exits("cmfe_DataProjection_ResultElementLineNumberGetNumber")
    RETURN
999 errors("cmfe_DataProjection_ResultElementLineNumberGetNumber",err,error)
    exits("cmfe_DataProjection_ResultElementLineNumberGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultelementlinenumbergetnumber

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

  SUBROUTINE cmfe_dataprojection_resultelementlinenumbergetobj(dataProjection,dataPointUserNumber, &
    & projectionelementlinenumber,err)
    !DLLEXPORT(cmfe_DataProjection_ResultElementLineNumberGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: ProjectionElementLineNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL dataprojection_resultelementlinenumberget(dataprojection%dataProjection,datapointusernumber, &
      & projectionelementlinenumber,err,error,*999)

    exits("cmfe_DataProjection_ResultElementLineNumberGetObj")
    RETURN
999 errors("cmfe_DataProjection_ResultElementLineNumberGetObj",err,error)
    exits("cmfe_DataProjection_ResultElementLineNumberGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultelementlinenumbergetobj

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

  SUBROUTINE cmfe_dataprojection_resultexittaggetnumber(regionUserNumber,dataProjectionUserNumber,dataPointUserNumber, &
    & projectionexittag,err)
    !DLLEXPORT(cmfe_DataProjection_ResultExitTagGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: ProjectionExitTag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    INTEGER(INTG) :: DATA_PROJECTION_GLOBAL_NUMBER  
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)    
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,data_projection_global_number,err, &
        & error,*999)
      CALL data_points_data_projection_get(data_points,data_projection_global_number,data_projection,err,error,*999)
      IF(ASSOCIATED(data_projection)) THEN
        CALL data_projection_result_exit_tag_get(data_projection,datapointusernumber,projectionexittag,err,error,*999)
      ELSE
        localerror="A data projection with an user number of "//trim(numbertovstring(dataprojectionusernumber,"*",err,error)) &
          & //" does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF    

    exits("cmfe_DataProjection_ResultExitTagGetNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_ResultExitTagGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultexittaggetnumber

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

  SUBROUTINE cmfe_dataprojection_resultexittaggetobj(dataProjection,dataPointUserNumber,ProjectionExitTag,err)
    !DLLEXPORT(cmfe_DataProjection_ResultExitTagGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: ProjectionExitTag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_projection_result_exit_tag_get(dataprojection%dataProjection,datapointusernumber,projectionexittag, &
      & err,error,*999)

    exits("cmfe_DataProjection_ResultExitTagGetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_ResultExitTagGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultexittaggetobj

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

  SUBROUTINE cmfe_dataprojection_resultxigetnumber(regionUserNumber,dataProjectionUserNumber,dataPointUserNumber,ProjectionXi,err)
    !DLLEXPORT(cmfe_DataProjection_ResultXiGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    REAL(DP), INTENT(OUT) :: ProjectionXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    INTEGER(INTG) :: DATA_PROJECTION_GLOBAL_NUMBER  
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)    
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,data_projection_global_number,err, &
        & error,*999)
      CALL data_points_data_projection_get(data_points,data_projection_global_number,data_projection,err,error,*999)
      IF(ASSOCIATED(data_projection)) THEN
        CALL data_projection_result_xi_get(data_projection,datapointusernumber,projectionxi,err,error,*999)
      ELSE
        localerror="A data projection with an user number of "//trim(numbertovstring(dataprojectionusernumber,"*",err,error)) &
          & //" does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_DataProjection_ResultXiGetNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_ResultXiGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultxigetnumber

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

  SUBROUTINE cmfe_dataprojection_resultxigetobj(dataProjection,dataPointUserNumber,ProjectionXi,err)
    !DLLEXPORT(cmfe_DataProjection_ResultXiGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    REAL(DP), INTENT(OUT) :: ProjectionXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_projection_result_xi_get(dataprojection%dataProjection,datapointusernumber,projectionxi,err,error,*999)

    exits("cmfe_DataProjection_ResultXiGetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_ResultXiGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultxigetobj

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

  SUBROUTINE cmfe_dataprojection_resultxisetnumber(regionUserNumber,dataProjectionUserNumber,dataPointUserNumber,ProjectionXi,err)
    !DLLEXPORT(cmfe_DataProjection_ResultXiSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    REAL(DP), INTENT(IN) :: ProjectionXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    INTEGER(INTG) :: DATA_PROJECTION_GLOBAL_NUMBER  
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)    
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,data_projection_global_number,err, &
        & error,*999)
      CALL data_points_data_projection_get(data_points,data_projection_global_number,data_projection,err,error,*999)
      IF(ASSOCIATED(data_projection)) THEN
        CALL data_projection_result_xi_set(data_projection,datapointusernumber,projectionxi,err,error,*999)
      ELSE
        localerror="A data projection with an user number of "//trim(numbertovstring(dataprojectionusernumber,"*",err,error)) &
          & //" does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_DataProjection_ResultXiSetNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_ResultXiSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultxisetnumber

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

  SUBROUTINE cmfe_dataprojection_resultxisetobj(dataProjection,dataPointUserNumber,ProjectionXi,err)
    !DLLEXPORT(cmfe_DataProjection_ResultXiSetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    REAL(DP), INTENT(IN) :: ProjectionXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL data_projection_result_xi_set(dataprojection%dataProjection,datapointusernumber,projectionxi,err,error,*999)

    exits("cmfe_DataProjection_ResultXiSetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_ResultXiSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultxisetobj

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

  SUBROUTINE cmfe_dataprojection_resultprojectionvectorgetnumber(regionUserNumber,dataProjectionUserNumber, &
      & datapointusernumber,projectionvector,err)
    !DLLEXPORT(cmfe_DataProjection_ResultProjectionVectorGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    REAL(DP), INTENT(OUT) :: projectionVector(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    INTEGER(INTG) :: DATA_PROJECTION_GLOBAL_NUMBER  
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

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

    NULLIFY(region)
    NULLIFY(data_points)    
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,data_projection_global_number,err, &
        & error,*999)
      CALL data_points_data_projection_get(data_points,data_projection_global_number,data_projection,err,error,*999)
      IF(ASSOCIATED(data_projection)) THEN
        CALL dataprojection_resultprojectionvectorget(data_projection,datapointusernumber,projectionvector,err,error,*999)
      ELSE
        localerror="A data projection with an user number of "//trim(numbertovstring(dataprojectionusernumber,"*",err,error)) &
          & //" does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_DataProjection_ResultProjectionVectorGetNumber")
    RETURN
999 errors("cmfe_DataProjection_ResultProjectionVectorGetNumber",err,error)
    exits("cmfe_DataProjection_ResultProjectionVectorGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultprojectionvectorgetnumber

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

  SUBROUTINE cmfe_dataprojection_resultprojectionvectorgetobj(dataProjection,dataPointUserNumber,projectionVector,err)
    !DLLEXPORT(cmfe_DataProjection_ResultProjectionVectorGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: dataPointUserNumber
    REAL(DP), INTENT(OUT) :: projectionVector(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL dataprojection_resultprojectionvectorget(dataprojection%dataProjection,datapointusernumber, &
      & projectionvector,err,error,*999)

    exits("cmfe_DataProjection_ResultProjectionVectorGetObj")
    RETURN
999 errors("cmfe_DataProjection_ResultProjectionVectorGetObj",err,error)
    exits("cmfe_DataProjection_ResultProjectionVectorGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_resultprojectionvectorgetobj

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

  SUBROUTINE cmfe_dataprojection_maximumnumberofiterationsgetobj(dataProjection,maximumNumberOfIterations,err)
    !DLLEXPORT(cmfe_DataProjection_MaximumNumberOfIterationsGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    INTEGER(INTG), INTENT(OUT) :: maximumNumberOfIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL dataprojection_maximumnumberofiterationsget(dataprojection%dataProjection,maximumnumberofiterations,err,error,*999)

    exits("cmfe_DataProjection_MaximumNumberOfIterationsGetObj")
    RETURN
999 errors("cmfe_DataProjection_MaximumNumberOfIterationsGetObj",err,error)
    exits("cmfe_DataProjection_MaximumNumberOfIterationsGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_maximumnumberofiterationsgetobj

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

  SUBROUTINE cmfe_dataprojection_maximumnumberofiterationssetnumber(dataProjectionUserNumber,regionUserNumber, &
      & maximumnumberofiterations,err)
    !DLLEXPORT(cmfe_DataProjection_MaximumNumberOfIterationsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: maximumNumberOfIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

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

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL dataprojection_maximumnumberofiterationsset(data_projection,maximumnumberofiterations,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_MaximumNumberOfIterationsSetNumber")
    RETURN
999 errors("cmfe_DataProjection_MaximumNumberOfIterationsSetNumber",err,error)
    exits("cmfe_DataProjection_MaximumNumberOfIterationsSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_maximumnumberofiterationssetnumber

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

  SUBROUTINE cmfe_dataprojection_maximumnumberofiterationssetobj(dataProjection,maximumNumberOfIterations,err)
    !DLLEXPORT(cmfe_DataProjection_MaximumNumberOfIterationsSetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: maximumNumberOfIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL dataprojection_maximumnumberofiterationsset(dataprojection%dataProjection,maximumnumberofiterations,err,error,*999)

    exits("cmfe_DataProjection_MaximumNumberOfIterationsSetObj")
    RETURN
999 errors("cmfe_DataProjection_MaximumNumberOfIterationsSetObj",err,error)
    exits("cmfe_DataProjection_MaximumNumberOfIterationsSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_maximumnumberofiterationssetobj

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

  SUBROUTINE cmfe_dataprojection_numberofclosestelementsgetnumber(dataProjectionUserNumber,regionUserNumber, &
      & numberofclosestelements,err)
    !DLLEXPORT(cmfe_DataProjection_NumberOfClosestElementsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfClosestElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

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

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL dataprojection_numberofclosestelementsget(data_projection,numberofclosestelements,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_NumberOfClosestElementsGetNumber")
    RETURN
999 errors("cmfe_DataProjection_NumberOfClosestElementsGetNumber",err,error)
    exits("cmfe_DataProjection_NumberOfClosestElementsGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_numberofclosestelementsgetnumber

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

  SUBROUTINE cmfe_dataprojection_numberofclosestelementsgetobj(dataProjection,numberOfClosestElements,err)
    !DLLEXPORT(cmfe_DataProjection_NumberOfClosestElementsGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    INTEGER(INTG), INTENT(OUT) :: numberOfClosestElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL dataprojection_numberofclosestelementsget(dataprojection%dataProjection,numberofclosestelements,err,error,*999)

    exits("cmfe_DataProjection_NumberOfClosestElementsGetObj")
    RETURN
999 errors("cmfe_DataProjection_NumberOfClosestElementsGetObj",err,error)
    exits("cmfe_DataProjection_NumberOfClosestElementsGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_numberofclosestelementsgetobj

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

  SUBROUTINE cmfe_dataprojection_numberofclosestelementssetnumber(dataProjectionUserNumber,regionUserNumber, &
      & numberofclosestelements,err)
    !DLLEXPORT(cmfe_DataProjection_NumberOfClosestElementsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: numberOfClosestElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

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

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL dataprojection_numberofclosestelementsset(data_projection,numberofclosestelements,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_NumberOfClosestElementsSetNumber")
    RETURN
999 errors("cmfe_DataProjection_NumberOfClosestElementsSetNumber",err,error)
    exits("cmfe_DataProjection_NumberOfClosestElementsSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_numberofclosestelementssetnumber

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

  SUBROUTINE cmfe_dataprojection_numberofclosestelementssetobj(dataProjection,numberOfClosestElements,err)
    !DLLEXPORT(cmfe_DataProjection_NumberOfClosestElementsSetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: numberOfClosestElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

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

    CALL dataprojection_numberofclosestelementsset(dataprojection%dataProjection,numberofclosestelements,err,error,*999)

    exits("cmfe_DataProjection_NumberOfClosestElementsSetObj")
    RETURN
999 errors("cmfe_DataProjection_NumberOfClosestElementsSetObj",err,error)
    exits("cmfe_DataProjection_NumberOfClosestElementsSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_numberofclosestelementssetobj

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

  SUBROUTINE cmfe_dataprojection_projectiontypegetnumber(dataProjectionUserNumber,regionUserNumber,projectionType,err)
    !DLLEXPORT(cmfe_DataProjection_ProjectionTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: projectionType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

    enters("cmfe_DataProjection_ProjectionTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL data_projection_projection_type_get(data_projection,projectiontype,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_ProjectionTypeGetNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_ProjectionTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_projectiontypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_projectiontypegetobj(dataProjection,projectionType,err)
    !DLLEXPORT(cmfe_DataProjection_ProjectionTypeGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    INTEGER(INTG), INTENT(OUT) :: projectionType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DataProjection_ProjectionTypeGetObj",err,error,*999)

    CALL data_projection_projection_type_get(dataprojection%dataProjection,projectiontype,err,error,*999)

    exits("cmfe_DataProjection_ProjectionTypeGetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_ProjectionTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_projectiontypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_projectiontypesetnumber(dataProjectionUserNumber,regionUserNumber,projectionType,err)
    !DLLEXPORT(cmfe_DataProjection_ProjectionTypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: projectionType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

    enters("cmfe_DataProjection_ProjectionTypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL data_projection_projection_type_set(data_projection,projectiontype,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_ProjectionTypeSetNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_ProjectionTypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_projectiontypesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_projectiontypesetobj(dataProjection,projectionType,err)
    !DLLEXPORT(cmfe_DataProjection_ProjectionTypeSetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: projectionType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DataProjection_ProjectionTypeSetObj",err,error,*999)

    CALL data_projection_projection_type_set(dataprojection%dataProjection,projectiontype,err,error,*999)

    exits("cmfe_DataProjection_ProjectionTypeSetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_ProjectionTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_projectiontypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_relativetolerancegetnumber(dataProjectionUserNumber,regionUserNumber,relativeTolerance,err)
    !DLLEXPORT(cmfe_DataProjection_RelativeToleranceGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    REAL(DP), INTENT(OUT) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

    enters("cmfe_DataProjection_RelativeToleranceGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL data_projection_relative_tolerance_get(data_projection,relativetolerance,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_RelativeToleranceGetNumber")
    RETURN
999 errors("cmfe_DataProjection_RelativeToleranceGetNumber",err,error)
    exits("cmfe_DataProjection_RelativeToleranceGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_relativetolerancegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_relativetolerancegetobj(dataProjection,relativeTolerance,err)
    !DLLEXPORT(cmfe_DataProjection_RelativeToleranceGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    REAL(DP), INTENT(OUT) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DataProjection_RelativeToleranceGetObj",err,error,*999)

    CALL data_projection_relative_tolerance_get(dataprojection%dataProjection,relativetolerance,err,error,*999)

    exits("cmfe_DataProjection_RelativeToleranceGetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_RelativeToleranceGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_relativetolerancegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_relativetolerancesetnumber(dataProjectionUserNumber,regionUserNumber,relativeTolerance,err)
    !DLLEXPORT(cmfe_DataProjection_RelativeToleranceSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    REAL(DP), INTENT(IN) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

    enters("cmfe_DataProjection_RelativeToleranceSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL data_projection_relative_tolerance_set(data_projection,relativetolerance,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_RelativeToleranceSetNumber")
    RETURN
999 errors("cmfe_DataProjection_RelativeToleranceSetNumber",err,error)
    exits("cmfe_DataProjection_RelativeToleranceSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_relativetolerancesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_relativetolerancesetobj(dataProjection,relativeTolerance,err)
    !DLLEXPORT(cmfe_DataProjection_RelativeToleranceSetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    REAL(DP), INTENT(IN) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DataProjection_RelativeToleranceSetObj",err,error,*999)

    CALL data_projection_relative_tolerance_set(dataprojection%dataProjection,relativetolerance,err,error,*999)

    exits("cmfe_DataProjection_RelativeToleranceSetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_RelativeToleranceSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_relativetolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_startingxigetnumber(dataProjectionUserNumber,regionUserNumber,startingXi,err)
    !DLLEXPORT(cmfe_DataProjection_StartingXiGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    REAL(DP), INTENT(OUT) :: startingXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

    enters("cmfe_DataProjection_StartingXiGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL data_projection_starting_xi_get(data_projection,startingxi,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_StartingXiGetNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_StartingXiGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_startingxigetnumber


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_startingxigetobj(dataProjection,startingXi,err)
    !DLLEXPORT(cmfe_DataProjection_StartingXiGetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    REAL(DP), INTENT(OUT) :: startingXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DataProjection_StartingXiGetObj",err,error,*999)

    CALL data_projection_starting_xi_get(dataprojection%dataProjection,startingxi,err,error,*999)

    exits("cmfe_DataProjection_StartingXiGetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_StartingXiGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_startingxigetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_startingxisetnumber(dataProjectionUserNumber,regionUserNumber,startingXi,err)
    !DLLEXPORT(cmfe_DataProjection_StartingXiSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    REAL(DP), INTENT(IN) :: startingXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

    enters("cmfe_DataProjection_StartingXiSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL data_projection_starting_xi_set(data_projection,startingxi,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_StartingXiSetNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_StartingXiSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_startingxisetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_startingxisetobj(dataProjection,startingXi,err)
    !DLLEXPORT(cmfe_DataProjection_StartingXiSetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    REAL(DP), INTENT(IN) :: startingXi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DataProjection_StartingXiSetObj",err,error,*999)

    CALL data_projection_starting_xi_set(dataprojection%dataProjection,startingxi,err,error,*999)

    exits("cmfe_DataProjection_StartingXiSetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_StartingXiSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_startingxisetobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_elementsetinterfacenumber(dataProjectionUserNumber,parentRegionUserNumber,interfaceUserNumber, &
      & datapointnumber,elementnumber,err)
    !DLLEXPORT(cmfe_DataProjection_ElementSetInterfaceNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointNumber
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: PARENT_REGION
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

    enters("cmfe_DataProjection_ElementSetInterfaceNumber",err,error,*999)

    NULLIFY(parent_region)
    NULLIFY(interface)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(parentregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,parent_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_data_points_get(interface,data_points,err,error,*999)
        CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
        CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
        CALL data_projection_element_set(data_projection,datapointnumber,elementnumber,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_DataProjection_ElementSetInterfaceNumber")
    RETURN
999 errors("cmfe_DataProjection_ElementSetInterfaceNumber",err,error)
    exits("cmfe_DataProjection_ElementSetInterfaceNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_elementsetinterfacenumber
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_elementsetregionnumber(dataProjectionUserNumber,regionUserNumber,dataPointNumber,elementNumber,err)
    !DLLEXPORT(cmfe_DataProjection_ElementSetRegionNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointNumber
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: GLOBAL_NUMBER

    enters("cmfe_DataProjection_ElementSetRegionNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(data_points)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_data_points_get(region,data_points,err,error,*999)
      CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,global_number,err,error,*999)
      CALL data_points_data_projection_get(data_points,global_number,data_projection,err,error,*999)
      CALL data_projection_element_set(data_projection,datapointnumber,elementnumber,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_ElementSetRegionNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_ElementSetRegionNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_elementsetregionnumber
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_elementsetobj(dataProjection,dataPointNumber,elementNumber,err)
    !DLLEXPORT(cmfe_DataProjection_ElementSetObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: dataPointNumber
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DataProjection_ElementSetObj",err,error,*999)

    CALL data_projection_element_set(dataprojection%dataProjection,datapointnumber,elementnumber,err,error,*999)

    exits("cmfe_DataProjection_ElementSetObj")
    RETURN
999 errorsexits("cmfe_DataProjection_ElementSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_elementsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelgetcinterfacenumber(dataProjectionUserNumber,parentRegionUserNumber,interfaceUserNumber, &
    & label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelGetCInterfaceNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: PARENT_REGION
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError

    enters("cmfe_DataProjection_LabelGetCInterfaceNumber",err,error,*999)

    NULLIFY(parent_region)
    NULLIFY(interface)
    NULLIFY(data_projection)
    CALL region_user_number_find(parentregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,parent_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL data_projection_label_get(data_projection,label,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_DataProjection_LabelGetCInterfaceNumber")
    RETURN
999 errors("cmfe_DataProjection_LabelGetCInterfaceNumber",err,error)
    exits("cmfe_DataProjection_LabelGetCInterfaceNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelgetcinterfacenumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelgetvsinterfacenumber(dataProjectionUserNumber,parentRegionUserNumber,interfaceUserNumber, &
    & label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelGetVSInterfaceNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: PARENT_REGION
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError

    enters("cmfe_DataProjection_LabelGetVSInterfaceNumber",err,error,*999)

    NULLIFY(parent_region)
    NULLIFY(interface)
    NULLIFY(data_projection)
    CALL region_user_number_find(parentregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,parent_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL data_projection_label_get(data_projection,label,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_DataProjection_LabelGetVSInterfaceNumber")
    RETURN
999 errors("cmfe_DataProjection_LabelGetVSInterfaceNumber",err,error)
    exits("cmfe_DataProjection_LabelGetVSInterfaceNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelgetvsinterfacenumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelgetcregionnumber(dataProjectionUserNumber,regionUserNumber,label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelGetCRegionNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError

    enters("cmfe_DataProjection_LabelGetCRegionNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL data_projection_label_get(data_projection,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_LabelGetRegionNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_LabelGetCRegionNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelgetcregionnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelgetvsregionnumber(dataProjectionUserNumber,regionUserNumber,label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelGetVSRegionNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError

    enters("cmfe_DataProjection_LabelGetVSRegionNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL data_projection_label_get(data_projection,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_LabelGetVSRegionNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_LabelGetVSRegionNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelgetvsregionnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelgetcobj(dataProjection,label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelGetCObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DataProjection_LabelGetCObj",err,error,*999)

    CALL data_projection_label_get(dataprojection%dataProjection,label,err,error,*999)

    exits("cmfe_DataProjection_LabelGetCObj")
    RETURN
999 errorsexits("cmfe_DataProjection_LabelGetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelgetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelgetvsobj(dataProjection,label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelGetVSObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DataProjection_LabelGetVSObj",err,error,*999)

    CALL data_projection_label_get(dataprojection%dataProjection,label,err,error,*999)

    exits("cmfe_DataProjection_LabelGetVSObj")
    RETURN
999 errorsexits("cmfe_DataProjection_LabelGetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelgetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelsetcinterfacenumber(dataProjectionUserNumber,parentRegionUserNumber,interfaceUserNumber, &
    & label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelSetCInterfaceNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: PARENT_REGION
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError

    enters("cmfe_DataProjection_LabelSetCInterfaceNumber",err,error,*999)

    NULLIFY(parent_region)
    NULLIFY(interface)
    NULLIFY(data_projection)
    CALL region_user_number_find(parentregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,parent_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL data_projection_label_set(data_projection,label,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_DataProjection_LabelSetCInterfaceNumber")
    RETURN
999 errors("cmfe_DataProjection_LabelSetCInterfaceNumber",err,error)
    exits("cmfe_DataProjection_LabelSetCInterfaceNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelsetcinterfacenumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelsetvsinterfacenumber(dataProjectionUserNumber,parentRegionUserNumber,interfaceUserNumber, &
    & label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelSetVSInterfaceNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: PARENT_REGION
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError

    enters("cmfe_DataProjection_LabelSetVSInterfaceNumber",err,error,*999)

    NULLIFY(parent_region)
    NULLIFY(interface)
    NULLIFY(data_projection)
    CALL region_user_number_find(parentregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,parent_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL data_projection_label_set(data_projection,label,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_DataProjection_LabelSetVSInterfaceNumber")
    RETURN
999 errors("cmfe_DataProjection_LabelSetVSInterfaceNumber",err,error)
    exits("cmfe_DataProjection_LabelSetVSInterfaceNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelsetvsinterfacenumber
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelsetcregionnumber(dataProjectionUserNumber,regionUserNumber,label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelSetCRegionNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError

    enters("cmfe_DataProjection_LabelSetCRegionNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL data_projection_label_set(data_projection,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_LabelSetRegionNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_LabelSetCRegionNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelsetcregionnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelsetvsregionnumber(dataProjectionUserNumber,regionUserNumber,label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelSetVSRegionNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(varying_string) :: localError

    enters("cmfe_DataProjection_LabelSetVSRegionNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(data_projection)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL data_projection_label_set(data_projection,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_DataProjection_LabelSetVSRegionNumber")
    RETURN
999 errorsexits("cmfe_DataProjection_LabelSetVSRegionNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelsetvsregionnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelsetcobj(dataProjection,label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelSetCObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DataProjection_LabelSetCObj",err,error,*999)

    CALL data_projection_label_set(dataprojection%dataProjection,label,err,error,*999)

    exits("cmfe_DataProjection_LabelSetCObj")
    RETURN
999 errorsexits("cmfe_DataProjection_LabelSetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelsetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_dataprojection_labelsetvsobj(dataProjection,label,err)
    !DLLEXPORT(cmfe_DataProjection_LabelSetVSObj)

    !Argument variables
    TYPE(cmfe_dataprojectiontype), INTENT(INOUT) :: dataProjection
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_DataProjection_LabelSetVSObj",err,error,*999)

    CALL data_projection_label_set(dataprojection%dataProjection,label,err,error,*999)

    exits("cmfe_DataProjection_LabelSetVSObj")
    RETURN
999 errorsexits("cmfe_DataProjection_LabelSetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_dataprojection_labelsetvsobj

!!==================================================================================================================================
!!
!! EQUATIONS_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_equations_destroynumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_Equations_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_type), POINTER :: EQUATIONS
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Equations_DestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_get(equations_set,equations,err,error,*999)
        CALL equations_destroy(equations,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Equations_DestroyNumber")
    RETURN
999 errorsexits("cmfe_Equations_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_destroyobj(equations,err)
    !DLLEXPORT(cmfe_Equations_DestroyObj)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(INOUT) :: equations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Equations_DestroyObj",err,error,*999)

    CALL equations_destroy(equations%equations,err,error,*999)

    exits("cmfe_Equations_DestroyObj")
    RETURN
999 errorsexits("cmfe_Equations_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_destroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_linearitytypegetnumber(regionUserNumber,equationsSetUserNumber,linearityType,err)
    !DLLEXPORT(cmfe_Equations_LinearityTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: linearityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_type), POINTER :: EQUATIONS
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Equations_LinearityTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_get(equations_set,equations,err,error,*999)
        CALL equations_linearity_type_get(equations,linearitytype,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Equations_LinearityTypeGetNumber")
    RETURN
999 errorsexits("cmfe_Equations_LinearityTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_linearitytypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_linearitytypegetobj(equations,linearityType,err)
    !DLLEXPORT(cmfe_Equations_LinearityTypeGetObj)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(OUT) :: linearityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Equations_LinearityTypeGetObj",err,error,*999)

    CALL equations_linearity_type_get(equations%equations,linearitytype,err,error,*999)

    exits("cmfe_Equations_LinearityTypeGetObj")
    RETURN
999 errorsexits("cmfe_Equations_LinearityTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_linearitytypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_lumpingtypegetnumber(regionUserNumber,equationsSetUserNumber,lumpingType,err)
    !DLLEXPORT(cmfe_Equations_LumpingTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: lumpingType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_type), POINTER :: EQUATIONS
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Equations_LumpingTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_get(equations_set,equations,err,error,*999)
        CALL equations_lumping_type_get(equations,lumpingtype,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Equations_LumpingTypeGetNumber")
    RETURN
999 errorsexits("cmfe_Equations_LumpingTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_lumpingtypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_lumpingtypegetobj(equations,lumpingType,err)
    !DLLEXPORT(cmfe_Equations_LumpingTypeGetObj)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(OUT) :: lumpingType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Equations_LumpingTypeGetObj",err,error,*999)

    CALL equations_lumping_type_get(equations%equations,lumpingtype,err,error,*999)

    exits("cmfe_Equations_LumpingTypeGetObj")
    RETURN
999 errorsexits("cmfe_Equations_LumpingTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_lumpingtypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_lumpingtypesetnumber(regionUserNumber,equationsSetUserNumber,lumpingType,err)
    !DLLEXPORT(cmfe_Equations_LumpingTypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: lumpingType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_type), POINTER :: EQUATIONS
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Equations_LumpingTypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_get(equations_set,equations,err,error,*999)
        CALL equations_lumping_type_set(equations,lumpingtype,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Equations_LumpingTypeSetNumber")
    RETURN
999 errorsexits("cmfe_Equations_LumpingTypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_lumpingtypesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_lumpingtypesetobj(equations,lumpingType,err)
    !DLLEXPORT(cmfe_Equations_LumpingTypeSetObj)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(INOUT) :: equations
    INTEGER(INTG), INTENT(IN) :: lumpingType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Equations_LumpingTypeSetObj",err,error,*999)

    CALL equations_lumping_type_set(equations%equations,lumpingtype,err,error,*999)

    exits("cmfe_Equations_LumpingTypeSetObj")
    RETURN
999 errorsexits("cmfe_Equations_LumpingTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_lumpingtypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_outputtypegetnumber(regionUserNumber,equationsSetUserNumber,outputType,err)
    !DLLEXPORT(cmfe_Equations_OutputTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_type), POINTER :: EQUATIONS
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Equations_OutputTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_get(equations_set,equations,err,error,*999)
        CALL equations_output_type_get(equations,outputtype,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Equations_OutputTypeGetNumber")
    RETURN
999 errorsexits("cmfe_Equations_OutputTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_outputtypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_outputtypegetobj(equations,outputType,err)
    !DLLEXPORT(cmfe_Equations_OutputTypeGetObj)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(OUT) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Equations_OutputTypeGetObj",err,error,*999)

    CALL equations_output_type_get(equations%equations,outputtype,err,error,*999)

    exits("cmfe_Equations_OutputTypeGetObj")
    RETURN
999 errorsexits("cmfe_Equations_OutputTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_outputtypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_outputtypesetnumber(regionUserNumber,equationsSetUserNumber,outputType,err)
    !DLLEXPORT(cmfe_Equations_OutputTypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_type), POINTER :: EQUATIONS
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Equations_OutputTypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_get(equations_set,equations,err,error,*999)
        CALL equations_output_type_set(equations,outputtype,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Equations_OutputTypeSetNumber")
    RETURN
999 errorsexits("cmfe_Equations_OutputTypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_outputtypesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_outputtypesetobj(equations,outputType,err)
    !DLLEXPORT(cmfe_Equations_OutputTypeSetObj)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(INOUT) :: equations
    INTEGER(INTG), INTENT(IN) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Equations_OutputTypeSetObj",err,error,*999)

    CALL equations_output_type_set(equations%equations,outputtype,err,error,*999)

    exits("cmfe_Equations_OutputTypeSetObj")
    RETURN
999 errorsexits("cmfe_Equations_OutputTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_outputtypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_sparsitytypegetnumber(regionUserNumber,equationsSetUserNumber,sparsityType,err)
    !DLLEXPORT(cmfe_Equations_SparsityTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_type), POINTER :: EQUATIONS
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Equations_SparsityTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_get(equations_set,equations,err,error,*999)
        CALL equations_sparsity_type_get(equations,sparsitytype,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Equations_SparsityTypeGetNumber")
    RETURN
999 errorsexits("cmfe_Equations_SparsityTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_sparsitytypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_sparsitytypegetobj(equations,sparsityType,err)
    !DLLEXPORT(cmfe_Equations_SparsityTypeGetObj)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(OUT) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Equations_SparsityTypeGetObj",err,error,*999)

    CALL equations_sparsity_type_get(equations%equations,sparsitytype,err,error,*999)

    exits("cmfe_Equations_SparsityTypeGetObj")
    RETURN
999 errorsexits("cmfe_Equations_SparsityTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_sparsitytypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_sparsitytypesetnumber(regionUserNumber,equationsSetUserNumber,sparsityType,err)
    !DLLEXPORT(cmfe_Equations_SparsityTypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_type), POINTER :: EQUATIONS
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Equations_SparsityTypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_get(equations_set,equations,err,error,*999)
        CALL equations_sparsity_type_set(equations,sparsitytype,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Equations_SparsityTypeSetNumber")
    RETURN
999 errorsexits("cmfe_Equations_SparsityTypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_sparsitytypesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_sparsitytypesetobj(equations,sparsityType,err)
    !DLLEXPORT(cmfe_Equations_SparsityTypeSetObj)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(INOUT) :: equations
    INTEGER(INTG), INTENT(IN) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Equations_SparsityTypeSetObj",err,error,*999)

    CALL equations_sparsity_type_set(equations%equations,sparsitytype,err,error,*999)

    exits("cmfe_Equations_SparsityTypeSetObj")
    RETURN
999 errorsexits("cmfe_Equations_SparsityTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_sparsitytypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_timedependencetypegetnumber(regionUserNumber,equationsSetUserNumber,timeDependenceType,err)
    !DLLEXPORT(cmfe_Equations_TimeDependenceTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: timeDependenceType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_type), POINTER :: EQUATIONS
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Equations_TimeDependenceTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_get(equations_set,equations,err,error,*999)
        CALL equations_time_dependence_type_get(equations,timedependencetype,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Equations_TimeDependenceTypeGetNumber")
    RETURN
999 errorsexits("cmfe_Equations_TimeDependenceTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_timedependencetypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_timedependencetypegetobj(equations,timeDependenceType,err)
    !DLLEXPORT(cmfe_Equations_TimeDependenceTypeGetObj)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(OUT) :: timeDependenceType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Equations_TimeDependenceTypeGetObj",err,error,*999)

    CALL equations_time_dependence_type_get(equations%equations,timedependencetype,err,error,*999)

    exits("cmfe_Equations_TimeDependenceTypeGetObj")
    RETURN
999 errorsexits("cmfe_Equations_TimeDependenceTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_timedependencetypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_numberoflinearmatricesget(equations,numberOfMatrices,err)
    !DLLEXPORT(cmfe_Equations_NumberOfLinearMatricesGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(OUT) :: numberOfMatrices
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_NumberOfLinearMatricesGet",err,error,*999)

    CALL equations_numberoflinearmatricesget(equations%equations,numberofmatrices,err,error,*999)

    exits("cmfe_Equations_NumberOfLinearMatricesGet")
    RETURN
999 errorsexits("cmfe_Equations_NumberOfLinearMatricesGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_numberoflinearmatricesget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_numberofjacobianmatricesget(equations,numberOfMatrices,err)
    !DLLEXPORT(cmfe_Equations_NumberOfJacobianMatricesGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(OUT) :: numberOfMatrices
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_NumberOfJacobianMatricesGet",err,error,*999)

    CALL equations_numberofjacobianmatricesget(equations%equations,numberofmatrices,err,error,*999)

    exits("cmfe_Equations_NumberOfJacobianMatricesGet")
    RETURN
999 errorsexits("cmfe_Equations_NumberOfJacobianMatricesGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_numberofjacobianmatricesget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_numberofdynamicmatricesget(equations,numberOfMatrices,err)
    !DLLEXPORT(cmfe_Equations_NumberOfDynamicMatricesGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(OUT) :: numberOfMatrices
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_NumberOfDynamicMatricesGet",err,error,*999)

    CALL equations_numberofdynamicmatricesget(equations%equations,numberofmatrices,err,error,*999)

    exits("cmfe_Equations_NumberOfDynamicMatricesGet")
    RETURN
999 errorsexits("cmfe_Equations_NumberOfDynamicMatricesGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_numberofdynamicmatricesget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_linearmatrixget(equations,matrixIndex,matrix,err)
    !DLLEXPORT(cmfe_Equations_LinearMatrixGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(IN) :: matrixIndex
    TYPE(cmfe_distributedmatrixtype), INTENT(INOUT) :: matrix
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_LinearMatrixGet",err,error,*999)

    CALL equations_linearmatrixget(equations%equations,matrixindex,matrix%distributedMatrix,err,error,*999)

    exits("cmfe_Equations_LinearMatrixGet")
    RETURN
999 errorsexits("cmfe_Equations_LinearMatrixGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_linearmatrixget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_jacobianmatricestypesset(equations,jacobianTypes,err)
    !DLLEXPORT(cmfe_Equations_JacobianMatricesTypesSet)
    
    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(IN) :: jacobianTypes
    TYPE(equations_matrices_type), POINTER :: equationsMatrices
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_JacobianMatricesTypesSet",err,error,*999)

    equationsmatrices=>equations%equations%EQUATIONS_MATRICES
    CALL equationsmatrices_jacobiantypesset(equationsmatrices,[jacobiantypes],err,error,*999)

    exits("cmfe_Equations_JacobianMatricesTypesSet")
    RETURN
999 errors("cmfe_Equations_JacobianMatricesTypesSet",err,error)
    exits("cmfe_Equations_JacobianMatricesTypesSet")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_jacobianmatricestypesset


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_derivedcreatefinishnumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_DerivedCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: equationsSet
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_DerivedCreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equationsset)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equationsset,err,error,*999)
      IF(ASSOCIATED(equationsset)) THEN
        CALL equationsset_derivedcreatefinish(equationsset,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_DerivedCreateFinishNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_DerivedCreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_derivedcreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_derivedcreatefinishobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_DerivedCreateFinishObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_DerivedCreateFinishObj",err,error,*999)

    CALL equationsset_derivedcreatefinish(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_DerivedCreateFinishObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_DerivedCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_derivedcreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_derivedcreatestartnumber(regionUserNumber,equationsSetUserNumber,derivedFieldUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_DerivedCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: derivedFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: equationsSet
    TYPE(field_type), POINTER :: derivedField
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_DerivedCreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equationsset)
    NULLIFY(derivedfield)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equationsset,err,error,*999)
      IF(ASSOCIATED(equationsset)) THEN
        CALL field_user_number_find(derivedfieldusernumber,region,derivedfield,err,error,*999)
        CALL equationsset_derivedcreatestart(equationsset,derivedfieldusernumber,derivedfield,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_DerivedCreateStartNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_DerivedCreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_derivedcreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_derivedcreatestartobj(equationsSet,derivedFieldUserNumber,derivedField,err)
    !DLLEXPORT(cmfe_EquationsSet_DerivedCreateStartObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: derivedFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: derivedField
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_DerivedCreateStartObj",err,error,*999)

    CALL equationsset_derivedcreatestart(equationsset%equationsSet,derivedfieldusernumber,derivedfield%field, &
      & err,error,*999)

    exits("cmfe_EquationsSet_DerivedCreateStartObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_DerivedCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_derivedcreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_deriveddestroynumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_DerivedDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: equationsSet
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_DerivedDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equationsset)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equationsset,err,error,*999)
      IF(ASSOCIATED(equationsset)) THEN
        CALL equationsset_deriveddestroy(equationsset,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_DerivedDestroyNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_DerivedDestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_deriveddestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_deriveddestroyobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_DerivedDestroyObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_DerivedDestroyObj",err,error,*999)

    CALL equationsset_deriveddestroy(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_DerivedDestroyObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_DerivedDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_deriveddestroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_derivedvariablecalculatenumber(regionUserNumber,equationsSetUserNumber,derivedType,err)
    !DLLEXPORT(cmfe_EquationsSet_DerivedVariableCalculateNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: derivedType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: equationsSet
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_DerivedVariableCalculateNumber",err,error,*999)

    NULLIFY(equationsset)
    NULLIFY(region)

    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equationsset,err,error,*999)
      IF(ASSOCIATED(equationsset)) THEN
        CALL equationsset_derivedvariablecalculate(equationsset,derivedtype,err,error,*999)
      ELSE
        localerror="An equations set with a user number of "//trim(numbertovstring(equationssetusernumber,"*", &
          & err,error))//" does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_DerivedVariableCalculateNumber")
    RETURN
999 errors("cmfe_EquationsSet_DerivedVariableCalculateNumber",err,error)
    exits("cmfe_EquationsSet_DerivedVariableCalculateNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_equationsset_derivedvariablecalculatenumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_derivedvariablecalculateobj(equationsSet,derivedType,err)
    !DLLEXPORT(cmfe_EquationsSet_DerivedVariableCalculateObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(IN) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: derivedType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_EquationsSet_DerivedVariableCalculateObj",err,error,*999)

    CALL equationsset_derivedvariablecalculate(equationsset%equationsSet,derivedtype,err,error,*999)

    exits("cmfe_EquationsSet_DerivedVariableCalculateObj")
    RETURN
999 errors("cmfe_EquationsSet_DerivedVariableCalculateObj",err,error)
    exits("cmfe_EquationsSet_DerivedVariableCalculateObj")
    CALL cmfe_handleerror(err,error)
    
  END SUBROUTINE cmfe_equationsset_derivedvariablecalculateobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_derivedvariablesetnumber(regionUserNumber,equationsSetUserNumber,derivedType,fieldVariableType,err)
    !DLLEXPORT(cmfe_EquationsSet_DerivedVariableSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: derivedType
    INTEGER(INTG), INTENT(IN) :: fieldVariableType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: equationsSet
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_DerivedVariableSetNumber",err,error,*999)

    NULLIFY(equationsset)
    NULLIFY(region)

    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equationsset,err,error,*999)
      IF(ASSOCIATED(equationsset)) THEN
        CALL equationsset_derivedvariableset(equationsset,derivedtype,fieldvariabletype,err,error,*999)
      ELSE
        localerror="An equations set with a user number of "//trim(numbertovstring(equationssetusernumber,"*", &
          & err,error))//" does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_DerivedVariableSetNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_DerivedVariableSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    
  END SUBROUTINE cmfe_equationsset_derivedvariablesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_derivedvariablesetobj(equationsSet,derivedType,fieldVariableType,err)
    !DLLEXPORT(cmfe_EquationsSet_DerivedVariableSetObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(IN) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: derivedType
    INTEGER(INTG), INTENT(IN) :: fieldVariableType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_EquationsSet_DerivedVariableSetObj",err,error,*999)

    CALL equationsset_derivedvariableset(equationsset%equationsSet,derivedtype,fieldvariabletype,err,error,*999)

    exits("cmfe_EquationsSet_DerivedVariableSetObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_DerivedVariableSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    
  END SUBROUTINE cmfe_equationsset_derivedvariablesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_jacobianmatrixget(equations,residualIndex,variableType,matrix,err)
    !DLLEXPORT(cmfe_Equations_JacobianMatrixGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(IN) :: residualIndex
    INTEGER(INTG), INTENT(IN) :: variableType
    TYPE(cmfe_distributedmatrixtype), INTENT(INOUT) :: matrix
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_JacobianMatrixGet",err,error,*999)

    CALL equations_jacobianmatrixget(equations%equations, &
      & residualindex,variabletype,matrix%distributedMatrix,err,error,*999)

    exits("cmfe_Equations_JacobianMatrixGet")
    RETURN
999 errorsexits("cmfe_Equations_JacobianMatrixGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_jacobianmatrixget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_dynamicmatrixget(equations,matrixIndex,matrix,err)
    !DLLEXPORT(cmfe_Equations_DynamicMatrixGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(IN) :: matrixIndex
    TYPE(cmfe_distributedmatrixtype), INTENT(INOUT) :: matrix
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_DynamicMatrixGet",err,error,*999)

    CALL equations_dynamicmatrixget(equations%equations,matrixindex,matrix%distributedMatrix,err,error,*999)

    exits("cmfe_Equations_DynamicMatrixGet")
    RETURN
999 errorsexits("cmfe_Equations_DynamicMatrixGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_dynamicmatrixget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_dynamicmatrixgetbytype(equations,matrixType,matrix,err)
    !DLLEXPORT(cmfe_Equations_DynamicMatrixGetByType)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(IN) :: matrixType
    TYPE(cmfe_distributedmatrixtype), INTENT(INOUT) :: matrix
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_DynamicMatrixGetByType",err,error,*999)

    CALL equations_dynamicmatrixgetbytype(equations%equations,matrixtype,matrix%distributedMatrix,err,error,*999)

    exits("cmfe_Equations_DynamicMatrixGetByType")
    RETURN
999 errorsexits("cmfe_Equations_DynamicMatrixGetByType",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_dynamicmatrixgetbytype

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_dynamicmatrixtypeget(equations,matrixIndex,matrixType,err)
    !DLLEXPORT(cmfe_Equations_DynamicMatrixTypeGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(IN) :: matrixIndex
    INTEGER(INTG), INTENT(OUT) :: matrixType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_DynamicMatrixTypeGet",err,error,*999)

    CALL equations_dynamicmatrixtypeget(equations%equations,matrixindex,matrixtype,err,error,*999)

    exits("cmfe_Equations_DynamicMatrixTypeGet")
    RETURN
999 errorsexits("cmfe_Equations_DynamicMatrixTypeGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_dynamicmatrixtypeget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_rhsvectorget(equations,rhsVector,err)
    !DLLEXPORT(cmfe_Equations_RhsVectorGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    TYPE(cmfe_distributedvectortype), INTENT(INOUT) :: rhsVector
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_RhsVectorGet",err,error,*999)

    CALL equations_rhsvectorget(equations%equations,rhsvector%distributedVector,err,error,*999)

    exits("cmfe_Equations_RhsVectorGet")
    RETURN
999 errorsexits("cmfe_Equations_RhsVectorGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_rhsvectorget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_sourcevectorget(equations,sourceVector,err)
    !DLLEXPORT(cmfe_Equations_SourceVectorGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    TYPE(cmfe_distributedvectortype), INTENT(INOUT) :: sourceVector
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_SourceVectorGet",err,error,*999)

    CALL equations_sourcevectorget(equations%equations,sourcevector%distributedVector,err,error,*999)

    exits("cmfe_Equations_SourceVectorGet")
    RETURN
999 errorsexits("cmfe_Equations_SourceVectorGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_sourcevectorget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_residualvectorget(equations,residualIndex,residualVector,err)
    !DLLEXPORT(cmfe_Equations_ResidualVectorGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(IN) :: residualIndex
    TYPE(cmfe_distributedvectortype), INTENT(INOUT) :: residualVector
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_ResidualVectorGet",err,error,*999)

    CALL equations_residualvectorget(equations%equations,residualindex,residualvector%distributedVector,err,error,*999)

    exits("cmfe_Equations_ResidualVectorGet")
    RETURN
999 errorsexits("cmfe_Equations_ResidualVectorGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_residualvectorget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_residualnumberofvariablesget(equations,residualIndex,numberOfVariables,err)
    !DLLEXPORT(cmfe_Equations_ResidualNumberOfVariablesGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(IN) :: residualIndex
    INTEGER(INTG), INTENT(OUT) :: numberOfVariables
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_ResidualNumberOfVariablesGet",err,error,*999)

    CALL equations_residualnumberofvariablesget(equations%equations,residualindex,numberofvariables,err,error,*999)

    exits("cmfe_Equations_ResidualNumberOfVariablesGet")
    RETURN
999 errorsexits("cmfe_Equations_ResidualNumberOfVariablesGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_residualnumberofvariablesget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equations_residualvariablesget(equations,residualIndex,residualVariables,err)
    !DLLEXPORT(cmfe_Equations_ResidualVariablesGet)

    !Argument variables
    TYPE(cmfe_equationstype), INTENT(IN) :: equations
    INTEGER(INTG), INTENT(IN) :: residualIndex
    INTEGER(INTG), INTENT(OUT) :: residualVariables(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_Equations_ResidualVariablesGet",err,error,*999)

    CALL equations_residualvariablesget(equations%equations,residualindex,residualvariables,err,error,*999)

    exits("cmfe_Equations_ResidualVariablesGet")
    RETURN
999 errorsexits("cmfe_Equations_ResidualVariablesGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equations_residualvariablesget

!!==================================================================================================================================
!!
!! EQUATIONS_SET_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_equationsset_analyticcreatefinishnumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_AnalyticCreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_analytic_create_finish(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_AnalyticCreateFinishNumber")
    RETURN
999 errors("cmfe_EquationsSet_AnalyticCreateFinishNumber",err,error)
    exits("cmfe_EquationsSet_AnalyticCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticcreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analyticcreatefinishobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticCreateFinishObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_AnalyticCreateFinishObj",err,error,*999)

    CALL equations_set_analytic_create_finish(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_AnalyticCreateFinishObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticcreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analyticcreatestartnumber(regionUserNumber,equationsSetUserNumber,analyticFunctionType, &
    & analyticfieldusernumber,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: analyticFunctionType
    INTEGER(INTG), INTENT(IN) :: analyticFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(field_type), POINTER :: ANALYTIC_FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_AnalyticCreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(analytic_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL field_user_number_find(analyticfieldusernumber,region,analytic_field,err,error,*999)
        CALL equations_set_analytic_create_start(equations_set,analyticfunctiontype,analyticfieldusernumber,analytic_field, &
          & err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_AnalyticCreateStartNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticCreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticcreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analyticcreatestartobj(equationsSet,analyticFunctionType,analyticFieldUserNumber,analyticField,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticCreateStartObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: analyticFunctionType
    INTEGER(INTG), INTENT(IN) :: analyticFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: analyticField
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_AnalyticCreateStartObj",err,error,*999)

    CALL equations_set_analytic_create_start(equationsset%equationsSet,analyticfunctiontype,analyticfieldusernumber, &
      & analyticfield%field,err,error,*999)

    exits("cmfe_EquationsSet_AnalyticCreateStartObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticcreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analyticdestroynumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
     TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_AnalyticDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_analytic_destroy(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_AnalyticDestroyNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticDestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticdestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analyticdestroyobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticDestroyObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_AnalyticDestroyObj",err,error,*999)

    CALL equations_set_analytic_destroy(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_AnalyticDestroyObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticdestroyobj


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analyticevaluatenumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticEvaluateNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
     TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_AnalyticEvaluateNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_analytic_evaluate(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_AnalyticEvaluateNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticEvaluateNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticevaluatenumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analyticevaluateobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticEvaluateObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_AnalyticEvaluateObj",err,error,*999)

    CALL equations_set_analytic_evaluate(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_AnalyticEvaluateObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticEvaluateObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticevaluateobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analytictimegetnumber(regionUserNumber,equationsSetUserNumber,time,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticTimeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    REAL(DP), INTENT(OUT) :: time
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_AnalyticTimeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_analytic_time_get(equations_set,time,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_AnalyticTimeGetNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticTimeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analytictimegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analytictimegetobj(equationsSet,time,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticTimeGetObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    REAL(DP), INTENT(OUT) :: time
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_AnalyticTimeGetObj",err,error,*999)

    CALL equations_set_analytic_time_get(equationsset%equationsSet,time,err,error,*999)

    exits("cmfe_EquationsSet_AnalyticTimeGetObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticTimeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analytictimegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analytictimesetnumber(regionUserNumber,equationsSetUserNumber,time,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticTimeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    REAL(DP), INTENT(IN) :: time
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_AnalyticTimeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_analytic_time_set(equations_set,time,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_AnalyticTimeSetNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticTimeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analytictimesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analytictimesetobj(equationsSet,time,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticTimeSetObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    REAL(DP), INTENT(IN) :: time
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_AnalyticTimeSetObj",err,error,*999)

    CALL equations_set_analytic_time_set(equationsset%equationsSet,time,err,error,*999)

    exits("cmfe_EquationsSet_AnalyticTimeSetObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticTimeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analytictimesetobj


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analyticuserparamsetnumber(regionUserNumber,equationsSetUserNumber,paramIdx,param,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticUserParamSetNumber)
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: paramIdx
    REAL(DP), INTENT(IN) :: param
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_AnalyticUserParamSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        IF(ASSOCIATED(equations_set%ANALYTIC)) THEN
          CALL equations_set_analytic_user_param_set(equations_set,paramidx,param,err,error,*999)
        ELSE
          localerror="Equations set analytic is not associated for equations set with a user number of " &
            & //trim(numbertovstring(equationssetusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_AnalyticUserParamSetNumber")
    RETURN
999 errors("cmfe_EquationsSet_AnalyticUserParamSetNumber",err,error)
    exits("cmfe_EquationsSet_AnalyticUserParamSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticuserparamsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analyticuserparamsetobj(equationsSet,paramIdx,param,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticUserParamSetObj)
    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: paramIdx
    REAL(DP), INTENT(IN) :: param
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_AnalyticUserParamSetObj",err,error,*999)

    CALL equations_set_analytic_user_param_set(equationsset%equationsSet,paramidx,param,err,error,*999)

    exits("cmfe_EquationsSet_AnalyticUserParamSetObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticUserParamSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticuserparamsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analyticuserparamgetnumber(regionUserNumber,equationsSetUserNumber,paramIdx,param,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticUserParamGetNumber)
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: paramIdx
    REAL(DP), INTENT(OUT) :: param
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_AnalyticUserParamGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        IF(ASSOCIATED(equations_set%ANALYTIC)) THEN
          CALL equations_set_analytic_user_param_get(equations_set,paramidx,param,err,error,*999)
        ELSE
          localerror="Equations set analytic is not associated for equations set with a user number of " &
            & //trim(numbertovstring(equationssetusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_AnalyticUserParamGetNumber")
    RETURN
999 errors("cmfe_EquationsSet_AnalyticUserParamGetNumber",err,error)
    exits("cmfe_EquationsSet_AnalyticUserParamGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticuserparamgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_analyticuserparamgetobj(equationsSet,paramIdx,param,err)
    !DLLEXPORT(cmfe_EquationsSet_AnalyticUserParamGetObj)
    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: paramIdx
    REAL(DP), INTENT(OUT) :: param
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_AnalyticUserParamGetObj",err,error,*999)

    CALL equations_set_analytic_user_param_get(equationsset%equationsSet,paramidx,param,err,error,*999)

    exits("cmfe_EquationsSet_AnalyticUserParamGetObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_AnalyticUserParamGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_analyticuserparamgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_createfinishnumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_CreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_create_finish(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Equations Set Create')
#endif

    exits("cmfe_EquationsSet_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_createfinishobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_CreateFinishObj",err,error,*999)

    CALL equations_set_create_finish(equationsset%equationsSet,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('Equations Set Create')
#endif

    exits("cmfe_EquationsSet_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_createstartnumber(equationsSetUserNumber,regionUserNumber,geomFibreFieldUserNumber,&
      & equationssetspecification,equationssetfieldusernumber,err)
    !DLLEXPORT(cmfe_EquationsSet_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: geomFibreFieldUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetSpecification(:)
    INTEGER(INTG), INTENT(IN) :: equationsSetFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: EQUATIONS_SET_FIELD
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(field_type), POINTER :: GEOM_FIBRE_FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_CreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Equations Set Create')
#endif

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(geom_fibre_field)
    NULLIFY(equations_set_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(geomfibrefieldusernumber,region,geom_fibre_field,err,error,*999)

      !Equations set field may not be created
      CALL field_user_number_find(equationssetfieldusernumber,region,equations_set_field,err,error,*999)

      IF(ASSOCIATED(geom_fibre_field)) THEN
        CALL equations_set_create_start(equationssetusernumber,region,geom_fibre_field,&
          & equationssetspecification,equationssetfieldusernumber,&
          & equations_set_field,equations_set,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(geomfibrefieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_createstartobj(equationsSetUserNumber,region,geomFibreField,&
      & equationssetspecification,equationssetfieldusernumber,&
      & equationssetfieldfield,equationsset,err)
    !DLLEXPORT(cmfe_EquationsSet_CreateStartObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_fieldtype), INTENT(IN) :: geomFibreField
    INTEGER(INTG), INTENT(IN) :: equationsSetSpecification(:)
    INTEGER(INTG), INTENT(IN) :: equationsSetFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: equationsSetFieldField
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_CreateStartObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Equations Set Create')
#endif

    CALL equations_set_create_start(equationssetusernumber,region%region,geomfibrefield%field, &
      & equationssetspecification,equationssetfieldusernumber,equationssetfieldfield%field,equationsset%equationsSet, &
      & err,error,*999)

    exits("cmfe_EquationsSet_CreateStartObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_createstartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_destroynumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
     TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_DestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_destroy(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_DestroyNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_destroyobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_DestroyObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_DestroyObj",err,error,*999)

    CALL equations_set_destroy(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_DestroyObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_destroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_dependentcreatefinishnumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_DependentCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_DependentCreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_dependent_create_finish(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_DependentCreateFinishNumber")
    RETURN
999 errors("cmfe_EquationsSet_DependentCreateFinishNumber",err,error)
    exits("cmfe_EquationsSet_DependentCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_dependentcreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_dependentcreatefinishobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_DependentCreateFinishObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_DependentCreateFinishObj",err,error,*999)

    CALL equations_set_dependent_create_finish(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_DependentCreateFinishObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_DependentCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_dependentcreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_dependentcreatestartnumber(regionUserNumber,equationsSetUserNumber,dependentFieldUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_DependentCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: dependentFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(field_type), POINTER :: DEPENDENT_FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_DependentCreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(dependent_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL field_user_number_find(dependentfieldusernumber,region,dependent_field,err,error,*999)
        CALL equations_set_dependent_create_start(equations_set,dependentfieldusernumber,dependent_field,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_DependentCreateStartNumber")
    RETURN
999 errors("cmfe_EquationsSet_DependentCreateStartNumber",err,error)
    exits("cmfe_EquationsSet_DependentCreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_dependentcreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_dependentcreatestartobj(equationsSet,dependentFieldUserNumber,dependentField,err)
    !DLLEXPORT(cmfe_EquationsSet_DependentCreateStartObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: dependentFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: dependentField
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_DependentCreateStartObj",err,error,*999)

    CALL equations_set_dependent_create_start(equationsset%equationsSet,dependentfieldusernumber,dependentfield%field, &
      & err,error,*999)

    exits("cmfe_EquationsSet_DependentCreateStartObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_DependentCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_dependentcreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_dependentdestroynumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_DependentDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_DependentDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_dependent_destroy(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_DependentDestroyNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_DependentDestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_dependentdestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_dependentdestroyobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_DependentDestroyObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_DependentDestroyObj",err,error,*999)

    CALL equations_set_dependent_destroy(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_DependentDestroyObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_DependentDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_dependentdestroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_equationscreatefinishnumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_EquationsCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_EquationsCreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_create_finish(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_EquationsCreateFinishNumber")
    RETURN
999 errors("cmfe_EquationsSet_EquationsCreateFinishNumber",err,error)
    exits("cmfe_EquationsSet_EquationsCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_equationscreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_equationscreatefinishobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_EquationsCreateFinishObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_EquationsCreateFinishObj",err,error,*999)

    CALL equations_set_equations_create_finish(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_EquationsCreateFinishObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_EquationsCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_equationscreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_equationscreatestartnumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_EquationsCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_type), POINTER :: EQUATIONS
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_EquationsCreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_create_start(equations_set,equations,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_EquationsCreateStartNumber")
    RETURN
999 errors("cmfe_EquationsSet_EquationsCreateStartNumber",err,error)
    exits("cmfe_EquationsSet_EquationsCreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_equationscreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_equationscreatestartobj(equationsSet,equations,err)
    !DLLEXPORT(cmfe_EquationsSet_EquationsCreateStartObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    TYPE(cmfe_equationstype), INTENT(INOUT) :: equations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_EquationsCreateStartObj",err,error,*999)

    CALL equations_set_equations_create_start(equationsset%equationsSet,equations%equations,err,error,*999)

    exits("cmfe_EquationsSet_EquationsCreateStartObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_EquationsCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_equationscreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_equationsdestroynumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_EquationsDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_EquationsDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_equations_destroy(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_EquationsDestroyNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_EquationsDestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_equationsdestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_equationsdestroyobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_EquationsDestroyObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_EquationsDestroyObj",err,error,*999)

    CALL equations_set_equations_destroy(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_EquationsDestroyObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_EquationsDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_equationsdestroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_independentcreatefinishnumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_IndependentCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_IndependentCreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_independent_create_finish(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_IndependentCreateFinishNumber")
    RETURN
999 errors("cmfe_EquationsSet_IndependentCreateFinishNumber",err,error)
    exits("cmfe_EquationsSet_IndependentCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_independentcreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_independentcreatefinishobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_IndependentCreateFinishObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_IndependentCreateFinishObj",err,error,*999)

    CALL equations_set_independent_create_finish(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_IndependentCreateFinishObj")
    RETURN
999 errors("cmfe_EquationsSet_IndependentCreateFinishObj",err,error)
    exits("cmfe_EquationsSet_IndependentCreateFinishObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_independentcreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_independentcreatestartnumber(regionUserNumber,equationsSetUserNumber,independentFieldUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_IndependentCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: independentFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(field_type), POINTER :: INDEPENDENT_FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_DependentCreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(independent_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL field_user_number_find(independentfieldusernumber,region,independent_field,err,error,*999)
        CALL equations_set_dependent_create_start(equations_set,independentfieldusernumber,independent_field,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_IndependentCreateStartNumber")
    RETURN
999 errors("cmfe_EquationsSet_IndependentCreateStartNumber",err,error)
    exits("cmfe_EquationsSet_IndependentCreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_independentcreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_independentcreatestartobj(equationsSet,independentFieldUserNumber,independentField,err)
    !DLLEXPORT(cmfe_EquationsSet_IndependentCreateStartObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: independentFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: independentField
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_IndependentCreateStartObj",err,error,*999)

    CALL equations_set_independent_create_start(equationsset%equationsSet,independentfieldusernumber,independentfield%field, &
      & err,error,*999)

    exits("cmfe_EquationsSet_IndependentCreateStartObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_IndependentCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_independentcreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_independentdestroynumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_IndependentDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_IndependentDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_independent_destroy(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_IndependentDestroyNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_IndependentDestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_independentdestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_independentdestroyobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_IndependentDestroyObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_IndependentDestroyObj",err,error,*999)

    CALL equations_set_independent_destroy(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_IndependentDestroyObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_IndependentDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_independentdestroyobj

  !
  !================================================================================================================================
  !

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_materialscreatefinishnumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_MaterialsCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_MaterialsCreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_materials_create_finish(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_MaterialsCreateFinishNumber")
    RETURN
999 errors("cmfe_EquationsSet_MaterialsCreateFinishNumber",err,error)
    exits("cmfe_EquationsSet_MaterialsCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_materialscreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_materialscreatefinishobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_MaterialsCreateFinishObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_MaterialsCreateFinishObj",err,error,*999)

    CALL equations_set_materials_create_finish(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_MaterialsCreateFinishObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_MaterialsCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_materialscreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_materialscreatestartnumber(regionUserNumber,equationsSetUserNumber,materialsFieldUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_MaterialsCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: materialsFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(field_type), POINTER :: MATERIALS_FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_MaterialsCreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(materials_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL field_user_number_find(materialsfieldusernumber,region,materials_field,err,error,*999)
        CALL equations_set_materials_create_start(equations_set,materialsfieldusernumber,materials_field,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_MaterialsCreateStartNumber")
    RETURN
999 errors("cmfe_EquationsSet_MaterialsCreateStartNumber",err,error)
    exits("cmfe_EquationsSet_MaterialsCreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_materialscreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_materialscreatestartobj(equationsSet,materialsFieldUserNumber,materialsField,err)
    !DLLEXPORT(cmfe_EquationsSet_MaterialsCreateStartObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: materialsFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: materialsField
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_MaterialsCreateStartObj",err,error,*999)

    CALL equations_set_materials_create_start(equationsset%equationsSet,materialsfieldusernumber,materialsfield%field, &
      & err,error,*999)

    exits("cmfe_EquationsSet_MaterialsCreateStartObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_MaterialsCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_materialscreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_materialsdestroynumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_MaterialsDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_MaterialsDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_materials_destroy(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_MaterialsDestroyNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_MaterialsDestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_materialsdestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_materialsdestroyobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_MaterialsDestroyObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_MaterialsDestroyObj",err,error,*999)

    CALL equations_set_materials_destroy(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_MaterialsDestroyObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_MaterialsDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_materialsdestroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_solutionmethodgetnumber(regionUserNumber,equationsSetUserNumber,solutionMethod,err)
    !DLLEXPORT(cmfe_EquationsSet_SolutionMethodGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: solutionMethod
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_SolutionMethodGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_solution_method_get(equations_set,solutionmethod,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_SolutionMethodGetNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_SolutionMethodGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_solutionmethodgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_solutionmethodgetobj(equationsSet,solutionMethod,err)
    !DLLEXPORT(cmfe_EquationsSet_SolutionMethodGetObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: solutionMethod
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_SolutionMethodGetObj",err,error,*999)

    CALL equations_set_solution_method_get(equationsset%equationsSet,solutionmethod,err,error,*999)

    exits("cmfe_EquationsSet_SolutionMethodGetObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_SolutionMethodGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_solutionmethodgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_solutionmethodsetnumber(regionUserNumber,equationsSetUserNumber,solutionMethod,err)
    !DLLEXPORT(cmfe_EquationsSet_SolutionMethodSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: solutionMethod
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_SolutionMethodSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_solution_method_set(equations_set,solutionmethod,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_SolutionMethodSetNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_SolutionMethodSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_solutionmethodsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_solutionmethodsetobj(equationsSet,solutionMethod,err)
    !DLLEXPORT(cmfe_EquationsSet_SolutionMethodSetObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: solutionMethod
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_SolutionMethodSetObj",err,error,*999)

    CALL equations_set_solution_method_set(equationsset%equationsSet,solutionmethod,err,error,*999)

    exits("cmfe_EquationsSet_SolutionMethodSetObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_SolutionMethodSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_solutionmethodsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_sourcecreatefinishnumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_SourceCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_SourceCreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_source_create_finish(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_SourceCreateFinishNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_SourceCreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_sourcecreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_sourcecreatefinishobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_SourceCreateFinishObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_SourceCreateFinishObj",err,error,*999)

    CALL equations_set_source_create_finish(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_SourceCreateFinishObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_SourceCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_sourcecreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_sourcecreatestartnumber(regionUserNumber,equationsSetUserNumber,sourceFieldUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_SourceCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: sourceFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(field_type), POINTER :: SOURCE_FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_SourceCreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    NULLIFY(source_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL field_user_number_find(sourcefieldusernumber,region,source_field,err,error,*999)
        CALL equations_set_source_create_start(equations_set,sourcefieldusernumber,source_field,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_SourceCreateStartNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_SourceCreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_sourcecreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_sourcecreatestartobj(equationsSet,sourceFieldUserNumber,sourceField,err)
    !DLLEXPORT(cmfe_EquationsSet_SourceCreateStartObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: sourceFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: sourceField
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_SourceCreateStartObj",err,error,*999)

    CALL equations_set_source_create_start(equationsset%equationsSet,sourcefieldusernumber,sourcefield%field,err,error,*999)

    exits("cmfe_EquationsSet_SourceCreateStartObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_SourceCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_sourcecreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_sourcedestroynumber(regionUserNumber,equationsSetUserNumber,err)
    !DLLEXPORT(cmfe_EquationsSet_SourceDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_SourceDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equations_set)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
      IF(ASSOCIATED(equations_set)) THEN
        CALL equations_set_source_destroy(equations_set,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_SourceDestroyNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_SourceDestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_sourcedestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_sourcedestroyobj(equationsSet,err)
    !DLLEXPORT(cmfe_EquationsSet_SourceDestroyObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(INOUT) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_SourceDestroyObj",err,error,*999)

    CALL equations_set_source_destroy(equationsset%equationsSet,err,error,*999)

    exits("cmfe_EquationsSet_SourceDestroyObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_SourceDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_sourcedestroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_specificationgetnumber(regionUserNumber,equationsSetUserNumber,equationsSetSpecification,err)
    !DLLEXPORT(cmfe_EquationsSet_SpecificationGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(INOUT) :: equationsSetSpecification(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: equationsSet
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_SpecificationGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equationsset)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equationsset,err,error,*999)
      IF(ASSOCIATED(equationsset)) THEN
        CALL equationsset_specificationget(equationsset,equationssetspecification,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(number_to_vstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(number_to_vstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(number_to_vstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_SpecificationGetNumber")
    RETURN
999 errors("cmfe_EquationsSet_SpecificationGetNumber",err,error)
    exits("cmfe_EquationsSet_SpecificationGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_specificationgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_specificationgetobj(equationsSet,equationsSetSpecification,err)
    !DLLEXPORT(cmfe_EquationsSet_SpecificationGetObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(IN) :: equationsSet
    INTEGER(INTG), INTENT(INOUT) :: equationsSetSpecification(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_SpecificationGetObj",err,error,*999)

    CALL equationsset_specificationget(equationsset%equationsSet,equationssetspecification,err,error,*999)

    exits("cmfe_EquationsSet_SpecificationGetObj")
    RETURN
999 errors("cmfe_EquationsSet_SpecificationGetObj",err,error)
    exits("cmfe_EquationsSet_SpecificationGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_specificationgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_specificationsizegetnumber(regionUserNumber,equationsSetUserNumber,specificationSize,err)
    !DLLEXPORT(cmfe_EquationsSet_SpecificationSizeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: specificationSize
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: equationsSet
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_SpecificationSizeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(equationsset)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equationsset,err,error,*999)
      IF(ASSOCIATED(equationsset)) THEN
        CALL equationsset_specificationsizeget(equationsset,specificationsize,err,error,*999)
      ELSE
        localerror="An equations set with an user number of "//trim(number_to_vstring(equationssetusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(number_to_vstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(number_to_vstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_EquationsSet_SpecificationSizeGetNumber")
    RETURN
999 errors("cmfe_EquationsSet_SpecificationSizeGetNumber",err,error)
    exits("cmfe_EquationsSet_SpecificationSizeGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_specificationsizegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_specificationsizegetobj(equationsSet,specificationSize,err)
    !DLLEXPORT(cmfe_EquationsSet_SpecificationSizeGetObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(IN) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: specificationSize
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_EquationsSet_SpecificationSizeGetObj",err,error,*999)

    CALL equationsset_specificationsizeget(equationsset%equationsSet,specificationsize,err,error,*999)

    exits("cmfe_EquationsSet_SpecificationSizeGetObj")
    RETURN
999 errors("cmfe_EquationsSet_SpecificationSizeGetObj",err,error)
    exits("cmfe_EquationsSet_SpecificationSizeGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_specificationsizegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_tensorinterpolatexinumber(regionUserNumber,equationsSetUserNumber,tensorEvaluateType, &
    & userelementnumber,xi,values,err)
    !DLLEXPORT(cmfe_EquationsSet_TensorInterpolateXiNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: tensorEvaluateType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    REAL(DP), INTENT(IN) :: xi(:)
    REAL(DP), INTENT(OUT) :: values(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: equationsSet
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_EquationsSet_TensorInterpolateXiNumber",err,error,*999)

    NULLIFY(equationsset)
    NULLIFY(region)

    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL equations_set_user_number_find(equationssetusernumber,region,equationsset,err,error,*999)
      IF(ASSOCIATED(equationsset)) THEN
        CALL equationsset_tensorinterpolatexi(equationsset,tensorevaluatetype,userelementnumber,xi, &
          & values,err,error,*999)
      ELSE
        localerror="An equations set with a user number of "//trim(numbertovstring(equationssetusernumber,"*", &
          & err,error))//" does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_EquationsSet_TensorInterpolateXiNumber")
    RETURN
999 errorsexits("cmfe_EquationsSet_TensorInterpolateXiNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_tensorinterpolatexinumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_equationsset_tensorinterpolatexiobj(equationsSet,tensorEvaluateType,userElementNumber,xi,values,err)
    !DLLEXPORT(cmfe_EquationsSet_TensorInterpolateXiObj)

    !Argument variables
    TYPE(cmfe_equationssettype), INTENT(IN) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: tensorEvaluateType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    REAL(DP), INTENT(IN) :: xi(:)
    REAL(DP), INTENT(OUT) :: values(:,:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_EquationsSet_TensorInterpolateXiObj",err,error,*999)

    CALL equationsset_tensorinterpolatexi(equationsset%equationsSet,tensorevaluatetype,userelementnumber,xi, &
      & values,err,error,*999)

    exits("cmfe_EquationsSet_TensorInterpolateXiObj")
    RETURN
999 errorsexits("cmfe_EquationsSet_TensorInterpolateXiObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_equationsset_tensorinterpolatexiobj

!!==================================================================================================================================
!!
!! FIELD_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_field_componentinterpolationgetnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & interpolationtype,err)
    !DLLEXPORT(cmfe_Field_ComponentInterpolationGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(OUT) :: interpolationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentInterpolationGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_interpolation_get(field,variabletype,componentnumber,interpolationtype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentInterpolationGetNumber")
    RETURN
999 errorsexits("cmfe_Field_ComponentInterpolationGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentinterpolationgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentinterpolationgetobj(field,variableType,componentNumber,interpolationType,err)
    !DLLEXPORT(cmfe_Field_ComponentInterpolationGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(OUT) :: interpolationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentInterpolationGetObj",err,error,*999)

    CALL field_component_interpolation_get(field%field,variabletype,componentnumber,interpolationtype,err,error,*999)

    exits("cmfe_Field_ComponentInterpolationGetObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentInterpolationGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentinterpolationgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentinterpolationsetnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & interpolationtype,err)
    !DLLEXPORT(cmfe_Field_ComponentInterpolationSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: interpolationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentInterpolationSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_interpolation_set(field,variabletype,componentnumber,interpolationtype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentInterpolationSetNumber")
    RETURN
999 errorsexits("cmfe_Field_ComponentInterpolationSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentinterpolationsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentinterpolationsetobj(field,variableType,componentNumber,interpolationType,err)
    !DLLEXPORT(cmfe_Field_ComponentInterpolationSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: interpolationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentInterpolationSetObj",err,error,*999)

    CALL field_component_interpolation_set(field%field,variabletype,componentnumber,interpolationtype,err,error,*999)

    exits("cmfe_Field_ComponentInterpolationSetObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentInterpolationSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentinterpolationsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentlabelgetcnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber,label,err)
    !DLLEXPORT(cmfe_Field_ComponentLabelGetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentLabelGetCNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_label_get(field,variabletype,componentnumber,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentLabelGetCNumber")
    RETURN
999 errorsexits("cmfe_Field_ComponentLabelGetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentlabelgetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentlabelgetcobj(field,variableType,componentNumber,label,err)
    !DLLEXPORT(cmfe_Field_ComponentLabelGetCObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentLabelGetCObj",err,error,*999)

    CALL field_component_label_get(field%field,variabletype,componentnumber,label,err,error,*999)

    exits("cmfe_Field_ComponentLabelGetCObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentLabelGetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentlabelgetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentlabelgetvsnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber,label,err)
    !DLLEXPORT(cmfe_Field_ComponentLabelGetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentLabelGetVSNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_label_get(field,variabletype,componentnumber,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentLabelGetVSNumber")
    RETURN
999 errorsexits("cmfe_Field_ComponentLabelGetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentlabelgetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentlabelgetvsobj(field,variableType,componentNumber,label,err)
    !DLLEXPORT(cmfe_Field_ComponentLabelGetVSObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentLabelGetVSObj",err,error,*999)

    CALL field_component_label_get(field%field,variabletype,componentnumber,label,err,error,*999)

    exits("cmfe_Field_ComponentLabelGetVSObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentLabelGetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentlabelgetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentlabelsetcnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber,label,err)
    !DLLEXPORT(cmfe_Field_ComponentLabelSetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentLabelSetCNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_label_set(field,variabletype,componentnumber,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentLabelSetCNumber")
    RETURN
999 errorsexits("cmfe_Field_ComponentLabelSetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentlabelsetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentlabelsetcobj(field,variableType,componentNumber,label,err)
    !DLLEXPORT(cmfe_Field_ComponentLabelSetCObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentLabelSetCObj",err,error,*999)

    CALL field_component_label_set(field%field,variabletype,componentnumber,label,err,error,*999)

    exits("cmfe_Field_ComponentLabelSetCObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentLabelSetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentlabelsetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentlabelsetvsnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber,label,err)
    !DLLEXPORT(cmfe_Field_ComponentLabelSetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentLabelSetVSNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_label_set(field,variabletype,componentnumber,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentLabelSetVSNumber")
    RETURN
999 errorsexits("cmfe_Field_ComponentLabelSetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentlabelsetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentlabelsetvsobj(field,variableType,componentNumber,label,err)
    !DLLEXPORT(cmfe_Field_ComponentLabelSetVSObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentLabelSetVSObj",err,error,*999)

    CALL field_component_label_set(field%field,variabletype,componentnumber,label,err,error,*999)

    exits("cmfe_Field_ComponentLabelSetVSObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentLabelSetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentlabelsetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentmeshcomponentgetnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & meshcomponent,err)
    !DLLEXPORT(cmfe_Field_ComponentMeshComponentGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(OUT) :: meshComponent
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentMeshComponentGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_mesh_component_get(field,variabletype,componentnumber,meshcomponent,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentMeshComponentGetNumber")
    RETURN
999 errorsexits("cmfe_Field_ComponentMeshComponentGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentmeshcomponentgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentmeshcomponentgetobj(field,variableType,componentNumber,meshComponent,err)
    !DLLEXPORT(cmfe_Field_ComponentMeshComponentGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(OUT) :: meshComponent
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentMeshComponentGetObj",err,error,*999)

    CALL field_component_mesh_component_get(field%field,variabletype,componentnumber,meshcomponent,err,error,*999)

    exits("cmfe_Field_ComponentMeshComponentGetObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentMeshComponentGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentmeshcomponentgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentmeshcomponentsetnumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & meshcomponent,err)
    !DLLEXPORT(cmfe_Field_ComponentMeshComponentSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: meshComponent
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentMeshComponentSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_mesh_component_set(field,variabletype,componentnumber,meshcomponent,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentMeshComponentSetNumber")
    RETURN
999 errorsexits("cmfe_Field_ComponentMeshComponentSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentmeshcomponentsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentmeshcomponentsetobj(field,variableType,componentNumber,meshComponent,err)
    !DLLEXPORT(cmfe_Field_ComponentMeshComponentSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: meshComponent
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentMeshComponentSetObj",err,error,*999)

    CALL field_component_mesh_component_set(field%field,variabletype,componentnumber,meshcomponent,err,error,*999)

    exits("cmfe_Field_ComponentMeshComponentSetObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentMeshComponentSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentmeshcomponentsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentvaluesinitialiseintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ComponentValuesInitialiseIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentValuesInitialiseIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_values_initialise(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentValuesInitialiseIntgNumber")
    RETURN
999 errors("cmfe_Field_ComponentValuesInitialiseIntgNumber",err,error)
    exits("cmfe_Field_ComponentValuesInitialiseIntgNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentvaluesinitialiseintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentvaluesinitialiseintgobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ComponentValuesInitialiseIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentValuesInitialiseIntgObj",err,error,*999)

    CALL field_component_values_initialise(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ComponentValuesInitialiseIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentValuesInitialiseIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentvaluesinitialiseintgobj
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentvaluesinitialisespnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ComponentValuesInitialiseSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentValuesInitialiseSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_values_initialise(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentValuesInitialiseSPNumber")
    RETURN
999 errors("cmfe_Field_ComponentValuesInitialiseSPNumber",err,error)
    exits("cmfe_Field_ComponentValuesInitialiseSPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentvaluesinitialisespnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentvaluesinitialisespobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ComponentValuesInitialiseSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentValuesInitialiseSPObj",err,error,*999)

    CALL field_component_values_initialise(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ComponentValuesInitialiseSPObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentValuesInitialiseSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentvaluesinitialisespobj
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentvaluesinitialisedpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ComponentValuesInitialiseDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentValuesInitialiseDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_values_initialise(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentValuesInitialiseDPNumber")
    RETURN
999 errors("cmfe_Field_ComponentValuesInitialiseDPNumber",err,error)
    exits("cmfe_Field_ComponentValuesInitialiseDPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentvaluesinitialisedpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentvaluesinitialisedpobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ComponentValuesInitialiseDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentValuesInitialiseDPObj",err,error,*999)

    CALL field_component_values_initialise(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ComponentValuesInitialiseDPObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentValuesInitialiseDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentvaluesinitialisedpobj
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentvaluesinitialiselnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ComponentValuesInitialiseLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ComponentValuesInitialiseLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_component_values_initialise(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ComponentValuesInitialiseLNumber")
    RETURN
999 errorsexits("cmfe_Field_ComponentValuesInitialiseLNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentvaluesinitialiselnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_componentvaluesinitialiselobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ComponentValuesInitialiseLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ComponentValuesInitialiseLObj",err,error,*999)

    CALL field_component_values_initialise(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ComponentValuesInitialiseLObj")
    RETURN
999 errorsexits("cmfe_Field_ComponentValuesInitialiseLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_componentvaluesinitialiselobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_datatypegetnumber(regionUserNumber,fieldUserNumber,variableType,dataType,err)
    !DLLEXPORT(cmfe_Field_DataTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: dataType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_DataTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_data_type_get(field,variabletype,datatype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_DataTypeGetNumber")
    RETURN
999 errorsexits("cmfe_Field_DataTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_datatypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_datatypegetobj(field,variableType,dataType,err)
    !DLLEXPORT(cmfe_Field_DataTypeGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: dataType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_DataTypeGetObj",err,error,*999)

    CALL field_data_type_get(field%field,variabletype,datatype,err,error,*999)

    exits("cmfe_Field_DataTypeGetObj")
    RETURN
999 errorsexits("cmfe_Field_DataTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_datatypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_datatypesetnumber(regionUserNumber,fieldUserNumber,variableType,dataType,err)
    !DLLEXPORT(cmfe_Field_DataTypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: dataType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_DataTypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_data_type_set(field,variabletype,datatype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_DataTypeSetNumber")
    RETURN
999 errorsexits("cmfe_Field_DataTypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_datatypesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_datatypesetobj(field,variableType,dataType,err)
    !DLLEXPORT(cmfe_Field_DataTypeSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: dataType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_DataTypeSetObj",err,error,*999)

    CALL field_data_type_set(field%field,variabletype,datatype,err,error,*999)

    exits("cmfe_Field_DataTypeSetObj")
    RETURN
999 errorsexits("cmfe_Field_DataTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_datatypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dofordertypegetnumber(regionUserNumber,fieldUserNumber,variableType,DOFOrderType,err)
    !DLLEXPORT(cmfe_Field_DOFOrderTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: DOFOrderType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_DOFOrderTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_dof_order_type_get(field,variabletype,dofordertype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_DOFOrderTypeGetNumber")
    RETURN
999 errorsexits("cmfe_Field_DOFOrderTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dofordertypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dofordertypegetobj(field,variableType,DOFOrderType,err)
    !DLLEXPORT(cmfe_Field_DOFOrderTypeGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: DOFOrderType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_DOFOrderTypeGetObj",err,error,*999)

    CALL field_dof_order_type_get(field%field,variabletype,dofordertype,err,error,*999)

    exits("cmfe_Field_DOFOrderTypeGetObj")
    RETURN
999 errorsexits("cmfe_Field_DOFOrderTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dofordertypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dofordertypesetnumber(regionUserNumber,fieldUserNumber,variableType,DOFOrderType,err)
    !DLLEXPORT(cmfe_Field_DOFOrderTypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: DOFOrderType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_DOFOrderTypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_dof_order_type_set(field,variabletype,dofordertype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_DOFOrderTypeSetNumber")
    RETURN
999 errorsexits("cmfe_Field_DOFOrderTypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dofordertypesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dofordertypesetobj(field,variableType,DOFOrderType,err)
    !DLLEXPORT(cmfe_Field_DOFOrderTypeSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: DOFOrderType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_DOFOrderTypeSetObj",err,error,*999)

    CALL field_dof_order_type_set(field%field,variabletype,dofordertype,err,error,*999)

    exits("cmfe_Field_DOFOrderTypeSetObj")
    RETURN
999 errorsexits("cmfe_Field_DOFOrderTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dofordertypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_createfinishnumber(regionUserNumber,fieldUserNumber,err)
    !DLLEXPORT(cmfe_Field_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_CreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_create_finish(field,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Field Create')
#endif

    exits("cmfe_Field_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_Field_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_createfinishobj(field,err)
    !DLLEXPORT(cmfe_Field_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_CreateFinishObj",err,error,*999)

    CALL field_create_finish(field%field,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('field Create')
#endif

    exits("cmfe_Field_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_Field_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_createstartnumber(fieldUserNumber,regionUserNumber,err)
    !DLLEXPORT(cmfe_Field_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_CreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Field Create')
#endif

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_create_start(fieldusernumber,region,field,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_Field_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_createstartinterfaceobj(fieldUserNumber,interface,field,err)
    !DLLEXPORT(cmfe_Field_CreateStartInterfaceObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    TYPE(cmfe_interfacetype), INTENT(IN) :: Interface
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_CreateStartInterfaceObj",err,error,*999)

    CALL field_create_start(fieldusernumber,interface%interface,field%field,err,error,*999)

    exits("cmfe_Field_CreateStartInterfaceObj")
    RETURN
999 errorsexits("cmfe_Field_CreateStartInterfaceObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_createstartinterfaceobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_createstartregionobj(fieldUserNumber,region,field,err)
    !DLLEXPORT(cmfe_Field_CreateStartRegionObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_CreateStartRegionObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('field Create')
#endif

    CALL field_create_start(fieldusernumber,region%region,field%field,err,error,*999)

    exits("cmfe_Field_CreateStartRegionObj")
    RETURN
999 errorsexits("cmfe_Field_CreateStartRegionObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_createstartregionobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dependenttypegetnumber(regionUserNumber,fieldUserNumber,dependentType,err)
    !DLLEXPORT(cmfe_Field_DependentTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: dependentType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_DependentTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_dependent_type_get(field,dependenttype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_DependentTypeGetNumber")
    RETURN
999 errorsexits("cmfe_Field_DependentTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dependenttypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dependenttypegetobj(field,dependentType,err)
    !DLLEXPORT(cmfe_Field_DependentTypeGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(OUT) :: dependentType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_DependentTypeGetObj",err,error,*999)

    CALL field_dependent_type_get(field%field,dependenttype,err,error,*999)

    exits("cmfe_Field_DependentTypeGetObj")
    RETURN
999 errorsexits("cmfe_Field_DependentTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dependenttypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dependenttypesetnumber(regionUserNumber,fieldUserNumber,dependentType,err)
    !DLLEXPORT(cmfe_Field_DependentTypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: dependentType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_DependentTypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_dependent_type_set(field,dependenttype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_DependentTypeSetNumber")
    RETURN
999 errorsexits("cmfe_Field_DependentTypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dependenttypesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dependenttypesetobj(field,dependentType,err)
    !DLLEXPORT(cmfe_Field_DependentTypeSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: dependentType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_DependentTypeSetObj",err,error,*999)

    CALL field_dependent_type_set(field%field,dependenttype,err,error,*999)

    exits("cmfe_Field_DependentTypeSetObj")
    RETURN
999 errorsexits("cmfe_Field_DependentTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dependenttypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_destroynumber(regionUserNumber,fieldUserNumber,err)
    !DLLEXPORT(cmfe_Field_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_DestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_destroy(field,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_DestroyNumber")
    RETURN
999 errorsexits("cmfe_Field_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_destroyobj(field,err)
    !DLLEXPORT(cmfe_Field_DestroyObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_DestroyObj",err,error,*999)

    CALL field_destroy(field%field,err,error,*999)

    exits("cmfe_Field_DestroyObj")
    RETURN
999 errorsexits("cmfe_Field_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_destroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dimensiongetnumber(regionUserNumber,fieldUserNumber,variableType,dimension,err)
    !DLLEXPORT(cmfe_Field_DimensionGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: dimension
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_DimensionGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_dimension_get(field,variabletype,dimension,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_DimensionGetNumber")
    RETURN
999 errorsexits("cmfe_Field_DimensionGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dimensiongetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dimensiongetobj(field,variableType,dimension,err)
    !DLLEXPORT(cmfe_Field_DimensionGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: Dimension
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_DimensionGetObj",err,error,*999)

    CALL field_dimension_get(field%field,variabletype,dimension,err,error,*999)

    exits("cmfe_Field_DimensionGetObj")
    RETURN
999 errorsexits("cmfe_Field_DimensionGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dimensiongetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dimensionsetnumber(regionUserNumber,fieldUserNumber,variableType,dimension,err)
    !DLLEXPORT(cmfe_Field_DimensionSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: Dimension
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_DimensionSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_dimension_set(field,variabletype,dimension,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_DimensionSetNumber")
    RETURN
999 errorsexits("cmfe_Field_DimensionSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dimensionsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dimensionsetobj(field,variableType,dimension,err)
    !DLLEXPORT(cmfe_Field_DimensionSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: dimension
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_DimensionSetObj",err,error,*999)

    CALL field_dimension_set(field%field,variabletype,dimension,err,error,*999)

    exits("cmfe_Field_DimensionSetObj")
    RETURN
999 errorsexits("cmfe_Field_DimensionSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dimensionsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_geometricfieldgetnumber(regionUserNumber,fieldUserNumber,geometricFieldUserNumber,err)
    !DLLEXPORT(cmfe_Field_GeometricFieldGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: geometricFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD,GEOMETRIC_FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_GeometricFieldGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(geometric_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_geometric_field_get(field,geometric_field,err,error,*999)
        geometricfieldusernumber=geometric_field%USER_NUMBER
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_GeometricFieldGetNumber")
    RETURN
999 errorsexits("cmfe_Field_GeometricFieldGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_geometricfieldgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_geometricfieldgetobj(field,geometricField,err)
    !DLLEXPORT(cmfe_Field_GeometricFieldGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: geometricField
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_GeometricFieldGetObj",err,error,*999)

    CALL field_geometric_field_get(field%field,geometricfield%field,err,error,*999)

    exits("cmfe_Field_GeometricFieldGetObj")
    RETURN
999 errorsexits("cmfe_Field_GeometricFieldGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_geometricfieldgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_geometricfieldsetnumber(regionUserNumber,fieldUserNumber,geometricFieldUserNumber,err)
    !DLLEXPORT(cmfe_Field_GeometricFieldSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: geometricFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD,GEOMETRIC_FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_GeometricFieldSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(geometric_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_user_number_find(geometricfieldusernumber,region,geometric_field,err,error,*999)
        IF(ASSOCIATED(geometric_field)) THEN
          CALL field_geometric_field_set(field,geometric_field,err,error,*999)
        ELSE
          localerror="A geometric field with an user number of "// &
            & trim(numbertovstring(geometricfieldusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_GeometricFieldSetNumber")
    RETURN
999 errorsexits("cmfe_Field_GeometricFieldSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_geometricfieldsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_geometricfieldsetobj(field,geometricField,err)
    !DLLEXPORT(cmfe_Field_GeometricFieldSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    TYPE(cmfe_fieldtype), INTENT(IN) :: geometricField
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_GeometricFieldSetObj",err,error,*999)

    CALL field_geometric_field_set(field%field,geometricfield%field,err,error,*999)

    exits("cmfe_Field_GeometricFieldSetObj")
    RETURN
999 errorsexits("cmfe_Field_GeometricFieldSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_geometricfieldsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_geometricparameterselementlinelengthgetnumber(regionUserNumber,geometricFieldUserNumber,elementNumber, &
    & elementlinenumber,linelength,err)
    !DLLEXPORT(cmfe_Field_GeometricParametersElementLineLengthGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: geometricFieldUserNumber
    INTEGER(INTG),  INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: elementLineNumber
    REAL(DP), INTENT(OUT) :: lineLength
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: geometricField
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_GeometricParametersElementLineLengthGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(geometricfield)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(geometricfieldusernumber,region,geometricfield,err,error,*999)
      IF(ASSOCIATED(geometricfield)) THEN
        CALL field_geometricparameterselementlinelengthget(geometricfield,elementnumber,elementlinenumber,linelength, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(geometricfieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_GeometricParametersElementLineLengthGetNumber")
    RETURN
999 errors("cmfe_Field_GeometricParametersElementLineLengthGetNumber",err,error)
    exits("cmfe_Field_GeometricParametersElementLineLengthGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_geometricparameterselementlinelengthgetnumber
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_geometricparameterselementvolumegetnumber(regionUserNumber,geometricFieldUserNumber,elementNumber, &
    & elementvolume,err)
    !DLLEXPORT(cmfe_Field_GeometricParametersElementVolumeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: geometricFieldUserNumber
    INTEGER(INTG),  INTENT(IN) :: elementNumber
    REAL(DP), INTENT(OUT) :: elementVolume
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: geometricField
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_GeometricParametersElementVolumeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(geometricfield)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(geometricfieldusernumber,region,geometricfield,err,error,*999)
      IF(ASSOCIATED(geometricfield)) THEN
        CALL field_geometricparameterselementvolumeget(geometricfield,elementnumber,elementvolume, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(geometricfieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_GeometricParametersElementVolumeGetNumber")
    RETURN
999 errors("cmfe_Field_GeometricParametersElementVolumeGetNumber",err,error)
    exits("cmfe_Field_GeometricParametersElementVolumeGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_geometricparameterselementvolumegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_geometricparameterselementlinelengthgetobj(geometricField,elementNumber,elementLineNumber,lineLength,err)
    !DLLEXPORT(cmfe_Field_GeometricParametersElementLineLengthGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: geometricField
    INTEGER(INTG),  INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: elementLineNumber
    REAL(DP), INTENT(OUT) :: lineLength
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_GeometricParametersElementLineLengthGetObj",err,error,*999)

    CALL field_geometricparameterselementlinelengthget(geometricfield%field,elementnumber,elementlinenumber,linelength, &
      & err,error,*999)

    exits("cmfe_Field_GeometricParametersElementLineLengthGetObj")
    RETURN
999 errors("cmfe_Field_GeometricParametersElementLineLengthGetObj",err,error)
    exits("cmfe_Field_GeometricParametersElementLineLengthGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_geometricparameterselementlinelengthgetobj


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_geometricparameterselementvolumegetobj(geometricField,elementNumber,elementVolume,err)
    !DLLEXPORT(cmfe_Field_GeometricParametersElementVolumeGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: geometricField
    INTEGER(INTG),  INTENT(IN) :: elementNumber
    REAL(DP), INTENT(OUT) :: elementVolume
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_GeometricParametersElementVolumeGetObj",err,error,*999)

    CALL field_geometricparameterselementvolumeget(geometricfield%field,elementnumber,elementvolume, &
      & err,error,*999)

    exits("cmfe_Field_GeometricParametersElementVolumeGetObj")
    RETURN
999 errors("cmfe_Field_GeometricParametersElementVolumeGetObj",err,error)
    exits("cmfe_Field_GeometricParametersElementVolumeGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_geometricparameterselementvolumegetobj


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetnodescalefactorgetnumber(regionUserNumber,fieldUserNumber,variableType, &
    & versionnumber,derivativenumber,nodeusernumber,componentnumber,scalefactor,err)
    !DLLEXPORT(cmfe_Field_ParameterSetNodeScaleFactorGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetNodeScaleFactorGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetnodescalefactorget(field,variabletype,versionnumber, &
          & derivativenumber,nodeusernumber,componentnumber,scalefactor,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetNodeScaleFactorGetNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetNodeScaleFactorGetNumber",err,error)
    exits("cmfe_Field_ParameterSetNodeScaleFactorGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetnodescalefactorgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetnodescalefactorgetobj(field,variableType, &
    & versionnumber,derivativenumber,nodeusernumber,componentnumber,scalefactor,err)
    !DLLEXPORT(cmfe_Field_ParameterSetNodeScaleFactorGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetNodeScaleFactorGetObj",err,error,*999)

    CALL field_parametersetnodescalefactorget(field%field,variabletype,versionnumber, &
      & derivativenumber,nodeusernumber,componentnumber,scalefactor,err,error,*999)

    exits("cmfe_Field_ParameterSetNodeScaleFactorGetObj")
    RETURN
999 errors("cmfe_Field_ParameterSetNodeScaleFactorGetObj",err,error)
    exits("cmfe_Field_ParameterSetNodeScaleFactorGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetnodescalefactorgetobj


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetnodescalefactorsgetnumber(regionUserNumber,fieldUserNumber,variableType, &
    & meshcomponentnumber,scalefactors,err)
    !DLLEXPORT(cmfe_Field_ParameterSetNodeScaleFactorsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    REAL(DP), INTENT(OUT) :: scaleFactors(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetNodeScaleFactorsGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetnodescalefactorsget(field,variabletype,meshcomponentnumber,scalefactors,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetNodeScaleFactorsGetNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetNodeScaleFactorsGetNumber",err,error)
    exits("cmfe_Field_ParameterSetNodeScaleFactorsGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetnodescalefactorsgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetnodescalefactorsgetobj(field,variableType,meshComponentNumber,scaleFactors,err)
    !DLLEXPORT(cmfe_Field_ParameterSetNodeScaleFactorsGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    REAL(DP), INTENT(OUT) :: scaleFactors(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetNodeScaleFactorsGetObj",err,error,*999)

    CALL field_parametersetnodescalefactorsget(field%field,variabletype,meshcomponentnumber,scalefactors,err,error,*999)

    exits("cmfe_Field_ParameterSetNodeScaleFactorsGetObj")
    RETURN
999 errors("cmfe_Field_ParameterSetNodeScaleFactorsGetObj",err,error)
    exits("cmfe_Field_ParameterSetNodeScaleFactorsGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetnodescalefactorsgetobj
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetnodenumberofscalefactordofsgetnumber(regionUserNumber,fieldUserNumber,variableType, &
    & meshcomponentnumber,numberofscalefactorsdofs,err)
    !DLLEXPORT(cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfScaleFactorsDofs
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetnodenumberofscalefactordofsget(field,variabletype,meshcomponentnumber,numberofscalefactorsdofs, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetNumber",err,error)
    exits("cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetnodenumberofscalefactordofsgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetnodenumberofscalefactordofsgetobj(field,variableType,meshComponentNumber, &
    & numberofscalefactorsdofs,err)
    !DLLEXPORT(cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfScaleFactorsDofs
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetObj",err,error,*999)

    CALL field_parametersetnodenumberofscalefactordofsget(field%field,variabletype,meshcomponentnumber,numberofscalefactorsdofs, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetObj")
    RETURN
999 errors("cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetObj",err,error)
    exits("cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetnodenumberofscalefactordofsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetnodescalefactorsetnumber(regionUserNumber,fieldUserNumber,variableType, &
    & versionnumber,derivativenumber,nodeusernumber,componentnumber,scalefactor,err)
    !DLLEXPORT(cmfe_Field_ParameterSetNodeScaleFactorSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetNodeScaleFactorSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetnodescalefactorset(field,variabletype,versionnumber, &
          & derivativenumber,nodeusernumber,componentnumber,scalefactor,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetNodeScaleFactorSetNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetNodeScaleFactorSetNumber",err,error)
    exits("cmfe_Field_ParameterSetNodeScaleFactorSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetnodescalefactorsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetnodescalefactorsetobj(field,variableType, &
    & versionnumber,derivativenumber,nodeusernumber,componentnumber,scalefactor,err)
    !DLLEXPORT(cmfe_Field_ParameterSetNodeScaleFactorSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetNodeScaleFactorSetObj",err,error,*999)

    CALL field_parametersetnodescalefactorset(field%field,variabletype,versionnumber, &
      & derivativenumber,nodeusernumber,componentnumber,scalefactor,err,error,*999)

    exits("cmfe_Field_ParameterSetNodeScaleFactorSetObj")
    RETURN
999 errors("cmfe_Field_ParameterSetNodeScaleFactorSetObj",err,error)
    exits("cmfe_Field_ParameterSetNodeScaleFactorSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetnodescalefactorsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetnodescalefactorssetnumber(regionUserNumber,fieldUserNumber,variableType, &
    & meshcomponentnumber,scalefactors,err)
    !DLLEXPORT(cmfe_Field_ParameterSetNodeScaleFactorsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    REAL(DP), INTENT(IN) :: scaleFactors(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetNodeScaleFactorsSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetnodescalefactorsset(field,variabletype,meshcomponentnumber,scalefactors,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetNodeScaleFactorsSetNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetNodeScaleFactorsSetNumber",err,error)
    exits("cmfe_Field_ParameterSetNodeScaleFactorsSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetnodescalefactorssetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetnodescalefactorssetobj(field,variableType,meshComponentNumber,scaleFactors,err)
    !DLLEXPORT(cmfe_Field_ParameterSetNodeScaleFactorsSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    REAL(DP), INTENT(IN) :: scaleFactors(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetNodeScaleFactorsSetObj",err,error,*999)

    CALL field_parametersetnodescalefactorsset(field%field,variabletype,meshcomponentnumber,scalefactors,err,error,*999)

    exits("cmfe_Field_ParameterSetNodeScaleFactorsSetObj")
    RETURN
999 errors("cmfe_Field_ParameterSetNodeScaleFactorsSetObj",err,error)
    exits("cmfe_Field_ParameterSetNodeScaleFactorsSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetnodescalefactorssetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_labelgetcnumber(regionUserNumber,fieldUserNumber,label,err)
    !DLLEXPORT(cmfe_Field_LabelGetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_LabelGetCNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_label_get(field,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_LabelGetCNumber")
    RETURN
999 errorsexits("cmfe_Field_LabelGetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_labelgetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_labelgetcobj(field,label,err)
    !DLLEXPORT(cmfe_Field_LabelGetCObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_LabelGetCObj",err,error,*999)

    CALL field_label_get(field%field,label,err,error,*999)

    exits("cmfe_Field_LabelGetCObj")
    RETURN
999 errorsexits("cmfe_Field_LabelGetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_labelgetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_labelgetvsnumber(regionUserNumber,fieldUserNumber,label,err)
    !DLLEXPORT(cmfe_Field_LabelGetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_LabelGetVSNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_label_get(field,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_LabelGetVSNumber")
    RETURN
999 errorsexits("cmfe_Field_LabelGetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_labelgetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_labelgetvsobj(field,label,err)
    !DLLEXPORT(cmfe_Field_LabelGetVSObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_LabelGetVSObj",err,error,*999)

    CALL field_label_get(field%field,label,err,error,*999)

    exits("cmfe_Field_LabelGetVSObj")
    RETURN
999 errorsexits("cmfe_Field_LabelGetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_labelgetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_labelsetcnumber(regionUserNumber,fieldUserNumber,label,err)
    !DLLEXPORT(cmfe_Field_LabelSetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_LabelSetCNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_label_set(field,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_LabelSetCNumber")
    RETURN
999 errorsexits("cmfe_Field_LabelSetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_labelsetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_labelsetcobj(field,label,err)
    !DLLEXPORT(cmfe_Field_LabelSetCObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_LabelSetCObj",err,error,*999)

    CALL field_label_set(field%field,label,err,error,*999)

    exits("cmfe_Field_LabelSetCObj")
    RETURN
999 errorsexits("cmfe_Field_LabelSetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_labelsetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_labelsetvsnumber(regionUserNumber,fieldUserNumber,label,err)
    !DLLEXPORT(cmfe_Field_LabelSetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_LabelSetVSNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_label_set(field,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_LabelSetVSNumber")
    RETURN
999 errorsexits("cmfe_Field_LabelSetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_labelsetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_labelsetvsobj(field,label,err)
    !DLLEXPORT(cmfe_Field_LabelSetVSObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_LabelSetVSObj",err,error,*999)

    CALL field_label_set(field%field,label,err,error,*999)

    exits("cmfe_Field_LabelSetVSObj")
    RETURN
999 errorsexits("cmfe_Field_LabelSetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_labelsetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_positionnormaltangentcalculatenodenumber(regionUserNumber,fieldUserNumber,variableType,componentNumber, &
    & localnodenumber,position,normal,tangents,err)
    !DLLEXPORT(cmfe_Field_PositionNormalTangentCalculateNodeNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: localNodeNumber
    REAL(DP), INTENT(OUT) :: position(:),normal(:),tangents(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_PositionNormalTangentCalculateNodeNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_positionnormaltangentscalculatenode(field,variabletype,componentnumber,localnodenumber, &
          & position,normal,tangents,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_PositionNormalTangentCalculateNodeNumber")
    RETURN
999 errors("cmfe_Field_PositionNormalTangentCalculateNodeNumber",err,error)
    exits("cmfe_Field_PositionNormalTangentCalculateNodeNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_positionnormaltangentcalculatenodenumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_positionnormaltangentcalculatenodeobj(field,variableType,componentNumber,localNodeNumber, &
    & position,normal,tangents,err)
    !DLLEXPORT(cmfe_Field_PositionNormalTangentCalculateNodeObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: localNodeNumber
    REAL(DP), INTENT(OUT) :: position(:),normal(:),tangents(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_PositionNormalTangentCalculateNodeObj",err,error,*999)

    CALL field_positionnormaltangentscalculatenode(field%field,variabletype,componentnumber,localnodenumber, &
    & position,normal,tangents,err,error,*999)

    exits("cmfe_Field_PositionNormalTangentCalculateNodeObj")
    RETURN
999 errors("cmfe_Field_PositionNormalTangentCalculateNodeObj",err,error)
    exits("cmfe_Field_PositionNormalTangentCalculateNodeObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_positionnormaltangentcalculatenodeobj



  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_meshdecompositiongetnumber(regionUserNumber,fieldUserNumber,decompositionUserNumber,err)
    !DLLEXPORT(cmfe_Field_MeshDecompositionGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: decompositionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_MeshDecompositionGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_mesh_decomposition_get(field,decomposition,err,error,*999)
        decompositionusernumber=decomposition%USER_NUMBER
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_MeshDecompositionGetNumber")
    RETURN
999 errorsexits("cmfe_Field_MeshDecompositionGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_meshdecompositiongetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_meshdecompositiongetobj(field,meshDecomposition,err)
    !DLLEXPORT(cmfe_Field_MeshDecompositionGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    TYPE(cmfe_decompositiontype), INTENT(INOUT) :: meshDecomposition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_MeshDecompositionGetObj",err,error,*999)

    CALL field_mesh_decomposition_get(field%field,meshdecomposition%decomposition,err,error,*999)

    exits("cmfe_Field_MeshDecompositionGetObj")
    RETURN
999 errorsexits("cmfe_Field_MeshDecompositionGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_meshdecompositiongetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_meshdecompositionsetnumber(regionUserNumber,fieldUserNumber,meshUserNumber,decompositionUserNumber,err)
    !DLLEXPORT(cmfe_Field_MeshDecompositionSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(field_type), POINTER :: FIELD
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_MeshDecompositionSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(decomposition)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
        IF(ASSOCIATED(mesh)) THEN
          CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
          IF(ASSOCIATED(decomposition)) THEN
            CALL field_mesh_decomposition_set(field,decomposition,err,error,*999)
          ELSE
            localerror="A decomposition with a user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
              & " does not exist on mesh number "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          END IF
        ELSE
          localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_MeshDecompositionSetNumber")
    RETURN
999 errorsexits("cmfe_Field_MeshDecompositionSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_meshdecompositionsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_meshdecompositionsetobj(field,meshDecomposition,err)
    !DLLEXPORT(cmfe_Field_MeshDecompositionSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    TYPE(cmfe_decompositiontype), INTENT(IN) :: meshDecomposition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_MeshDecompositionSetObj",err,error,*999)

    CALL field_mesh_decomposition_set(field%field,meshdecomposition%decomposition,err,error,*999)

    exits("cmfe_Field_MeshDecompositionSetObj")
    RETURN
999 errorsexits("cmfe_Field_MeshDecompositionSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_meshdecompositionsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dataprojectionsetnumber(regionUserNumber,fieldUserNumber,dataProjectionUserNumber,err)
    !DLLEXPORT(cmfe_Field_DataProjectionSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(data_points_type), POINTER :: DATA_POINTS
    TYPE(data_projection_type), POINTER :: DATA_PROJECTION
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    INTEGER(INTG) :: DATA_PROJECTION_NUMBER
    TYPE(varying_string) :: localError

    enters("cmfe_Field_DataProjectionSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(data_points)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL region_data_points_get(region,data_points,err,error,*999)
        IF(ASSOCIATED(data_points)) THEN
          CALL datapoints_dataprojectionglobalnumberget(data_points,dataprojectionusernumber,data_projection_number,&
           & err,error,*999)
          CALL data_points_data_projection_get(data_points,data_projection_number,data_projection,err,error,*999)
          IF(ASSOCIATED(data_projection)) THEN
            CALL field_dataprojectionset(field,data_projection,err,error,*999)
          ELSE
            localerror="A data projection does not exist for the data points on region number "// &
             & trim(numbertovstring(regionusernumber,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          END IF
        ELSE
          localerror="Data points do not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_DataProjectionSetNumber")
    RETURN
999 errorsexits("cmfe_Field_DataProjectionSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dataprojectionsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_dataprojectionsetobj(field,dataProjection,err)
    !DLLEXPORT(cmfe_Field_DataProjectionSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: dataProjection
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_DataProjectionSetObj",err,error,*999)

    CALL field_dataprojectionset(field%field,dataprojection%dataProjection,err,error,*999)

    exits("cmfe_Field_DataProjectionSetObj")
    RETURN
999 errorsexits("cmfe_Field_DataProjectionSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_dataprojectionsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_numberofcomponentsgetnumber(regionUserNumber,fieldUserNumber,variableType,numberOfComponents,err)
    !DLLEXPORT(cmfe_Field_NumberOfComponentsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: numberOfComponents
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_NumberOfComponentsGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_number_of_components_get(field,variabletype,numberofcomponents,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_NumberOfComponentsGetNumber")
    RETURN
999 errorsexits("cmfe_Field_NumberOfComponentsGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_numberofcomponentsgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_numberofcomponentsgetobj(field,variableType,numberOfComponents,err)
    !DLLEXPORT(cmfe_Field_NumberOfComponentsGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: numberOfComponents
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_NumberOfComponentsGetObj",err,error,*999)

    CALL field_number_of_components_get(field%field,variabletype,numberofcomponents,err,error,*999)

    exits("cmfe_Field_NumberOfComponentsGetObj")
    RETURN
999 errorsexits("cmfe_Field_NumberOfComponentsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_numberofcomponentsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_numberofcomponentssetnumber(regionUserNumber,fieldUserNumber,variableType,numberOfComponents,err)
    !DLLEXPORT(cmfe_Field_NumberOfComponentsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: numberOfComponents
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_NumberOfComponentsSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_number_of_components_set(field,variabletype,numberofcomponents,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_NumberOfComponentsSetNumber")
    RETURN
999 errorsexits("cmfe_Field_NumberOfComponentsSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_numberofcomponentssetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_numberofcomponentssetobj(field,variableType,numberOfComponents,err)
    !DLLEXPORT(cmfe_Field_NumberOfComponentsSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: numberOfComponents
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_NumberOfComponentsSetObj",err,error,*999)

    CALL field_number_of_components_set(field%field,variabletype,numberofcomponents,err,error,*999)

    exits("cmfe_Field_NumberOfComponentsSetObj")
    RETURN
999 errorsexits("cmfe_Field_NumberOfComponentsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_numberofcomponentssetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_numberofvariablesgetnumber(regionUserNumber,fieldUserNumber,numberOfVariables,err)
    !DLLEXPORT(cmfe_Field_NumberOfVariablesGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfVariables
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_NumberOfVariablesGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_number_of_variables_get(field,numberofvariables,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_NumberOfVariablesGetNumber")
    RETURN
999 errorsexits("cmfe_Field_NumberOfVariablesGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_numberofvariablesgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_numberofvariablesgetobj(field,numberOfVariables,err)
    !DLLEXPORT(cmfe_Field_NumberOfVariablesGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(OUT) :: numberOfVariables
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_NumberOfVariablesGetObj",err,error,*999)

    CALL field_number_of_variables_get(field%field,numberofvariables,err,error,*999)

    exits("cmfe_Field_NumberOfVariablesGetObj")
    RETURN
999 errorsexits("cmfe_Field_NumberOfVariablesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_numberofvariablesgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_numberofvariablessetnumber(regionUserNumber,fieldUserNumber,numberOfVariables,err)
    !DLLEXPORT(cmfe_Field_NumberOfVariablesSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: numberOfVariables
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_NumberOfVariablesSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_number_of_variables_set(field,numberofvariables,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_NumberOfVariablesSetNumber")
    RETURN
999 errorsexits("cmfe_Field_NumberOfVariablesSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_numberofvariablessetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_numberofvariablessetobj(field,numberOfVariables,err)
    !DLLEXPORT(cmfe_Field_NumberOfVariablesSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: numberOfVariables
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_NumberOfVariablesSetObj",err,error,*999)

    CALL field_number_of_variables_set(field%field,numberofvariables,err,error,*999)

    exits("cmfe_Field_NumberOfVariablesSetObj")
    RETURN
999 errorsexits("cmfe_Field_NumberOfVariablesSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_numberofvariablessetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddconstantintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddConstantIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddConstantIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_constant(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddConstantIntgNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetAddConstantIntgNumber",err,error)
    exits("cmfe_Field_ParameterSetAddConstantIntgNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddconstantintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddconstantintgobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddConstantIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
     INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddConstantIntgObj",err,error,*999)

    CALL field_parameter_set_add_constant(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetAddConstantIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddConstantIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddconstantintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddconstantspnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddConstantSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddConstantSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_constant(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddConstantSPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddConstantSPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddconstantspnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddconstantspobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddConstantSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddConstantSPObj",err,error,*999)

    CALL field_parameter_set_add_constant(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetAddConstantSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddConstantSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddconstantspobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddconstantdpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddConstantDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddConstantDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_constant(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddConstantDPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddConstantDPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddconstantdpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddconstantdpobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddConstantDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddConstantDPObj",err,error,*999)

    CALL field_parameter_set_add_constant(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetAddConstantDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddConstantDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddconstantdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddconstantlnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddConstantLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddConstantLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_constant(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddConstantLNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddConstantLNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddconstantlnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddconstantlobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddConstantLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddConstantLObj",err,error,*999)

    CALL field_parameter_set_add_constant(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_FieldParameterSetAddConstantLbj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddConstantLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddconstantlobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddelementintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddElementIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddElementIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddElementIntgNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddElementIntgNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddelementintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddelementintgobj(field,variableType,fieldSetType,userElementNumber,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddElementIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: UserElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddElementIntgObj",err,error,*999)

    CALL field_parameter_set_add_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetAddElementIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddElementIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddelementintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddelementspnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddElementSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddElementSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddElementSPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddElementSPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddelementspnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddelementspobj(field,variableType,fieldSetType,userElementNumber,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddElementSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddElementSPObj",err,error,*999)

    CALL field_parameter_set_add_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetAddElementSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddElementSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddelementspobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddelementdpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddElementDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddElementDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddElementDPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddElementDPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddelementdpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddelementdpobj(field,variableType,fieldSetType,userElementNumber,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddElementDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddElementDPObj",err,error,*999)

    CALL field_parameter_set_add_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetAddElementDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddElementDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddelementdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddelementlnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddElementLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddElementLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddElementLNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddElementLNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddelementlnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddelementlobj(field,variableType,fieldSetType,userElementNumber,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddElementLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddElementLObj",err,error,*999)

    CALL field_parameter_set_add_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetAddElementLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddElementLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddelementlobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddnodeintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,versionNumber, &
    & derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddNodeIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddNodeIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_node(field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddNodeIntgNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddNodeIntgNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddnodeintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddnodeintgobj(field,variableType,fieldSetType,versionNumber,derivativeNumber,userNodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddNodeIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddNodeIntgObj",err,error,*999)

    CALL field_parameter_set_add_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetAddNodeIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddNodeIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddnodeintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddnodespnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,versionNumber, &
    & derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddNodeSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddNodeSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_node(field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddNodeSPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddNodeSPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddnodespnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddnodespobj(field,variableType,fieldSetType,versionNumber,derivativeNumber,userNodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddNodeSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddNodeSPObj",err,error,*999)

    CALL field_parameter_set_add_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetAddNodeSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddNodeSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddnodespobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddnodedpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,versionNumber, &
    & derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddNodeDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddNodeDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_node(field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddNodeDPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddNodeDPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddnodedpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddnodedpobj(field,variableType,fieldSetType,versionNumber,derivativeNumber,userNodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddNodeDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddNodeDPObj",err,error,*999)

    CALL field_parameter_set_add_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetAddNodeDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddNodeDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddnodedpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddnodelnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,versionNumber, &
    & derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddNodeLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetAddNodeLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_add_node(field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetAddNodeLNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddNodeLNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddnodelnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetaddnodelobj(field,variableType,fieldSetType,versionNumber,derivativeNumber,userNodeNumber, &
    & componentnumber, value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetAddNodeLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetAddNodeLObj",err,error,*999)

    CALL field_parameter_set_add_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
      & componentnumber, value,err,error,*999)

    exits("cmfe_Field_ParameterSetAddNodeLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetAddNodeLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetaddnodelobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetcreatenumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,err)
    !DLLEXPORT(cmfe_Field_ParameterSetCreateNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetCreateNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_create(field,variabletype,fieldsettype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetCreateNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetCreateNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetcreatenumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetcreateobj(field,variableType,fieldSetType,err)
    !DLLEXPORT(cmfe_Field_ParameterSetCreateObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetCreateObj",err,error,*999)

    CALL field_parameter_set_create(field%field,variabletype,fieldsettype,err,error,*999)

    exits("cmfe_Field_ParameterSetCreateObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetCreateObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetcreateobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdestroynumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_destroy(field,variabletype,fieldsettype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetDestroyNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdestroyobj(field,variableType,fieldSetType,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDestroyObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetDestroyObj",err,error,*999)

    CALL field_parameter_set_destroy(field%field,variabletype,fieldsettype,err,error,*999)

    exits("cmfe_Field_ParameterSetDestroyObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdestroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatagetintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataGetIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(OUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetDataGetIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_data_get(field,variabletype,fieldsettype,parameters,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetDataGetIntgNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataGetIntgNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatagetintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatagetintgobj(field,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataGetIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(OUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetDataGetIntgObj",err,error,*999)

    CALL field_parameter_set_data_get(field%field,variabletype,fieldsettype,parameters,err,error,*999)

    exits("cmfe_Field_ParameterSetDataGetIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataGetIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatagetintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatagetspnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataGetSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    REAL(SP), INTENT(OUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetDataGetSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_data_get(field,variabletype,fieldsettype,parameters,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetDataGetSPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataGetSPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatagetspnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatagetspobj(field,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataGetSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    REAL(SP), INTENT(OUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetDataGetSPObj",err,error,*999)

    CALL field_parameter_set_data_get(field%field,variabletype,fieldsettype,parameters,err,error,*999)

    exits("cmfe_Field_ParameterSetDataGetSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataGetSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatagetspobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatagetdpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataGetDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    REAL(DP), INTENT(OUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetDataGetDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_data_get(field,variabletype,fieldsettype,parameters,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetDataGetDPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataGetDPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatagetdpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatagetdpobj(field,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataGetDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    REAL(DP), INTENT(OUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetDataGetDPObj",err,error,*999)

    CALL field_parameter_set_data_get(field%field,variabletype,fieldsettype,parameters,err,error,*999)

    exits("cmfe_Field_ParameterSetDataGetDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataGetDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatagetdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatagetlnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataGetLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    LOGICAL, INTENT(OUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetDataGetLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_data_get(field,variabletype,fieldsettype,parameters,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetDataGetLNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataGetLNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatagetlnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatagetlobj(field,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataGetLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    LOGICAL, INTENT(OUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetDataGetLObj",err,error,*999)

    CALL field_parameter_set_data_get(field%field,variabletype,fieldsettype,parameters,err,error,*999)

    exits("cmfe_Field_ParameterSetDataGetLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataGetLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatagetlobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatarestoreintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataRestoreIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(INOUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetDataRestoreIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_data_restore(field,variabletype,fieldsettype,parameters,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetDataRestoreIntgNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetDataRestoreIntgNumber",err,error)
    exits("cmfe_Field_ParameterSetDataRestoreIntgNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatarestoreintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatarestoreintgobj(field,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataRestoreIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(INOUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetDataRestoreIntgObj",err,error,*999)

    CALL field_parameter_set_data_restore(field%field,variabletype,fieldsettype,parameters,err,error,*999)

    exits("cmfe_Field_ParameterSetDataRestoreIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataRestoreIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatarestoreintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatarestorespnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataRestoreSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    REAL(SP), INTENT(INOUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetDataRestoreSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_data_restore(field,variabletype,fieldsettype,parameters,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetDataRestoreSPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataRestoreSPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatarestorespnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatarestorespobj(field,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataRestoreSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    REAL(SP), INTENT(INOUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetDataRestoreSPObj",err,error,*999)

    CALL field_parameter_set_data_restore(field%field,variabletype,fieldsettype,parameters,err,error,*999)

    exits("cmfe_Field_ParameterSetDataRestoreSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataRestoreSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatarestorespobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatarestoredpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataRestoreDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    REAL(DP), INTENT(INOUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetDataRestoreDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_data_restore(field,variabletype,fieldsettype,parameters,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetDataRestoreDPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataRestoreDPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatarestoredpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatarestoredpobj(field,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataRestoreDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    REAL(DP), INTENT(INOUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetDataRestoreDPObj",err,error,*999)

    CALL field_parameter_set_data_restore(field%field,variabletype,fieldsettype,parameters,err,error,*999)

    exits("cmfe_Field_ParameterSetDataRestoreDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataRestoreDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatarestoredpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatarestorelnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataRestoreLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    LOGICAL, INTENT(INOUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetDataRestoreLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_data_restore(field,variabletype,fieldsettype,parameters,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetDataRestoreLNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataRestoreLNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatarestorelnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetdatarestorelobj(field,variableType,fieldSetType,parameters,err)
    !DLLEXPORT(cmfe_Field_ParameterSetDataRestoreLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    LOGICAL, INTENT(INOUT), POINTER :: parameters(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetDataRestoreLObj",err,error,*999)

    CALL field_parameter_set_data_restore(field%field,variabletype,fieldsettype,parameters,err,error,*999)

    exits("cmfe_Field_ParameterSetDataRestoreLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetDataRestoreLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetdatarestorelobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetconstantintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetConstantIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetConstantIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_constant(field,variabletype,fieldsettype,componentnumber,Value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetConstantIntgNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetGetConstantIntgNumber",err,error)
    exits("cmfe_Field_ParameterSetGetConstantIntgNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetconstantintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetconstantintgobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetConstantIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetConstantIntgObj",err,error,*999)

    CALL field_parameter_set_get_constant(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetConstantIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetConstantIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetconstantintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetconstantspnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetConstantSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetConstantSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_constant(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetConstantSPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetConstantSPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetconstantspnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetconstantspobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetConstantSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetConstantSPObj",err,error,*999)

    CALL field_parameter_set_get_constant(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetConstantSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetConstantSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetconstantspobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetconstantdpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetConstantDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetConstantDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_constant(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetConstantDPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetConstantDPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetconstantdpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetconstantdpobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetConstantDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetConstantDPObj",err,error,*999)

    CALL field_parameter_set_get_constant(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetConstantDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetConstantDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetconstantdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetconstantlnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetConstantLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetConstantLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_constant(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetConstantLNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetConstantLNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetconstantlnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetconstantlobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetConstantLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetConstantLObj",err,error,*999)

    CALL field_parameter_set_get_constant(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetConstantLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetConstantLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetconstantlobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointintgnumberi(parentRegionUserNumber,interfaceUserNumber,fieldUserNumber, &
    & variabletype,fieldsettype,userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointIntgNumberI)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(interface_type), POINTER :: interface
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetDataPointIntgNumberI",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL field_user_number_find(fieldusernumber,interface,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL field_parametersetgetdatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
            & err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetDataPointIntgNumberI")
    RETURN
999 errors("cmfe_Field_ParameterSetGetDataPointIntgNumberI",err,error)
    exits("cmfe_Field_ParameterSetGetDataPointIntgNumberI")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointintgnumberi
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointintgnumberr(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointIntgNumberR)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetDataPointIntgNumberR",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetgetdatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetDataPointIntgNumberR")
    RETURN
999 errors("cmfe_Field_ParameterSetGetDataPointIntgNumberR",err,error)
    exits("cmfe_Field_ParameterSetGetDataPointIntgNumberR")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointintgnumberr

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointintgobj(field,variableType,fieldSetType,userDataPointNumber,componentNumber, &
      & value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetGetDataPointIntgObj",err,error,*999)

    CALL field_parametersetgetdatapoint(field%field,variabletype,fieldsettype,userdatapointnumber,componentnumber, &
      & value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetDataPointIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetDataPointIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointintgobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointspnumberi(parentRegionUserNumber,interfaceUserNumber,fieldUserNumber, &
    & variabletype,fieldsettype,userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointSPNumberI)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(interface_type), POINTER :: interface
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetDataPointSPNumberI",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL field_user_number_find(fieldusernumber,interface,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL field_parametersetgetdatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
            & err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetDataPointSPNumberI")
    RETURN
999 errors("cmfe_Field_ParameterSetGetDataPointSPNumberI",err,error)
    exits("cmfe_Field_ParameterSetGetDataPointSPNumberI")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointspnumberi
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointspnumberr(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointSPNumberR)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetDataPointSPNumberR",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetgetdatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetDataPointSPNumberR")
    RETURN
999 errors("cmfe_Field_ParameterSetGetDataPointSPNumberR",err,error)
    exits("cmfe_Field_ParameterSetGetDataPointSPNumberR")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointspnumberr

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointspobj(field,variableType,fieldSetType,userDataPointNumber,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetGetDataPointSPObj",err,error,*999)

    CALL field_parametersetgetdatapoint(field%field,variabletype,fieldsettype,userdatapointnumber,componentnumber, &
      & value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetDataPointSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetDataPointSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointspobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointdpnumberi(parentRegionUserNumber,interfaceUserNumber,fieldUserNumber, &
    & variabletype,fieldsettype,userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointDPNumberI)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(interface_type), POINTER :: interface
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetDataPointDPNumberI",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL field_user_number_find(fieldusernumber,interface,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL field_parametersetgetdatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
            & err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetDataPointDPNumberI")
    RETURN
999 errors("cmfe_Field_ParameterSetGetDataPointDPNumberI",err,error)
    exits("cmfe_Field_ParameterSetGetDataPointDPNumberI")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointdpnumberi
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointdpnumberr(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointDPNumberR)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetDataPointDPNumberR",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetgetdatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetDataPointDPNumberR")
    RETURN
999 errors("cmfe_Field_ParameterSetGetDataPointDPNumberR",err,error)
    exits("cmfe_Field_ParameterSetGetDataPointDPNumberR")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointdpnumberr

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointdpobj(field,variableType,fieldSetType,userDataPointNumber,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetGetDataPointDPObj",err,error,*999)

    CALL field_parametersetgetdatapoint(field%field,variabletype,fieldsettype,userdatapointnumber,componentnumber, &
      & value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetDataPointDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetDataPointDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointdpobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointlnumberi(parentRegionUserNumber,interfaceUserNumber,fieldUserNumber, &
    & variabletype,fieldsettype,userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointLNumberI)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(interface_type), POINTER :: interface
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetDataPointLNumberI",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL field_user_number_find(fieldusernumber,interface,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL field_parametersetgetdatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
            & err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetDataPointLNumberI")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetDataPointLNumberI",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointlnumberi
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointlnumberr(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointLNumberR)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetDataPointLNumberR",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetgetdatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetDataPointLNumberR")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetDataPointLNumberR",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointlnumberr

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetdatapointlobj(field,variableType,fieldSetType,userDataPointNumber,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetDataPointLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetGetDataPointLObj",err,error,*999)

    CALL field_parametersetgetdatapoint(field%field,variabletype,fieldsettype,userdatapointnumber,componentnumber, &
      & value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetDataPointLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetDataPointLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetdatapointlobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetelementintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetElementIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetElementIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetElementIntgNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetElementIntgNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetelementintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetelementintgobj(field,variableType,fieldSetType,userElementNumber,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetElementIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetElementIntgObj",err,error,*999)

    CALL field_parameter_set_get_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetGetElementIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetElementIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetelementintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetelementspnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetElementSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetElementSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetElementSPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetElementSPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetelementspnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetelementspobj(field,variableType,fieldSetType,userElementNumber,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetElementSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetElementSPObj",err,error,*999)

    CALL field_parameter_set_get_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,VALUE, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetGetElementSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetElementSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetelementspobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetelementdpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetElementDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetElementDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetElementDPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetElementDPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetelementdpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetelementdpobj(field,variableType,fieldSetType,userElementNumber,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetElementDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetElementDPObj",err,error,*999)

    CALL field_parameter_set_get_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetGetElementDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetElementDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetelementdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetelementlnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetElementLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetElementLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetElementLNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetElementLNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetelementlnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetelementlobj(field,variableType,fieldSetType,userElementNumber,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetElementLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetElementLObj",err,error,*999)

    CALL field_parameter_set_get_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,VALUE, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetGetElementLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetElementLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetelementlobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetnodeintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & versionnumber,derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetNodeIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetNodeIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_node(field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetNodeIntgNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetNodeIntgNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetnodeintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetnodeintgobj(field,variableType,fieldSetType,versionNumber,derivativeNumber,userNodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetNodeIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetNodeIntgObj",err,error,*999)

    CALL field_parameter_set_get_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetNodeIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetNodeIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetnodeintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetnodespnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & versionnumber,derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetNodeSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetNodeSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_node(field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetNodeSPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetNodeSPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetnodespnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetnodespobj(field,variableType,fieldSetType,versionNumber,derivativeNumber,userNodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetNodeSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetNodeSPObj",err,error,*999)

    CALL field_parameter_set_get_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetNodeSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetNodeSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetnodespobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetnodedpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & versionnumber,derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetNodeDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetNodeDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_node(field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetNodeDPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetNodeDPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetnodedpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetnodedpobj(field,variableType,fieldSetType,versionNumber,derivativeNumber,userNodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetNodeDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetNodeDPObj",err,error,*999)

    CALL field_parameter_set_get_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
      & componentnumber, value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetNodeDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetNodeDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetnodedpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetnodelnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & versionnumber,derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetNodeLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetGetNodeLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_get_node(field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
          & componentnumber, value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetGetNodeLNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetNodeLNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetnodelnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetnodelobj(field,variableType,fieldSetType,versionNumber,derivativeNumber,userNodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetNodeLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(OUT) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetNodeLObj",err,error,*999)

    CALL field_parameter_set_get_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetNodeLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetNodeLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetnodelobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetgetgausspointdpobj(field,variableType,fieldSetType,gaussPointNumber,userElementNumber, &
    & componentnumber,VALUE,err)
    !DLLEXPORT(cmfe_Field_ParameterSetGetGaussPointDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetGetGaussPointDPObj",err,error,*999)

    CALL field_parametersetgetgausspoint(field%field,variabletype,fieldsettype,gausspointnumber,userelementnumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetGetGaussPointDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetGetGaussPointDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetgetgausspointdpobj
  !
  !================================================================================================================================
  !


  SUBROUTINE cmfe_field_parametersetupdateconstantintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateConstantIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateConstantIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_constant(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateConstantIntgNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateConstantIntgNumber",err,error)
    exits("cmfe_Field_ParameterSetUpdateConstantIntgNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateconstantintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateconstantintgobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateConstantIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateConstantIntgObj",err,error,*999)

    CALL field_parameter_set_update_constant(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateConstantIntgObj")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateConstantIntgObj",err,error)
    exits("cmfe_Field_ParameterSetUpdateConstantIntgObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateconstantintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateconstantspnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateConstantSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateConstantSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_constant(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateConstantSPNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateConstantSPNumber",err,error)
    exits("cmfe_Field_ParameterSetUpdateConstantSPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateconstantspnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateconstantspobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateConstantSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateConstantSPObj",err,error,*999)

    CALL field_parameter_set_update_constant(field%field,variabletype,fieldsettype,componentnumber,Value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateConstantSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateConstantSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateconstantspobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateconstantdpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateConstantDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateConstantDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_constant(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateConstantDPNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateConstantDPNumber",err,error)
    exits("cmfe_Field_ParameterSetUpdateConstantDPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateconstantdpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateconstantdpobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateConstantDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateConstantDPObj",err,error,*999)

    CALL field_parameter_set_update_constant(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateConstantDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateConstantDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateconstantdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateconstantlnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateConstantLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateConstantLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_constant(field,variabletype,fieldsettype,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateConstantLNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateConstantLNumber",err,error)
    exits("cmfe_Field_ParameterSetUpdateConstantLNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateconstantlnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateconstantlobj(field,variableType,fieldSetType,componentNumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateConstantLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateConstantLObj",err,error,*999)

    CALL field_parameter_set_update_constant(field%field,variabletype,fieldsettype,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateConstantLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateConstantLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateconstantlobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointintgnumberi(parentRegionUserNumber,interfaceUserNumber,fieldUserNumber, &
    & variabletype,fieldsettype,userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointIntgNumberI)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(interface_type), POINTER :: interface
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateDataPointIntgNumberI",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL field_user_number_find(fieldusernumber,interface,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL field_parametersetupdatedatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
            & err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateDataPointIntgNumberI")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateDataPointIntgNumberI",err,error)
    exits("cmfe_Field_ParameterSetUpdateDataPointIntgNumberI")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointintgnumberi
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointintgnumberr(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointIntgNumberR)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateDataPointIntgNumberR",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetupdatedatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateDataPointIntgNumberR")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateDataPointIntgNumberR",err,error)
    exits("cmfe_Field_ParameterSetUpdateDataPointIntgNumberR")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointintgnumberr

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointintgobj(field,variableType,fieldSetType,userDataPointNumber,componentNumber, &
      & value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateDataPointIntgObj",err,error,*999)

    CALL field_parametersetupdatedatapoint(field%field,variabletype,fieldsettype,userdatapointnumber,componentnumber, &
      & value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateDataPointIntgObj")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateDataPointIntgObj",err,error)
    exits("cmfe_Field_ParameterSetUpdateDataPointIntgObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointintgobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointspnumberi(parentRegionUserNumber,interfaceUserNumber,fieldUserNumber, &
    & variabletype,fieldsettype,userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointSPNumberI)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(interface_type), POINTER :: interface
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateDataPointSPNumberI",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL field_user_number_find(fieldusernumber,interface,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL field_parametersetupdatedatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
            & err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateDataPointSPNumberI")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateDataPointSPNumberI",err,error)
    exits("cmfe_Field_ParameterSetUpdateDataPointSPNumberI")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointspnumberi
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointspnumberr(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointSPNumberR)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateDataPointSPNumberR",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetupdatedatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateDataPointSPNumberR")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateDataPointSPNumberR",err,error)
    exits("cmfe_Field_ParameterSetUpdateDataPointSPNumberR")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointspnumberr

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointspobj(field,variableType,fieldSetType,userDataPointNumber,componentNumber, &
      & value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateDataPointSPObj",err,error,*999)

    CALL field_parametersetupdatedatapoint(field%field,variabletype,fieldsettype,userdatapointnumber,componentnumber, &
      & value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateDataPointSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateDataPointSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointspobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointdpnumberi(parentRegionUserNumber,interfaceUserNumber,fieldUserNumber, &
    & variabletype,fieldsettype,userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointDPNumberI)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(interface_type), POINTER :: interface
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateDataPointDPNumberI",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL field_user_number_find(fieldusernumber,interface,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL field_parametersetupdatedatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
            & err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateDataPointDPNumberI")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateDataPointDPNumberI",err,error)
    exits("cmfe_Field_ParameterSetUpdateDataPointDPNumberI")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointdpnumberi
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointdpnumberr(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointDPNumberR)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateDataPointDPNumberR",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetupdatedatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateDataPointDPNumberR")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateDataPointDPNumberR",err,error)
    exits("cmfe_Field_ParameterSetUpdateDataPointDPNumberR")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointdpnumberr

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointdpobj(field,variableType,fieldSetType,userDataPointNumber,componentNumber, &
      & value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateDataPointDPObj",err,error,*999)

    CALL field_parametersetupdatedatapoint(field%field,variabletype,fieldsettype,userdatapointnumber,componentnumber, &
      & value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateDataPointDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateDataPointDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointdpobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointlnumberi(parentRegionUserNumber,interfaceUserNumber,fieldUserNumber, &
    & variabletype,fieldsettype,userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointLNumberI)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(interface_type), POINTER :: interface
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateDataPointLNumberI",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL field_user_number_find(fieldusernumber,interface,field,err,error,*999)
        IF(ASSOCIATED(field)) THEN
          CALL field_parametersetupdatedatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
            & err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateDataPointLNumberI")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateDataPointLNumberI",err,error)
    exits("cmfe_Field_ParameterSetUpdateDataPointLNumberI")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointlnumberi
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointlnumberr(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userdatapointnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointLNumberR)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateDataPointLNumberR",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetupdatedatapoint(field,variabletype,fieldsettype,userdatapointnumber,componentnumber,value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateDataPointLNumberR")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateDataPointLNumberR",err,error)
    exits("cmfe_Field_ParameterSetUpdateDataPointLNumberR")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointlnumberr

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatedatapointlobj(field,variableType,fieldSetType,userDataPointNumber,componentNumber, &
      & value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateDataPointLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateDataPointLObj",err,error,*999)

    CALL field_parametersetupdatedatapoint(field%field,variabletype,fieldsettype,userdatapointnumber,componentnumber, &
      & value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateDataPointLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateDataPointLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatedatapointlobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateelementintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateElementIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateElementIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateElementIntgNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateElementIntgNumber",err,error)
    exits("cmfe_Field_ParameterSetUpdateElementIntgNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateelementintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateelementintgobj(field,variableType,fieldSetType,userElementNumber,componentNumber, &
    & value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateElementIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateElementIntgObj",err,error,*999)

    CALL field_parameter_set_update_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateElementIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateElementIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateelementintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateelementspnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateElementSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateElementSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateElementSPNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateElementSPNumber",err,error)
    exits("cmfe_Field_ParameterSetUpdateElementSPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateelementspnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateelementspobj(field,variableType,fieldSetType,userElementNumber,componentNumber, &
    & value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateElementSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateElementSPObj",err,error,*999)

    CALL field_parameter_set_update_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateElementSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateElementSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateelementspobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateelementdpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateElementDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: Value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateElementDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,Value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateElementDPNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateElementDPNumber",err,error)
    exits("cmfe_Field_ParameterSetUpdateElementDPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateelementdpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateelementdpobj(field,variableType,fieldSetType,userElementNumber,componentNumber, &
    & value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateElementDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: VALUE
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateElementDPObj",err,error,*999)

    CALL field_parameter_set_update_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateElementDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateElementDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateelementdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateelementlnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateElementLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateElementLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_element(field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
          & err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateElementLNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateElementLNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateelementlnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateelementlobj(field,variableType,fieldSetType,userElementNumber,componentNumber, &
    & value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateElementLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateElementLObj",err,error,*999)

    CALL field_parameter_set_update_element(field%field,variabletype,fieldsettype,userelementnumber,componentnumber,value, &
      & err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateElementLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateElementLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateelementlobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdateelementdatapointdpobj(field,variableType,fieldSetType,elementNumber,dataPointIndex, &
       & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateElementDataPointDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: dataPointIndex
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateElementDataPointDPObj",err,error,*999)

    CALL field_parametersetupdateelementdatapoint(field%field,variabletype,fieldsettype,elementnumber,&
    & datapointindex,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateElementDataPointDPObj")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateElementDataPointDPObj",err,error)
    exits("cmfe_Field_ParameterSetUpdateElementDataPointDPObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdateelementdatapointdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatefinishnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_finish(field,variabletype,fieldsettype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateFinishNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatefinishobj(field,variableType,fieldSetType,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateFinishObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateFinishObj",err,error,*999)

    CALL field_parameter_set_update_finish(field%field,variabletype,fieldsettype,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateFinishObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatenodeintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & versionnumber,derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateNodeIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateNodeIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_node(field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateNodeIntgNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateNodeIntgNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatenodeintgnumber

  !
  !================================================================================================================================
  !


  SUBROUTINE cmfe_field_parametersetupdatenodeintgobj(field,variableType,fieldSetType,versionNumber,derivativeNumber, &
    & usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateNodeIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateNodeIntgObj",err,error,*999)

    CALL field_parameter_set_update_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber, &
      & usernodenumber,componentnumber, value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateNodeIntgObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateNodeIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatenodeintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatenodespnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & versionnumber,derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateNodeSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateNodeSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_node(field,variabletype,fieldsettype,versionnumber,derivativenumber,usernodenumber, &
          & componentnumber, value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateNodeSPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateNodeSPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatenodespnumber

  !
  !================================================================================================================================
  !


  SUBROUTINE cmfe_field_parametersetupdatenodespobj(field,variableType,fieldSetType,versionNumber,derivativeNumber, &
    & usernodenumber, componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateNodeSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(SP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateNodeSPObj",err,error,*999)

    CALL field_parameter_set_update_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber, &
      & usernodenumber,componentnumber, value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateNodeSPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateNodeSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatenodespobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatenodedpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & versionnumber,derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateNodeDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateNodeDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_node(field,variabletype,fieldsettype,versionnumber,derivativenumber, &
          & usernodenumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateNodeDPNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateNodeDPNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatenodedpnumber

  !
  !================================================================================================================================
  !


  SUBROUTINE cmfe_field_parametersetupdatenodedpobj(field,variableType,fieldSetType,versionNumber,derivativeNumber,userNodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateNodeDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    REAL(DP), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateNodeDPObj",err,error,*999)

    CALL field_parameter_set_update_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber, &
      & usernodenumber,componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateNodeDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateNodeDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatenodedpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatenodelnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & versionnumber,derivativenumber,usernodenumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateNodeLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateNodeLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_node(field,variabletype,fieldsettype,versionnumber,derivativenumber, &
          & usernodenumber,componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateNodeLNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateNodeLNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatenodelnumber

  !
  !================================================================================================================================
  !


  SUBROUTINE cmfe_field_parametersetupdatenodelobj(field,variableType,fieldSetType,versionNumber,derivativeNumber,userNodeNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateNodeLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    LOGICAL, INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateNodeLObj",err,error,*999)

    CALL field_parameter_set_update_node(field%field,variabletype,fieldsettype,versionnumber,derivativenumber, &
      & usernodenumber,componentnumber, value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateNodeLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateNodeLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatenodelobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatelocaldofsdpobj(field,variableType,fieldSetType,values,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateLocalDofsDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    REAL(DP), INTENT(IN) :: values(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateLocalDofsDPObj",err,error,*999)

    CALL field_parameter_set_update_local_dofs(field%field,variabletype,fieldsettype,values,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateLocalDofsDPObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateLocalDofsDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatelocaldofsdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdategausspointintgnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & gausspointnumber,userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateGaussPointIntgNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateGaussPointIntgNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetupdategausspoint(field,variabletype,fieldsettype,gausspointnumber,userelementnumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Field_ParameterSetUpdateGaussPointIntgNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateGaussPointIntgNumber",err,error)
    exits("cmfe_Field_ParameterSetUpdateGaussPointIntgNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdategausspointintgnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdategausspointintgobj(field,variableType,fieldSetType,gaussPointNumber,userElementNumber, &
    & componentnumber, value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateGaussPointIntgObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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(INTG), INTENT(IN) :: value
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateGaussPointIntgObj",err,error,*999)

    CALL field_parametersetupdategausspoint(field%field,variabletype,fieldsettype,gausspointnumber,userelementnumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateGaussPointIntgObj")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateGaussPointIntgObj",err,error)
    exits("cmfe_Field_ParameterSetUpdateGaussPointIntgObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdategausspointintgobj

  !
  !================================================================================================================================
  !

!!\todo Should also think about quadrature schemes?

  SUBROUTINE cmfe_field_parametersetupdategausspointspnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & gausspointnumber,userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateGaussPointSPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateGaussPointSPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetupdategausspoint(field,variabletype,fieldsettype,gausspointnumber,userelementnumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Field_ParameterSetUpdateGaussPointSPNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateGaussPointSPNumber",err,error)
    exits("cmfe_Field_ParameterSetUpdateGaussPointSPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdategausspointspnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdategausspointspobj(field,variableType,fieldSetType,gaussPointNumber,userElementNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateGaussPointSPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateGaussPointSPObj",err,error,*999)

    CALL field_parametersetupdategausspoint(field%field,variabletype,fieldsettype,gausspointnumber,userelementnumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateGaussPointSPObj")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateGaussPointSPObj",err,error)
    exits("cmfe_Field_ParameterSetUpdateGaussPointSPObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdategausspointspobj

  !
  !================================================================================================================================
  !

!!\todo Should also think about quadrature schemes?

  SUBROUTINE cmfe_field_parametersetupdategausspointdpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & gausspointnumber,userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateGaussPointDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateGaussPointDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetupdategausspoint(field,variabletype,fieldsettype,gausspointnumber,userelementnumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Field_ParameterSetUpdateGaussPointDPNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateGaussPointDPNumber",err,error)
    exits("cmfe_Field_ParameterSetUpdateGaussPointDPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdategausspointdpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdategausspointdpobj(field,variableType,fieldSetType,gaussPointNumber,userElementNumber, &
    & componentnumber, value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateGaussPointDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateGaussPointDPObj",err,error,*999)

    CALL field_parametersetupdategausspoint(field%field,variabletype,fieldsettype,gausspointnumber,userelementnumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateGaussPointDPObj")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateGaussPointDPObj",err,error)
    exits("cmfe_Field_ParameterSetUpdateGaussPointDPObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdategausspointdpobj

  !
  !================================================================================================================================
  !

!!\todo Should also think about quadrature schemes?

  SUBROUTINE cmfe_field_parametersetupdategausspointlnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & gausspointnumber,userelementnumber,componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateGaussPointLNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    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
    !Local variables
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateGaussPointLNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parametersetupdategausspoint(field,variabletype,fieldsettype,gausspointnumber,userelementnumber, &
          & componentnumber,value,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Field_ParameterSetUpdateGaussPointLNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetUpdateGaussPointLNumber",err,error)
    exits("cmfe_Field_ParameterSetUpdateGaussPointLNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdategausspointlnumber

  !
  !================================================================================================================================
  !

!!\todo Should also think about quadrature schemes?

  SUBROUTINE cmfe_field_parametersetupdategausspointlobj(field,variableType,fieldSetType,gaussPointNumber,userElementNumber, &
    & componentnumber,value,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateGaussPointLObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: 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
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateGaussPointLObj",err,error,*999)

    CALL field_parametersetupdategausspoint(field%field,variabletype,fieldsettype,gausspointnumber,userelementnumber, &
      & componentnumber,value,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateGaussPointLObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateGaussPointLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdategausspointlobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetinterpolatesinglexidpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & derivativenumber,userelementnumber,xi,values,err)
    !DLLEXPORT(cmfe_Field_ParameterSetInterpolateSingleXiDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    REAL(DP), INTENT(IN) :: xi(:)
    REAL(DP), INTENT(OUT) :: values(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetInterpolateSingleXiDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_interpolate_single_xi(field,variabletype,fieldsettype,derivativenumber,userelementnumber, &
          & xi,values,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetInterpolateSingleXiDPNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetInterpolateSingleXiDPNumber",err,error)
    exits("cmfe_Field_ParameterSetInterpolateSingleXiDPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetinterpolatesinglexidpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetinterpolatesinglexidpobj(field,variableType,fieldSetType,derivativeNumber,userElementNumber, &
    & xi,values,err)
    !DLLEXPORT(cmfe_Field_ParameterSetInterpolateSingleXiDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    REAL(DP), INTENT(IN) :: xi(:)
    REAL(DP), INTENT(OUT) :: values(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetInterpolateSingleXiDPObj",err,error,*999)

    CALL field_parameter_set_interpolate_single_xi(field%field,variabletype,fieldsettype,derivativenumber,userelementnumber,xi, &
      & values,err,error,*999)

    exits("cmfe_Field_ParameterSetInterpolateSingleXiDPObj")
    RETURN
999 errors("cmfe_Field_ParameterSetInterpolateSingleXiDPObj",err,error)
    exits("cmfe_Field_ParameterSetInterpolateSingleXiDPObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetinterpolatesinglexidpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetinterpolatemultiplexidpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & derivativenumber,userelementnumber,xi,values,err)
    !DLLEXPORT(cmfe_Field_ParameterSetInterpolateMultipleXiDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    REAL(DP), INTENT(IN) :: xi(:,:)
    REAL(DP), INTENT(OUT) :: values(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetInterpolateMultipleXiDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_interpolate_multiple_xi(field,variabletype,fieldsettype,derivativenumber,userelementnumber, &
          & xi,values,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetInterpolateMultipleXiDPNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetInterpolateMultipleXiDPNumber",err,error)
    exits("cmfe_Field_ParameterSetInterpolateMultipleXiDPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetinterpolatemultiplexidpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetinterpolatemultiplexidpobj(field,variableType,fieldSetType,derivativeNumber,userElementNumber, &
    & xi,values,err)
    !DLLEXPORT(cmfe_Field_ParameterSetInterpolateMultipleXiDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    REAL(DP), INTENT(IN) :: xi(:,:)
    REAL(DP), INTENT(OUT) :: values(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetInterpolateMultipleXiDPObj",err,error,*999)

    CALL field_parameter_set_interpolate_multiple_xi(field%field,variabletype,fieldsettype,derivativenumber,userelementnumber,xi, &
      & values,err,error,*999)

    exits("cmfe_Field_ParameterSetInterpolateMultipleXiDPObj")
    RETURN
999 errors("cmfe_Field_ParameterSetInterpolateMultipleXiDPObj",err,error)
    exits("cmfe_Field_ParameterSetInterpolateMultipleXiDPObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetinterpolatemultiplexidpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetinterpolatesinglegaussdpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & derivativenumber,userelementnumber,quadraturescheme,gausspoint,values,err)
    !DLLEXPORT(cmfe_Field_ParameterSetInterpolateSingleGaussDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: quadratureScheme
    INTEGER(INTG), INTENT(IN) :: GaussPoint
    REAL(DP), INTENT(OUT) :: values(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetInterpolateSingleGaussDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_interpolate_single_gauss(field,variabletype,fieldsettype,derivativenumber,userelementnumber, &
          & quadraturescheme,gausspoint,values,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetInterpolateSingleGaussDPNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetInterpolateSingleGaussDPNumber",err,error)
    exits("cmfe_Field_ParameterSetInterpolateSingleGaussDPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetinterpolatesinglegaussdpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetinterpolatesinglegaussdpobj(field,variableType,fieldSetType,derivativeNumber, &
    & userelementnumber,quadraturescheme, gausspoint,values,err)
    !DLLEXPORT(cmfe_Field_ParameterSetInterpolateSingleGaussDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: quadratureScheme
    INTEGER(INTG), INTENT(IN) :: GaussPoint
    REAL(DP), INTENT(OUT) :: values(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetInterpolateSingleGaussDPObj",err,error,*999)

    CALL field_parameter_set_interpolate_single_gauss(field%field,variabletype,fieldsettype,derivativenumber,userelementnumber, &
      & quadraturescheme,gausspoint,values,err,error,*999)

    exits("cmfe_Field_ParameterSetInterpolateSingleGaussDPObj")
    RETURN
999 errors("cmfe_Field_ParameterSetInterpolateSingleGaussDPObj",err,error)
    exits("cmfe_Field_ParameterSetInterpolateSingleGaussDPObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetinterpolatesinglegaussdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetinterpolatemultiplegaussdpnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType, &
    & derivativenumber,userelementnumber,quadraturescheme,gausspoints,values,err)
    !DLLEXPORT(cmfe_Field_ParameterSetInterpolateMultipleGaussDPNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: quadratureScheme
    INTEGER(INTG), INTENT(IN) :: GaussPoints(:)
    REAL(DP), INTENT(OUT) :: values(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetInterpolateMultipleGaussDPNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_interpolate_multiple_gauss(field,variabletype,fieldsettype,derivativenumber,userelementnumber, &
          & quadraturescheme,gausspoints,values,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetInterpolateMultipleGaussDPNumber")
    RETURN
999 errors("cmfe_Field_ParameterSetInterpolateMultipleGaussDPNumber",err,error)
    exits("cmfe_Field_ParameterSetInterpolateMultipleGaussDPNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetinterpolatemultiplegaussdpnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetinterpolatemultiplegaussdpobj(field,variableType,fieldSetType,derivativeNumber, &
    & userelementnumber,quadraturescheme, gausspoints,values,err)
    !DLLEXPORT(cmfe_Field_ParameterSetInterpolateMultipleGaussDPObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userElementNumber
    INTEGER(INTG), INTENT(IN) :: quadratureScheme
    INTEGER(INTG), INTENT(IN) :: GaussPoints(:)
    REAL(DP), INTENT(OUT) :: values(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetInterpolateMultipleGaussDPObj",err,error,*999)

    CALL field_parameter_set_interpolate_multiple_gauss(field%field,variabletype,fieldsettype,derivativenumber,userelementnumber, &
      & quadraturescheme,gausspoints,values,err,error,*999)

    exits("cmfe_Field_ParameterSetInterpolateMultipleGaussDPObj")
    RETURN
999 errors("cmfe_Field_ParameterSetInterpolateMultipleGaussDPObj",err,error)
    exits("cmfe_Field_ParameterSetInterpolateMultipleGaussDPObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetinterpolatemultiplegaussdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatestartnumber(regionUserNumber,fieldUserNumber,variableType,fieldSetType,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParameterSetUpdateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_parameter_set_update_start(field,variabletype,fieldsettype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ParameterSetUpdateStartNumber")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parametersetupdatestartobj(field,variableType,fieldSetType,err)
    !DLLEXPORT(cmfe_Field_ParameterSetUpdateStartObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: fieldSetType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetUpdateStartObj",err,error,*999)

    CALL field_parameter_set_update_start(field%field,variabletype,fieldsettype,err,error,*999)

    exits("cmfe_Field_ParameterSetUpdateStartObj")
    RETURN
999 errorsexits("cmfe_Field_ParameterSetUpdateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parametersetupdatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parameterstofieldparameterscomponentcopynumber(fromRegionUserNumber,fromFieldUserNumber,fromVariableType, &
      & fromparametersettype, fromcomponentnumber,toregionusernumber,tofieldusernumber,tovariabletype,toparametersettype, &
      & tocomponentnumber,err)
    !DLLEXPORT(cmfe_Field_ParametersToFieldParametersComponentCopyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: fromRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: fromFieldUserNumber
    INTEGER(INTG), INTENT(IN) :: fromVariableType
    INTEGER(INTG), INTENT(IN) :: fromParameterSetType
    INTEGER(INTG), INTENT(IN) :: fromComponentNumber
    INTEGER(INTG), INTENT(IN) :: toRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: toFieldUserNumber
    INTEGER(INTG), INTENT(IN) :: toVariableType
    INTEGER(INTG), INTENT(IN) :: toParameterSetType
    INTEGER(INTG), INTENT(IN) :: toComponentNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: FROM_REGION
    TYPE(field_type), POINTER :: FROM_FIELD
    TYPE(region_type), POINTER :: TO_REGION
    TYPE(field_type), POINTER :: TO_FIELD
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ParametersToFieldParametersComponentCopyNumber",err,error,*999)

    NULLIFY(from_region)
    NULLIFY(from_field)
    NULLIFY(to_region)
    NULLIFY(to_field)
    CALL region_user_number_find(fromregionusernumber,from_region,err,error,*999)
    IF(ASSOCIATED(from_region)) THEN
      CALL field_user_number_find(fromfieldusernumber,from_region,from_field,err,error,*999)
      IF(ASSOCIATED(from_field)) THEN
        CALL region_user_number_find(toregionusernumber,to_region,err,error,*999)
        IF(ASSOCIATED(to_region)) THEN
          CALL field_user_number_find(tofieldusernumber,to_region,to_field,err,error,*999)
          IF(ASSOCIATED(to_field)) THEN
            CALL field_parameterstofieldparameterscopy(from_field,fromvariabletype,fromparametersettype, &
              & fromcomponentnumber,to_field,tovariabletype,toparametersettype,tocomponentnumber,err,error,*999)
          ELSE
            localerror="A field with an user number of "//trim(numbertovstring(tofieldusernumber,"*",err,error))// &
              & " does not exist on region number "//trim(numbertovstring(toregionusernumber,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          END IF
        ELSE
          localerror="A region with an user number of "//trim(numbertovstring(toregionusernumber,"*",err,error))// &
            & " does not exist."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fromfieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(fromregionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(fromregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    RETURN
999 errors("cmfe_Field_ParametersToFieldParametersComponentCopyNumber",err,error)
    exits("cmfe_Field_ParametersToFieldParametersComponentCopyNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parameterstofieldparameterscomponentcopynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_parameterstofieldparameterscomponentcopyobj(fromField,fromVariableType,fromParameterSetType, &
    & fromcomponentnumber,tofield,tovariabletype,toparametersettype,tocomponentnumber,err)
    !DLLEXPORT(cmfe_Field_ParametersToFieldParametersComponentCopyObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: fromField
    INTEGER(INTG), INTENT(IN) :: fromVariableType
    INTEGER(INTG), INTENT(IN) :: fromParameterSetType
    INTEGER(INTG), INTENT(IN) :: fromComponentNumber
    TYPE(cmfe_fieldtype), INTENT(IN) :: toField
    INTEGER(INTG), INTENT(IN) :: toVariableType
    INTEGER(INTG), INTENT(IN) :: toParameterSetType
    INTEGER(INTG), INTENT(IN) :: toComponentNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParametersToFieldParametersComponentCopyObj",err,error,*999)

    CALL field_parameterstofieldparameterscopy(fromfield%field,fromvariabletype,fromparametersettype, &
      & fromcomponentnumber,tofield%field,tovariabletype,toparametersettype,tocomponentnumber,err,error,*999)

    RETURN
999 errors("cmfe_Field_ParametersToFieldParametersComponentCopyObj",err,error)
    exits("cmfe_Field_ParametersToFieldParametersComponentCopyObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_parameterstofieldparameterscomponentcopyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_scalingtypegetnumber(regionUserNumber,fieldUserNumber,scalingType,err)
    !DLLEXPORT(cmfe_Field_ScalingTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: scalingType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ScalingTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_scaling_type_get(field,scalingtype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ScalingTypeGetNumber")
    RETURN
999 errorsexits("cmfe_Field_ScalingTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_scalingtypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_scalingtypegetobj(field,scalingType,err)
    !DLLEXPORT(cmfe_Field_ScalingTypeGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(OUT) :: scalingType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ScalingTypeGetObj",err,error,*999)

    CALL field_scaling_type_get(field%field,scalingtype,err,error,*999)

    exits("cmfe_Field_ScalingTypeGetObj")
    RETURN
999 errorsexits("cmfe_Field_ScalingTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_scalingtypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_scalingtypesetnumber(regionUserNumber,fieldUserNumber,scalingType,err)
    !DLLEXPORT(cmfe_Field_ScalingTypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: scalingType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_ScalingTypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_scaling_type_set(field,scalingtype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_ScalingTypeSetNumber")
    RETURN
999 errorsexits("cmfe_Field_ScalingTypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_scalingtypesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_scalingtypesetobj(field,scalingType,err)
    !DLLEXPORT(cmfe_Field_ScalingTypeSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: scalingType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ScalingTypeSetObj",err,error,*999)

    CALL field_scaling_type_set(field%field,scalingtype,err,error,*999)

    exits("cmfe_Field_ScalingTypeSetObj")
    RETURN
999 errorsexits("cmfe_Field_ScalingTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_scalingtypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_typegetnumber(regionUserNumber,fieldUserNumber,fieldType,err)
    !DLLEXPORT(cmfe_Field_TypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: fieldType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_TypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_type_get(field,fieldtype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_TypeGetNumber")
    RETURN
999 errorsexits("cmfe_Field_TypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_typegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_typegetobj(field,fieldType,err)
    !DLLEXPORT(cmfe_Field_TypeGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(OUT) :: fieldType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_TypeGetObj",err,error,*999)

    CALL field_type_get(field%field,fieldtype,err,error,*999)

    exits("cmfe_Field_TypeGetObj")
    RETURN
999 errorsexits("cmfe_Field_TypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_typegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_typesetnumber(regionUserNumber,fieldUserNumber,fieldType,err)
    !DLLEXPORT(cmfe_Field_TypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_TypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_type_set(field,fieldtype,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_TypeSetNumber")
    RETURN
999 errorsexits("cmfe_Field_TypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_typesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_typesetobj(field,fieldType,err)
    !DLLEXPORT(cmfe_Field_TypeSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: fieldType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_TypeSetObj",err,error,*999)

    CALL field_type_set(field%field,fieldtype,err,error,*999)

    exits("cmfe_Field_TypeSetObj")
    RETURN
999 errorsexits("cmfe_Field_TypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_typesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variablelabelgetcnumber(regionUserNumber,fieldUserNumber,variableType,label,err)
    !DLLEXPORT(cmfe_Field_VariableLabelGetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_VariableLabelGetCNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_variable_label_get(field,variabletype,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_VariableLabelGetCNumber")
    RETURN
999 errorsexits("cmfe_Field_VariableLabelGetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variablelabelgetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variablelabelgetcobj(field,variableType,label,err)
    !DLLEXPORT(cmfe_Field_VariableLabelGetCObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_VariableLabelGetCObj",err,error,*999)

    CALL field_variable_label_get(field%field,variabletype,label,err,error,*999)

    exits("cmfe_Field_VariableLabelGetCObj")
    RETURN
999 errorsexits("cmfe_Field_VariableLabelGetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variablelabelgetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variablelabelgetvsnumber(regionUserNumber,fieldUserNumber,variableType,label,err)
    !DLLEXPORT(cmfe_Field_VariableLabelGetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_VariableLabelGetVSNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_variable_label_get(field,variabletype,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_VariableLabelGetVSNumber")
    RETURN
999 errorsexits("cmfe_Field_VariableLabelGetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variablelabelgetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variablelabelgetvsobj(field,variableType,label,err)
    !DLLEXPORT(cmfe_Field_VariableLabelGetVSObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_VariableLabelGetVSObj",err,error,*999)

    CALL field_variable_label_get(field%field,variabletype,label,err,error,*999)

    exits("cmfe_Field_VariableLabelGetVSObj")
    RETURN
999 errorsexits("cmfe_Field_VariableLabelGetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variablelabelgetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variablelabelsetcnumber(regionUserNumber,fieldUserNumber,variableType,label,err)
    !DLLEXPORT(cmfe_Field_VariableLabelSetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_VariableLabelSetCNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_variable_label_set(field,variabletype,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_VariableLabelSetCNumber")
    RETURN
999 errorsexits("cmfe_Field_VariableLabelSetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variablelabelsetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variablelabelsetcobj(field,variableType,label,err)
    !DLLEXPORT(cmfe_Field_VariableLabelSetCObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_VariableLabelSetCObj",err,error,*999)

    CALL field_variable_label_set(field%field,variabletype,label,err,error,*999)

    exits("cmfe_Field_VariableLabelSetCObj")
    RETURN
999 errorsexits("cmfe_Field_VariableLabelSetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variablelabelsetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variablelabelsetvsnumber(regionUserNumber,fieldUserNumber,variableType,label,err)
    !DLLEXPORT(cmfe_Field_VariableLabelSetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_VariableLabelSetVSNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_variable_label_set(field,variabletype,label,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_VariableLabelSetVSNumber")
    RETURN
999 errorsexits("cmfe_Field_VariableLabelSetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variablelabelsetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variablelabelsetvsobj(field,variableType,label,err)
    !DLLEXPORT(cmfe_Field_VariableLabelSetVSObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_VariableLabelSetVSObj",err,error,*999)

    CALL field_variable_label_set(field%field,variabletype,label,err,error,*999)

    exits("cmfe_Field_VariableLabelSetVSObj")
    RETURN
999 errorsexits("cmfe_Field_VariableLabelSetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variablelabelsetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variabletypesgetnumber(regionUserNumber,fieldUserNumber,variableTypes,err)
    !DLLEXPORT(cmfe_Field_VariableTypesGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: variableTypes(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_VariableTypesGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_variable_types_get(field,variabletypes,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_VariableTypesGetNumber")
    RETURN
999 errorsexits("cmfe_Field_VariableTypesGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variabletypesgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variabletypesgetobj(field,variableTypes,err)
    !DLLEXPORT(cmfe_Field_VariableTypesGetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(OUT) :: variableTypes(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_VariableTypesGetObj",err,error,*999)

    CALL field_variable_types_get(field%field,variabletypes,err,error,*999)

    exits("cmfe_Field_VariableTypesGetObj")
    RETURN
999 errorsexits("cmfe_Field_VariableTypesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variabletypesgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variabletypessetnumber(regionUserNumber,fieldUserNumber,variableTypes,err)
    !DLLEXPORT(cmfe_Field_VariableTypesSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableTypes(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Field_VariableTypesSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL field_variable_types_set(field,variabletypes,err,error,*999)
      ELSE
        localerror="A field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Field_VariableTypesSetNumber")
    RETURN
999 errorsexits("cmfe_Field_VariableTypesSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variabletypessetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_field_variabletypessetobj(field,variableTypes,err)
    !DLLEXPORT(cmfe_Field_VariableTypesSetObj)

    !Argument variables
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableTypes(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_VariableTypesSetObj",err,error,*999)

    CALL field_variable_types_set(field%field,variabletypes,err,error,*999)

    exits("cmfe_Field_VariableTypesSetObj")
    RETURN
999 errorsexits("cmfe_Field_VariableTypesSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_field_variabletypessetobj

!!==================================================================================================================================
!!
!! FIELD_IO_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_fields_elementsexportccobj(fields,fileName,method,err)
    !DLLEXPORT(cmfe_Fields_ElementsExportCCObj)

    !Argument variables
    TYPE(cmfe_fieldstype), INTENT(INOUT) :: fields
    CHARACTER(LEN=*), INTENT(IN) :: fileName
    CHARACTER(LEN=*), INTENT(IN):: method
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(varying_string) :: VFileName
    TYPE(varying_string) :: VMethod
    INTEGER(INTG) :: FileNameLength
    INTEGER(INTG) :: MethodLength

    enters("cmfe_Fields_ElementsExportCCObj",err,error,*999)

    filenamelength = len_trim(filename)
    vfilename = filename(1:filenamelength)
    methodlength = len_trim(method)
    vmethod = method(1:methodlength)

    CALL field_io_elements_export(fields%fields,vfilename,vmethod,err,error,*999)

    exits("cmfe_Fields_ElementsExportCCObj")
    RETURN
999 errorsexits("cmfe_Fields_ElementsExportCCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_elementsexportccobj

  !
  !================================================================================================================================
  !


  SUBROUTINE cmfe_fields_elementsexportvscobj(fields,fileName,method,err)
    !DLLEXPORT(cmfe_Fields_ElementsExportVSCObj)

    !Argument variables
    TYPE(cmfe_fieldstype), INTENT(INOUT) :: fields
    TYPE(varying_string), INTENT(IN) :: fileName
    CHARACTER(LEN=*), INTENT(IN):: method
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(varying_string) :: VMethod
    INTEGER(INTG) :: MethodLength

    enters("cmfe_Fields_ElementsExportVSCObj",err,error,*999)

    methodlength = len_trim(method)
    vmethod = method(1:methodlength)

    CALL field_io_elements_export(fields%fields,filename,vmethod,err,error,*999)

    exits("cmfe_Fields_ElementsExportVSCObj")
    RETURN
999 errorsexits("cmfe_Fields_ElementsExportVSCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_elementsexportvscobj

  !
  !================================================================================================================================
  !


  SUBROUTINE cmfe_fields_elementsexportcvsobj(fields,fileName,method,err)
    !DLLEXPORT(cmfe_Fields_ElementsExportCVSObj)

    !Argument variables
    TYPE(cmfe_fieldstype), INTENT(INOUT) :: fields
    CHARACTER(LEN=*), INTENT(IN) :: fileName
    TYPE(varying_string), INTENT(IN):: method
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(varying_string) :: VFileName
    INTEGER(INTG) :: FileNameLength

    enters("cmfe_Fields_ElementsExportCVSObj",err,error,*999)

    filenamelength = len_trim(filename)
    vfilename = filename(1:filenamelength)

    CALL field_io_elements_export(fields%fields,vfilename,method,err,error,*999)

    exits("cmfe_Fields_ElementsExportCVSObj")
    RETURN
999 errorsexits("cmfe_Fields_ElementsExportCVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_elementsexportcvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fields_elementsexportvsvsobj(fields,fileName,method,err)
    !DLLEXPORT(cmfe_Fields_ElementsExportVSVSObj)

    !Argument variables
    TYPE(cmfe_fieldstype), INTENT(INOUT) :: fields
    TYPE(varying_string), INTENT(IN) :: fileName
    TYPE(varying_string), INTENT(IN):: method
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Fields_ElementsExportVSVSObj",err,error,*999)

    CALL field_io_elements_export(fields%fields,filename,method,err,error,*999)

    exits("cmfe_Fields_ElementsExportVSVSObj")
    RETURN
999 errorsexits("cmfe_FieldIOElementsExportVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_elementsexportvsvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fields_nodesexportccobj(fields,fileName,method,err)
    !DLLEXPORT(cmfe_Fields_NodesExportCCObj)

    !Argument variables
    TYPE(cmfe_fieldstype), INTENT(INOUT) :: fields
    CHARACTER(LEN=*), INTENT(IN) :: fileName
    CHARACTER(LEN=*), INTENT(IN):: method
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(varying_string) :: VFileName
    TYPE(varying_string) :: VMethod
    INTEGER(INTG) :: FileNameLength
    INTEGER(INTG) :: MethodLength

    enters("cmfe_Fields_NodesExportCCObj",err,error,*999)

    filenamelength = len_trim(filename)
    vfilename = filename(1:filenamelength)
    methodlength = len_trim(method)
    vmethod = method(1:methodlength)

    CALL field_io_nodes_export(fields%fields,vfilename,vmethod,err,error,*999)

    exits("cmfe_Fields_NodesExportCCObj")
    RETURN
999 errorsexits("cmfe_Fields_NodesExportCCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_nodesexportccobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fields_nodesexportvscobj(fields,fileName,method,err)
    !DLLEXPORT(cmfe_Fields_NodesExportVSCObj)

    !Argument variables
    TYPE(cmfe_fieldstype), INTENT(INOUT) :: fields
    TYPE(varying_string), INTENT(IN) :: fileName
    CHARACTER(LEN=*), INTENT(IN):: method
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(varying_string) :: VMethod
    INTEGER(INTG) :: MethodLength

    enters("cmfe_Fields_NodesExportVSCObj",err,error,*999)

    methodlength = len_trim(method)
    vmethod = method(1:methodlength)

    CALL field_io_nodes_export(fields%fields,filename,vmethod,err,error,*999)

    exits("cmfe_Fields_NodesExportVSCObj")
    RETURN
999 errorsexits("cmfe_Fields_NodesExportVSCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_nodesexportvscobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fields_nodesexportcvsobj(fields,fileName,method,err)
    !DLLEXPORT(cmfe_Fields_NodesExportCVSObj)

    !Argument variables
    TYPE(cmfe_fieldstype), INTENT(INOUT) :: fields
    CHARACTER(LEN=*), INTENT(IN) :: fileName
    TYPE(varying_string), INTENT(IN):: method
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(varying_string) :: VFileName
    INTEGER(INTG) :: FileNameLength

    enters("cmfe_Fields_NodesExportCVSObj",err,error,*999)

    filenamelength = len_trim(filename)
    vfilename = filename(1:filenamelength)

    CALL field_io_nodes_export(fields%fields,vfilename,method,err,error,*999)

    exits("cmfe_Fields_NodesExportCVSObj")
    RETURN
999 errorsexits("cmfe_Fields_NodesExportCVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_nodesexportcvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fields_nodesexportvsvsobj(fields,fileName,method,err)
    !DLLEXPORT(cmfe_Fields_NodesExportVSVSObj)

    !Argument variables
    TYPE(cmfe_fieldstype), INTENT(INOUT) :: fields
    TYPE(varying_string), INTENT(IN) :: fileName
    TYPE(varying_string), INTENT(IN):: method
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Fields_NodesExportVSVSObj",err,error,*999)

    CALL field_io_nodes_export(fields%fields,filename,method,err,error,*999)

    exits("cmfe_Fields_NodesExportVSVSObj")
    RETURN
999 errorsexits("cmfe_Fields_NodesExportVSVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fields_nodesexportvsvsobj

!!==================================================================================================================================
!!
!! GENERATED_MESH_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_generatedmesh_basisgetnumber(regionUserNumber,generatedMeshUserNumber,basisUserNumbers,err)
    !DLLEXPORT(cmfe_GeneratedMesh_BasisGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(INOUT) :: basisUserNumbers(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_ptr_type), POINTER :: BASES(:)
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: basis_idx,NumBases

    enters("cmfe_GeneratedMesh_BasisGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    NULLIFY(bases)

    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_basis_get(generated_mesh,bases,err,error,*999)
        IF(ASSOCIATED(bases)) THEN
          numbases=SIZE(bases)
          IF(SIZE(basisusernumbers)<numbases) THEN
            localerror="The basis user numbers array must have a size of at least "// &
                & trim(numbertovstring(numbases,"*",err,error))// &
                & ". However, it has a size of " &
                & //trim(numbertovstring(SIZE(basisusernumbers),"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          END IF
          DO basis_idx=1,numbases
            IF(ASSOCIATED(bases(basis_idx)%PTR)) THEN
              basisusernumbers(basis_idx)=bases(basis_idx)%PTR%USER_NUMBER
            ELSE
              localerror="The basis with index "//trim(numbertovstring(basis_idx,"*",err,error))// &
                & " is not associated for the generated mesh with a user number of "// &
                & trim(numbertovstring(generatedmeshusernumber,"*",err,error))//"."
              CALL flagerror(localerror,err,error,*999)
            END IF
          END DO
        ELSE
          localerror="The bases are not associated for the generated mesh with a user number of "// &
            & trim(numbertovstring(generatedmeshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_BasisGetNumber")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_BasisGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_basisgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_basisgetobj(generatedMesh,bases,err)
    !DLLEXPORT(cmfe_GeneratedMesh_BasisGetObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    TYPE(cmfe_basistype), INTENT(INOUT) :: bases(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_ptr_type), POINTER :: BASIS_PTRS(:)
    INTEGER(INTG) :: basis_idx,NumBases
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_BasisGetObj",err,error,*999)

    NULLIFY(basis_ptrs)

    CALL generated_mesh_basis_get(generatedmesh%generatedMesh,basis_ptrs,err,error,*999)
    IF(ASSOCIATED(basis_ptrs)) THEN
      numbases=SIZE(basis_ptrs)
      IF(SIZE(bases)<numbases) THEN
        localerror="The bases array must have a size of at least "// &
            & trim(numbertovstring(numbases,"*",err,error))// &
            & ". However, it has a size of " &
            & //trim(numbertovstring(SIZE(bases),"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
      DO basis_idx=1,numbases
        bases(basis_idx)%basis=>basis_ptrs(basis_idx)%PTR
      END DO
    ELSE
      localerror="The bases are not associated for the generated mesh."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_BasisGetObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_BasisGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_basisgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_basissetnumber0(regionUserNumber,generatedMeshUserNumber,basisUserNumber,err)
    !DLLEXPORT(cmfe_GeneratedMesh_BasisSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(IN) :: basisUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_ptr_type), POINTER :: BASES(:)
    TYPE(basis_type), POINTER :: BASIS
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_BasisSetNumber0",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    NULLIFY(basis)

    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL basis_user_number_find(basisusernumber,basis,err,error,*999)
        IF(ASSOCIATED(basis)) THEN
          ALLOCATE(bases(1),stat=err)
          IF(err/=0) CALL flagerror("Could not allocate bases.",err,error,*999)
          bases(1)%PTR=>basis
          CALL generated_mesh_basis_set(generated_mesh,bases,err,error,*999)
        ELSE
          localerror="A basis with an user number of "//trim(numbertovstring(basisusernumber,"*",err,error))// &
            & " does not exist."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_BasisSetNumber0")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_BasisSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_basissetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_basissetnumber1(regionUserNumber,generatedMeshUserNumber,basisUserNumbers,err)
    !DLLEXPORT(cmfe_GeneratedMesh_BasisSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(IN) :: basisUserNumbers(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_ptr_type), POINTER :: BASES(:)
    TYPE(basis_type), POINTER :: BASIS
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: basis_idx,NumBases

    enters("cmfe_GeneratedMesh_BasisSetNumber1",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    NULLIFY(bases)

    numbases=SIZE(basisusernumbers)
    ALLOCATE(bases(numbases),stat=err)
    IF(err/=0) CALL flagerror("Could not allocate bases.",err,error,*999)

    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        DO basis_idx=1,numbases
          NULLIFY(basis)
          CALL basis_user_number_find(basisusernumbers(basis_idx),basis,err,error,*999)
          IF(ASSOCIATED(basis)) THEN
            bases(basis_idx)%PTR=>basis
          ELSE
            localerror="A basis with an user number of "//trim(numbertovstring(basisusernumbers(basis_idx),"*",err,error))// &
              & " does not exist."
            CALL flagerror(localerror,err,error,*999)
          END IF
        END DO
        CALL generated_mesh_basis_set(generated_mesh,bases,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_BasisSetNumber1")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_BasisSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_basissetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_basissetobj0(generatedMesh,basis,err)
    !DLLEXPORT(cmfe_GeneratedMesh_BasisSetObj0)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_BasisSetObj0",err,error,*999)

    CALL cmfe_generatedmesh_basissetobj1(generatedmesh,[basis],err)

    exits("cmfe_GeneratedMesh_BasisSetObj0")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_BasisSetObj0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_basissetobj0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_basissetobj1(generatedMesh,bases,err)
    !DLLEXPORT(cmfe_GeneratedMesh_BasisSetObj1)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    TYPE(cmfe_basistype), INTENT(IN) :: bases(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    INTEGER(INTG) :: basis_idx
    TYPE(basis_ptr_type), ALLOCATABLE :: BASIS_PTRS(:)
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_BasisSetObj1",err,error,*999)

    ALLOCATE(basis_ptrs(SIZE(bases,1)),stat=err)
    IF(err/=0) CALL flagerror("Could not allocate bases.",err,error,*999)
    DO basis_idx=1,SIZE(bases,1)
      IF(ASSOCIATED(bases(basis_idx)%basis)) THEN
        basis_ptrs(basis_idx)%PTR=>bases(basis_idx)%basis
      ELSE
        localerror="The basis for index "//trim(numbertovstring(basis_idx,"*",err,error))//" is not associated."
        CALL flagerror(localerror,err,error,*999)
      END IF
    END DO

    CALL generated_mesh_basis_set(generatedmesh%generatedMesh,basis_ptrs,err,error,*999)

    exits("cmfe_GeneratedMesh_BasisSetObj1")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_BasisSetObj1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_basissetobj1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_basevectorssetnumber(regionUserNumber,generatedMeshUserNumber,baseVectors,err)
    !DLLEXPORT(cmfe_GeneratedMesh_BaseVectorsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    REAL(DP), INTENT(IN) :: baseVectors(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_BaseVectorsSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_base_vectors_set(generated_mesh,basevectors,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_BaseVectorsSetNumber")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_BaseVectorsSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_basevectorssetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_basevectorssetobj(generatedMesh,baseVectors,err)
    !DLLEXPORT(cmfe_GeneratedMesh_BaseVectorsSetObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    REAL(DP), INTENT(IN) :: baseVectors(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_BaseVectorsSetObj",err,error,*999)

    CALL generated_mesh_base_vectors_set(generatedmesh%generatedMesh,basevectors,err,error,*999)

    exits("cmfe_GeneratedMesh_BaseVectorsSetObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_BaseVectorsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_basevectorssetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_createfinishnumber(regionUserNumber,generatedMeshUserNumber,meshUserNumber,err)
    !DLLEXPORT(cmfe_GeneratedMesh_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_CreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_create_finish(generated_mesh,meshusernumber,mesh,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Generated Mesh Create')
#endif

    exits("cmfe_GeneratedMesh_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_createfinishobj(generatedMesh,meshUserNumber,mesh,err)
    !DLLEXPORT(cmfe_GeneratedMesh_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    TYPE(cmfe_meshtype), INTENT(INOUT) :: mesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_CreateFinishObj",err,error,*999)

    CALL generated_mesh_create_finish(generatedmesh%generatedMesh,meshusernumber,mesh%mesh,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('Generated Mesh Create')
#endif

    exits("cmfe_GeneratedMesh_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_createstartnumber(generatedMeshUserNumber,regionUserNumber,err)
    !DLLEXPORT(cmfe_GeneratedMesh_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_CreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Generated Mesh Create')
#endif

    NULLIFY(region)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_create_start(generatedmeshusernumber,region,generated_mesh,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_createstartinterfaceobj(generatedMeshUserNumber,interface,generatedMesh,err)
    !DLLEXPORT(cmfe_GeneratedMesh_CreateStartInterfaceObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    TYPE(cmfe_interfacetype), INTENT(INOUT) :: interface
    TYPE(cmfe_generatedmeshtype), INTENT(INOUT) :: generatedMesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_CreateStartInterfaceObj",err,error,*999)

    CALL generated_mesh_create_start(generatedmeshusernumber,interface%interface,generatedmesh%generatedMesh,err,error,*999)

    exits("cmfe_GeneratedMesh_CreateStartInterfaceObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_CreateStartInterfaceObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_createstartinterfaceobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_createstartregionobj(generatedMeshUserNumber,region,generatedMesh,err)
    !DLLEXPORT(cmfe_GeneratedMesh_CreateStartRegionObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    TYPE(cmfe_regiontype), INTENT(INOUT) :: region
    TYPE(cmfe_generatedmeshtype), INTENT(INOUT) :: generatedMesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_CreateStartRegionObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Generated Mesh Create')
#endif

    CALL generated_mesh_create_start(generatedmeshusernumber,region%region,generatedmesh%generatedMesh,err,error,*999)

    exits("cmfe_GeneratedMesh_CreateStartRegionObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_CreateStartRegionObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_createstartregionobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_destroynumber(regionUserNumber,generatedMeshUserNumber,err)
    !DLLEXPORT(cmfe_GeneratedMesh_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_DestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_destroy(generated_mesh,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_DestroyNumber")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_destroyobj(generatedMesh,err)
    !DLLEXPORT(cmfe_GeneratedMesh_DestroyObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(INOUT) :: generatedMesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_DestroyObj",err,error,*999)

    CALL generated_mesh_destroy(generatedmesh%generatedMesh,err,error,*999)

    exits("cmfe_GeneratedMesh_DestroyObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_destroyobj
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_extentgetnumber(regionUserNumber,generatedMeshUserNumber,extent,err)
    !DLLEXPORT(cmfe_GeneratedMesh_ExtentGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    REAL(DP), INTENT(OUT) :: extent(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_ExtentGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_extent_get(generated_mesh,extent,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_ExtentGetNumber")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_ExtentGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_extentgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_extentgetobj(generatedMesh,extent,err)
    !DLLEXPORT(cmfe_GeneratedMesh_ExtentGetObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    REAL(DP), INTENT(OUT) :: extent(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_ExtentGetObj",err,error,*999)

    CALL generated_mesh_extent_get(generatedmesh%generatedMesh,extent,err,error,*999)

    exits("cmfe_GeneratedMesh_ExtentGetObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_ExtentGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_extentgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_extentsetnumber(regionUserNumber,generatedMeshUserNumber,extent,err)
    !DLLEXPORT(cmfe_GeneratedMesh_ExtentSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    REAL(DP), INTENT(IN) :: extent(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_ExtentSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_extent_set(generated_mesh,extent,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_ExtentSetNumber")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_ExtentSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_extentsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_extentsetobj(generatedMesh,extent,err)
    !DLLEXPORT(cmfe_GeneratedMesh_ExtentSetObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    REAL(DP), INTENT(IN) :: extent(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_ExtentSetObj",err,error,*999)

    CALL generated_mesh_extent_set(generatedmesh%generatedMesh,extent,err,error,*999)

    exits("cmfe_GeneratedMesh_ExtentSetObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_ExtentSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_extentsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_numberofelementsgetnumber(regionUserNumber,generatedMeshUserNumber,numberOfElements,err)
    !DLLEXPORT(cmfe_GeneratedMesh_NumberOfElementsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfElements(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_NumberOfElementsGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_number_of_elements_get(generated_mesh,numberofelements,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_NumberOfElementsGetNumber")
    RETURN
999 errors("cmfe_GeneratedMesh_NumberOfElementsGetNumber",err,error)
    exits("cmfe_GeneratedMesh_NumberOfElementsGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_numberofelementsgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_numberofelementsgetobj(generatedMesh,numberOfElements,err)
    !DLLEXPORT(cmfe_GeneratedMesh_NumberOfElementsGetObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    INTEGER(INTG), INTENT(OUT) :: numberOfElements(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_NumberOfElementsGetObj",err,error,*999)

    CALL generated_mesh_number_of_elements_get(generatedmesh%generatedMesh,numberofelements,err,error,*999)

    exits("cmfe_GeneratedMesh_NumberOfElementsGetObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_NumberOfElementsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_numberofelementsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_numberofelementssetnumber(regionUserNumber,generatedMeshUserNumber,numberOfElements,err)
    !DLLEXPORT(cmfe_GeneratedMesh_NumberOfElementsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(IN) :: numberOfElements(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_NumberOfElementsSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_number_of_elements_set(generated_mesh,numberofelements,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_NumberOfElementsSetNumber")
    RETURN
999 errors("cmfe_GeneratedMesh_NumberOfElementsSetNumber",err,error)
    exits("cmfe_GeneratedMesh_NumberOfElementsSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_numberofelementssetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_numberofelementssetobj(generatedMesh,numberOfElements,err)
    !DLLEXPORT(cmfe_GeneratedMesh_NumberOfElementsSetObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    INTEGER(INTG), INTENT(IN) :: numberOfElements(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_NumberOfElementsSetObj",err,error,*999)

    CALL generated_mesh_number_of_elements_set(generatedmesh%generatedMesh,numberofelements,err,error,*999)

    exits("cmfe_GeneratedMesh_NumberOfElementsSetObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_NumberOfElementsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_numberofelementssetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_origingetnumber(regionUserNumber,generatedMeshUserNumber,origin,err)
    !DLLEXPORT(cmfe_GeneratedMesh_OriginGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    REAL(DP), INTENT(OUT) :: origin(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_OriginGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_origin_get(generated_mesh,origin,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_OriginGetNumber")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_OriginGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_origingetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_origingetobj(generatedMesh,origin,err)
    !DLLEXPORT(cmfe_GeneratedMesh_OriginGetObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    REAL(DP), INTENT(OUT) :: origin(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_OriginGetObj",err,error,*999)

    CALL generated_mesh_origin_get(generatedmesh%generatedMesh,origin,err,error,*999)

    exits("cmfe_GeneratedMesh_OriginGetObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_OriginGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_origingetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_originsetnumber(regionUserNumber,generatedMeshUserNumber,origin,err)
    !DLLEXPORT(cmfe_GeneratedMesh_OriginSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    REAL(DP), INTENT(IN) :: origin(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_OriginSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_origin_set(generated_mesh,origin,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_OriginSetNumber")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_OriginSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_originsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_originsetobj(generatedMesh,origin,err)
    !DLLEXPORT(cmfe_GeneratedMesh_OriginSetObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    REAL(DP), INTENT(IN) :: origin(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_OriginSetObj",err,error,*999)

    CALL generated_mesh_origin_set(generatedmesh%generatedMesh,origin,err,error,*999)

    exits("cmfe_GeneratedMesh_OriginSetObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_OriginSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_originsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_typegetnumber(regionUserNumber,generatedMeshUserNumber,generatedMeshType,err)
    !DLLEXPORT(cmfe_GeneratedMesh_TypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(OUT) :: generatedMeshType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_TypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_type_get(generated_mesh,generatedmeshtype,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on the region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_TypeGetNumber")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_TypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_typegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_typegetobj(generatedMesh,generatedMeshType,err)
    !DLLEXPORT(cmfe_GeneratedMesh_TypeGetObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    INTEGER(INTG), INTENT(OUT) :: generatedMeshType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_TypeGetObj",err,error,*999)

    CALL generated_mesh_type_get(generatedmesh%generatedMesh,generatedmeshtype,err,error,*999)

    exits("cmfe_GeneratedMesh_TypeGetObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_TypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_typegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_typesetnumber(regionUserNumber,generatedMeshUserNumber,generatedMeshType,err)
    !DLLEXPORT(cmfe_GeneratedMesh_TypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_TypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
        CALL generated_mesh_type_set(generated_mesh,generatedmeshtype,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
          & " does not exist on a region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_TypeSetNumber")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_TypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_typesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_typesetobj(generatedMesh,generatedMeshType,err)
    !DLLEXPORT(cmfe_GeneratedMesh_TypeSetObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    INTEGER(INTG), INTENT(IN) :: generatedMeshType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_TypeSetObj",err,error,*999)

    CALL generated_mesh_type_set(generatedmesh%generatedMesh,generatedmeshtype,err,error,*999)

    exits("cmfe_GeneratedMesh_TypeSetObj")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_TypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_typesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_geometricparameterscalculatenumber(regionUserNumber,generatedMeshUserNumber, &
      & fieldusernumber,err)
    !DLLEXPORT(cmfe_GeneratedMesh_GeometricParametersCalculateNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: FIELD
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_GeometricParametersCalculateNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(field)
    NULLIFY(generated_mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
      IF(ASSOCIATED(field)) THEN
        CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
        IF(ASSOCIATED(generated_mesh)) THEN
          CALL generatedmesh_geometricparameterscalculate(field,generated_mesh,err,error,*999)
        ELSE
          localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
            & " does not exist."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An field with an user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_GeometricParametersCalculateNumber")
    RETURN
999 errors("cmfe_GeneratedMesh_GeometricParametersCalculateNumber",err,error)
    exits("cmfe_GeneratedMesh_GeometricParametersCalculateNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_geometricparameterscalculatenumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_geometricparameterscalculateobj(generatedMesh,field,err)
    !DLLEXPORT(cmfe_GeneratedMesh_GeometricParametersCalculateObj)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_GeneratedMesh_GeometricParametersCalculateObj",err,error,*999)

    CALL generatedmesh_geometricparameterscalculate(field%field,generatedmesh%generatedMesh,err,error,*999)

    exits("cmfe_GeneratedMesh_GeometricParametersCalculateObj")
    RETURN
999 errors("cmfe_GeneratedMesh_GeometricParametersCalculateObj",err,error)
    exits("cmfe_GeneratedMesh_GeometricParametersCalculateObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_generatedmesh_geometricparameterscalculateobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_surfacegetnumber0(regionUserNumber,generatedMeshUserNumber,surfaceType,surfaceNodes,normalXi,err)
    !DLLEXPORT(cmfe_GeneratedMesh_SurfaceGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(IN) :: surfaceType
    INTEGER(INTG), INTENT(OUT), ALLOCATABLE :: surfaceNodes(:)
    INTEGER(INTG), INTENT(OUT) :: normalXi
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_SurfaceGetNumber0",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)

    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
          CALL generated_mesh_surface_get(generated_mesh,1,surfacetype,surfacenodes,normalxi,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
            & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_SurfaceGetNumber0")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_SurfaceGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
  END SUBROUTINE cmfe_generatedmesh_surfacegetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_surfacegetnumber1(regionUserNumber,meshComponent,generatedMeshUserNumber,surfaceType, &
      & surfacenodes,normalxi,err)
    !DLLEXPORT(cmfe_GeneratedMesh_SurfaceGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponent
    INTEGER(INTG), INTENT(IN) :: generatedMeshUserNumber
    INTEGER(INTG), INTENT(IN) :: surfaceType
    INTEGER(INTG), INTENT(OUT), ALLOCATABLE :: surfaceNodes(:)
    INTEGER(INTG), INTENT(OUT) :: normalXi
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(generated_mesh_type), POINTER :: GENERATED_MESH
    TYPE(varying_string) :: localError

    enters("cmfe_GeneratedMesh_SurfaceGetNumber1",err,error,*999)

    NULLIFY(region)
    NULLIFY(generated_mesh)

    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL generated_mesh_user_number_find(generatedmeshusernumber,region,generated_mesh,err,error,*999)
      IF(ASSOCIATED(generated_mesh)) THEN
          CALL generated_mesh_surface_get(generated_mesh,meshcomponent,surfacetype,surfacenodes,normalxi,err,error,*999)
      ELSE
        localerror="A generated mesh with an user number of "//trim(numbertovstring(generatedmeshusernumber,"*",err,error))// &
            & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_GeneratedMesh_SurfaceGetNumber1")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_SurfaceGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
  END SUBROUTINE cmfe_generatedmesh_surfacegetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_surfacegetobj0(generatedMesh,surfaceType,surfaceNodes,normalXi,err)
    !DLLEXPORT(cmfe_GeneratedMesh_SurfaceGetObj0)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    INTEGER(INTG), INTENT(IN) :: surfaceType
    INTEGER(INTG), INTENT(OUT), ALLOCATABLE :: surfaceNodes(:)
    INTEGER(INTG), INTENT(OUT) :: normalXi
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_GeneratedMesh_SurfaceGetObj0",err,error,*999)

    CALL generated_mesh_surface_get(generatedmesh%generatedMesh,1,surfacetype,surfacenodes,normalxi,err,error,*999)

    exits("cmfe_GeneratedMesh_SurfaceGetObj0")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_SurfaceGetObj0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
  END SUBROUTINE cmfe_generatedmesh_surfacegetobj0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_generatedmesh_surfacegetobj1(generatedMesh,meshComponent,surfaceType,surfaceNodes,normalXi,err)
    !DLLEXPORT(cmfe_GeneratedMesh_SurfaceGetObj1)

    !Argument variables
    TYPE(cmfe_generatedmeshtype), INTENT(IN) :: generatedMesh
    INTEGER(INTG), INTENT(IN) :: meshComponent
    INTEGER(INTG), INTENT(IN) :: surfaceType
    INTEGER(INTG), INTENT(OUT), ALLOCATABLE :: surfaceNodes(:)
    INTEGER(INTG), INTENT(OUT) :: normalXi
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_GeneratedMesh_SurfaceGetObj1",err,error,*999)

    CALL generated_mesh_surface_get(generatedmesh%generatedMesh,meshcomponent,surfacetype,surfacenodes,normalxi,err,error,*999)

    exits("cmfe_GeneratedMesh_SurfaceGetObj1")
    RETURN
999 errorsexits("cmfe_GeneratedMesh_SurfaceGetObj1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
  END SUBROUTINE cmfe_generatedmesh_surfacegetobj1


!!==================================================================================================================================
!!
!! MESH EMBEDDING ROUTINES
!!
!!==================================================================================================================================
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshembedding_initialise(meshEmbedding,err)
    !DLLEXPORT(cmfe_MeshEmbedding_Initialise)
    !Argument variables
    TYPE(cmfe_meshembeddingtype), INTENT(OUT) ::  meshEmbedding
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshEmbedding_Initialise",err,error,*999)

    NULLIFY(meshembedding%meshEmbedding)

    exits("cmfe_MeshEmbedding_Initialise")
    RETURN
999 errorsexits("cmfe_MeshEmbedding_Initialise",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshembedding_initialise

  !
  !================================================================================================================================
  !
  SUBROUTINE cmfe_meshembedding_createnumber(regionOneUserNumber,regionTwoUserNumber,meshEmbedding,parentMeshUserNumber, &
    & childmeshusernumber,err)
    !DLLEXPORT(cmfe_MeshEmbedding_CreateNumber)

    TYPE(cmfe_meshembeddingtype), INTENT(INOUT) :: meshEmbedding
    TYPE(region_type), POINTER :: REGION1, REGION2
    TYPE(varying_string) :: localError
    TYPE(mesh_type), POINTER :: PARENTMESH,CHILDMESH
    INTEGER(INTG), INTENT(IN) :: parentMeshUserNumber, childMeshUserNumber
    INTEGER(INTG), INTENT(IN) :: regionOneUserNumber, regionTwoUserNumber
    INTEGER(INTG), INTENT(OUT) :: err


    enters("cmfe_MeshEmbedding_CreateNumber",err,error,*999)

    NULLIFY(region1)
    NULLIFY(region2)
    NULLIFY(parentmesh)
    NULLIFY(childmesh)

    CALL region_user_number_find(regiononeusernumber,region1,err,error,*999)
    CALL region_user_number_find(regiontwousernumber,region2,err,error,*999)
    IF(ASSOCIATED(region1)) THEN
      CALL mesh_user_number_find(parentmeshusernumber,region1,parentmesh,err,error,*999)
      IF(ASSOCIATED(region2)) THEN
        CALL mesh_user_number_find(childmeshusernumber,region2,childmesh,err,error,*999)
        IF(ASSOCIATED(parentmesh).AND.ASSOCIATED(childmesh)) THEN
          CALL mesh_embedding_create(meshembedding%meshEmbedding,parentmesh,childmesh,err,error,*999)
        ELSE
          localerror="Meshes with user number of "//trim(numbertovstring(parentmeshusernumber,"*",err,error))// &
              & " and "//trim(numbertovstring(childmeshusernumber,"*",err,error))//  " do not exist."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regiontwousernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regiononeusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshEmbedding_CreateNumber")
    RETURN
999 errorsexits("cmfe_MeshEmbedding_CreateNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshembedding_createnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshembedding_createobj(meshEmbedding, parentMesh, childMesh, err)
    !DLLEXPORT(cmfe_MeshEmbedding_CreateObj)
    TYPE(cmfe_meshembeddingtype), INTENT(INOUT) :: meshEmbedding
    TYPE(cmfe_meshtype), INTENT(IN) :: parentMesh, childMesh
    INTEGER(INTG), INTENT(OUT) :: err
    CALL mesh_embedding_create(meshembedding%meshEmbedding,parentmesh%mesh,childmesh%mesh,err,error,*999)
999 RETURN
  END SUBROUTINE cmfe_meshembedding_createobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshembedding_setchildnodepositionobj(meshEmbedding, elementNumber, nodeNumbers, xiCoords, err)
    !DLLEXPORT(cmfe_MeshEmbedding_SetChildNodePositionObj)
    TYPE(cmfe_meshembeddingtype), INTENT(INOUT) :: meshEmbedding
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: nodeNumbers(:)
    REAL(DP), INTENT(IN)      :: xiCoords(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    CALL mesh_embedding_set_child_node_position(meshembedding%meshEmbedding,elementnumber, nodenumbers, xicoords, err, error, *999)
999 RETURN
  END SUBROUTINE cmfe_meshembedding_setchildnodepositionobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshembedding_pushdataobj(meshEmbedding, parentField, parentComponent, childField, childComponent, err)
    !DLLEXPORT(cmfe_MeshEmbedding_PushDataObj)
    TYPE(cmfe_meshembeddingtype), INTENT(INOUT) :: meshEmbedding
    TYPE(cmfe_fieldtype), INTENT(IN) :: parentField, childField
!    TYPE(cmfe_FieldType), POINTER, INTENT(IN) :: parentField, childField  !<Fields associated with parent and child mesh to get/set data from

    INTEGER(INTG), INTENT(IN) :: parentComponent, childComponent
    INTEGER(INTG), INTENT(OUT) :: err
    CALL mesh_embedding_push_data(meshembedding%meshEmbedding,parentfield%field, parentcomponent, childfield%field, &
      & childcomponent, err, error, *999)
999 RETURN
  END SUBROUTINE cmfe_meshembedding_pushdataobj

!
  !================================================================================================================================
  !
!   !>Sets the positions of a Gauss point of the parent mesh in terms of element/xi coordinated in the child mesh
    SUBROUTINE cmfe_meshembedding_setgausspointdataobj(meshEmbedding, parentElementNumber,gaussPointNumber, &
       & parentxicoords,childelementnumber,childxicoords, err)
      !DLLEXPORT(cmfe_MeshEmbedding_SetGaussPointDataObj)
     TYPE(cmfe_meshembeddingtype), INTENT(INOUT) :: meshEmbedding
     INTEGER(INTG), INTENT(IN) :: parentElementNumber
     INTEGER(INTG), INTENT(IN) :: childElementNumber
     INTEGER(INTG), INTENT(IN) :: gaussPointNumber
     REAL(DP), INTENT(IN)      :: parentXiCoords(:)
     REAL(DP), INTENT(IN)      :: childXiCoords(:)
     INTEGER(INTG), INTENT(OUT) :: err
!
     CALL mesh_embedding_set_gauss_point_data(meshembedding%meshEmbedding, parentelementnumber, gausspointnumber,&
     & parentxicoords, childelementnumber, childxicoords,err,error,*999)
 999 RETURN
    END SUBROUTINE cmfe_meshembedding_setgausspointdataobj
! !
  !================================================================================================================================
  !
!   !>Sets the positions of a Gauss point of the parent mesh in terms of element/xi coordinated in the child mesh
    SUBROUTINE cmfe_meshembedding_pullgausspointdataobj(meshEmbedding, parentField, parentComponent, childField, &
      & childcomponent, err)
      !DLLEXPORT(cmfe_MeshEmbedding_PullGaussPointDataObj)
    TYPE(cmfe_meshembeddingtype), INTENT(INOUT) :: meshEmbedding
    TYPE(cmfe_fieldtype), INTENT(IN) :: parentField, childField
    INTEGER(INTG), INTENT(IN) :: parentComponent, childComponent
    INTEGER(INTG), INTENT(OUT) :: err

    CALL mesh_embedding_pull_gauss_point_data(meshembedding%meshEmbedding,parentfield%field, parentcomponent, &
      &  childfield%field,childcomponent, err, error, *999)
999 RETURN
    END SUBROUTINE cmfe_meshembedding_pullgausspointdataobj
! !
  !================================================================================================================================
  !
   SUBROUTINE cmfe_field_parametersetgetgausspointcoordobj(meshEmbedding,componentNumber,numberOfGaussPoints, &
     & coords,err)
     !DLLEXPORT(cmfe_Field_ParameterSetGetGaussPointCoordObj)

    !Argument variables
    TYPE(cmfe_meshembeddingtype), INTENT(INOUT) :: meshEmbedding
    INTEGER(INTG), INTENT(IN) :: componentNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfGaussPoints
    REAL(DP), INTENT(OUT)      :: coords(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Field_ParameterSetGetGaussPointCoordObj",err,error,*999)

    CALL field_parameter_set_get_gauss_point_coord(meshembedding%meshEmbedding,componentnumber, &
      & numberofgausspoints,coords,err,error,*999)

    exits("cmfe_Field_ParameterSetGetGaussPointCoordObj")

999 RETURN

  END SUBROUTINE cmfe_field_parametersetgetgausspointcoordobj
!!==================================================================================================================================
!!
!! INTERFACE_ROUTINES
!!
!!==================================================================================================================================

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_createfinishnumber(regionUserNumber,interfaceUserNumber,err)
    !DLLEXPORT(cmfe_Interface_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Interface_CreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_create_finish(interface,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Interface_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_Interface_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_createfinishobj(interface,err)
    !DLLEXPORT(cmfe_Interface_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Interface_CreateFinishObj",err,error,*999)

    CALL interface_create_finish(interface%interface,err,error,*999)

    exits("cmfe_Interface_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_Interface_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_createstartnumber(interfaceUserNumber,regionUserNumber,err)
    !DLLEXPORT(cmfe_Interface_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Interface_CreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_create_start(interfaceusernumber,region,interface,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Interface_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_Interface_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_createstartobj(interfaceUserNumber,region,interface,err)
    !DLLEXPORT(cmfe_Interface_CreateStartObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Interface_CreateStartObj",err,error,*999)

    CALL interface_create_start(interfaceusernumber,region%region,interface%interface,err,error,*999)

    exits("cmfe_Interface_CreateStartObj")
    RETURN
999 errorsexits("cmfe_Interface_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interface_createstartobj
  
  !  
  !================================================================================================================================
  !  
 
  SUBROUTINE cmfe_interface_coordinatesystemsetnumber(parentRegionUserNumber,interfaceUserNumber,coordinateSystemUserNumber,err)
    !DLLEXPORT(cmfe_Interface_CoordinateSystemSetNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(region_type), POINTER :: REGION
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(varying_string) :: localError
    
    enters("cmfe_Interface_CoordinateSystemSetNumber",err,error,*999)
 
    NULLIFY(interface)
    NULLIFY(region)
    NULLIFY(coordinate_system)
    CALL region_user_number_find(parentregionusernumber,region,err,error,*999)
    CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
    
    IF(ASSOCIATED(interface)) THEN
      CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
      IF(ASSOCIATED(coordinate_system)) THEN
        CALL interface_coordinate_system_set(interface,coordinate_system,err,error,*999)
      ELSE
        localerror="A coordinate system with an user number of "// &
          & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//" does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Interface_CoordinateSystemSetNumber")
    RETURN
999 errorsexits("cmfe_Interface_CoordinateSystemSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interface_coordinatesystemsetnumber

  !  
  !================================================================================================================================
  !  
 
  SUBROUTINE cmfe_interface_coordinatesystemsetobj(interface,coordinateSystem,err)
    !DLLEXPORT(cmfe_Interface_CoordinateSystemSetObj)
  
    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    TYPE(cmfe_coordinatesystemtype), INTENT(IN) :: coordinateSystem
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
  
    enters("cmfe_Interface_CoordinateSystemSetObj",err,error,*999)
 
    CALL interface_coordinate_system_set(interface%interface,coordinatesystem%coordinateSystem,err,error,*999)

    exits("cmfe_Interface_CoordinateSystemSetObj")
    RETURN
999 errorsexits("cmfe_Interface_CoordinateSystemSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
  END SUBROUTINE cmfe_interface_coordinatesystemsetobj

  !
  !================================================================================================================================
  !   
  
  SUBROUTINE cmfe_interface_coordinatesystemgetnumber(parentRegionUserNumber,interfaceUserNumber,coordinateSystemUserNumber,err)
    !DLLEXPORT(cmfe_Interface_CoordinateSystemGetNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(OUT) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError
    
    enters("cmfe_Interface_CoordinateSystemGetNumber",err,error,*999)
 
    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(coordinate_system)
    CALL region_user_number_find(parentregionusernumber,region,err,error,*999)
    CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
    IF(ASSOCIATED(interface)) THEN
      CALL interface_coordinate_system_get(interface,coordinate_system,err,error,*999)
      IF(ASSOCIATED(coordinate_system)) THEN
        coordinatesystemusernumber = coordinate_system%USER_NUMBER
      ELSE
        localerror="The coordinate system is not associated for interface number "// &
          & trim(numbertovstring(interfaceusernumber,"*",err,error))//" does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Interface_CoordinateSystemGetNumber")
    RETURN
999 errorsexits("cmfe_Interface_CoordinateSystemGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interface_coordinatesystemgetnumber

  !  
  !================================================================================================================================
  !  
 
  SUBROUTINE cmfe_interface_coordinatesystemgetobj(Interface,CoordinateSystem,err)
    !DLLEXPORT(cmfe_Interface_CoordinateSystemGetObj)
  
    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: Interface
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: CoordinateSystem
   INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
  
    enters("cmfe_Interface_CoordinateSystemGetObj",err,error,*999)
 
    CALL interface_coordinate_system_get(interface%interface,coordinatesystem%coordinateSystem,err,error,*999)

    exits("cmfe_Interface_CoordinateSystemGetObj")
    RETURN
999 errorsexits("cmfe_Interface_CoordinateSystemGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interface_coordinatesystemgetobj
  
  !  
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_destroynumber(regionUserNumber,interfaceUserNumber,err)
    !DLLEXPORT(cmfe_Interface_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_FInterfaceDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_destroy(interface,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Interface_DestroyNumber")
    RETURN
999 errorsexits("cmfe_Interface_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_destroyobj(interface,err)
    !DLLEXPORT(cmfe_Interface_DestroyObj)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: Interface
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Interface_DestroyObj",err,error,*999)

    CALL interface_destroy(interface%interface,err,error,*999)

    exits("cmfe_Interface_DestroyObj")
    RETURN
999 errorsexits("cmfe_Interface_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_destroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_labelgetcnumber(parentRegionUserNumber,interfaceUserNumber,label,err)
    !DLLEXPORT(cmfe_Interface_LabelGetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: PARENT_REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Interface_LabelGetCNumber",err,error,*999)

    NULLIFY(parent_region)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,parent_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_label_get(interface,label,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on a parent region with a user number of "// &
          & trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Interface_LabelGetCNumber")
    RETURN
999 errorsexits("cmfe_Interface_LabelGetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_labelgetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_labelgetcobj(interface,label,err)
    !DLLEXPORT(cmfe_Interface_LabelGetCObj)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Interface_LabelGetCObj",err,error,*999)

    CALL interface_label_get(interface%interface,label,err,error,*999)

    exits("cmfe_Interface_LabelGetCObj")
    RETURN
999 errorsexits("cmfe_Interface_LabelGetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_labelgetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_labelgetvsnumber(parentRegionUserNumber,interfaceUserNumber,label,err)
    !DLLEXPORT(cmfe_Interface_LabelGetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: PARENT_REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Interface_LabelGetVSNumber",err,error,*999)

    NULLIFY(parent_region)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,parent_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_label_get(interface,label,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on a parent region with a user number of "// &
          & trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Interface_LabelGetVSNumber")
    RETURN
999 errorsexits("cmfe_Interface_LabelGetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_labelgetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_labelgetvsobj(interface,label,err)
    !DLLEXPORT(cmfe_Interface_LabelGetVSObj)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: Interface
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Interface_LabelGetVSObj",err,error,*999)

    CALL interface_label_get(interface%interface,label,err,error,*999)

    exits("cmfe_Interface_LabelGetVSObj")
    RETURN
999 errorsexits("cmfe_Interface_LabelGetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_labelgetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_labelsetcnumber(parentRegionUserNumber,interfaceUserNumber,label,err)
    !DLLEXPORT(cmfe_Interface_LabelSetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: PARENT_REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Interface_LabelSetCNumber",err,error,*999)

    NULLIFY(parent_region)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,parent_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_label_set(interface,label,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on a parent region with a user number of "// &
          & trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Interface_LabelSetCNumber")
    RETURN
999 errorsexits("cmfe_Interface_LabelSetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_labelsetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_labelsetcobj(interface,label,err)
    !DLLEXPORT(cmfe_Interface_LabelSetCObj)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: Interface
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Interface_LabelSetCObj",err,error,*999)

    CALL interface_label_set(interface%interface,label,err,error,*999)

    exits("cmfe_Interface_LabelSetCObj")
    RETURN
999 errorsexits("cmfe_Interface_LabelSetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_labelsetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_labelsetvsnumber(parentRegionUserNumber,interfaceUserNumber,label,err)
    !DLLEXPORT(cmfe_Interface_LabelSetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: PARENT_REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Interface_LabelSetVSNumber",err,error,*999)

    NULLIFY(parent_region)
    NULLIFY(interface)
    CALL region_user_number_find(parentregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,parent_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_label_set(interface,char(label),err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on a parent region with a user number of "// &
          & trim(numbertovstring(parentregionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceLabelStVSNumber")
    RETURN
999 errorsexits("cmfe_Interface_LabelSetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_labelsetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_labelsetvsobj(interface,label,err)
    !DLLEXPORT(cmfe_Interface_LabelSetVSObj)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: Interface
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Interface_LabelSetVSObj",err,error,*999)

    CALL interface_label_set(interface%interface,char(label),err,error,*999)

    exits("cmfe_Interface_LabelSetVSObj")
    RETURN
999 errorsexits("cmfe_Interface_LabelSetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_labelsetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_nodesgetobj(interface,nodes,err)
    !DLLEXPORT(cmfe_Interface_NodesGetObj)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    TYPE(cmfe_nodestype), INTENT(INOUT) :: nodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Interface_NodesGetObj",err,error,*999)

    CALL interface_nodes_get(interface%interface,nodes%nodes,err,error,*999)

    exits("cmfe_Interface_NodesGetObj")
    RETURN
999 errorsexits("cmfe_Interface_NodesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_nodesgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_meshaddnumber(interfaceRegionUserNumber,interfaceUserNumber,meshRegionUserNumber, &
    & meshusernumber,meshindex,err)
    !DLLEXPORT(cmfe_Interface_MeshAddNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: interfaceRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: meshRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(OUT) :: meshIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: MESH_REGION,PARENT_REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Interface_MeshAddNumber",err,error,*999)

    NULLIFY(parent_region)
    NULLIFY(interface)
    NULLIFY(mesh_region)
    NULLIFY(mesh)
    CALL region_user_number_find(interfaceregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,parent_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL region_user_number_find(meshregionusernumber,mesh_region,err,error,*999)
        IF(ASSOCIATED(mesh_region)) THEN
          CALL mesh_user_number_find(meshusernumber,mesh_region,mesh,err,error,*999)
          IF(ASSOCIATED(mesh)) THEN
            CALL interface_mesh_add(interface,mesh,meshindex,err,error,*999)
          ELSE
            localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
              & " does not exist on the region with an user number of "// &
              & trim(numbertovstring(meshregionusernumber,"*",err,error))//"."
            CALL flagerror(localerror,err,error,*999)
          END IF
        ELSE
          localerror="The mesh region with an user number of "//trim(numbertovstring(meshregionusernumber,"*",err,error))// &
            & " does not exist."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "// &
          & trim(numbertovstring(interfaceregionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="The interface parent region with an user number of "// &
        & trim(numbertovstring(interfaceregionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Interface_MeshAddNumber")
    RETURN
999 errorsexits("cmfe_Interface_MeshAddNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_meshaddnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interface_meshaddobj(interface,mesh,meshIndex,err)
    !DLLEXPORT(cmfe_Interface_MeshAddObj)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(OUT) :: meshIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Interface_MeshAddObj",err,error,*999)

    CALL interface_mesh_add(interface%interface,mesh%mesh,meshindex,err,error,*999)

    exits("cmfe_Interface_MeshAddObj")
    RETURN
999 errorsexits("cmfe_Interface_MeshAddObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interface_meshaddobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_createfinishnumber(regionUserNumber,interfaceUserNumber,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceMeshConnectivity_CreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_mesh_connectivity_create_finish(interface%MESH_CONNECTIVITY,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfaceMeshConnectivity_CreateFinishNumber")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_CreateFinishNumber",err,error)
    exits("cmfe_InterfaceMeshConnectivity_CreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_createfinishobj(interfaceMeshConnectivity,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_interfacemeshconnectivitytype), INTENT(IN) :: interfaceMeshConnectivity
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceMeshConnectivity_CreateFinishObj",err,error,*999)

    CALL interface_mesh_connectivity_create_finish(interfacemeshconnectivity%meshConnectivity,err,error,*999)

    exits("cmfe_InterfaceMeshConnectivity_CreateFinishObj")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_CreateFinishObj",err,error)
    exits("cmfe_InterfaceMeshConnectivity_CreateFinishObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_createstartnumber(regionUserNumber,interfaceUserNumber,meshNumber,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: meshNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(mesh_type), POINTER :: MESH
    TYPE(interface_mesh_connectivity_type), POINTER :: INTERFACE_MESH_CONNECTIVITY
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceMeshConnectivity_CreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_mesh_connectivity)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL mesh_user_number_find(meshnumber,interface,mesh,err,error,*999)
        IF(ASSOCIATED(mesh)) THEN
          CALL interface_mesh_connectivity_create_start(interface,mesh,interface_mesh_connectivity,err,error,*999)
        ELSE
          localerror="A mesh with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
           & " does not exist on the interface with user number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceMeshConnectivity_CreateStartNumber")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_CreateStartNumber",err,error)
    exits("cmfe_InterfaceMeshConnectivity_CreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_createstartobj(interface,interfaceMesh,interfaceMeshConnectivity,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_CreateStartObj)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    TYPE(cmfe_meshtype), INTENT(IN) :: interfaceMesh
    TYPE(cmfe_interfacemeshconnectivitytype), INTENT(INOUT) :: interfaceMeshConnectivity
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceMeshConnectivity_CreateStartObj",err,error,*999)

    CALL interface_mesh_connectivity_create_start(interface%interface,interfacemesh%mesh, &
      & interfacemeshconnectivity%meshConnectivity,err,error,*999)

    exits("cmfe_InterfaceMeshConnectivity_CreateStartObj")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_CreateStartObj",err,error)
    exits("cmfe_InterfaceMeshConnectivity_CreateStartObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_createstartobj


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_elementnumbersetnumber(regionUserNumber,interfaceUserNumber, &
     &  interfaceelementnumber,coupledmeshindexnumber,coupledmeshelementnumber,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_ElementNumberSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceElementNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshElementNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceMeshConnectivity_ElementNumberSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interfacemeshconnectivity_elementnumberset(interface%MESH_CONNECTIVITY,interfaceelementnumber, &
         & coupledmeshindexnumber,coupledmeshelementnumber,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceMeshConnectivity_ElementNumberSetNumber")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_ElementNumberSetNumber",err,error)
    exits("cmfe_InterfaceMeshConnectivity_ElementNumberSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_elementnumbersetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_elementnumbersetobj(interfaceMeshConnectivity,interfaceElementNumber, &
     &  coupledmeshindexnumber,coupledmeshelementnumber,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_ElementNumberSetObj)

    !Argument variables
    TYPE(cmfe_interfacemeshconnectivitytype), INTENT(IN) :: interfaceMeshConnectivity
    INTEGER(INTG), INTENT(IN) :: interfaceElementNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshElementNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceMeshConnectivity_ElementNumberSetObj",err,error,*999)

    CALL interfacemeshconnectivity_elementnumberset(interfacemeshconnectivity%meshConnectivity, &
      & interfaceelementnumber,coupledmeshindexnumber,coupledmeshelementnumber,err,error,*999)

    exits("cmfe_InterfaceMeshConnectivity_ElementNumberSetObj")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_ElementNumberSetObj",err,error)
    exits("cmfe_InterfaceMeshConnectivity_ElementNumberSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_elementnumbersetobj


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_nodenumbersetnumber(regionUserNumber,interfaceUserNumber, &
     &  interfaceelementnumber,coupledmeshindexnumber,coupledmeshelementnumber,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_NodeNumberSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceElementNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshElementNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
 
    enters("cmfe_InterfaceMeshConnectivity_ElementNumberSetNumber",err,error,*999)

    CALL flagerror("Not implemented yet.",err,error,*999)

    exits("cmfe_InterfaceMeshConnectivity_ElementNumberSetNumber")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_ElementNumberSetNumber",err,error)
    exits("cmfe_InterfaceMeshConnectivity_ElementNumberSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_nodenumbersetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_nodenumbersetobj(interfaceMeshConnectivity,interfaceNodeNumbers, &
     &  firstcoupledmeshindexnumber,firstcoupledmeshnodenumbers,secondcoupledmeshindexnumber,secondcoupledmeshnodenumbers,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_NodeNumberSetObj)

    !Argument variables
    TYPE(cmfe_interfacemeshconnectivitytype), INTENT(IN) :: interfaceMeshConnectivity
    INTEGER(INTG), INTENT(IN) :: interfaceNodeNumbers(:)
    INTEGER(INTG), INTENT(IN) :: firstCoupledMeshIndexNumber,secondCoupledMeshIndexNumber
    INTEGER(INTG), INTENT(IN) :: firstCoupledMeshNodeNumbers(:),secondCoupledMeshNodeNumbers(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceMeshConnectivity_NodeNumberSetObj",err,error,*999)
    
    IF(SIZE(interfacenodenumbers(:))==SIZE(firstcoupledmeshnodenumbers(:)) &
      & .AND.SIZE(interfacenodenumbers(:))==SIZE(secondcoupledmeshnodenumbers(:))) THEN
      !TODO Check pointers
      !Set interface mesh connectivity node connectivity
      CALL interface_mesh_connectivity_node_number_set(interfacemeshconnectivity%meshConnectivity%interface%nodes, &
        & interfacenodenumbers,firstcoupledmeshindexnumber,firstcoupledmeshnodenumbers, &
        & secondcoupledmeshindexnumber,secondcoupledmeshnodenumbers,err,error,*999)
    ELSE
      localerror="Interface number of nodes does not match coupled meshes number of nodes."
        CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfaceMeshConnectivity_NodeNumberSetObj")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_NodeNumberSetObj",err,error)
    exits("cmfe_InterfaceMeshConnectivity_NodeNumberSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_nodenumbersetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_elementxisetnumber(regionUserNumber,interfaceUserNumber,interfaceElementNumber, &
     &  coupledmeshindexnumber,coupledmeshelementnumber,interfacemeshlocalnodenumber,interfacemeshcomponentnodenumber,xi,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_ElementXiSetNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceElementNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshElementNumber
    INTEGER(INTG), INTENT(IN) :: interfaceMeshLocalNodeNumber
    INTEGER(INTG), INTENT(IN) :: interfaceMeshComponentNodeNumber
    REAL(DP), INTENT(IN) :: xi(:)
    INTEGER(INTG), INTENT(OUT) :: err

    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceMeshConnectivity_ElementXiSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_mesh_connectivity_element_xi_set(interface%MESH_CONNECTIVITY,interfaceelementnumber, &
         & coupledmeshindexnumber,coupledmeshelementnumber,interfacemeshlocalnodenumber,interfacemeshcomponentnodenumber,xi, &
         & err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceMeshConnectivity_ElementXiSetNumber")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_ElementXiSetNumber",err,error)
    exits("cmfe_InterfaceMeshConnectivity_ElementXiSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_elementxisetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_elementxisetobj(interfaceMeshConnectivity,interfaceElementNumber, &
     &  coupledmeshindexnumber,coupledmeshelementnumber,interfacemeshlocalnodenumber,interfacemeshcomponentnodenumber,xi,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_ElementXiSetObj)

    !Argument variables
    TYPE(cmfe_interfacemeshconnectivitytype), INTENT(IN) :: interfaceMeshConnectivity
    INTEGER(INTG), INTENT(IN) :: interfaceElementNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshElementNumber
    INTEGER(INTG), INTENT(IN) :: interfaceMeshLocalNodeNumber
    INTEGER(INTG), INTENT(IN) :: interfaceMeshComponentNodeNumber
    REAL(DP), INTENT(IN) :: xi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceMeshConnectivity_ElementXiSetObj",err,error,*999)

    CALL interface_mesh_connectivity_element_xi_set(interfacemeshconnectivity%meshConnectivity,interfaceelementnumber, &
      & coupledmeshindexnumber,coupledmeshelementnumber,interfacemeshlocalnodenumber,interfacemeshcomponentnodenumber,xi, &
      & err,error,*999)

    exits("cmfe_InterfaceMeshConnectivity_ElementXiSetObj")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_ElementXiSetObj",err,error)
    exits("cmfe_InterfaceMeshConnectivity_ElementXiSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_elementxisetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_basissetnumber(regionUserNumber,interfaceUserNumber,interfaceBasisNumber,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_BasisSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceBasisNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceMeshConnectivity_BasisSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(basis)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL basis_user_number_find(interfacebasisnumber,basis,err,error,*999)
        IF (ASSOCIATED(basis)) THEN
          CALL interface_mesh_connectivity_basis_set(interface%MESH_CONNECTIVITY,basis,err,error,*999)
        ELSE
          localerror="A basis with the user number "//trim(numbertovstring(interfacebasisnumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
     ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceMeshConnectivity_BasisSetNumber")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_BasisSetNumber",err,error)
    exits("cmfe_InterfaceMeshConnectivity_BasisSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_basissetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_basissetobj(interfaceMeshConnectivity,interfaceMappingBasis,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_BasisSetObj)

    !Argument variables
    TYPE(cmfe_interfacemeshconnectivitytype), INTENT(IN) :: interfaceMeshConnectivity
    TYPE(cmfe_basistype), INTENT(INOUT) :: interfaceMappingBasis
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceMeshConnectivity_BasisSetObj",err,error,*999)

    CALL interface_mesh_connectivity_basis_set(interfacemeshconnectivity%meshConnectivity,interfacemappingbasis%basis, &
      & err,error,*999)

    exits("cmfe_InterfaceMeshConnectivity_BasisSetObj")
    RETURN
999 errorsexits("cmfe_InterfaceMeshConnectivity_BasisSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_basissetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_destroynumber(regionUserNumber,interfaceUserNumber,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_FInterfaceMeshConnectivityDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_mesh_connectivity_destroy(interface%MESH_CONNECTIVITY,err,error,*999)
     ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceMeshConnectivity_DestroyNumber")
    RETURN
999 errors("cmfe_InterfaceMeshConnectivity_DestroyNumber",err,error)
    exits("cmfe_InterfaceMeshConnectivity_DestroyNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacemeshconnectivity_destroyobj(interfaceMeshConnectivity,err)
    !DLLEXPORT(cmfe_InterfaceMeshConnectivity_DestroyObj)

    !Argument variables
    TYPE(cmfe_interfacemeshconnectivitytype), INTENT(IN) :: interfaceMeshConnectivity
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceMeshConnectivity_DestroyObj",err,error,*999)

    IF(ASSOCIATED(interfacemeshconnectivity%meshConnectivity)) &
      &  CALL interface_mesh_connectivity_destroy(interfacemeshconnectivity%meshConnectivity,err,error,*999)

    exits("cmfe_InterfaceMeshConnectivity_DestroyObj")
    RETURN
999 errorsexits("cmfe_InterfaceMeshConnectivity_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacemeshconnectivity_destroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacepointsconnectivity_createfinishnumber(regionUserNumber,interfaceUserNumber,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_CreateFinishNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: interface
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError
    
    enters("cmfe_InterfacePointsConnectivity_CreateFinishNumber",err,error,*999)
 
    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interfacepointsconnectivity_createfinish(interface%pointsConnectivity,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfacePointsConnectivity_CreateFinishNumber")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_CreateFinishNumber",err,error)
    exits("cmfe_InterfacePointsConnectivity_CreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_createfinishnumber

  !  
  !================================================================================================================================
  !  
 
  SUBROUTINE cmfe_interfacepointsconnectivity_createfinishobj(interfacePointsConnectivity,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_CreateFinishObj)
  
    !Argument variables
    TYPE(cmfe_interfacepointsconnectivitytype), INTENT(IN) :: interfacePointsConnectivity
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
  
    enters("cmfe_InterfacePointsConnectivity_CreateFinishObj",err,error,*999)
 
    CALL interfacepointsconnectivity_createfinish(interfacepointsconnectivity%pointsConnectivity,err,error,*999)

    exits("cmfe_InterfacePointsConnectivity_CreateFinishObj")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_CreateFinishObj",err,error)
    exits("cmfe_InterfacePointsConnectivity_CreateFinishObj")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_createfinishobj
  
  !  
  !================================================================================================================================
  !   
  
  SUBROUTINE cmfe_interfacepointsconnectivity_createstartnumber(regionUserNumber,interfaceUserNumber,MeshNumber,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_CreateStartNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: MeshNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: interface
    TYPE(mesh_type), POINTER :: mesh
    TYPE(interfacepointsconnectivitytype), POINTER :: interfacePointsConnectivity
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError
    
    enters("cmfe_InterfacePointsConnectivity_CreateStartNumber",err,error,*999)
 
    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interfacepointsconnectivity)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL mesh_user_number_find(meshnumber,interface,mesh,err,error,*999)
        IF(ASSOCIATED(mesh)) THEN
          CALL interfacepointsconnectivity_createstart(interface,mesh,interfacepointsconnectivity,err,error,*999)
        ELSE
          localerror="A mesh with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
           & " does not exist on the interface with user number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flag_error(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flag_error(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfacePointsConnectivity_CreateStartNumber")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_CreateStartNumber",err,error)
    exits("cmfe_InterfacePointsConnectivity_CreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_createstartnumber

  !  
  !================================================================================================================================
  !  
 
  SUBROUTINE cmfe_interfacepointsconnectivity_createstartobj(interface,interfaceMesh,interfacePointsConnectivity,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_CreateStartObj)
  
    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    TYPE(cmfe_meshtype), INTENT(IN) :: interfaceMesh
    TYPE(cmfe_interfacepointsconnectivitytype), INTENT(INOUT) :: interfacePointsConnectivity
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfacePointsConnectivity_CreateStartObj",err,error,*999)

    CALL interfacepointsconnectivity_createstart(interface%interface,interfacemesh%mesh, &
      & interfacepointsconnectivity%pointsConnectivity,err,error,*999)

    exits("cmfe_InterfacePointsConnectivity_CreateStartObj")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_CreateStartObj",err,error)
    exits("cmfe_InterfacePointsConnectivity_CreateStartObj")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_createstartobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacepointsconnectivity_destroynumber(regionUserNumber,interfaceUserNumber,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: interface
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_InterfacePointsConnectivity_DestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interfacepointsconnectivity_destroy(interface%pointsConnectivity,err,error,*999)
     ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfacePointsConnectivity_DestroyNumber")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_DestroyNumber",err,error)
    exits("cmfe_InterfacePointsConnectivity_DestroyNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacepointsconnectivity_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacepointsconnectivity_destroyobj(interfacePointsConnectivity,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_DestroyObj)

    !Argument variables
    TYPE(cmfe_interfacepointsconnectivitytype), INTENT(IN) :: interfacePointsConnectivity
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfacePointsConnectivity_DestroyObj",err,error,*999)

    CALL interfacepointsconnectivity_destroy(interfacepointsconnectivity%pointsConnectivity,err,error,*999)

    exits("cmfe_InterfacePointsConnectivity_DestroyObj")
    RETURN
999 errorsexits("cmfe_InterfacePointsConnectivity_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacepointsconnectivity_destroyobj
  
  !  
  !================================================================================================================================
  ! 

  SUBROUTINE cmfe_interfacepointsconnectivity_elementnumbergetnumber(regionUserNumber,interfaceUserNumber, &
     &  interfacedatapointindexnumber,coupledmeshindexnumber,meshcomponentnumber,coupledmeshelementnumber,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_ElementNumberGetNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceDataPointIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: coupledMeshElementNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: interface
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError
    
    enters("cmfe_InterfacePointsConnectivity_ElementNumberGetNumber",err,error,*999)
 
    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interfacepointsconnectivity_elementnumberget(interface%pointsConnectivity,interfacedatapointindexnumber, &
         & coupledmeshindexnumber,meshcomponentnumber,coupledmeshelementnumber,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfacePointsConnectivity_ElementNumberGetNumber")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_ElementNumberGetNumber",err,error)
    exits("cmfe_InterfacePointsConnectivity_ElementNumberGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_elementnumbergetnumber
  
  !  
  !================================================================================================================================
  !   

  SUBROUTINE cmfe_interfacepointsconnectivity_elementnumbergetobj(interfacePointsConnectivity,interfaceDataPointIndexNumber, &
      & coupledmeshindexnumber,meshcomponentnumber,coupledmeshelementnumber,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_ElementNumberGetObj)
  
    !Argument variables
    TYPE(cmfe_interfacepointsconnectivitytype), INTENT(IN) :: InterfacePointsConnectivity
    INTEGER(INTG), INTENT(IN) :: interfaceDataPointIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: coupledMeshElementNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
  
    enters("cmfe_InterfacePointsConnectivity_ElementNumberGetObj",err,error,*999)
 
    CALL interfacepointsconnectivity_elementnumberget(interfacepointsconnectivity%pointsConnectivity, &
      & interfacedatapointindexnumber,coupledmeshindexnumber,meshcomponentnumber,coupledmeshelementnumber,err,error,*999)

    exits("cmfe_InterfacePointsConnectivity_ElementNumberGetObj")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_ElementNumberGetObj",err,error)
    exits("cmfe_InterfacePointsConnectivity_ElementNumberGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_elementnumbergetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacepointsconnectivity_elementnumbersetnumber(regionUserNumber,interfaceUserNumber, &
     &  interfacedatapointindexnumber,coupledmeshindexnumber,coupledmeshelementnumber,meshcomponentnumber,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_ElementNumberSetNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceDataPointIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshElementNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: interface
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError
    
    enters("cmfe_InterfacePointsConnectivity_ElementNumberSetNumber",err,error,*999)
 
    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interfacepointsconnectivity_elementnumberset(interface%pointsConnectivity,interfacedatapointindexnumber, &
         & coupledmeshindexnumber,coupledmeshelementnumber,meshcomponentnumber,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfacePointsConnectivity_ElementNumberSetNumber")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_ElementNumberSetNumber",err,error)
    exits("cmfe_InterfacePointsConnectivity_ElementNumberSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_elementnumbersetnumber
  
  !  
  !================================================================================================================================
  !   

  SUBROUTINE cmfe_interfacepointsconnectivity_elementnumbersetobj(interfacePointsConnectivity,interfaceDataPointIndexNumber, &
      & coupledmeshindexnumber,coupledmeshelementnumber,meshcomponentnumber,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_ElementNumberSetObj)
  
    !Argument variables
    TYPE(cmfe_interfacepointsconnectivitytype), INTENT(IN) :: InterfacePointsConnectivity
    INTEGER(INTG), INTENT(IN) :: interfaceDataPointIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshElementNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
  
    enters("cmfe_InterfacePointsConnectivity_ElementNumberSetObj",err,error,*999)
 
    CALL interfacepointsconnectivity_elementnumberset(interfacepointsconnectivity%pointsConnectivity, &
      & interfacedatapointindexnumber,coupledmeshindexnumber,coupledmeshelementnumber,meshcomponentnumber,err,error,*999)

    exits("cmfe_InterfacePointsConnectivity_ElementNumberSetObj")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_ElementNumberSetObj",err,error)
    exits("cmfe_InterfacePointsConnectivity_ElementNumberSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_elementnumbersetobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacepointsconnectivity_pointxigetnumber(regionUserNumber,interfaceUserNumber, &
      & interfacedatapointindexnumber,coupledmeshindexnumber,xi,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_PointXiGetNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceDataPointIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    REAL(DP), INTENT(OUT) :: xi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: interface
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError
    
    enters("cmfe_InterfacePointsConnectivity_PointXiGetNumber",err,error,*999)
 
    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interfacepointsconnectivity_pointxiget(interface%pointsConnectivity,interfacedatapointindexnumber, &
         & coupledmeshindexnumber,xi,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfacePointsConnectivity_PointXiGetNumber")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_PointXiGetNumber",err,error)
    exits("cmfe_InterfacePointsConnectivity_PointXiGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_pointxigetnumber

  !
  !================================================================================================================================
  !
 
  SUBROUTINE cmfe_interfacepointsconnectivity_pointxigetobj(interfacePointsConnectivity,interfaceDataPointIndexNumber, & 
     &  coupledmeshindexnumber,xi,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_PointXiGetObj)
  
    !Argument variables
    TYPE(cmfe_interfacepointsconnectivitytype), INTENT(IN) :: InterfacePointsConnectivity
    INTEGER(INTG), INTENT(IN) :: interfaceDataPointIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    REAL(DP), INTENT(OUT) :: xi(:)
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
  
    enters("cmfe_InterfacePointsConnectivity_PointXiGetObj",err,error,*999)
 
    CALL interfacepointsconnectivity_pointxiget(interfacepointsconnectivity%pointsConnectivity, &
      & interfacedatapointindexnumber,coupledmeshindexnumber,xi,err,error,*999)

    exits("cmfe_InterfacePointsConnectivity_PointXiGetObj")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_PointXiGetObj",err,error)
    exits("cmfe_InterfacePointsConnectivity_PointXiGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_pointxigetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacepointsconnectivity_pointxisetnumber(regionUserNumber,interfaceUserNumber, &
      & interfacedatapointindexnumber,coupledmeshindexnumber,xi,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_PointXiSetNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceDataPointIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    REAL(DP), INTENT(IN) :: xi(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: interface
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError
    
    enters("cmfe_InterfacePointsConnectivity_PointXiSetNumber",err,error,*999)
 
    NULLIFY(region)
    NULLIFY(interface)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interfacepointsconnectivity_pointxiset(interface%pointsConnectivity,interfacedatapointindexnumber, &
         & coupledmeshindexnumber,xi,err,error,*999)
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfacePointsConnectivity_PointXiSetNumber")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_PointXiSetNumber",err,error)
    exits("cmfe_InterfacePointsConnectivity_PointXiSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_pointxisetnumber

  !
  !================================================================================================================================
  !
 
  SUBROUTINE cmfe_interfacepointsconnectivity_pointxisetobj(interfacePointsConnectivity,interfaceDataPointIndexNumber, & 
     &  coupledmeshindexnumber,xi,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_PointXiSetObj)
  
    !Argument variables
    TYPE(cmfe_interfacepointsconnectivitytype), INTENT(IN) :: InterfacePointsConnectivity
    INTEGER(INTG), INTENT(IN) :: interfaceDataPointIndexNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndexNumber
    REAL(DP), INTENT(IN) :: xi(:)
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
  
    enters("cmfe_InterfacePointsConnectivity_PointXiSetObj",err,error,*999)
 
    CALL interfacepointsconnectivity_pointxiset(interfacepointsconnectivity%pointsConnectivity, &
      & interfacedatapointindexnumber,coupledmeshindexnumber,xi,err,error,*999)

    exits("cmfe_InterfacePointsConnectivity_PointXiSetObj")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_PointXiSetObj",err,error)
    exits("cmfe_InterfacePointsConnectivity_PointXiSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_pointxisetobj
  
  !  
  !================================================================================================================================
  !  

  SUBROUTINE cmfe_interfacepointsconnectivity_updatefromprojectionrnumber(regionUserNumber,interfaceUserNumber, &
      & datapointsregionusernumber,dataprojectionusernumber,coupledmeshindex,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_UpdateFromProjectionRNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointsRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    INTEGER(INTG) :: dataProjectionGlobalNumber
    TYPE(interface_type), POINTER :: interface
    TYPE(region_type), POINTER :: ParentRegion,dataPointsRegion
    TYPE(data_points_type), POINTER :: dataPoints
    TYPE(data_projection_type), POINTER :: dataProjection
    TYPE(varying_string) :: localError
    
    enters("cmfe_InterfacePointsConnectivity_UpdateFromProjectionRNumber",err,error,*999)
 
    NULLIFY(parentregion)
    NULLIFY(datapointsregion)
    NULLIFY(interface)
    NULLIFY(datapoints)
    NULLIFY(dataprojection)
    CALL region_user_number_find(regionusernumber,parentregion,err,error,*999)
    IF(ASSOCIATED(parentregion)) THEN
      CALL interface_user_number_find(interfaceusernumber,parentregion,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL region_user_number_find(datapointsregionusernumber,datapointsregion,err,error,*999)
        CALL region_data_points_get(datapointsregion,datapoints,err,error,*999)
        CALL datapoints_dataprojectionglobalnumberget(datapoints,dataprojectionusernumber,dataprojectionglobalnumber, &
          & err,error,*999)
        CALL data_points_data_projection_get(datapoints,dataprojectionglobalnumber,dataprojection,err,error,*999)
        CALL interfacepointsconnectivity_updatefromprojection(interface%PointsConnectivity, &
          & dataprojection,coupledmeshindex,err,error,*999) 
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfacePointsConnectivity_UpdateFromProjectionRNumber")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_UpdateFromProjectionRNumber",err,error)
    exits("cmfe_InterfacePointsConnectivity_UpdateFromProjectionRNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_updatefromprojectionrnumber
  
  !  
  !================================================================================================================================
  !  

  SUBROUTINE cmfe_interfacepointsconnectivity_updatefromprojectioninumber(regionUserNumber,interfaceUserNumber, &
    & datapointsregionusernumber,datapointsinterfaceusernumber,dataprojectionusernumber,coupledmeshindex,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_UpdateFromProjectionINumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointsRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: dataPointsInterfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: dataProjectionUserNumber
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    INTEGER(INTG) :: dataProjectionGlobalNumber
    TYPE(interface_type), POINTER :: interface,dataPointsInterface
    TYPE(region_type), POINTER :: ParentRegion,dataPointsRegion
    TYPE(data_points_type), POINTER :: dataPoints
    TYPE(data_projection_type), POINTER :: dataProjection
    TYPE(varying_string) :: localError
    
    enters("cmfe_InterfacePointsConnectivity_UpdateFromProjectionINumber",err,error,*999)
 
    NULLIFY(parentregion)
    NULLIFY(datapointsregion)
    NULLIFY(interface)
    NULLIFY(datapointsinterface)
    NULLIFY(datapoints)
    NULLIFY(dataprojection)
    CALL region_user_number_find(regionusernumber,parentregion,err,error,*999)
    IF(ASSOCIATED(parentregion)) THEN
      CALL interface_user_number_find(interfaceusernumber,parentregion,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL region_user_number_find(datapointsregionusernumber,datapointsregion,err,error,*999)
        CALL interface_user_number_find(datapointsinterfaceusernumber,datapointsregion,datapointsinterface,err,error,*999)
        CALL interface_data_points_get(datapointsinterface,datapoints,err,error,*999)
        CALL datapoints_dataprojectionglobalnumberget(datapoints,dataprojectionusernumber,dataprojectionglobalnumber, &
          & err,error,*999)
        CALL data_points_data_projection_get(datapoints,dataprojectionglobalnumber,dataprojection,err,error,*999)
        CALL interfacepointsconnectivity_updatefromprojection(interface%PointsConnectivity, &
          & dataprojection,coupledmeshindex,err,error,*999) 
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfacePointsConnectivity_UpdateFromProjectionINumber")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_UpdateFromProjectionINumber",err,error)
    exits("cmfe_InterfacePointsConnectivity_UpdateFromProjectionINumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_updatefromprojectioninumber
  
  !  
  !================================================================================================================================
  !  

  SUBROUTINE cmfe_interfacepointsconnectivity_updatefromprojectionobj(pointsConnectivity,dataProjection, &
      & coupledmeshindex,err)
    !DLLEXPORT(cmfe_InterfacePointsConnectivity_UpdateFromProjectionObj)
  
    !Argument variables
    TYPE(cmfe_interfacepointsconnectivitytype), INTENT(IN) :: pointsConnectivity
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: dataProjection
    INTEGER(INTG), INTENT(IN) :: coupledMeshIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    
    enters("cmfe_InterfacePointsConnectivity_UpdateFromProjectionObj",err,error,*999)
 
    CALL interfacepointsconnectivity_updatefromprojection(pointsconnectivity%pointsConnectivity, &
      & dataprojection%dataProjection,coupledmeshindex,err,error,*999) 

    exits("cmfe_InterfacePointsConnectivity_UpdateFromProjectionObj")
    RETURN
999 errors("cmfe_InterfacePointsConnectivity_UpdateFromProjectionObj",err,error)
    exits("cmfe_InterfacePointsConnectivity_UpdateFromProjectionObj")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacepointsconnectivity_updatefromprojectionobj

!!==================================================================================================================================
!!
!! INTERFACE_CONDITIONS_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_interfacecondition_createfinishnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber,err)
    !DLLEXPORT(cmfe_InterfaceCondition_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_CreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_create_finish(interface_condition,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_createfinishobj(interfaceCondition,err)
    !DLLEXPORT(cmfe_InterfaceCondition_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_CreateFinishObj",err,error,*999)

    CALL interface_condition_create_finish(interfacecondition%interfaceCondition,err,error,*999)

    exits("cmfe_InterfaceCondition_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_createstartnumber(interfaceConditionUserNumber,regionUserNumber,interfaceUserNumber, &
    & geometricfieldusernumber,err)
    !DLLEXPORT(cmfe_InterfaceCondition_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: geometricFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: GEOMETRIC_FIELD
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_CreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(geometric_field)
    NULLIFY(interface_condition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL field_user_number_find(geometricfieldusernumber,interface,geometric_field,err,error,*999)
        IF(ASSOCIATED(geometric_field)) THEN
          CALL interface_condition_create_start(interfaceconditionusernumber,interface,geometric_field,interface_condition, &
            & err,error,*999)
        ELSE
          localerror="A field with an user number of "//trim(numbertovstring(geometricfieldusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " in the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_createstartobj(interfaceConditionUserNumber,interface,geometricField,interfaceCondition,err)
    !DLLEXPORT(cmfe_InterfaceCondition_CreateStartObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    TYPE(cmfe_fieldtype), INTENT(IN) :: geometricField
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_CreateStartObj",err,error,*999)

    CALL interface_condition_create_start(interfaceconditionusernumber,interface%interface,geometricfield%field, &
      & interfacecondition%interfaceCondition,err,error,*999)

    exits("cmfe_InterfaceCondition_CreateStartObj")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_createstartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_dependentvariableaddnumber(interfaceRegionUserNumber,interfaceUserNumber, &
    & interfaceconditionusernumber,meshindex,equationssetregionusernumber,equationssetusernumber,variabletype,err)
    !DLLEXPORT(cmfe_InterfaceCondition_DependentVariableAddNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: interfaceRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshIndex
    INTEGER(INTG), INTENT(IN) :: equationsSetRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: EQUATIONS_SET_REGION,INTERFACE_REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_DependentVariableAddNumber",err,error,*999)

    NULLIFY(interface_region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    NULLIFY(equations_set_region)
    NULLIFY(equations_set)
    CALL region_user_number_find(interfaceregionusernumber,interface_region,err,error,*999)
    IF(ASSOCIATED(interface_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,interface_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL region_user_number_find(equationssetregionusernumber,equations_set_region,err,error,*999)
          IF(ASSOCIATED(equations_set_region)) THEN
            CALL equations_set_user_number_find(equationssetusernumber,equations_set_region,equations_set,err,error,*999)
            IF(ASSOCIATED(equations_set)) THEN
              CALL interface_condition_dependent_variable_add(interface_condition,meshindex,equations_set,variabletype, &
                & err,error,*999)
            ELSE
              localerror="An equations set with an user number of "// &
                & trim(numbertovstring(equationssetusernumber,"*",err,error))// &
                & " does not exist on region number "//trim(numbertovstring(equationssetregionusernumber,"*",err,error))//"."
              CALL flagerror(localerror,err,error,*999)
            END IF
          ELSE
            localerror="The equations set region with an user number of "// &
              & trim(numbertovstring(equationssetregionusernumber,"*",err,error))//" does not exist."
            CALL flagerror(localerror,err,error,*999)
          END IF
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(interfaceregionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(interfaceregionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="The interface region with an user number of "// &
        & trim(numbertovstring(interfaceregionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_DependentVariableAddNumber")
    RETURN
999 errors("cmfe_InterfaceCondition_DependentVariableAddNumber",err,error)
    exits("cmfe_InterfaceCondition_DependentVariableAddNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_dependentvariableaddnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_dependentvariableaddobj(interfaceCondition,meshIndex,equationsSet,variableType,err)
    !DLLEXPORT(cmfe_InterfaceCondition_DependentVariableAddObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(IN) :: meshIndex
    TYPE(cmfe_equationssettype), INTENT(IN) :: equationsSet
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_DependentVariableAddObj",err,error,*999)

    CALL interface_condition_dependent_variable_add(interfacecondition%interfaceCondition,meshindex,equationsset%equationsSet, &
      & variabletype,err,error,*999)

    exits("cmfe_InterfaceCondition_DependentVariableAddObj")
    RETURN
999 errors("cmfe_InterfaceCondition_DependentVariableAddObj",err,error)
    exits("cmfe_InterfaceCondition_DependentVariableAddObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_dependentvariableaddobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_destroynumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber,err)
    !DLLEXPORT(cmfe_InterfaceCondition_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_FInterfaceConditionDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_destroy(interface_condition,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_DestroyNumber")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_destroyobj(interfaceCondition,err)
    !DLLEXPORT(cmfe_InterfaceCondition_DestroyObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_DestroyObj",err,error,*999)

    CALL interface_condition_destroy(interfacecondition%interfaceCondition,err,error,*999)

    exits("cmfe_InterfaceCondition_DestroyObj")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_destroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_equationscreatefinishnumber(regionUserNumber,interfaceUserNumber, &
    & interfaceconditionusernumber,err)
    !DLLEXPORT(cmfe_InterfaceCondition_EquationsCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_EquationsCreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_equations_create_finish(interface_condition,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_EquationsCreateFinishNumber")
    RETURN
999 errors("cmfe_InterfaceCondition_EquationsCreateFinishNumber",err,error)
    exits("cmfe_InterfaceCondition_EquationsCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_equationscreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_equationscreatefinishobj(interfaceCondition,err)
    !DLLEXPORT(cmfe_InterfaceCondition_EquationsCreateFinishObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_EquationsCreateFinishObj",err,error,*999)

    CALL interface_condition_equations_create_finish(interfacecondition%interfaceCondition,err,error,*999)

    exits("cmfe_InterfaceCondition_EquationsCreateFinishObj")
    RETURN
999 errors("cmfe_InterfaceCondition_EquationsCreateFinishObj",err,error)
    exits("cmfe_InterfaceCondition_EquationsCreateFinishObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_equationscreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_equationscreatestartnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber, &
    & err)
    !DLLEXPORT(cmfe_InterfaceCondition_EquationsCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(interface_equations_type), POINTER :: INTERFACE_EQUATIONS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_EquationsCreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    NULLIFY(interface_equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_equations_create_start(interface_condition,interface_equations,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_EquationsCreateStartNumber")
    RETURN
999 errors("cmfe_InterfaceCondition_EquationsCreateStartNumber",err,error)
    exits("cmfe_InterfaceCondition_EquationsCreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_equationscreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_equationscreatestartobj(interfaceCondition,interfaceEquations,err)
    !DLLEXPORT(cmfe_InterfaceCondition_EquationsCreateStartObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    TYPE(cmfe_interfaceequationstype), INTENT(IN) :: interfaceEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_EquationsCreateStartObj",err,error,*999)

    CALL interface_condition_equations_create_start(interfacecondition%interfaceCondition,interfaceequations% &
      & interfaceequations,err,error,*999)

    exits("cmfe_InterfaceCondition_EquationsCreateStartObj")
    RETURN
999 errors("cmfe_InterfaceCondition_EquationsCreateStartObj",err,error)
    exits("cmfe_InterfaceCondition_EquationsCreateStartObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_equationscreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_equationsdestroynumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber,err)
    !DLLEXPORT(cmfe_InterfaceCondition_EquationsDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_FInterfaceConditionEquationsDestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_equations_destroy(interface_condition,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_EquationsDestroyNumber")
    RETURN
999 errors("cmfe_InterfaceCondition_EquationsDestroyNumber",err,error)
    exits("cmfe_InterfaceCondition_EquationsDestroyNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_equationsdestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_equationsdestroyobj(interfaceCondition,err)
    !DLLEXPORT(cmfe_InterfaceCondition_EquationsDestroyObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_EquationsDestroyObj",err,error,*999)

    CALL interface_condition_equations_destroy(interfacecondition%interfaceCondition,err,error,*999)

    exits("cmfe_InterfaceCondition_EquationsDestroyObj")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_EquationsDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_equationsdestroyobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_integrationtypegetnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber, &
    & interfaceconditionintegrationtype,err)
    !DLLEXPORT(cmfe_InterfaceCondition_IntegrationTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: interfaceConditionIntegrationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: interface
    TYPE(interface_condition_type), POINTER :: interfaceCondition
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_IntegrationTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interfacecondition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interfacecondition,err,error,*999)
        IF(ASSOCIATED(interfacecondition)) THEN
          CALL interfacecondition_integrationtypeget(interfacecondition,interfaceconditionintegrationtype,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_IntegrationTypeGetNumber")
    RETURN
999 errors("cmfe_InterfaceCondition_IntegrationTypeGetNumber",err,error)
    exits("cmfe_InterfaceCondition_IntegrationTypeGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_integrationtypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_integrationtypegetobj(interfaceCondition,interfaceConditionIntegrationType,err)
    !DLLEXPORT(cmfe_InterfaceCondition_IntegrationTypeGetObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(OUT) :: interfaceConditionIntegrationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_IntegrationTypeGetObj",err,error,*999)

    CALL interfacecondition_integrationtypeget(interfacecondition%interfaceCondition,interfaceconditionintegrationtype, &
      & err,error,*999)

    exits("cmfe_InterfaceCondition_IntegrationTypeGetObj")
    RETURN
999 errors("cmfe_InterfaceCondition_IntegrationTypeGetObj",err,error)
    exits("cmfe_InterfaceCondition_IntegrationTypeGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_integrationtypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_integrationtypesetnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber, &
    & interfaceconditionintegrationtype,err)
    !DLLEXPORT(cmfe_InterfaceCondition_IntegrationTypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionIntegrationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: interface
    TYPE(interface_condition_type), POINTER :: interfaceCondition
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_IntegrationTypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interfacecondition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interfacecondition,err,error,*999)
        IF(ASSOCIATED(interfacecondition)) THEN
          CALL interfacecondition_integrationtypeset(interfacecondition,interfaceconditionintegrationtype,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_IntegrationTypeSetNumber")
    RETURN
999 errors("cmfe_InterfaceCondition_IntegrationTypeSetNumber",err,error)
    exits("cmfe_InterfaceCondition_IntegrationTypeSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_integrationtypesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_integrationtypesetobj(interfaceCondition,interfaceConditionIntegrationType,err)
    !DLLEXPORT(cmfe_InterfaceCondition_IntegrationTypeSetObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(IN) :: interfaceConditionIntegrationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_MethodSetObj",err,error,*999)

    CALL interfacecondition_integrationtypeset(interfacecondition%interfaceCondition,interfaceconditionintegrationtype, &
      & err,error,*999)

    exits("cmfe_InterfaceCondition_IntegrationTypeSetObj")
    RETURN
999 errors("cmfe_InterfaceCondition_IntegrationTypeSetObj",err,error)
    exits("cmfe_InterfaceCondition_IntegrationTypeSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_integrationtypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_lagrangefieldcreatefinishnumber(regionUserNumber,interfaceUserNumber, &
    & interfaceconditionusernumber,err)
    !DLLEXPORT(cmfe_InterfaceCondition_LagrangeFieldCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_LagrangeFieldCreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interfacecondition_lagrangefieldcreatefinish(interface_condition,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_LagrangeFieldCreateFinishNumber")
    RETURN
999 errors("cmfe_InterfaceCondition_LagrangeFieldCreateFinishNumber",err,error)
    exits("cmfe_InterfaceCondition_LagrangeFieldCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_lagrangefieldcreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_lagrangefieldcreatefinishobj(interfaceCondition,err)
    !DLLEXPORT(cmfe_InterfaceCondition_LagrangeFieldCreateFinishObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_LagrangeFieldCreateFinishObj",err,error,*999)

    CALL interfacecondition_lagrangefieldcreatefinish(interfacecondition%interfaceCondition,err,error,*999)

    exits("cmfe_InterfaceCondition_LagrangeFieldCreateFinishObj")
    RETURN
999 errors("cmfe_InterfaceCondition_LagrangeFieldCreateFinishObj",err,error)
    exits("cmfe_InterfaceCondition_LagrangeFieldCreateFinishObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_lagrangefieldcreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_lagrangefieldcreatestartnumber(regionUserNumber,interfaceUserNumber, &
    & interfaceconditionusernumber,lagrangefieldusernumber,err)
    !DLLEXPORT(cmfe_InterfaceCondition_LagrangeFieldCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(IN) :: lagrangeFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(field_type), POINTER :: LAGRANGE_FIELD
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_LagrangeFieldCreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    NULLIFY(lagrange_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interfacecondition_lagrangefieldcreatestart(interface_condition,lagrangefieldusernumber,lagrange_field, &
            & err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_LagrangeFieldCreateStartNumber")
    RETURN
999 errors("cmfe_InterfaceCondition_LagrangeFieldCreateStartNumber",err,error)
    exits("cmfe_InterfaceCondition_LagrangeFieldCreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_lagrangefieldcreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_lagrangefieldcreatestartobj(interfaceCondition,lagrangeFieldUserNumber,lagrangeField,err)
    !DLLEXPORT(cmfe_InterfaceCondition_LagrangeFieldCreateStartObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(IN) :: lagrangeFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: lagrangeField
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_LagrangeFieldCreateStartObj",err,error,*999)

    CALL interfacecondition_lagrangefieldcreatestart(interfacecondition%interfaceCondition,lagrangefieldusernumber, &
      & lagrangefield%field,err,error,*999)

    exits("cmfe_InterfaceCondition_LagrangeFieldCreateStartObj")
    RETURN
999 errors("cmfe_InterfaceCondition_LagrangeFieldCreateStartObj",err,error)
    exits("cmfe_InterfaceCondition_LagrangeFieldCreateStartObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_lagrangefieldcreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_penaltyfieldcreatefinishnumber(RegionUserNumber,InterfaceUserNumber, &
    & interfaceconditionusernumber,err)
    !DLLEXPORT(cmfe_InterfaceCondition_PenaltyFieldCreateFinishNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: RegionUserNumber
    INTEGER(INTG), INTENT(IN) :: InterfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: InterfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError
    
    enters("cmfe_InterfaceCondition_PenaltyFieldCreateFinishNumber",err,error,*999)
 
    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interfacecondition_penaltyfieldcreatefinish(interface_condition,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfaceCondition_PenaltyFieldCreateFinishNumber")
    RETURN
999 errors("cmfe_InterfaceCondition_PenaltyFieldCreateFinishNumber",err,error)
    exits("cmfe_InterfaceCondition_PenaltyFieldCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacecondition_penaltyfieldcreatefinishnumber

  !  
  !================================================================================================================================
  !  
 
  SUBROUTINE cmfe_interfacecondition_penaltyfieldcreatefinishobj(InterfaceCondition,err)
    !DLLEXPORT(cmfe_InterfaceCondition_PenaltyFieldCreateFinishObj)
  
    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: InterfaceCondition
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
  
    enters("cmfe_InterfaceCondition_PenaltyFieldCreateFinishObj",err,error,*999)
 
    CALL interfacecondition_penaltyfieldcreatefinish(interfacecondition%interfaceCondition,err,error,*999)

    exits("cmfe_InterfaceCondition_PenaltyFieldCreateFinishObj")
    RETURN
999 errors("cmfe_InterfaceCondition_PenaltyFieldCreateFinishObj",err,error)
    exits("cmfe_InterfaceCondition_PenaltyFieldCreateFinishObj")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacecondition_penaltyfieldcreatefinishobj

  !  
  !================================================================================================================================
  !  
 
  SUBROUTINE cmfe_interfacecondition_penaltyfieldcreatestartnumber(RegionUserNumber,InterfaceUserNumber, &
    & interfaceconditionusernumber,penaltyfieldusernumber,err)
    !DLLEXPORT(cmfe_InterfaceCondition_PenaltyFieldCreateStartNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: RegionUserNumber
    INTEGER(INTG), INTENT(IN) :: InterfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: InterfaceConditionUserNumber
    INTEGER(INTG), INTENT(IN) :: PenaltyFieldUserNumber
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
    TYPE(field_type), POINTER :: PENALTY_FIELD
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError
    
    enters("cmfe_InterfaceCondition_PenaltyFieldCreateStartNumber",err,error,*999)
 
    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    NULLIFY(penalty_field)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interfacecondition_penaltyfieldcreatestart(interface_condition,penaltyfieldusernumber,penalty_field, &
            & err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_InterfaceCondition_PenaltyFieldCreateStartNumber")
    RETURN
999 errors("cmfe_InterfaceCondition_PenaltyFieldCreateStartNumber",err,error)
    exits("cmfe_InterfaceCondition_PenaltyFieldCreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacecondition_penaltyfieldcreatestartnumber

  !  
  !================================================================================================================================
  !  
 
  SUBROUTINE cmfe_interfacecondition_penaltyfieldcreatestartobj(InterfaceCondition,PenaltyFieldUserNumber,PenaltyField,err)
    !DLLEXPORT(cmfe_InterfaceCondition_PenaltyFieldCreateStartObj)
  
    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: InterfaceCondition
    INTEGER(INTG), INTENT(IN) :: PenaltyFieldUserNumber
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: PenaltyField
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
  
    enters("cmfe_InterfaceCondition_PenaltyFieldCreateStartObj",err,error,*999)
 
    CALL interfacecondition_penaltyfieldcreatestart(interfacecondition%interfaceCondition,penaltyfieldusernumber, &
      & penaltyfield%field,err,error,*999)

    exits("cmfe_InterfaceCondition_PenaltyFieldCreateStartObj")
    RETURN
999 errors("cmfe_InterfaceCondition_PenaltyFieldCreateStartObj",err,error)
    exits("cmfe_InterfaceCondition_PenaltyFieldCreateStartObj")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacecondition_penaltyfieldcreatestartobj

  !  
  !================================================================================================================================
  !   

  SUBROUTINE cmfe_interfacecondition_methodgetnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber, &
    & interfaceconditionmethod,err)
    !DLLEXPORT(cmfe_InterfaceCondition_MethodGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: interfaceConditionMethod
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_MethodGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_method_get(interface_condition,interfaceconditionmethod,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_MethodGetNumber")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_MethodGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_methodgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_methodgetobj(interfaceCondition,interfaceConditionMethod,err)
    !DLLEXPORT(cmfe_InterfaceCondition_MethodGetObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(OUT) :: interfaceConditionMethod
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_MethodGetObj",err,error,*999)

    CALL interface_condition_method_get(interfacecondition%interfaceCondition,interfaceconditionmethod,err,error,*999)

    exits("cmfe_InterfaceCondition_MethodGetObj")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_MethodGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_methodgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_methodsetnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber, &
    & interfaceconditionmethod,err)
    !DLLEXPORT(cmfe_InterfaceCondition_MethodSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionMethod
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_MethodSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_method_set(interface_condition,interfaceconditionmethod,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_MethodSetNumber")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_MethodSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_methodsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_methodsetobj(interfaceCondition,interfaceConditionMethod,err)
    !DLLEXPORT(cmfe_InterfaceCondition_MethodSetObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(IN) :: interfaceConditionMethod
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_MethodSetObj",err,error,*999)

    CALL interface_condition_method_set(interfacecondition%interfaceCondition,interfaceconditionmethod,err,error,*999)

    exits("cmfe_InterfaceCondition_MethodSetObj")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_MethodSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_methodsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_operatorgetnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber, &
    & interfaceconditionoperator,err)
    !DLLEXPORT(cmfe_InterfaceCondition_OperatorGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: interfaceConditionOperator
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_OperatorGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_operator_get(interface_condition,interfaceconditionoperator,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_OperatorGetNumber")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_OperatorGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_operatorgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_operatorgetobj(interfaceCondition,interfaceConditionOperator,err)
    !DLLEXPORT(cmfe_InterfaceCondition_OperatorGetObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(OUT) :: interfaceConditionOperator
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_OperatorGetObj",err,error,*999)

    CALL interface_condition_operator_get(interfacecondition%interfaceCondition,interfaceconditionoperator, &
      & err,error,*999)

    exits("cmfe_InterfaceCondition_OperatorGetObj")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_OperatorGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_operatorgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_operatorsetnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber, &
    & interfaceconditionoperator,err)
    !DLLEXPORT(cmfe_InterfaceCondition_OperatorSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionOperator
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceCondition_OperatorSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_operator_set(interface_condition,interfaceconditionoperator,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceCondition_OperatorSetNumber")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_OperatorSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_operatorsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfacecondition_operatorsetobj(interfaceCondition,interfaceConditionOperator,err)
    !DLLEXPORT(cmfe_InterfaceCondition_OperatorSetObj)

    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(IN) :: interfaceConditionOperator
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceCondition_OperatorSetObj",err,error,*999)

    CALL interface_condition_operator_set(interfacecondition%interfaceCondition,interfaceconditionoperator, &
      & err,error,*999)

    exits("cmfe_InterfaceCondition_OperatorSetObj")
    RETURN
999 errorsexits("cmfe_InterfaceCondition_OperatorSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfacecondition_operatorsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfaceequations_outputtypegetnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber, &
    & outputtype,err)
    !DLLEXPORT(cmfe_InterfaceEquations_OutputTypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(interface_equations_type), POINTER :: INTERFACE_EQUATIONS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceEquations_OutputTypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    NULLIFY(interface_equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_equations_get(interface_condition,interface_equations,err,error,*999)
          CALL interface_equations_output_type_get(interface_equations,outputtype,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceEquations_OutputTypeGetNumber")
    RETURN
999 errorsexits("cmfe_InterfaceEquations_OutputTypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfaceequations_outputtypegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfaceequations_outputtypegetobj(interfaceEquations,outputType,err)
    !DLLEXPORT(cmfe_InterfaceEquations_OutputTypeGetObj)

    !Argument variables
    TYPE(cmfe_interfaceequationstype), INTENT(IN) :: interfaceEquations
    INTEGER(INTG), INTENT(OUT) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceEquations_OutputTypeGetObj",err,error,*999)

    CALL interface_equations_output_type_get(interfaceequations%interfaceEquations,outputtype,err,error,*999)

    exits("cmfe_InterfaceEquations_OutputTypeGetObj")
    RETURN
999 errorsexits("cmfe_InterfaceEquations_OutputTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfaceequations_outputtypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfaceequations_outputtypesetnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber, &
    & outputtype,err)
    !DLLEXPORT(cmfe_InterfaceEquations_OutputTypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(IN) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(interface_equations_type), POINTER :: INTERFACE_EQUATIONS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceEquations_OutputTypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    NULLIFY(interface_equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_equations_get(interface_condition,interface_equations,err,error,*999)
          CALL interface_equations_output_type_set(interface_equations,outputtype,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceEquations_OutputTypeSetNumber")
    RETURN
999 errorsexits("cmfe_InterfaceEquations_OutputTypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfaceequations_outputtypesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfaceequations_outputtypesetobj(interfaceEquations,outputType,err)
    !DLLEXPORT(cmfe_InterfaceEquations_OutputTypeSetObj)

    !Argument variables
    TYPE(cmfe_interfaceequationstype), INTENT(IN) :: interfaceEquations
    INTEGER(INTG), INTENT(IN) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceEquations_OutputTypeSetObj",err,error,*999)

    CALL interface_equations_output_type_set(interfaceequations%interfaceEquations,outputtype,err,error,*999)

    exits("cmfe_InterfaceEquations_OutputTypeSetObj")
    RETURN
999 errorsexits("cmfe_InterfaceEquations_OutputTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfaceequations_outputtypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfaceequations_sparsitygetnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber, &
    & sparsitytype,err)
    !DLLEXPORT(cmfe_InterfaceEquations_SparsityGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(interface_equations_type), POINTER :: INTERFACE_EQUATIONS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceEquations_SparsityGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    NULLIFY(interface_equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_equations_get(interface_condition,interface_equations,err,error,*999)
          CALL interface_equations_sparsity_type_get(interface_equations,sparsitytype,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceEquations_SparsityGetNumber")
    RETURN
999 errorsexits("cmfe_InterfaceEquations_SparsityGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfaceequations_sparsitygetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfaceequations_sparsitygetobj(interfaceEquations,sparsityType,err)
    !DLLEXPORT(cmfe_InterfaceEquations_SparsityGetObj)

    !Argument variables
    TYPE(cmfe_interfaceequationstype), INTENT(IN) :: interfaceEquations
    INTEGER(INTG), INTENT(OUT) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceEquations_SparsityGetObj",err,error,*999)

    CALL interface_equations_sparsity_type_get(interfaceequations%interfaceEquations,sparsitytype,err,error,*999)

    exits("cmfe_InterfaceEquations_SparsityGetObj")
    RETURN
999 errorsexits("cmfe_InterfaceEquations_SparsityGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfaceequations_sparsitygetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfaceequations_sparsitysetnumber(regionUserNumber,interfaceUserNumber,interfaceConditionUserNumber, &
    & sparsitytype,err)
    !DLLEXPORT(cmfe_InterfaceEquations_SparsitySetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(IN) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(interface_equations_type), POINTER :: INTERFACE_EQUATIONS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_InterfaceEquations_SparsitySetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    NULLIFY(interface_equations)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL interface_user_number_find(interfaceusernumber,region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
        IF(ASSOCIATED(interface_condition)) THEN
          CALL interface_condition_equations_get(interface_condition,interface_equations,err,error,*999)
          CALL interface_equations_sparsity_type_set(interface_equations,sparsitytype,err,error,*999)
        ELSE
          localerror="An interface condition with an user number of "// &
            & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
            & " does not exist on the interface with a user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " defined on a region with a user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_InterfaceEquations_SparsitySetNumber")
    RETURN
999 errorsexits("cmfe_InterfaceEquations_SparsitySetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfaceequations_sparsitysetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_interfaceequations_sparsitysetobj(interfaceEquations,sparsityType,err)
    !DLLEXPORT(cmfe_InterfaceEquations_SparsitySetObj)

    !Argument variables
    TYPE(cmfe_interfaceequationstype), INTENT(IN) :: interfaceEquations
    INTEGER(INTG), INTENT(IN) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_InterfaceEquations_SparsitySetObj",err,error,*999)

    CALL interface_equations_sparsity_type_set(interfaceequations%interfaceEquations,sparsitytype,err,error,*999)

    exits("cmfe_InterfaceEquations_SparsitySetObj")
    RETURN
999 errorsexits("cmfe_InterfaceEquations_SparsitySetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_interfaceequations_sparsitysetobj

!!==================================================================================================================================
!!
!! MESH_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_decomposition_createfinishnumber(regionUserNumber,meshUserNumber,decompositionUserNumber,err)
    !DLLEXPORT(cmfe_Decomposition_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_CreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_create_finish(decomposition,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Decomposition Create')
#endif

    exits("cmfe_Decomposition_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_createfinishobj(decomposition,err)
    !DLLEXPORT(cmfe_Decomposition_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_CreateFinishObj",err,error,*999)

    CALL decomposition_create_finish(decomposition%decomposition,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('decomposition Create')
#endif

    exits("cmfe_Decomposition_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_Decomposition_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_topologydataprojectioncalculateobj(decomposition,err)
    !DLLEXPORT(cmfe_Decomposition_TopologyDataProjectionCalculateObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_TopologyDataProjectionCalculateObj",err,error,*999)

    CALL decompositiontopology_dataprojectioncalculate(decomposition%decomposition%TOPOLOGY,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('cmfe_Decomposition_TopologyDataProjectionCalculateObj',err,error,*999)
#endif

    exits("cmfe_Decomposition_TopologyDataProjectionCalculateObj")
    RETURN
999 errors("cmfe_Decomposition_TopologyDataProjectionCalculateObj",err,error)
    exits("cmfe_Decomposition_TopologyDataProjectionCalculateObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_topologydataprojectioncalculateobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_topologyelementdatapointlocalnumbergetobj(decomposition,elementNumber,dataPointIndex, &
       & datapointlocalnumber,err)
    !DLLEXPORT(cmfe_Decomposition_TopologyElementDataPointLocalNumberGetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: dataPointIndex
    INTEGER(INTG), INTENT(OUT) :: dataPointLocalNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_TopologyElementDataPointLocalNumberGetObj",err,error,*999)

    CALL decompositiontopology_elementdatapointlocalnumberget(decomposition%decomposition%TOPOLOGY,elementnumber,datapointindex, &
     & datapointlocalnumber,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('cmfe_Decomposition_TopologyElementDataPointLocalNumberGetObj',err,error,*999)
#endif

    exits("cmfe_Decomposition_TopologyElementDataPointLocalNumberGetObj")
    RETURN
999 errors("cmfe_Decomposition_TopologyElementDataPointLocalNumberGetObj",err,error)
    exits("cmfe_Decomposition_TopologyElementDataPointLocalNumberGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_topologyelementdatapointlocalnumbergetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_topologyelementdatapointusernumbergetobj(decomposition,elementNumber,dataPointIndex, &
       & datapointusernumber,err)
    !DLLEXPORT(cmfe_Decomposition_TopologyElementDataPointUserNumberGetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(IN) :: dataPointIndex
    INTEGER(INTG), INTENT(OUT) :: dataPointUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_TopologyElementDataPointUserNumberGetObj",err,error,*999)

    CALL decompositiontopology_elementdatapointusernumberget(decomposition%decomposition%TOPOLOGY,elementnumber,datapointindex, &
     & datapointusernumber,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('cmfe_Decomposition_TopologyElementDataPointUserNumberGetObj',err,error,*999)
#endif

    exits("cmfe_Decomposition_TopologyElementDataPointUserNumberGetObj")
    RETURN
999 errors("cmfe_Decomposition_TopologyElementDataPointUserNumberGetObj",err,error)
    exits("cmfe_Decomposition_TopologyElementDataPointUserNumberGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_topologyelementdatapointusernumbergetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_topologynumberofelementdatapointsgetobj(decomposition,elementNumber,numberOfDataPoints,err)
    !DLLEXPORT(cmfe_Decomposition_TopologyNumberOfElementDataPointsGetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(IN) :: elementNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfDataPoints
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_TopologyNumberOfElementDataPointsGetObj",err,error,*999)

    CALL decompositiontopology_numberofelementdatapointsget(decomposition%decomposition%TOPOLOGY,elementnumber, &
     & numberofdatapoints,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('cmfe_Decomposition_TopologyNumberOfElementDataPointsGetObj',err,error,*999)
#endif

    exits("cmfe_Decomposition_TopologyNumberOfElementDataPointsGetObj")
    RETURN
999 errors("cmfe_Decomposition_TopologyNumberOfElementDataPointsGetObj",err,error)
    exits("cmfe_Decomposition_TopologyNumberOfElementDataPointsGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_topologynumberofelementdatapointsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_createstartnumber(decompositionUserNumber,regionUserNumber,meshUserNumber,err)
    !DLLEXPORT(cmfe_Decomposition_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_CreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Decomposition Create')
#endif

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_create_start(decompositionusernumber,mesh,decomposition,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_createstartobj(decompositionUserNumber,mesh,decomposition,err)
    !DLLEXPORT(cmfe_Decomposition_CreateStartObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    TYPE(cmfe_decompositiontype), INTENT(INOUT) :: decomposition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_CreateStartObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('decomposition Create')
#endif

    CALL decomposition_create_start(decompositionusernumber,mesh%mesh,decomposition%decomposition,err,error,*999)

    exits("cmfe_Decomposition_CreateStartObj")
    RETURN
999 errorsexits("cmfe_Decomposition_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_createstartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_destroynumber(regionUserNumber,meshUserNumber,decompositionUserNumber,err)
    !DLLEXPORT(cmfe_Decomposition_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_DestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_destroy(decomposition,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_DestroyNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_destroyobj(decomposition,err)
    !DLLEXPORT(cmfe_Decomposition_DestroyObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_DestroyObj",err,error,*999)

    CALL decomposition_destroy(decomposition%decomposition,err,error,*999)

    exits("cmfe_Decomposition_DestroyObj")
    RETURN
999 errorsexits("cmfe_Decomposition_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_destroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_elementdomaincalculatenumber(regionUserNumber,meshUserNumber,decompositionUserNumber,err)
    !DLLEXPORT(cmfe_Decomposition_ElementDomainCalculateNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_ElementDomainCalculateNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_element_domain_calculate(decomposition,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_ElementDomainCalculateNumber")
    RETURN
999 errors("cmfe_Decomposition_ElementDomainCalculateNumber",err,error)
    exits("cmfe_Decomposition_ElementDomainCalculateNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_elementdomaincalculatenumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_elementdomaincalculateobj(decomposition,err)
    !DLLEXPORT(cmfe_Decomposition_ElementDomainCalculateObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_ElementDomainCalculateObj",err,error,*999)

    CALL decomposition_element_domain_calculate(decomposition%decomposition,err,error,*999)

    exits("cmfe_Decomposition_ElementDomainCalculateObj")
    RETURN
999 errors("cmfe_Decomposition_ElementDomainCalculateObj",err,error)
    exits("cmfe_Decomposition_ElementDomainCalculateObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_elementdomaincalculateobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_elementdomaingetnumber(regionUserNumber,meshUserNumber,decompositionUserNumber, &
    & elementusernumber,domain,err)
    !DLLEXPORT(cmfe_Decomposition_ElementDomainGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    INTEGER(INTG), INTENT(OUT) :: domain
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_ElementDomainGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_element_domain_get(decomposition,elementusernumber,domain,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_ElementDomainGetNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_ElementDomainGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_elementdomaingetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_elementdomaingetobj(decomposition,elementUserNumber,domain,err)
    !DLLEXPORT(cmfe_Decomposition_ElementDomainGetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    INTEGER(INTG), INTENT(OUT) :: domain
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_ElementDomainGetObj",err,error,*999)

    CALL decomposition_element_domain_get(decomposition%decomposition,elementusernumber,domain,err,error,*999)

    exits("cmfe_Decomposition_ElementDomainGetObj")
    RETURN
999 errorsexits("cmfe_Decomposition_ElementDomainGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_elementdomaingetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_elementdomainsetnumber(regionUserNumber,meshUserNumber,decompositionUserNumber, &
    & elementusernumber,domain,err)
    !DLLEXPORT(cmfe_Decomposition_ElementDomainSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    INTEGER(INTG), INTENT(IN) :: domain
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_ElementDomainSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_element_domain_set(decomposition,elementusernumber,domain,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_ElementDomainSetNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_ElementDomainSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_elementdomainsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_elementdomainsetobj(decomposition,elementUserNumber,domain,err)
    !DLLEXPORT(cmfe_Decomposition_ElementDomainSetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    INTEGER(INTG), INTENT(IN) :: domain
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_ElementDomainSetObj",err,error,*999)

    CALL decomposition_element_domain_set(decomposition%decomposition,elementusernumber,domain,err,error,*999)

    exits("cmfe_Decomposition_ElementDomainSetObj")
    RETURN
999 errorsexits("cmfe_Decomposition_ElementDomainSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_elementdomainsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_meshcomponentgetnumber(regionUserNumber,meshUserNumber,decompositionUserNumber, &
    & meshcomponentnumber,err)
    !DLLEXPORT(cmfe_Decomposition_MeshComponentGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(OUT) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_MeshComponentGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_mesh_component_number_get(decomposition,meshcomponentnumber,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_MeshComponentGetNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_MeshComponentGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_meshcomponentgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_meshcomponentgetobj(decomposition,meshComponentNumber,err)
    !DLLEXPORT(cmfe_Decomposition_MeshComponentGetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(OUT) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_MeshComponentGetObj",err,error,*999)

    CALL decomposition_mesh_component_number_get(decomposition%decomposition,meshcomponentnumber,err,error,*999)

    exits("cmfe_Decomposition_MeshComponentGetObj")
    RETURN
999 errorsexits("cmfe_Decomposition_MeshComponentGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_meshcomponentgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_meshcomponentsetnumber(regionUserNumber,meshUserNumber,decompositionUserNumber, &
    & meshcomponentnumber,err)
    !DLLEXPORT(cmfe_Decomposition_MeshComponentSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_MeshComponentSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_mesh_component_number_set(decomposition,meshcomponentnumber,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_MeshComponentSetNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_MeshComponentSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_meshcomponentsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_meshcomponentsetobj(decomposition,meshComponentNumber,err)
    !DLLEXPORT(cmfe_Decomposition_MeshComponentSetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_MeshComponentSetObj",err,error,*999)

    CALL decomposition_mesh_component_number_set(decomposition%decomposition,meshcomponentnumber,err,error,*999)

    exits("cmfe_Decomposition_MeshComponentSetObj")
    RETURN
999 errorsexits("cmfe_Decomposition_MeshComponentSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_meshcomponentsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_numberofdomainsgetnumber(regionUserNumber,meshUserNumber,decompositionUserNumber, &
    & numberofdomains,err)
    !DLLEXPORT(cmfe_Decomposition_NumberOfDomainsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfDomains
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_NumberOfDomainsGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_number_of_domains_get(decomposition,numberofdomains,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_NumberOfDomainsGetNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_NumberOfDomainsGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_numberofdomainsgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_numberofdomainsgetobj(decomposition,numberOfDomains,err)
    !DLLEXPORT(cmfe_Decomposition_NumberOfDomainsGetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(OUT) :: numberOfDomains
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_NumberOfDomainsGetObj",err,error,*999)

    CALL decomposition_number_of_domains_get(decomposition%decomposition,numberofdomains,err,error,*999)

    exits("cmfe_Decomposition_NumberOfDomainsGetObj")
    RETURN
999 errorsexits("cmfe_Decomposition_NumberOfDomainsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_numberofdomainsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_numberofdomainssetnumber(regionUserNumber,meshUserNumber,decompositionUserNumber, &
    & numberofdomains,err)
    !DLLEXPORT(cmfe_Decomposition_NumberOfDomainsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(IN) :: numberOfDomains
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_NumberOfDomainsSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_number_of_domains_set(decomposition,numberofdomains,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_NumberOfDomainsSetNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_NumberOfDomainsSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_numberofdomainssetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_numberofdomainssetobj(decomposition,numberOfDomains,err)
    !DLLEXPORT(cmfe_Decomposition_NumberOfDomainsSetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(IN) :: numberOfDomains
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_NumberOfDomainsSetObj",err,error,*999)

    CALL decomposition_number_of_domains_set(decomposition%decomposition,numberofdomains,err,error,*999)

    exits("cmfe_Decomposition_NumberOfDomainsSetObj")
    RETURN
999 errorsexits("cmfe_Decomposition_NumberOfDomainsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_numberofdomainssetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_typegetnumber(regionUserNumber,meshUserNumber,decompositionUserNumber,decompositionType,err)
    !DLLEXPORT(cmfe_Decomposition_TypeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(OUT) :: decompositionType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_TypeGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_type_get(decomposition,decompositiontype,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_TypeGetNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_TypeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_typegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_typegetobj(decomposition,decompositionType,err)
    !DLLEXPORT(cmfe_Decomposition_TypeGetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(OUT) :: decompositionType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_TypeGetObj",err,error,*999)

    CALL decomposition_type_get(decomposition%decomposition,decompositiontype,err,error,*999)

    exits("cmfe_Decomposition_TypeGetObj")
    RETURN
999 errorsexits("cmfe_Decomposition_TypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_typegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_typesetnumber(regionUserNumber,meshUserNumber,decompositionUserNumber,decompositionType,err)
    !DLLEXPORT(cmfe_Decomposition_TypeSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_TypeSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_type_set(decomposition,decompositiontype,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_TypeSetNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_TypeSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_typesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_typesetobj(decomposition,decompositionType,err)
    !DLLEXPORT(cmfe_Decomposition_TypeSetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(IN) :: decompositionType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_TypeSetObj",err,error,*999)

    CALL decomposition_type_set(decomposition%decomposition,decompositiontype,err,error,*999)

    exits("cmfe_Decomposition_TypeSetObj")
    RETURN
999 errorsexits("cmfe_Decomposition_TypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_typesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_calculatelinessetnumber(regionUserNumber,meshUserNumber,&
                                                     & decompositionusernumber,calculatelinesflag,err)
    !DLLEXPORT(cmfe_Decomposition_CalculateLinesSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    LOGICAL, INTENT(IN) :: calculateLinesFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_CalculateLinesSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_calculate_lines_set(decomposition,calculatelinesflag,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_CalculateLinesSetNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_CalculateLinesSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_calculatelinessetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_calculatelinessetobj(decomposition,calculateLinesFlag,err)
    !DLLEXPORT(cmfe_Decomposition_CalculateLinesSetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    LOGICAL, INTENT(IN) :: calculateLinesFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_CalculateLinesSetObj",err,error,*999)

    CALL decomposition_calculate_lines_set(decomposition%decomposition,calculatelinesflag,err,error,*999)

    exits("cmfe_Decomposition_CalculateLinesSetObj")
    RETURN
999 errorsexits("cmfe_Decomposition_CalculateLinesSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_calculatelinessetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_calculatefacessetnumber(regionUserNumber,meshUserNumber, &
                                                     & decompositionusernumber,calculatefacesflag,err)
    !DLLEXPORT(cmfe_Decomposition_CalculateFacesSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    LOGICAL, INTENT(IN) :: calculateFacesFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_CalculateFacesSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_calculate_faces_set(decomposition,calculatefacesflag,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_CalculateFacesSetNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_CalculateFacesSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_calculatefacessetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_calculatefacessetobj(decomposition,calculateFacesFlag,err)
    !DLLEXPORT(cmfe_Decomposition_CalculateFacesSetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    LOGICAL, INTENT(IN) :: calculateFacesFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_CalculateFacesSetObj",err,error,*999)

    CALL decomposition_calculate_faces_set(decomposition%decomposition,calculatefacesflag,err,error,*999)

    exits("cmfe_Decomposition_CalculateFacesSetObj")
    RETURN
999 errorsexits("cmfe_Decomposition_CalculateFacesSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_calculatefacessetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_nodedomaingetnumber(regionUserNumber,meshUserNumber,decompositionUserNumber, &
    & nodeusernumber,meshcomponentnumber,domain,err)
    !DLLEXPORT(cmfe_Decomposition_NodeDomainGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: decompositionUserNumber
    INTEGER(INTG), INTENT(IN) :: nodeUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: domain
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(decomposition_type), POINTER :: DECOMPOSITION
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Decomposition_NodeDomainGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(decomposition)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL decomposition_user_number_find(decompositionusernumber,mesh,decomposition,err,error,*999)
        IF(ASSOCIATED(decomposition)) THEN
          CALL decomposition_node_domain_get(decomposition,nodeusernumber,meshcomponentnumber,domain,err,error,*999)
        ELSE
          localerror="A decomposition with an user number of "//trim(numbertovstring(decompositionusernumber,"*",err,error))// &
            & " does not exist on the mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Decomposition_NodeDomainGetNumber")
    RETURN
999 errorsexits("cmfe_Decomposition_NodeDomainGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_nodedomaingetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_decomposition_nodedomaingetobj(decomposition,nodeUserNumber,meshComponentNumber,domain,err)
    !DLLEXPORT(cmfe_Decomposition_NodeDomainGetObj)

    !Argument variables
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(IN) :: nodeUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: domain
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Decomposition_NodeDomainGetObj",err,error,*999)

    CALL decomposition_node_domain_get(decomposition%decomposition,nodeusernumber,meshcomponentnumber,domain,err,error,*999)

    exits("cmfe_Decomposition_NodeDomainGetObj")
    RETURN
999 errorsexits("cmfe_Decomposition_NodeDomainGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_decomposition_nodedomaingetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_createfinishnumber(regionUserNumber,meshUserNumber,err)
    !DLLEXPORT(cmfe_Mesh_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Mesh_CreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_create_finish(mesh,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Mesh Create')
#endif

    exits("cmfe_Mesh_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_Mesh_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_createfinishobj(mesh,err)
    !DLLEXPORT(cmfe_Mesh_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Mesh_CreateFinishObj",err,error,*999)

    CALL mesh_create_finish(mesh%mesh,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('mesh Create')
#endif

    exits("cmfe_Mesh_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_Mesh_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_createstartnumber(meshUserNumber,regionUserNumber,numberOfDimensions,err)
    !DLLEXPORT(cmfe_Mesh_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: numberOfDimensions
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Mesh_CreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Mesh Create')
#endif

    NULLIFY(region)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_create_start(meshusernumber,region,numberofdimensions,mesh,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Mesh_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_Mesh_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_createstartobj(meshUserNumber,region,numberOfDimensions,mesh,err)
    !DLLEXPORT(cmfe_Mesh_CreateStartObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    INTEGER(INTG), INTENT(IN) :: numberOfDimensions
    TYPE(cmfe_meshtype), INTENT(INOUT) :: mesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Mesh_CreateStartObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('mesh Create')
#endif

    CALL mesh_create_start(meshusernumber,region%region,numberofdimensions,mesh%mesh,err,error,*999)

    exits("cmfe_Mesh_CreateStartObj")
    RETURN
999 errorsexits("cmfe_Mesh_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_createstartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_createstartinterfaceobj(meshUserNumber,interface,numberOfDimensions,mesh,err)
    !DLLEXPORT(cmfe_Mesh_CreateStartInterfaceObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    INTEGER(INTG), INTENT(IN) :: numberOfDimensions
    TYPE(cmfe_meshtype), INTENT(INOUT) :: mesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Mesh_CreateStartInterfaceObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('mesh Create')
#endif

    CALL mesh_create_start(meshusernumber,interface%interface,numberofdimensions,mesh%mesh,err,error,*999)

    exits("cmfe_Mesh_CreateStartInterfaceObj")
    RETURN
999 errorsexits("cmfe_Mesh_CreateStartInterfaceObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_createstartinterfaceobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_destroynumber(regionUserNumber,meshUserNumber,err)
    !DLLEXPORT(cmfe_Mesh_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Mesh_DestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_destroy(mesh,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Mesh_DestroyNumber")
    RETURN
999 errorsexits("cmfe_Mesh_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_destroyobj(mesh,err)
    !DLLEXPORT(cmfe_Mesh_DestroyObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Mesh_DestroyObj",err,error,*999)

    CALL mesh_destroy(mesh%mesh,err,error,*999)

    exits("cmfe_Mesh_DestroyObj")
    RETURN
999 errorsexits("cmfe_Mesh_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_destroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_numberofcomponentsgetnumber(regionUserNumber,meshUserNumber,numberOfComponents,err)
    !DLLEXPORT(cmfe_Mesh_NumberOfComponentsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfComponents
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Mesh_NumberOfComponentsGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_number_of_components_get(mesh,numberofcomponents,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Mesh_NumberOfComponentsGetNumber")
    RETURN
999 errorsexits("cmfe_Mesh_NumberOfComponentsGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_numberofcomponentsgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_numberofcomponentsgetobj(mesh,numberOfComponents,err)
    !DLLEXPORT(cmfe_Mesh_NumberOfComponentsGetObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(OUT) :: numberOfComponents
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Mesh_NumberOfComponentsGetObj",err,error,*999)

    CALL mesh_number_of_components_get(mesh%mesh,numberofcomponents,err,error,*999)

    exits("cmfe_Mesh_NumberOfComponentsGetObj")
    RETURN
999 errorsexits("cmfe_Mesh_NumberOfComponentsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_numberofcomponentsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_numberofcomponentssetnumber(regionUserNumber,meshUserNumber,numberOfComponents,err)
    !DLLEXPORT(cmfe_Mesh_NumberOfComponentsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: numberOfComponents
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Mesh_NumberOfComponentsSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_number_of_components_set(mesh,numberofcomponents,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Mesh_NumberOfComponentsSetNumber")
    RETURN
999 errorsexits("cmfe_Mesh_NumberOfComponentsSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_numberofcomponentssetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_numberofcomponentssetobj(mesh,numberOfComponents,err)
    !DLLEXPORT(cmfe_Mesh_NumberOfComponentsSetObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(IN) :: numberOfComponents
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Mesh_NumberOfComponentsSetObj",err,error,*999)

    CALL mesh_number_of_components_set(mesh%mesh,numberofcomponents,err,error,*999)

    exits("cmfe_Mesh_NumberOfComponentsSetObj")
    RETURN
999 errorsexits("cmfe_Mesh_NumberOfComponentsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_numberofcomponentssetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_surroundingelementscalculatesetnumber(regionUserNumber,meshUserNumber,surroundingElementsCalculateFlag,err)
    !DLLEXPORT(cmfe_Mesh_SurroundingElementsCalculateSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    LOGICAL, INTENT(IN) :: surroundingElementsCalculateFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Mesh_SurroundingElementsCalculateSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_surrounding_elements_calculate_set(mesh,surroundingelementscalculateflag,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Mesh_SurroundingElementsCalculateSetNumber")
    RETURN
999 errors("cmfe_Mesh_SurroundingElementsCalculateSetNumber",err,error)
    exits("cmfe_Mesh_SurroundingElementsCalculateSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_surroundingelementscalculatesetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_surroundingelementscalculatesetobj(mesh,surroundingElementsCalculateFlag,err)
    !DLLEXPORT(cmfe_Mesh_SurroundingElementsCalculateSetObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    LOGICAL, INTENT(IN) :: surroundingElementsCalculateFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Mesh_SurroundingElementsCalculateSetObj",err,error,*999)

    CALL mesh_surrounding_elements_calculate_set(mesh%mesh,surroundingelementscalculateflag,err,error,*999)

    exits("cmfe_Mesh_SurroundingElementsCalculateSetObj")
    RETURN
999 errors("cmfe_Mesh_SurroundingElementsCalculateSetObj",err,error)
    exits("cmfe_Mesh_SurroundingElementsCalculateSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_surroundingelementscalculatesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_numberofelementsgetnumber(regionUserNumber,meshUserNumber,numberOfElements,err)
    !DLLEXPORT(cmfe_Mesh_NumberOfElementsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Mesh_NumberOfElementsGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_number_of_elements_get(mesh,numberofelements,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Mesh_NumberOfElementsGetNumber")
    RETURN
999 errorsexits("cmfe_Mesh_NumberOfElementsGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_numberofelementsgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_numberofelementsgetobj(mesh,numberOfElements,err)
    !DLLEXPORT(cmfe_Mesh_NumberOfElementsGetObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(OUT) :: numberOfElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Mesh_NumberOfElementsGetObj",err,error,*999)

    CALL mesh_number_of_elements_get(mesh%mesh,numberofelements,err,error,*999)

    exits("cmfe_Mesh_NumberOfElementsGetObj")
    RETURN
999 errorsexits("cmfe_Mesh_NumberOfElementsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_numberofelementsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_numberofelementssetnumber(regionUserNumber,meshUserNumber,numberOfElements,err)
    !DLLEXPORT(cmfe_Mesh_NumberOfElementsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: numberOfElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Mesh_NumberOfElementsSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_number_of_elements_set(mesh,numberofelements,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Mesh_NumberOfElementsSetNumber")
    RETURN
999 errorsexits("cmfe_Mesh_NumberOfElementsSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_numberofelementssetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_numberofelementssetobj(mesh,numberOfElements,err)
    !DLLEXPORT(cmfe_Mesh_NumberOfElementsSetObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(IN) :: numberOfElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Mesh_NumberOfElementsSetObj",err,error,*999)

    CALL mesh_number_of_elements_set(mesh%mesh,numberofelements,err,error,*999)

    exits("cmfe_Mesh_NumberOfElementsSetObj")
    RETURN
999 errorsexits("cmfe_Mesh_NumberOfElementsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_numberofelementssetobj
  
  !
  !================================================================================================================================
  !
  
  SUBROUTINE cmfe_mesh_topologydatapointscalculateprojectionregionnumber(regionUserNumber,MeshUserNumber, &
      & dataprojection,err)
    !DLLEXPORT(cmfe_Mesh_TopologyDataPointsCalculateProjectionRegionNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: MeshUserNumber
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: DataProjection
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError
    
    enters("cmfe_Mesh_TopologyDataPointsCalculateProjectionRegionNumber",err,error,*999)
 
    NULLIFY(region)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL meshtopologydatapointscalculateprojection(mesh,dataprojection%dataProjection,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Mesh_TopologyDataPointsCalculateProjectionRegionNumber")
    RETURN
999 errors("cmfe_Mesh_TopologyDataPointsCalculateProjectionRegionNumber",err,error)
    exits("cmfe_Mesh_TopologyDataPointsCalculateProjectionRegionNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_mesh_topologydatapointscalculateprojectionregionnumber
  
  !  
  !================================================================================================================================
  !  

  SUBROUTINE cmfe_mesh_topologydatapointscalculateprojectioninterfacenumber(parentRegionUserNumber,interfaceUserNumber, &
      & meshusernumber,dataprojection,err)
    !DLLEXPORT(cmfe_Mesh_TopologyDataPointsCalculateProjectionInterfaceNumber)
  
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: parentregionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: MeshUserNumber
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: DataProjection
    INTEGER(INTG), INTENT(OUT) :: Err
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: PARENT_REGION
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(varying_string) :: localError
    
    enters("cmfe_Mesh_TopologyDataPointsCalculateProjectionInterfaceNumber",err,error,*999)
 
    NULLIFY(parent_region)
    NULLIFY(interface)
    NULLIFY(mesh)
    CALL region_user_number_find(parentregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL interface_user_number_find(interfaceusernumber,parent_region,interface,err,error,*999)
      IF(ASSOCIATED(interface)) THEN
        CALL mesh_user_number_find(meshusernumber,interface,mesh,err,error,*999)
        IF(ASSOCIATED(mesh)) THEN
          CALL meshtopologydatapointscalculateprojection(mesh,dataprojection%dataProjection,err,error,*999)        
        ELSE
          localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
            & " does not exist on the region with an user number of "//trim(numbertovstring(parentregionusernumber, &
            & "*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="An interface with an user number of "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Mesh_TopologyDataPointsCalculateProjectionInterfaceNumber")
    RETURN
999 errors("cmfe_Mesh_TopologyDataPointsCalculateProjectionInterfaceNumber",err,error)
    exits("cmfe_Mesh_TopologyDataPointsCalculateProjectionInterfaceNumber")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_mesh_topologydatapointscalculateprojectioninterfacenumber
  
  !  
  !================================================================================================================================
  !  
  
  SUBROUTINE cmfe_mesh_topologydatapointscalculateprojectionobj(Mesh,DataProjection,err)
    !DLLEXPORT(cmfe_Mesh_TopologyDataPointsCalculateProjectionObj)
  
  !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: Mesh
    TYPE(cmfe_dataprojectiontype), INTENT(IN) :: DataProjection
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local variables
  
    enters("cmfe_Mesh_TopologyDataPointsCalculateProjectionObj",err,error,*999)
    
    CALL meshtopologydatapointscalculateprojection(mesh%mesh,dataprojection%dataProjection,err,error,*999)
 
    exits("cmfe_Mesh_TopologyDataPointsCalculateProjectionObj")
    RETURN
999 errors("cmfe_Mesh_TopologyDataPointsCalculateProjectionObj",err,error)
    exits("cmfe_Mesh_TopologyDataPointsCalculateProjectionObj")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_mesh_topologydatapointscalculateprojectionobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_createfinishnumber(regionUserNumber,meshUserNumber,meshComponentNumber,err)
    !DLLEXPORT(cmfe_MeshElements_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_MeshElements_CreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(mesh_elements)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,mesh_elements,err,error,*999)
        CALL mesh_topology_elements_create_finish(mesh_elements,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_MeshElements_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_createfinishobj(meshElements,err)
    !DLLEXPORT(cmfe_MeshElements_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(IN) :: meshElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshElements_CreateFinishObj",err,error,*999)

    CALL mesh_topology_elements_create_finish(meshelements%meshElements,err,error,*999)

    exits("cmfe_MeshElements_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_MeshElements_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_createstartnumber(regionUserNumber,meshUserNumber,meshComponentNumber,basisUserNumber,err)
    !DLLEXPORT(cmfe_MeshElements_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: basisUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_MeshElements_CreateStartNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(basis)
    NULLIFY(mesh_elements)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL basis_user_number_find(basisusernumber,basis,err,error,*999)
        IF(ASSOCIATED(basis)) THEN
          CALL mesh_topology_elements_create_start(mesh,meshcomponentnumber,basis,mesh_elements,err,error,*999)
        ELSE
          localerror="A basis with an user number of "//trim(numbertovstring(basisusernumber,"*",err,error))// &
            & " does not exist."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_MeshElements_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_createstartobj(mesh,meshComponentNumber,basis,meshElements,err)
    !DLLEXPORT(cmfe_MeshElements_CreateStartObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(INOUT) :: mesh
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    TYPE(cmfe_meshelementstype), INTENT(INOUT) :: meshElements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshElements_CreateStartObj",err,error,*999)

    CALL mesh_topology_elements_create_start(mesh%mesh,meshcomponentnumber,basis%basis,meshelements%meshElements,err,error,*999)

    exits("cmfe_MeshElements_CreateStartObj")
    RETURN
999 errorsexits("cmfe_MeshElements_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_createstartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_elementsgetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,meshElements,err)
    !DLLEXPORT(cmfe_Mesh_ElementsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    TYPE(cmfe_meshelementstype), INTENT(INOUT) :: meshElements
    INTEGER(INTG), INTENT(OUT) :: err

    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Mesh_ElementsGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,meshelements%meshElements,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Mesh_ElementsGetNumber")
    RETURN
999 errorsexits("cmfe_Mesh_ElementsGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_elementsgetnumber


  !
  !================================================================================================================================
  !

  !user number.
  SUBROUTINE cmfe_mesh_elementsgetobj(mesh,meshComponentNumber,meshElements,err)
    !DLLEXPORT(cmfe_Mesh_ElementsGetObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    TYPE(cmfe_meshelementstype), INTENT(INOUT) :: meshElements
    INTEGER(INTG), INTENT(OUT) :: err

    !Local variables

    enters("cmfe_Mesh_ElementsGetObj",err,error,*999)

    CALL mesh_topology_elements_get(mesh%mesh,meshcomponentnumber,meshelements%meshElements,err,error,*999)

    exits("cmfe_Mesh_ElementsGetObj")
    RETURN
999 errorsexits("cmfe_Mesh_ElementsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_elementsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_basisgetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,globalElementNumber, &
    & basisusernumber,err)
    !DLLEXPORT(cmfe_MeshElements_BasisGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(OUT) :: basisUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_MeshElements_BasisGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(mesh_elements)
    NULLIFY(basis)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,mesh_elements,err,error,*999)
        CALL mesh_topology_elements_element_basis_get(globalelementnumber,mesh_elements,basis,err,error,*999)
        IF(ASSOCIATED(basis)) THEN
          basisusernumber = basis%USER_NUMBER
        ELSE
          localerror="The basis is not associated for global element number "// &
            & trim(numbertovstring(globalelementnumber,"*",err,error))//" of mesh component number "// &
            & trim(numbertovstring(meshcomponentnumber,"*",err,error))//" from the mesh with a user number of "//&
            & trim(numbertovstring(meshusernumber,"*",err,error))//" in the region with a user number of "// &
            & trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_BasisGetNumber")
    RETURN
999 errorsexits("cmfe_MeshElements_BasisGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_basisgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_basisgetobj(meshElements,globalElementNumber,basis,err)
    !DLLEXPORT(cmfe_MeshElements_BasisGetObj)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(IN) :: meshElements
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshElements_BasisGetObj",err,error,*999)

    CALL mesh_topology_elements_element_basis_get(globalelementnumber,meshelements%meshElements,basis%basis,err,error,*999)

    exits("cmfe_MeshElements_BasisGetObj")
    RETURN
999 errorsexits("cmfe_MeshElements_BasisGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_basisgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_basissetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,globalElementNumber, &
    & basisusernumber,err)
    !DLLEXPORT(cmfe_MeshElements_BasisSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(IN) :: basisUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(basis_type), POINTER :: BASIS
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_MeshElements_BasisSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(mesh_elements)
    NULLIFY(basis)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,mesh_elements,err,error,*999)
        CALL basis_user_number_find(basisusernumber,basis,err,error,*999)
        IF(ASSOCIATED(basis)) THEN
          CALL mesh_topology_elements_element_basis_set(globalelementnumber,mesh_elements,basis,err,error,*999)
        ELSE
          localerror="A basis with an user number of "//trim(numbertovstring(basisusernumber,"*",err,error))// &
            & " does not exist."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_BasisSetNumber")
    RETURN
999 errorsexits("cmfe_MeshElements_BasisSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_basissetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_basissetobj(meshElements,globalElementNumber,basis,err)
    !DLLEXPORT(cmfe_MeshElements_BasisSetObj)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(IN) :: meshElements
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshElements_BasisSetObj",err,error,*999)

    CALL mesh_topology_elements_element_basis_set(globalelementnumber,meshelements%meshElements,basis%basis,err,error,*999)

    exits("cmfe_MeshElements_BasisSetObj")
    RETURN
999 errorsexits("cmfe_MeshElements_BasisSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_basissetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_adjacentelementgetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,globalElementNumber, &
    & adjacentelementxi,adjacentelement,err)
    !DLLEXPORT(cmfe_MeshElements_AdjacentElementGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(IN) :: adjacentElementXi
    INTEGER(INTG), INTENT(OUT) :: adjacentElement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_MeshElements_AdjacentElementGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(mesh_elements)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,mesh_elements,err,error,*999)
        CALL mesh_topology_elements_adjacent_element_get(globalelementnumber,mesh_elements,adjacentelementxi,adjacentelement, &
          & err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_AdjacentElementGetNumber")
    RETURN
999 errorsexits("cmfe_MeshElements_AdjacentElementGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_adjacentelementgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_adjacentelementgetobj(meshElements,globalElementNumber,adjacentElementXi,adjacentElement,err)
    !DLLEXPORT(cmfe_MeshElements_AdjacentElementGetObj)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(IN) :: meshElements
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(IN) :: adjacentElementXi
    INTEGER(INTG), INTENT(OUT) :: adjacentElement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshElements_AdjacentElementGetObj",err,error,*999)

    CALL mesh_topology_elements_adjacent_element_get(globalelementnumber,meshelements%meshElements,adjacentelementxi, &
      & adjacentelement,err,error,*999)

    exits("cmfe_MeshElements_AdjacentElementGetObj")
    RETURN
999 errorsexits("cmfe_MeshElements_AdjacentElementGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_adjacentelementgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_nodesgetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,globalElementNumber, &
    & elementusernodes,err)
    !DLLEXPORT(cmfe_MeshElements_NodesGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(OUT) :: elementUserNodes(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_MeshElements_NodesGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(mesh_elements)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,mesh_elements,err,error,*999)
        CALL mesh_topology_elements_element_nodes_get(globalelementnumber,mesh_elements,elementusernodes,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_NodesGetNumber")
    RETURN
999 errorsexits("cmfe_MeshElements_NodesGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_nodesgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_nodesgetobj(meshElements,globalElementNumber,elementUserNodes,err)
    !DLLEXPORT(cmfe_MeshElements_NodesGetObj)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(IN) :: meshElements
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(OUT) :: elementUserNodes(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshElements_NodesGetObj",err,error,*999)

    CALL mesh_topology_elements_element_nodes_get(globalelementnumber,meshelements%meshElements,elementusernodes,err,error,*999)

    exits("cmfe_MeshElements_NodesGetObj")
    RETURN
999 errorsexits("cmfe_MeshElements_NodesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_nodesgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_nodessetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,globalElementNumber, &
    & elementusernodes,err)
    !DLLEXPORT(cmfe_MeshElements_NodesSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(IN) :: elementUserNodes(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_MeshElements_NodesSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(mesh_elements)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,mesh_elements,err,error,*999)
        CALL mesh_topology_elements_element_nodes_set(globalelementnumber,mesh_elements,elementusernodes,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_NodesSetNumber")
    RETURN
999 errorsexits("cmfe_MeshElements_NodesSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_nodessetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_nodessetobj(meshElements,globalElementNumber,elementUserNodes,err)
    !DLLEXPORT(cmfe_MeshElements_NodesSetObj)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(IN) :: meshElements
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(IN) :: elementUserNodes(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshElements_NodesSetObj",err,error,*999)

    CALL mesh_topology_elements_element_nodes_set(globalelementnumber,meshelements%meshElements,elementusernodes,err,error,*999)

    exits("cmfe_MeshElements_NodesSetObj")
    RETURN
999 errorsexits("cmfe_MeshElements_NodesSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_nodessetobj


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_usernodeversionsetnumber(regionUserNumber,meshUserNumber,globalElementNumber,versionNumber, &
    & derivativenumber,usernodenumber,meshcomponentnumber,err)
    !DLLEXPORT(cmfe_MeshElements_UserNodeVersionSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber

    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: localelementnode
    LOGICAL :: FOUND

    enters("cmfe_MeshElements_UserNodeVersionSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(mesh_elements)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,mesh_elements,err,error,*999)
        found=.false.
        DO localelementnode=1,mesh_elements%ELEMENTS(globalelementnumber)%basis%NUMBER_OF_NODES
          IF(mesh_elements%ELEMENTS(globalelementnumber)%USER_ELEMENT_NODES(localelementnode)==usernodenumber) THEN
            found=.true.
            EXIT
          END IF
        END DO !localelementnode
        IF(found) THEN
          CALL meshelements_elementnodeversionset(globalelementnumber,mesh_elements,versionnumber,derivativenumber, &
            & localelementnode,err,error,*999)
        ELSE
          localerror="User node number "//trim(numbertovstring(usernodenumber,"*",err,error))// &
            & " does not exist in element number "//trim(numbertovstring(globalelementnumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_UserNodeVersionSetNumber")
    RETURN
999 errorsexits("cmfe_MeshElements_UserNodeVersionSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_usernodeversionsetnumber

  !
  !================================================================================================================================
   !

  SUBROUTINE cmfe_meshelements_usernodeversionsetobj(meshElements,globalElementNumber,versionNumber,derivativeNumber, &
    & usernodenumber,err)
    !DLLEXPORT(cmfe_MeshElements_UserNodeVersionSetObj)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(IN) :: meshElements
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(varying_string) :: localError
    INTEGER(INTG) :: localelementnode
    LOGICAL :: FOUND

    enters("cmfe_MeshElements_UserNodeVersionSetObj",err,error,*999)

    found=.false.
    DO localelementnode=1,meshelements%meshElements%ELEMENTS(globalelementnumber)%basis%NUMBER_OF_NODES
      IF(meshelements%meshElements%ELEMENTS(globalelementnumber)%USER_ELEMENT_NODES(localelementnode)==usernodenumber) THEN
        found=.true.
        EXIT
      END IF
    END DO !localelementnode
    IF(found) THEN
      CALL meshelements_elementnodeversionset(globalelementnumber,meshelements%meshElements,versionnumber, &
         & derivativenumber,localelementnode,err,error,*999)
    ELSE
      localerror="User node number "//trim(numbertovstring(usernodenumber,"*",err,error))// &
        & " does not exist in element number "//trim(numbertovstring(globalelementnumber,"*",err,error))//"."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_UserNodeVersionSetObj")
    RETURN
999 errorsexits("cmfe_MeshElements_UserNodeVersionSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_usernodeversionsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_localelementnodeversionsetnumber(regionUserNumber,meshUserNumber,globalElementNumber,versionNumber, &
    & derivativenumber,localelementnodenumber,meshcomponentnumber,err)
    !DLLEXPORT(cmfe_MeshElements_LocalElementNodeVersionSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: localElementNodeNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber

    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_MeshElements_LocalElementNodeVersionSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(mesh_elements)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,mesh_elements,err,error,*999)
        CALL meshelements_elementnodeversionset(globalelementnumber,mesh_elements,versionnumber,derivativenumber, &
          & localelementnodenumber,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_LocalElementNodeVersionSetNumber")
    RETURN
999 errors("cmfe_MeshElements_LocalElementNodeVersionSetNumber",err,error)
    exits("cmfe_MeshElements_LocalElementNodeVersionSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_localelementnodeversionsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_localelementnodeversionsetobj(meshElements,globalElementNumber,versionNumber,derivativeNumber, &
    & localelementnodenumber,err)
    !DLLEXPORT(cmfe_MeshElements_LocalElementNodeVersionSetObj)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(IN) :: meshElements
    INTEGER(INTG), INTENT(IN) :: globalElementNumber
    INTEGER(INTG), INTENT(IN) :: versionNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: localElementNodeNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshElements_LocalElementNodeVersionSetObj",err,error,*999)

    CALL meshelements_elementnodeversionset(globalelementnumber,meshelements%meshElements,versionnumber, &
       & derivativenumber,localelementnodenumber,err,error,*999)

    exits("cmfe_MeshElements_LocalElementNodeVersionSetObj")
    RETURN
999 errors("cmfe_MeshElements_LocalElementNodeVersionSetObj",err,error)
    exits("cmfe_MeshElements_LocalElementNodeVersionSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_localelementnodeversionsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_usernumbergetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,elementGlobalNumber, &
    & elementusernumber,err)
    !DLLEXPORT(cmfe_MeshElements_UserNumberGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: elementGlobalNumber
    INTEGER(INTG), INTENT(OUT) :: elementUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_MeshElements_UserNumberGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(mesh_elements)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,mesh_elements,err,error,*999)
        CALL meshelements_elementusernumberget(elementglobalnumber,elementusernumber,mesh_elements,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_UserNumberGetNumber")
    RETURN
999 errorsexits("cmfe_MeshElements_UserNumberGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_usernumbergetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_usernumbergetobj(meshElements,elementGlobalNumber,elementUserNumber,err)
    !DLLEXPORT(cmfe_MeshElements_UserNumberGetObj)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(IN) :: meshElements
    INTEGER(INTG), INTENT(IN) :: elementGlobalNumber
    INTEGER(INTG), INTENT(OUT) :: elementUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshElements_UserNumberGetObj",err,error,*999)

    CALL meshelements_elementusernumberget(elementglobalnumber,elementusernumber,meshelements%meshElements, &
      & err,error,*999)

    exits("cmfe_MeshElements_UserNumberGetObj")
    RETURN
999 errorsexits("cmfe_MeshElements_UserNumberGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_usernumbergetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_usernumbersetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,elementGlobalNumber, &
    & elementusernumber,err)
    !DLLEXPORT(cmfe_MeshElements_UserNumberSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: elementGlobalNumber
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_MeshElements_UserNumberSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(mesh_elements)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,mesh_elements,err,error,*999)
        CALL meshelements_elementusernumberset(elementglobalnumber,elementusernumber,mesh_elements,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_UserNumberSetNumber")
    RETURN
999 errorsexits("cmfe_MeshElements_UserNumberSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_usernumbersetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_usernumbersetobj(meshElements,elementGlobalNumber,elementUserNumber,err)
    !DLLEXPORT(cmfe_MeshElements_UserNumberSetObj)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(IN) :: meshElements
    INTEGER(INTG), INTENT(IN) :: elementGlobalNumber
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshElements_UserNumberSetObj",err,error,*999)

    CALL meshelements_elementusernumberset(elementglobalnumber,elementusernumber,meshelements%meshElements, &
      & err,error,*999)

    exits("cmfe_MeshElements_UserNumberSetObj")
    RETURN
999 errorsexits("cmfe_MeshElements_UserNumberSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_usernumbersetobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_usernumbersallsetnumber(regionUserNumber,meshUserNumber,meshComponentNumber, &
    & elementusernumbers,err)
    !DLLEXPORT(cmfe_MeshElements_UserNumbersAllSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: elementUserNumbers(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: MESH
    TYPE(meshelementstype), POINTER :: MESH_ELEMENTS
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_MeshElements_UserNumbersAllSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(mesh_elements)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL mesh_topology_elements_get(mesh,meshcomponentnumber,mesh_elements,err,error,*999)
        CALL meshtopologyelementsusernumbersallset(mesh_elements,elementusernumbers,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshElements_UserNumbersAllSetNumber")
    RETURN
999 errors("cmfe_MeshElements_AllUserNumbersAllSetNumber",err,error)
    exits("cmfe_MeshElements_AllUserNumbersAllSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_usernumbersallsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshelements_usernumbersallsetobj(meshElements,elementUserNumbers,err)
    !DLLEXPORT(cmfe_MeshElements_UserNumbersAllSetObj)

    !Argument variables
    TYPE(cmfe_meshelementstype), INTENT(IN) :: meshElements
    INTEGER(INTG), INTENT(IN) :: elementUserNumbers(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshElements_UserNumbersAllSetObj",err,error,*999)

    CALL meshtopologyelementsusernumbersallset(meshelements%meshElements,elementusernumbers, &
      & err,error,*999)

    exits("cmfe_MeshElements_UserNumbersAllSetObj")
    RETURN
999 errorsexits("cmfe_MeshElements_UserNumbersAllSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshelements_usernumbersallsetobj

  !
  !================================================================================================================================
  !


  SUBROUTINE cmfe_mesh_nodeexistsnumber( regionUserNumber, meshUserNumber, meshComponentNumber, nodeUserNumber, nodeExists, err )
    !DLLEXPORT(cmfe_Mesh_NodeExistsNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: nodeUserNumber
    LOGICAL, INTENT(OUT) :: nodeExists
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: mesh
    TYPE(region_type), POINTER :: region
    INTEGER(INTG) :: meshNodeNumber
    TYPE(varying_string) :: localError

    enters("cmfe_Mesh_NodeExistsNumber",err,error,*999)

    nodeexists = .false.

    NULLIFY( region )
    NULLIFY( mesh )
    CALL region_user_number_find( regionusernumber, region, err, error, *999 )
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find( meshusernumber, region, mesh, err, error, *999 )
      IF( ASSOCIATED( mesh ) ) THEN
        CALL meshtopologynodecheckexists(mesh,meshcomponentnumber,nodeusernumber,nodeexists,meshnodenumber,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Mesh_NodeExistsNumber")
    RETURN
999 errorsexits("cmfe_Mesh_NodeExistsNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_nodeexistsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_nodeexistsobj( mesh, meshComponentNumber, nodeUserNumber, nodeExists, err )
    !DLLEXPORT(cmfe_Mesh_NodeExistsObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: nodeUserNumber
    LOGICAL, INTENT(OUT) :: nodeExists
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    INTEGER(INTG) :: meshNodeNumber

    nodeexists = .false.

    enters("cmfe_Mesh_NodeExistsObj",err,error,*999)

    CALL meshtopologynodecheckexists(mesh%mesh,meshcomponentnumber,nodeusernumber,nodeexists,meshnodenumber,err,error,*999)

    exits("cmfe_Mesh_NodeExistsObj")
    RETURN
999 errorsexits("cmfe_Mesh_NodeExistsObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_nodeexistsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_elementexistsnumber( regionUserNumber, meshUserNumber, meshComponentNumber, &
    & elementusernumber, elementexists, err )
    !DLLEXPORT(cmfe_Mesh_ElementExistsNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    LOGICAL, INTENT(OUT) :: elementExists
    INTEGER(INTG), INTENT(OUT) :: err

    !Local variables
    TYPE(mesh_type), POINTER :: Mesh
    TYPE(region_type), POINTER :: Region
    INTEGER(INTG) :: meshElementNumber
    TYPE(varying_string) :: LocalError

    enters("cmfe_Mesh_ElementExistsNumber",err,error,*999)

    elementexists = .false.

    NULLIFY( region )
    NULLIFY( mesh )
    CALL region_user_number_find( regionusernumber, region, err, error, *999 )
    IF( ASSOCIATED( region ) ) THEN
      CALL mesh_user_number_find( meshusernumber, region, mesh, err, error, *999 )
      IF( ASSOCIATED( mesh ) ) THEN
        CALL meshtopologyelementcheckexists(mesh,meshcomponentnumber,elementusernumber,elementexists, &
          & meshelementnumber,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Mesh_ElementExistsNumber")
    RETURN
999 errorsexits("cmfe_Mesh_ElementExistsNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_elementexistsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_elementexistsobj( mesh, meshComponentNumber, elementUserNumber, elementExists, err )
    !DLLEXPORT(cmfe_Mesh_ElementExistsObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: elementUserNumber
    LOGICAL, INTENT(OUT) :: elementExists
    INTEGER(INTG), INTENT(OUT) :: err

    !Local variables
    INTEGER(INTG) :: meshElementNumber

    enters("cmfe_Mesh_ElementExistsObj",err,error,*999)

    elementexists = .false.

    CALL meshtopologyelementcheckexists(mesh%mesh,meshcomponentnumber,elementusernumber,elementexists,meshelementnumber, &
      & err,error,*999)

    exits("cmfe_Mesh_ElementExistsObj")
    RETURN
999 errorsexits("cmfe_Mesh_ElementExistsObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_elementexistsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_nodesgetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,meshNodes,err)
    !DLLEXPORT(cmfe_Mesh_NodesGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    TYPE(cmfe_meshnodestype), INTENT(INOUT) :: meshNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: mesh
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Mesh_NodesGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL meshtopologynodesget(mesh,meshcomponentnumber,meshnodes%meshNodes,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Mesh_NodesGetNumber")
    RETURN
999 errorsexits("cmfe_Mesh_NodesGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_nodesgetnumber


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_mesh_nodesgetobj(mesh,meshComponentNumber,meshNodes,err)
    !DLLEXPORT(cmfe_Mesh_NodesGetObj)

    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    TYPE(cmfe_meshnodestype), INTENT(INOUT) :: meshNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Mesh_NodesGetObj",err,error,*999)

    CALL meshtopologynodesget(mesh%mesh,meshcomponentnumber,meshnodes%meshNodes,err,error,*999)

    exits("cmfe_Mesh_NodesGetObj")
    RETURN
999 errorsexits("cmfe_Mesh_NodesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_mesh_nodesgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshnodes_numberofnodesgetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,numberOfNodes,err)
    !DLLEXPORT(cmfe_MeshNodes_NumberOfNodesGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: mesh
    TYPE(meshnodestype), POINTER :: meshNodes
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_MeshNodes_NumberOfNodesGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(meshnodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL meshtopologynodesget(mesh,meshcomponentnumber,meshnodes,err,error,*999)
        CALL meshtopologynodesnumberofnodesget(meshnodes,numberofnodes,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshNodes_NumberOfNodesGetNumber")
    RETURN
999 errorsexits("cmfe_MeshNodes_NumberOfNodesGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshnodes_numberofnodesgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshnodes_numberofnodesgetobj(meshNodes,numberOfNodes,err)
    !DLLEXPORT(cmfe_MeshNodes_NumberOfNodesGetObj)

    !Argument variables
    TYPE(cmfe_meshnodestype), INTENT(IN) :: meshNodes
    INTEGER(INTG), INTENT(OUT) :: numberOfNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshNodes_NumberOfNodesGetObj",err,error,*999)

    CALL meshtopologynodesnumberofnodesget(meshnodes%meshNodes,numberofnodes,err,error,*999)

    exits("cmfe_MeshNodes_NumberOfNodesGetObj")
    RETURN
999 errorsexits("cmfe_MeshNodes_NumberOfNodesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_meshnodes_numberofnodesgetobj

  !
  !================================================================================================================================
  !
  SUBROUTINE cmfe_meshnodes_numberofderivativesgetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,userNodeNumber, &
    & numberofderivatives,err)
    !DLLEXPORT(cmfe_MeshNodes_NumberOfDerivativesGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfDerivatives
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: mesh
    TYPE(meshnodestype), POINTER :: meshNodes
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_MeshNodes_NumberOfDerivativesGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(meshnodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL meshtopologynodesget(mesh,meshcomponentnumber,meshnodes,err,error,*999)
        CALL meshtopologynodenumberofderivativesget(meshnodes,usernodenumber,numberofderivatives,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshNodes_NumberOfDerivativesGetNumber")
    RETURN
999 errorsexits("cmfe_MeshNodes_NumberOfDerivativesGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshnodes_numberofderivativesgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshnodes_numberofderivativesgetobj(meshNodes,userNodeNumber,numberOfDerivatives,err)
    !DLLEXPORT(cmfe_MeshNodes_NumberOfDerivativesGetObj)

    !Argument variables
    TYPE(cmfe_meshnodestype), INTENT(IN) :: meshNodes
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfDerivatives
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshNodes_NumberOfDerivativesGetObj",err,error,*999)

    CALL meshtopologynodenumberofderivativesget(meshnodes%meshNodes,usernodenumber,numberofderivatives,err,error,*999)

    exits("cmfe_MeshNodes_NumberOfDerivativesGetObj")
    RETURN
999 errorsexits("cmfe_MeshNodes_NumberOfDerivativesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshnodes_numberofderivativesgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshnodes_derivativesgetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,userNodeNumber, &
    & derivatives,err)
    !DLLEXPORT(cmfe_MeshNodes_DerivativesGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(OUT) :: derivatives(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: mesh
    TYPE(meshnodestype), POINTER :: meshNodes
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_MeshNodes_DerivativesGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(meshnodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL meshtopologynodesget(mesh,meshcomponentnumber,meshnodes,err,error,*999)
        CALL meshtopologynodederivativesget(meshnodes,usernodenumber,derivatives,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshNodes_DerivativesGetNumber")
    RETURN
999 errorsexits("cmfe_MeshNodes_DerivativesGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshnodes_derivativesgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshnodes_derivativesgetobj(meshNodes,userNodeNumber,derivatives,err)
    !DLLEXPORT(cmfe_MeshNodes_DerivativesGetObj)

    !Argument variables
    TYPE(cmfe_meshnodestype), INTENT(IN) :: meshNodes
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(OUT) :: derivatives(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshNodes_DerivativesGetObj",err,error,*999)

    CALL meshtopologynodederivativesget(meshnodes%meshNodes,usernodenumber,derivatives,err,error,*999)

    exits("cmfe_MeshNodes_DerivativesGetObj")
    RETURN
999 errorsexits("cmfe_MeshNodes_DerivativesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshnodes_derivativesgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshnodes_numberofversionsgetnumber(regionUserNumber,meshUserNumber,meshComponentNumber,derivativeNumber, &
    & usernodenumber,numberofversions,err)
    !DLLEXPORT(cmfe_MeshNodes_NumberOfVersionsGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: meshUserNumber
    INTEGER(INTG), INTENT(IN) :: meshComponentNumber
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfVersions
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(mesh_type), POINTER :: mesh
    TYPE(meshnodestype), POINTER :: meshNodes
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_MeshNodes_NumberOfVersionsGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(mesh)
    NULLIFY(meshnodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL mesh_user_number_find(meshusernumber,region,mesh,err,error,*999)
      IF(ASSOCIATED(mesh)) THEN
        CALL meshtopologynodesget(mesh,meshcomponentnumber,meshnodes,err,error,*999)
        CALL meshtopologynodenumberofversionsget(meshnodes,derivativenumber,usernodenumber,numberofversions,err,error,*999)
      ELSE
        localerror="A mesh with an user number of "//trim(numbertovstring(meshusernumber,"*",err,error))// &
          & " does not exist on the region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_MeshNodes_NumberOfVersionsGetNumber")
    RETURN
999 errorsexits("cmfe_MeshNodes_NumberOfVersionsGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshnodes_numberofversionsgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_meshnodes_numberofversionsgetobj(meshNodes,derivativeNumber,userNodeNumber,numberOfVersions,err)
    !DLLEXPORT(cmfe_MeshNodes_NumberOfVersionsGetObj)

    !Argument variables
    TYPE(cmfe_meshnodestype), INTENT(IN) :: meshNodes
    INTEGER(INTG), INTENT(IN) :: derivativeNumber
    INTEGER(INTG), INTENT(IN) :: userNodeNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfVersions
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_MeshNodes_NumberOfVersionsGetObj",err,error,*999)

    CALL meshtopologynodenumberofversionsget(meshnodes%meshNodes,derivativenumber,usernodenumber, &
      & numberofversions,err,error,*999)

    exits("cmfe_MeshNodes_NumberOfVersionsGetObj")
    RETURN
999 errorsexits("cmfe_MeshNodes_NumberOfVersionsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_meshnodes_numberofversionsgetobj

!!==================================================================================================================================
!!
!! DISTRIBUTED_MATRIX_VECTOR
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_distributedmatrix_storagetypegetobj(matrix,storageType,err)
    !DLLEXPORT(cmfe_DistributedMatrix_StorageTypeGetObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    INTEGER(INTG), INTENT(OUT) :: storageType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_StorageTypeGetObj",err,error,*999)

    CALL distributed_matrix_storage_type_get(matrix%distributedMatrix,storagetype,err,error,*999)

    exits("cmfe_DistributedMatrix_StorageTypeGetObj")

    RETURN
999 errorsexits("cmfe_DistributedMatrix_StorageTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_storagetypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedmatrix_datatypegetobj(matrix,dataType,err)
    !DLLEXPORT(cmfe_DistributedMatrix_DataTypeGetObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    INTEGER(INTG), INTENT(OUT) :: dataType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_DataTypeGetObj",err,error,*999)

    CALL distributedmatrix_datatypeget(matrix%distributedMatrix,datatype,err,error,*999)

    exits("cmfe_DistributedMatrix_DataTypeGetObj")

    RETURN
999 errorsexits("cmfe_DistributedMatrix_DataTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_datatypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedmatrix_dimensionsgetobj(matrix,m,n,err)
    !DLLEXPORT(cmfe_DistributedMatrix_DimensionsGetObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    INTEGER(INTG), INTENT(OUT) :: m
    INTEGER(INTG), INTENT(OUT) :: n
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_DimensionsGetObj",err,error,*999)

    CALL distributedmatrix_dimensionsget(matrix%distributedMatrix,m,n,err,error,*999)

    exits("cmfe_DistributedMatrix_DimensionsGetObj")

    RETURN
999 errorsexits("cmfe_DistributedMatrix_DimensionsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_dimensionsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedmatrix_storagelocationsgetobj(matrix,rowIndices,columnIndices,err)
    !DLLEXPORT(cmfe_DistributedMatrix_StorageLocationsGetObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    INTEGER(INTG), POINTER, INTENT(OUT) :: rowIndices(:)
    INTEGER(INTG), POINTER, INTENT(OUT) :: columnIndices(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_StorageLocationsGetObj",err,error,*999)

    CALL distributed_matrix_storage_locations_get(matrix%distributedMatrix,rowindices,columnindices,err,error,*999)

    exits("cmfe_DistributedMatrix_StorageLocationsGetObj")

    RETURN
999 errors("cmfe_DistributedMatrix_StorageLocationsGetObj",err,error)
    exits("cmfe_DistributedMatrix_StorageLocationsGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_storagelocationsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedmatrix_datagetintgobj(matrix,data,err)
    !DLLEXPORT(cmfe_DistributedMatrix_DataGetIntgObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    INTEGER(INTG), POINTER, INTENT(OUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_DataGetIntgObj",err,error,*999)

    CALL distributed_matrix_data_get(matrix%distributedMatrix,data,err,error,*999)

    exits("cmfe_DistributedMatrix_DataGetIntgObj")

    RETURN
999 errorsexits("cmfe_DistributedMatrix_DataGetIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_datagetintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedmatrix_datarestoreintgobj(matrix,data,err)
    !DLLEXPORT(cmfe_DistributedMatrix_DataRestoreIntgObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    INTEGER(INTG), POINTER, INTENT(INOUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_DataRestoreIntgObj",err,error,*999)

    CALL distributed_matrix_data_restore(matrix%distributedMatrix,data,err,error,*999)

    exits("cmfe_DistributedMatrix_DataRestoreIntgObj")

    RETURN
999 errorsexits("cmfe_DistributedMatrix_DataRestoreIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_datarestoreintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedmatrix_datagetdpobj(matrix,data,err)
    !DLLEXPORT(cmfe_DistributedMatrix_DataGetDPObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    REAL(DP), POINTER, INTENT(OUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_DataGetDPObj",err,error,*999)

    CALL distributed_matrix_data_get(matrix%distributedMatrix,data,err,error,*999)

    exits("cmfe_DistributedMatrix_DataGetDPObj")

    RETURN
999 errorsexits("cmfe_DistributedMatrix_DataGetDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_datagetdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedmatrix_datarestoredpobj(matrix,data,err)
    !DLLEXPORT(cmfe_DistributedMatrix_DataRestoreDPObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    REAL(DP), POINTER, INTENT(INOUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_DataRestoreDPObj",err,error,*999)

    CALL distributed_matrix_data_restore(matrix%distributedMatrix,data,err,error,*999)

    exits("cmfe_DistributedMatrix_DataRestoreDPObj")

    RETURN
999 errorsexits("cmfe_DistributedMatrix_DataRestoreDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_datarestoredpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedmatrix_datagetspobj(matrix,data,err)
    !DLLEXPORT(cmfe_DistributedMatrix_DataGetSPObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    REAL(SP), POINTER, INTENT(OUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_DataGetSPObj",err,error,*999)

    CALL distributed_matrix_data_get(matrix%distributedMatrix,data,err,error,*999)

    exits("cmfe_DistributedMatrix_DataGetSPObj")

    RETURN
999 errorsexits("cmfe_DistributedMatrix_DataGetSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_datagetspobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedmatrix_datarestorespobj(matrix,data,err)
    !DLLEXPORT(cmfe_DistributedMatrix_DataRestoreSPObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    REAL(SP), POINTER, INTENT(INOUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_DataRestoreSPObj",err,error,*999)

    CALL distributed_matrix_data_restore(matrix%distributedMatrix,data,err,error,*999)

    exits("cmfe_DistributedMatrix_DataRestoreSPObj")

    RETURN
999 errorsexits("cmfe_DistributedMatrix_DataRestoreSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_datarestorespobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedmatrix_datagetlobj(matrix,data,err)
    !DLLEXPORT(cmfe_DistributedMatrix_DataGetLObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    LOGICAL, POINTER, INTENT(OUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_DataGetLObj",err,error,*999)

    CALL distributed_matrix_data_get(matrix%distributedMatrix,data,err,error,*999)

    exits("cmfe_DistributedMatrix_DataGetLObj")

    RETURN
999 errorsexits("cmfe_DistributedMatrix_DataGetLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_datagetlobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedmatrix_datarestorelobj(matrix,data,err)
    !DLLEXPORT(cmfe_DistributedMatrix_DataRestoreLObj)

    !Argument variables
    TYPE(cmfe_distributedmatrixtype), INTENT(IN) :: matrix
    LOGICAL, POINTER, INTENT(INOUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedMatrix_DataRestoreLObj",err,error,*999)

    CALL distributed_matrix_data_restore(matrix%distributedMatrix,data,err,error,*999)

    exits("cmfe_DistributedMatrix_DataRestoreLObj")

    RETURN
999 errorsexits("cmfe_DistributedMatrix_DataRestoreLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedmatrix_datarestorelobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedvector_datatypegetobj(vector,dataType,err)
    !DLLEXPORT(cmfe_DistributedVector_DataTypeGetObj)

    !Argument variables
    TYPE(cmfe_distributedvectortype), INTENT(IN) :: vector
    INTEGER(INTG), INTENT(OUT) :: dataType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedVector_DataTypeGetObj",err,error,*999)

    CALL distributedvector_datatypeget(vector%distributedVector,datatype,err,error,*999)

    exits("cmfe_DistributedVector_DataTypeGetObj")

    RETURN
999 errorsexits("cmfe_DistributedVector_DataTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedvector_datatypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedvector_datagetintgobj(vector,data,err)
    !DLLEXPORT(cmfe_DistributedVector_DataGetIntgObj)

    !Argument variables
    TYPE(cmfe_distributedvectortype), INTENT(IN) :: vector
    INTEGER(INTG), POINTER, INTENT(OUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedVector_DataGetIntgObj",err,error,*999)

    CALL distributed_vector_data_get(vector%distributedVector,data,err,error,*999)

    exits("cmfe_DistributedVector_DataGetIntgObj")

    RETURN
999 errorsexits("cmfe_DistributedVector_DataGetIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedvector_datagetintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedvector_datarestoreintgobj(vector,data,err)
    !DLLEXPORT(cmfe_DistributedVector_DataRestoreIntgObj)

    !Argument variables
    TYPE(cmfe_distributedvectortype), INTENT(IN) :: vector
    INTEGER(INTG), POINTER, INTENT(INOUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedVector_DataRestoreIntgObj",err,error,*999)

    CALL distributed_vector_data_restore(vector%distributedVector,data,err,error,*999)

    exits("cmfe_DistributedVector_DataRestoreIntgObj")

    RETURN
999 errorsexits("cmfe_DistributedVector_DataRestoreIntgObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedvector_datarestoreintgobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedvector_datagetdpobj(vector,data,err)
    !DLLEXPORT(cmfe_DistributedVector_DataGetDPObj)

    !Argument variables
    TYPE(cmfe_distributedvectortype), INTENT(IN) :: vector
    REAL(DP), POINTER, INTENT(OUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedVector_DataGetDPObj",err,error,*999)

    CALL distributed_vector_data_get(vector%distributedVector,data,err,error,*999)

    exits("cmfe_DistributedVector_DataGetDPObj")

    RETURN
999 errorsexits("cmfe_DistributedVector_DataGetDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedvector_datagetdpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedvector_datarestoredpobj(vector,data,err)
    !DLLEXPORT(cmfe_DistributedVector_DataRestoreDPObj)

    !Argument variables
    TYPE(cmfe_distributedvectortype), INTENT(IN) :: vector
    REAL(DP), POINTER, INTENT(INOUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedVector_DataRestoreDPObj",err,error,*999)

    CALL distributed_vector_data_restore(vector%distributedVector,data,err,error,*999)

    exits("cmfe_DistributedVector_DataRestoreDPObj")

    RETURN
999 errorsexits("cmfe_DistributedVector_DataRestoreDPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedvector_datarestoredpobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedvector_datagetspobj(vector,data,err)
    !DLLEXPORT(cmfe_DistributedVector_DataGetSPObj)

    !Argument variables
    TYPE(cmfe_distributedvectortype), INTENT(IN) :: vector
    REAL(SP), POINTER, INTENT(OUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedVector_DataGetSPObj",err,error,*999)

    CALL distributed_vector_data_get(vector%distributedVector,data,err,error,*999)

    exits("cmfe_DistributedVector_DataGetSPObj")

    RETURN
999 errorsexits("cmfe_DistributedVector_DataGetSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedvector_datagetspobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedvector_datarestorespobj(vector,data,err)
    !DLLEXPORT(cmfe_DistributedVector_DataRestoreSPObj)

    !Argument variables
    TYPE(cmfe_distributedvectortype), INTENT(IN) :: vector
    REAL(SP), POINTER, INTENT(INOUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedVector_DataRestoreSPObj",err,error,*999)

    CALL distributed_vector_data_restore(vector%distributedVector,data,err,error,*999)

    exits("cmfe_DistributedVector_DataRestoreSPObj")

    RETURN
999 errorsexits("cmfe_DistributedVector_DataRestoreSPObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedvector_datarestorespobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedvector_datagetlobj(vector,data,err)
    !DLLEXPORT(cmfe_DistributedVector_DataGetLObj)

    !Argument variables
    TYPE(cmfe_distributedvectortype), INTENT(IN) :: vector
    LOGICAL, POINTER, INTENT(OUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedVector_DataGetLObj",err,error,*999)

    CALL distributed_vector_data_get(vector%distributedVector,data,err,error,*999)

    exits("cmfe_DistributedVector_DataGetLObj")

    RETURN
999 errorsexits("cmfe_DistributedVector_DataGetLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedvector_datagetlobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_distributedvector_datarestorelobj(vector,data,err)
    !DLLEXPORT(cmfe_DistributedVector_DataRestoreLObj)

    !Argument variables
    TYPE(cmfe_distributedvectortype), INTENT(IN) :: vector
    LOGICAL, POINTER, INTENT(INOUT) :: data(:)
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_DistributedVector_DataRestoreLObj",err,error,*999)

    CALL distributed_vector_data_restore(vector%distributedVector,data,err,error,*999)

    exits("cmfe_DistributedVector_DataRestoreLObj")

    RETURN
999 errorsexits("cmfe_DistributedVector_DataRestoreLObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_distributedvector_datarestorelobj

!!==================================================================================================================================
!!
!! NODE_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_nodes_createfinishnumber(regionUserNumber,err)
    !DLLEXPORT(cmfe_Nodes_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(nodes_type), POINTER :: NODES
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Nodes_CreateFinishNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(nodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_nodes_get(region,nodes,err,error,*999)
      CALL nodes_create_finish(nodes,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Nodes Create')
#endif

    exits("cmfe_Nodes_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_Nodes_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_createfinishobj(nodes,err)
    !DLLEXPORT(cmfe_Nodes_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Nodes_CreateFinishObj",err,error,*999)

    CALL nodes_create_finish(nodes%nodes,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('nodes Create')
#endif

    exits("cmfe_Nodes_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_Nodes_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_createstartnumber(regionUserNumber,numberOfNodes,err)
    !DLLEXPORT(cmfe_Nodes_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: numberOfNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(nodes_type), POINTER :: NODES
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Nodes_CreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Nodes Create')
#endif

    NULLIFY(region)
    NULLIFY(nodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL nodes_create_start(region,numberofnodes,nodes,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Nodes_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_Nodes_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_createstartobj(region,numberOfNodes,nodes,err)
    !DLLEXPORT(cmfe_Nodes_CreateStartObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    INTEGER(INTG), INTENT(IN) :: numberOfNodes
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Nodes_CreateStartObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('nodes Create')
#endif

    CALL nodes_create_start(region%region,numberofnodes,nodes%nodes,err,error,*999)

    exits("cmfe_Nodes_CreateStartObj")
    RETURN
999 errorsexits("cmfe_Nodes_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_createstartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_createstartinterfaceobj(interface,numberOfNodes,nodes,err)
    !DLLEXPORT(cmfe_Nodes_CreateStartInterfaceObj)

    !Argument variables
    TYPE(cmfe_interfacetype), INTENT(IN) :: interface
    INTEGER(INTG), INTENT(IN) :: numberOfNodes
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Nodes_CreateStartInterfaceObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('nodes Create')
#endif

    CALL nodes_create_start(interface%interface,numberofnodes,nodes%nodes,err,error,*999)

    exits("cmfe_Nodes_CreateStartInterfaceObj")
    RETURN
999 errorsexits("cmfe_Nodes_CreateStartInterfaceObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_createstartinterfaceobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_destroynumber(regionUserNumber,err)
    !DLLEXPORT(cmfe_Nodes_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(nodes_type), POINTER :: NODES
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Nodes_DestroyNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(nodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_nodes_get(region,nodes,err,error,*999)
      CALL nodes_destroy(nodes,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Nodes_DestroyNumber")
    RETURN
999 errorsexits("cmfe_Nodes_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_destroyobj(nodes,err)
    !DLLEXPORT(cmfe_Nodes_DestroyObj)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_NodeDestroyObj",err,error,*999)

    CALL nodes_destroy(nodes%nodes,err,error,*999)

    exits("cmfe_Nodes_DestroyObj")
    RETURN
999 errorsexits("cmfe_Nodes_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_destroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_numberofnodesgetnumber(regionUserNumber,numberOfNodes,err)
    !DLLEXPORT(cmfe_Nodes_NumberOfNodesGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: numberOfNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(nodes_type), POINTER :: NODES
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Nodes_NumberOfNodesGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(nodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_nodes_get(region,nodes,err,error,*999)
      CALL nodes_number_of_nodes_get(nodes,numberofnodes,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Nodes_NumberOfNodesGetNumber")
    RETURN
999 errorsexits("cmfe_Nodes_NumberOfNodesGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_numberofnodesgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_numberofnodesgetobj(nodes,numberOfNodes,err)
    !DLLEXPORT(cmfe_Nodes_NumberOfNodesGetObj)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(OUT) :: numberOfNodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Nodes_NumberOfNodesGetObj",err,error,*999)

    CALL nodes_number_of_nodes_get(nodes%nodes,numberofnodes,err,error,*999)

    exits("cmfe_Nodes_NumberOfNodesGetObj")
    RETURN
999 errorsexits("cmfe_Nodes_NumberOfNodesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_numberofnodesgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_labelgetcnumber(regionUserNumber,nodeGlobalNumber,label,err)
    !DLLEXPORT(cmfe_Nodes_LabelGetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(nodes_type), POINTER :: NODES
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Nodes_LabelGetCNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(nodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_nodes_get(region,nodes,err,error,*999)
      CALL nodes_label_get(nodes,nodeglobalnumber,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Nodes_LabelGetCNumber")
    RETURN
999 errorsexits("cmfe_Nodes_LabelGetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_labelgetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_labelgetcobj(nodes,nodeGlobalNumber,label,err)
    !DLLEXPORT(cmfe_Nodes_LabelGetCObj)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Nodes_LabelGetCObj",err,error,*999)

    CALL nodes_label_get(nodes%nodes,nodeglobalnumber,label,err,error,*999)

    exits("cmfe_Nodes_LabelGetCObj")
    RETURN
999 errorsexits("cmfe_Nodes_LabelGetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_labelgetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_labelgetvsnumber(regionUserNumber,nodeGlobalNumber,label,err)
    !DLLEXPORT(cmfe_Nodes_LabelGetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(nodes_type), POINTER :: NODES
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Nodes_LabelGetVSNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(nodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_nodes_get(region,nodes,err,error,*999)
      CALL nodes_label_get(nodes,nodeglobalnumber,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Nodes_LabelGetVSNumber")
    RETURN
999 errorsexits("cmfe_Nodes_LabelGetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_labelgetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_labelgetvsobj(nodes,nodeGlobalNumber,label,err)
    !DLLEXPORT(cmfe_Nodes_LabelGetVSObj)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Nodes_LabelGetVSObj",err,error,*999)

    CALL nodes_label_get(nodes%nodes,nodeglobalnumber,label,err,error,*999)

    exits("cmfe_Nodes_LabelGetVSObj")
    RETURN
999 errorsexits("cmfe_Nodes_LabelGetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_labelgetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_labelsetcnumber(regionUserNumber,nodeGlobalNumber,label,err)
    !DLLEXPORT(cmfe_Nodes_LabelSetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(nodes_type), POINTER :: NODES
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Nodes_LabelSetCNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(nodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_nodes_get(region,nodes,err,error,*999)
      CALL nodes_label_set(nodes,nodeglobalnumber,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Nodes_LabelSetCNumber")
    RETURN
999 errorsexits("cmfe_Nodes_LabelSetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_labelsetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_labelsetcobj(nodes,nodeGlobalNumber,label,err)
    !DLLEXPORT(cmfe_Nodes_LabelSetCObj)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Nodes_LabelSetCObj",err,error,*999)

    CALL nodes_label_set(nodes%nodes,nodeglobalnumber,label,err,error,*999)

    exits("cmfe_Nodes_LabelSetCObj")
    RETURN
999 errorsexits("cmfe_Nodes_LabelSetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_labelsetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_labelsetvsnumber(regionUserNumber,nodeGlobalNumber,label,err)
    !DLLEXPORT(cmfe_Nodes_LabelSetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(nodes_type), POINTER :: NODES
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Nodes_LabelSetVSNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(nodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_nodes_get(region,nodes,err,error,*999)
      CALL nodes_label_set(nodes,nodeglobalnumber,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Nodes_LabelSetVSNumber")
    RETURN
999 errorsexits("cmfe_Nodes_LabelSetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_labelsetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_labelsetvsobj(nodes,nodeGlobalNumber,label,err)
    !DLLEXPORT(cmfe_Nodes_LabelSetVSObj)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Nodes_LabelSetVSObj",err,error,*999)

    CALL nodes_label_set(nodes%nodes,nodeglobalnumber,label,err,error,*999)

    exits("cmfe_Nodes_LabelSetVSObj")
    RETURN
999 errorsexits("cmfe_Nodes_LabelSetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_labelsetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_usernumbergetnumber(regionUserNumber,nodeGlobalNumber,nodeUserNumber,err)
    !DLLEXPORT(cmfe_Nodes_UserNumberGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    INTEGER(INTG), INTENT(OUT) :: nodeUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(nodes_type), POINTER :: NODES
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Nodes_UserNumberGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(nodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_nodes_get(region,nodes,err,error,*999)
      CALL nodes_user_number_get(nodes,nodeglobalnumber,nodeusernumber,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Nodes_UserNumberGetNumber")
    RETURN
999 errorsexits("cmfe_Nodes_UserNumberGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_usernumbergetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_usernumbergetobj(nodes,nodeGlobalNumber,nodeUserNumber,err)
    !DLLEXPORT(cmfe_Nodes_UserNumberGetObj)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    INTEGER(INTG), INTENT(OUT) :: nodeUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Nodes_UserNumberGetObj",err,error,*999)

    CALL nodes_user_number_get(nodes%nodes,nodeglobalnumber,nodeusernumber,err,error,*999)

    exits("cmfe_Nodes_UserNumberGetObj")
    RETURN
999 errorsexits("cmfe_Nodes_UserNumberGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_usernumbergetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_usernumbersetnumber(regionUserNumber,nodeGlobalNumber,nodeUserNumber,err)
    !DLLEXPORT(cmfe_Nodes_UserNumberSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    INTEGER(INTG), INTENT(IN) :: nodeUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(nodes_type), POINTER :: NODES
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Nodes_UserNumberSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(nodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_nodes_get(region,nodes,err,error,*999)
      CALL nodes_user_number_set(nodes,nodeglobalnumber,nodeusernumber,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Nodes_UserNumberSetNumber")
    RETURN
999 errorsexits("cmfe_Nodes_UserNumberSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_usernumbersetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_usernumbersetobj(nodes,nodeGlobalNumber,nodeUserNumber,err)
    !DLLEXPORT(cmfe_Nodes_UserNumberSetObj)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(IN) :: nodeGlobalNumber
    INTEGER(INTG), INTENT(IN) :: nodeUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Nodes_UserNumberSetObj",err,error,*999)

    CALL nodes_user_number_set(nodes%nodes,nodeglobalnumber,nodeusernumber,err,error,*999)

    exits("cmfe_Nodes_UserNumberSetObj")
    RETURN
999 errorsexits("cmfe_Nodes_UserNumberSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_usernumbersetobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_usernumbersallsetnumber(regionUserNumber,nodeUserNumbers,err)
    !DLLEXPORT(cmfe_Nodes_UserNumbersAllSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: nodeUserNumbers(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(nodes_type), POINTER :: nodes
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Nodes_UserNumbersAllSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(nodes)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_nodes_get(region,nodes,err,error,*999)
      CALL nodesusernumbersallset(nodes,nodeusernumbers,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Nodes_UserNumbersAllSetNumber")
    RETURN
999 errorsexits("cmfe_Nodes_UserNumbersAllSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_usernumbersallsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_nodes_usernumbersallsetobj(nodes,nodeUserNumbers,err)
    !DLLEXPORT(cmfe_Nodes_UserNumbersAllSetObj)

    !Argument variables
    TYPE(cmfe_nodestype), INTENT(IN) :: nodes
    INTEGER(INTG), INTENT(IN) :: nodeUserNumbers(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Nodes_UserNumbersAllSetObj",err,error,*999)

    CALL nodesusernumbersallset(nodes%nodes,nodeusernumbers,err,error,*999)

    exits("cmfe_Nodes_UserNumbersAllSetObj")
    RETURN
999 errorsexits("cmfe_Nodes_UserNumbersAllSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_nodes_usernumbersallsetobj

!!==================================================================================================================================
!!
!! PROBLEM_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_problem_cellmlequationscreatefinishnumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_CellMLEquationsCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_CellMLEquationsCreateFinishNumber",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_cellml_equations_create_finish(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('CellML Equations Create')
#endif

    exits("cmfe_Problem_CellMLEquationsCreateFinishNumber")
    RETURN
999 errors("cmfe_Problem_CellMLEquationsCreateFinishNumber",err,error)
    exits("cmfe_Problem_CellMLEquationsCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_cellmlequationscreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_cellmlequationscreatefinishobj(problem,err)
    !DLLEXPORT(cmfe_Problem_CellMLEquationsCreateFinishObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_CellMLEquationsCreateFinishObj",err,error,*999)

    CALL problem_cellml_equations_create_finish(problem%problem,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('CellML Equations Create')
#endif

    exits("cmfe_Problem_CellMLEquationsCreateFinishObj")
    RETURN
999 errorsexits("cmfe_Problem_CellMLEquationsCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_cellmlequationscreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_cellmlequationscreatestartnumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_CellMLEquationsCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_CellMLEquationsCreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('CellML Equations Create')
#endif

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_cellml_equations_create_start(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_CellMLEquationsCreateStartNumber")
    RETURN
999 errors("cmfe_Problem_CellMLEquationsCreateStartNumber",err,error)
    exits("cmfe_Problem_CellMLEquationsCreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_cellmlequationscreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_cellmlequationscreatestartobj(problem,err)
    !DLLEXPORT(cmfe_Problem_CellMLEquationsCreateStartObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_CellMLEquationsCreateStartObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('CellML Equations Create')
#endif

    CALL problem_cellml_equations_create_start(problem%problem,err,error,*999)

    exits("cmfe_Problem_CellMLEquationsCreateStartObj")
    RETURN
999 errorsexits("cmfe_Problem_CellMLEquationsCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_cellmlequationscreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_cellmlequationsgetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,CellMLEquations,err)
    !DLLEXPORT(cmfe_Problem_CellMLEquationsGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_cellmlequationstype), INTENT(INOUT) :: CellMLEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_CellMLEquationsGetNumber0",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_cellml_equations_get(problem,controlloopidentifier,solverindex,cellmlequations%cellmlEquations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_CellMLEquationsGetNumber0")
    RETURN
999 errorsexits("cmfe_Problem_CellMLEquationsGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_cellmlequationsgetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_cellmlequationsgetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,CellMLEquations,err)
    !DLLEXPORT(cmfe_Problem_CellMLEquationsGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_cellmlequationstype), INTENT(INOUT) :: CellMLEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
     TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_CellMLEquationsGetNumber1",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_cellml_equations_get(problem,controlloopidentifiers,solverindex,cellmlequations%cellmlEquations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_CellMLEquationsGetNumber1")
    RETURN
999 errorsexits("cmfe_Problem_CellMLEquationsGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_cellmlequationsgetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_cellmlequationsgetobj0(problem,controlLoopIdentifier,solverIndex,CellMLEquations,err)
    !DLLEXPORT(cmfe_Problem_CellMLEquationsGetObj0)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_cellmlequationstype), INTENT(INOUT) :: CellMLEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_CellMLEquationsGetObj0",err,error,*999)

    CALL problem_cellml_equations_get(problem%problem,controlloopidentifier,solverindex,cellmlequations%cellmlEquations, &
      & err,error,*999)

    exits("cmfe_Problem_CellMLEquationsGetObj0")
    RETURN
999 errorsexits("cmfe_Problem_CellMLEquationsGetObj0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_cellmlequationsgetobj0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_cellmlequationsgetobj1(problem,controlLoopIdentifiers,solverIndex,CellMLEquations,err)
    !DLLEXPORT(cmfe_Problem_CellMLEquationsGetObj1)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_cellmlequationstype), INTENT(INOUT) :: CellMLEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_CellMLEquationsGetObj1",err,error,*999)

    CALL problem_cellml_equations_get(problem%problem,controlloopidentifiers,solverindex,cellmlequations%cellmlEquations, &
      & err,error,*999)

    exits("cmfe_Problem_CellMLEquationsGetObj1")
    RETURN
999 errorsexits("cmfe_Problem_CellMLEquationsGetObj1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_cellmlequationsgetobj1

   !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_createfinishnumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_CreateFinishNumber",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_create_finish(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Problem Create')
#endif

    exits("cmfe_Problem_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_Problem_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_createfinishobj(problem,err)
    !DLLEXPORT(cmfe_Problem_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_CreateFinishObj",err,error,*999)

    CALL problem_create_finish(problem%problem,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('problem Create')
#endif

    exits("cmfe_Problem_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_Problem_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_createstartnumber(problemUserNumber,problemSpecification,err)
    !DLLEXPORT(cmfe_Problem_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: problemSpecification(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM

    enters("cmfe_Problem_CreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Problem Create')
#endif

    NULLIFY(problem)
    CALL problem_create_start(problemusernumber,problemspecification,problem,err,error,*999)

    exits("cmfe_Problem_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_Problem_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_createstartobj(problemUserNumber,problemSpecification,problem,err)
    !DLLEXPORT(cmfe_Problem_CreateStartObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: problemSpecification(:)
    TYPE(cmfe_problemtype), INTENT(INOUT) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_CreateStartObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('problem Create')
#endif

    CALL problem_create_start(problemusernumber,problemspecification,problem%problem,err,error,*999)

    exits("cmfe_Problem_CreateStartObj")
    RETURN
999 errorsexits("cmfe_Problem_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_createstartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_controlloopcreatefinishnumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_ControlLoopCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_ControlLoopCreateFinishNumber",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_create_finish(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Problem Control Loop Create')
#endif

    exits("cmfe_Problem_ControlLoopCreateFinishNumber")
    RETURN
999 errorsexits("cmfe_Problem_ControlLoopCreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_controlloopcreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_controlloopcreatefinishobj(problem,err)
    !DLLEXPORT(cmfe_Problem_ControlLoopCreateFinishObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_ControlLoopCreateFinishObj",err,error,*999)

    CALL problem_control_loop_create_finish(problem%problem,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('problem Control Loop Create')
#endif

    exits("cmfe_Problem_ControlLoopCreateFinishObj")
    RETURN
999 errorsexits("cmfe_Problem_ControlLoopCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_controlloopcreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_controlloopcreatestartnumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_ControlLoopCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_ControlLoopCreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Problem Control Loop Create')
#endif

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_create_start(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_ControlLoopCreateStartNumber")
    RETURN
999 errorsexits("cmfe_Problem_ControlLoopCreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_controlloopcreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_controlloopcreatestartobj(problem,err)
    !DLLEXPORT(cmfe_Problem_ControlLoopCreateStartObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_ControlLoopCreateStartObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('problem Control Loop Create')
#endif

    CALL problem_control_loop_create_start(problem%problem,err,error,*999)

    exits("cmfe_Problem_ControlLoopCreateStartObj")
    RETURN
999 errorsexits("cmfe_Problem_ControlLoopCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_controlloopcreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_controlloopdestroynumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_ControlLoopDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_ControlLoopDestroyNumber",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_destroy(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_ControlLoopDestroyNumber")
    RETURN
999 errorsexits("cmfe_Problem_ControlLoopDestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_controlloopdestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_controlloopdestroyobj(problem,err)
    !DLLEXPORT(cmfe_Problem_ControlLoopDestroyObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_ControlLoopDestroyObj",err,error,*999)

    CALL problem_control_loop_destroy(problem%problem,err,error,*999)

    exits("cmfe_Problem_ControlLoopDestroyObj")
    RETURN
999 errorsexits("cmfe_Problem_ControlLoopDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_controlloopdestroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_controlloopgetnumber0(problemUserNumber,controlLoopIdentifier,controlLoop,err)
    !DLLEXPORT(cmfe_Problem_ControlLoopGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_ControlLoopGetNumber0",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifier,controlloop%controlLoop,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_ControlLoopGetNumber0")
    RETURN
999 errorsexits("cmfe_Problem_ControlLoopGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_controlloopgetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_controlloopgetnumber1(problemUserNumber,controlLoopIdentifiers,controlLoop,err)
    !DLLEXPORT(cmfe_Problem_ControlLoopGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
     TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_ControlLoopGetNumber1",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_control_loop_get(problem,controlloopidentifiers,controlloop%controlLoop,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_ControlLoopGetNumber1")
    RETURN
999 errorsexits("cmfe_Problem_ControlLoopGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_controlloopgetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_controlloopgetobj0(problem,controlLoopIdentifier,controlLoop,err)
    !DLLEXPORT(cmfe_Problem_ControlLoopGetObj0)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_ControlLoopGetObj0",err,error,*999)

    CALL problem_control_loop_get(problem%problem,controlloopidentifier,controlloop%controlLoop,err,error,*999)

    exits("cmfe_Problem_ControlLoopGetObj0")
    RETURN
999 errorsexits("cmfe_Problem_ControlLoopGetObj0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_controlloopgetobj0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_controlloopgetobj1(problem,controlLoopIdentifiers,controlLoop,err)
    !DLLEXPORT(cmfe_Problem_ControlLoopGetObj1)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_ControlLoopGetObj1",err,error,*999)

    CALL problem_control_loop_get(problem%problem,controlloopidentifiers,controlloop%controlLoop,err,error,*999)

    exits("cmfe_Problem_ControlLoopGetObj1")
    RETURN
999 errorsexits("cmfe_Problem_ControlLoopGetObj1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_controlloopgetobj1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_destroynumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_DestroyNumber",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_destroy(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_DestroyNumber")
    RETURN
999 errorsexits("cmfe_Problem_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_destroyobj(problem,err)
    !DLLEXPORT(cmfe_Problem_DestroyObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_DestroyObj",err,error,*999)

    CALL problem_destroy(problem%problem,err,error,*999)

    exits("cmfe_Problem_DestroyObj")
    RETURN
999 errorsexits("cmfe_Problem_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_destroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solvenumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_SolveNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SolveNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Problem Solve')
#endif

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solve(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Problem Solve')
#endif

    exits("cmfe_Problem_SolveNumber")
    RETURN
999 errorsexits("cmfe_Problem_SolveNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solvenumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solveobj(problem,err)
    !DLLEXPORT(cmfe_Problem_SolveObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SolveObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('problem Solve')
#endif

    CALL problem_solve(problem%problem,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('problem Solve')
#endif

    exits("cmfe_Problem_SolveObj")
    RETURN
999 errorsexits("cmfe_Problem_SolveObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solveobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solvergetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,solver,err)
    !DLLEXPORT(cmfe_Problem_SolverGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_solvertype), INTENT(INOUT) :: solver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SolverGetNumber0",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver%solver,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_SolverGetNumber0")
    RETURN
999 errorsexits("cmfe_Problem_SolverGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solvergetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solvergetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,solver,err)
    !DLLEXPORT(cmfe_Problem_SolverGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_solvertype), INTENT(INOUT) :: solver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
     TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SolverGetNumber1",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver%solver,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_SolverGetNumber1")
    RETURN
999 errorsexits("cmfe_Problem_SolverGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solvergetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solvergetobj0(problem,controlLoopIdentifier,solverIndex,solver,err)
    !DLLEXPORT(cmfe_Problem_SolverGetObj0)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_solvertype), INTENT(INOUT) :: solver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SolverGetObj0",err,error,*999)

    CALL problem_solver_get(problem%problem,controlloopidentifier,solverindex,solver%solver,err,error,*999)

    exits("cmfe_Problem_SolverGetObj0")
    RETURN
999 errorsexits("cmfe_Problem_SolverGetObj0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solvergetobj0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solvergetobj1(problem,controlLoopIdentifiers,solverIndex,solver,err)
    !DLLEXPORT(cmfe_Problem_SolverGetObj1)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_solvertype), INTENT(INOUT) :: solver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SolverGetObj1",err,error,*999)

    CALL problem_solver_get(problem%problem,controlloopidentifiers,solverindex,solver%solver,err,error,*999)

    exits("cmfe_Problem_SolverGetObj1")
    RETURN
999 errorsexits("cmfe_Problem_SolverGetObj1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solvergetobj1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionsanalyticnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsAnalyticNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(varying_string) :: localError

    enters("cmfe_SolverEquations_BoundaryConditionsAnalyticNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifier,solverindex,solver_equations,err,error,*999)
      IF(ASSOCIATED(solver_equations)) THEN
        CALL problem_solverequationsboundaryconditionsanalytic(solver_equations,err,error,*999)
      ELSE
        localerror="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A problem with a user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_BoundaryConditionsAnalyticNumber0")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsAnalyticNumber0",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsAnalyticNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionsanalyticnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionsanalyticnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsAnalyticNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(varying_string) :: localError

    enters("cmfe_SolverEquations_BoundaryConditionsAnalyticNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solver_equations,err,error,*999)
      IF(ASSOCIATED(solver_equations)) THEN
        CALL problem_solverequationsboundaryconditionsanalytic(solver_equations,err,error,*999)
      ELSE
        localerror="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A problem with a user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_BoundaryConditionsAnalyticNumber1")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsAnalyticNumber1",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsAnalyticNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionsanalyticnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionsanalyticobj(solverEquations,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsAnalyticObj)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_SolverEquations_BoundaryConditionsAnalyticObj",err,error,*999)

    CALL problem_solverequationsboundaryconditionsanalytic(solverequations%solverEquations,err,error,*999)

    exits("cmfe_SolverEquations_BoundaryConditionsAnalyticObj")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsAnalyticObj",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsAnalyticObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionsanalyticobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverequationscreatefinishnumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_SolverEquationsCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SolverEquationsCreateFinishNumber",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_create_finish(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Solver Equations Create')
#endif

    exits("cmfe_Problem_SolverEquationsCreateFinishNumber")
    RETURN
999 errors("cmfe_Problem_SolverEquationsCreateFinishNumber",err,error)
    exits("cmfe_Problem_SolverEquationsCreateFinishNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverequationscreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverequationscreatefinishobj(problem,err)
    !DLLEXPORT(cmfe_Problem_SolverEquationsCreateFinishObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SolverEquationsCreateFinishObj",err,error,*999)

    CALL problem_solver_equations_create_finish(problem%problem,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('Solver Equations Create')
#endif

    exits("cmfe_Problem_SolverEquationsCreateFinishObj")
    RETURN
999 errorsexits("cmfe_Problem_SolverEquationsCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverequationscreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverequationscreatestartnumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_SolverEquationsCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SolverEquationsCreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Solver Equations Create')
#endif

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_create_start(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_SolverEquationsCreateStartNumber")
    RETURN
999 errors("cmfe_Problem_SolverEquationsCreateStartNumber",err,error)
    exits("cmfe_Problem_SolverEquationsCreateStartNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverequationscreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverequationscreatestartobj(problem,err)
    !DLLEXPORT(cmfe_Problem_SolverEquationsCreateStartObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SolverEquationsCreateStartObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Solver Equations Create')
#endif

    CALL problem_solver_equations_create_start(problem%problem,err,error,*999)

    exits("cmfe_Problem_SolverEquationsCreateStartObj")
    RETURN
999 errorsexits("cmfe_Problem_SolverEquationsCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverequationscreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverequationsdestroynumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_SolverEquationsDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SolverEquationsDestroyNumber",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_destroy(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_SolverEquationsDestroyNumber")
    RETURN
999 errorsexits("cmfe_Problem_SolverEquationsDestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverequationsdestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverequationsdestroyobj(problem,err)
    !DLLEXPORT(cmfe_Problem_SolverEquationsDestroyObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SolverEquationsDestroyObj",err,error,*999)

    CALL problem_solver_equations_destroy(problem%problem,err,error,*999)

    exits("cmfe_Problem_SolverEquationsDestroyObj")
    RETURN
999 errorsexits("cmfe_Problem_SolverEquationsDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverequationsdestroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverequationsgetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,solverEquations,err)
    !DLLEXPORT(cmfe_Problem_SolverEquationsGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_solverequationstype), INTENT(INOUT) :: solverEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SolverEquationsGetNumber0",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifier,solverindex,solverequations%solverEquations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_SolverEquationsGetNumber0")
    RETURN
999 errorsexits("cmfe_Problem_SolverEquationsGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverequationsgetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverequationsgetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,solverEquations,err)
    !DLLEXPORT(cmfe_Problem_SolverEquationsGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_solverequationstype), INTENT(INOUT) :: solverEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
     TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SolverEquationsGetNumber1",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solverequations%solverEquations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_SolverEquationsGetNumber1")
    RETURN
999 errorsexits("cmfe_Problem_SolverEquationsGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverequationsgetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverequationsgetobj0(problem,controlLoopIdentifier,solverIndex,solverEquations,err)
    !DLLEXPORT(cmfe_Problem_SolverEquationsGetObj0)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_solverequationstype), INTENT(INOUT) :: solverEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SolverEquationsGetObj0",err,error,*999)

    CALL problem_solver_equations_get(problem%problem,controlloopidentifier,solverindex,solverequations%solverEquations, &
      & err,error,*999)

    exits("cmfe_Problem_SolverEquationsGetObj0")
    RETURN
999 errorsexits("cmfe_Problem_SolverEquationsGetObj0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverequationsgetobj0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverequationsgetobj1(problem,controlLoopIdentifiers,solverIndex,solverEquations,err)
    !DLLEXPORT(cmfe_Problem_SolverEquationsGetObj1)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_solverequationstype), INTENT(INOUT) :: solverEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SolverEquationsGetObj1",err,error,*999)

    CALL problem_solver_equations_get(problem%problem,controlloopidentifiers,solverindex,solverequations%solverEquations, &
      & err,error,*999)

    exits("cmfe_Problem_SolverEquationsGetObj1")
    RETURN
999 errorsexits("cmfe_Problem_SolverEquationsGetObj1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverequationsgetobj1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverscreatefinishnumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_SolversCreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SolversCreateFinishNumber",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solvers_create_finish(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Problem Solvers Create')
#endif

    exits("cmfe_Problem_SolversCreateFinishNumber")
    RETURN
999 errorsexits("cmfe_Problem_SolversCreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverscreatefinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverscreatefinishobj(problem,err)
    !DLLEXPORT(cmfe_Problem_SolversCreateFinishObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SolversCreateFinishObj",err,error,*999)

    CALL problem_solvers_create_finish(problem%problem,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('problem Solvers Create')
#endif

    exits("cmfe_Problem_SolversCreateFinishObj")
    RETURN
999 errorsexits("cmfe_Problem_SolversCreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverscreatefinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverscreatestartnumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_SolversCreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SolversCreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Problem Solvers Create')
#endif

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solvers_create_start(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_SolversCreateStartNumber")
    RETURN
999 errorsexits("cmfe_Problem_SolversCreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverscreatestartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solverscreatestartobj(problem,err)
    !DLLEXPORT(cmfe_Problem_SolversCreateStartObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SolversCreateStartObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('problem Solvers Create')
#endif

    CALL problem_solvers_create_start(problem%problem,err,error,*999)

    exits("cmfe_Problem_SolversCreateStartObj")
    RETURN
999 errorsexits("cmfe_Problem_SolversCreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solverscreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solversdestroynumber(problemUserNumber,err)
    !DLLEXPORT(cmfe_Problem_SolversDestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SolversDestroyNumber",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solvers_destroy(problem,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_SolversDestroyNumber")
    RETURN
999 errorsexits("cmfe_Problem_SolversDestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solversdestroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_solversdestroyobj(problem,err)
    !DLLEXPORT(cmfe_Problem_SolversDestroyObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SolversDestroyObj",err,error,*999)

    CALL problem_solvers_destroy(problem%problem,err,error,*999)

    exits("cmfe_Problem_SolversDestroyObj")
    RETURN
999 errorsexits("cmfe_Problem_SolversDestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_solversdestroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_specificationgetnumber(problemUserNumber,problemSpecification,err)
    !DLLEXPORT(cmfe_Problem_SpecificationGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(INOUT) :: problemSpecification(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(varying_string) :: localError

    CALL enters("cmfe_Problem_SpecificationGetNumber",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_specificationget(problem,problemspecification,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    CALL exits("cmfe_Problem_SpecificationGetNumber")
    RETURN
999 CALL errors("cmfe_Problem_SpecificationGetNumber",err,error)
    CALL exits("cmfe_Problem_SpecificationGetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_specificationgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_specificationgetobj(problem,problemSpecification,err)
    !DLLEXPORT(cmfe_Problem_SpecificationGetObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(INOUT) :: problemSpecification(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SpecificationGetObj",err,error,*999)

    CALL problem_specificationget(problem%problem,problemspecification,err,error,*999)

    exits("cmfe_Problem_SpecificationGetObj")
    RETURN
999 errorsexits("cmfe_Problem_SpecificationGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_specificationgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_specificationsizegetnumber(problemUserNumber,specificationSize,err)
    !DLLEXPORT(cmfe_Problem_SpecificationSizeGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(OUT) :: specificationSize
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(varying_string) :: localError

    enters("cmfe_Problem_SpecificationSizeGetNumber",err,error,*999)

    NULLIFY(problem)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_specificationsizeget(problem,specificationsize,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Problem_SpecificationSizeGetNumber")
    RETURN
999 errorsexits("cmfe_Problem_SpecificationSizeGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_specificationsizegetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_problem_specificationsizegetobj(problem,specificationSize,err)
    !DLLEXPORT(cmfe_Problem_SpecificationSizeGetObj)

    !Argument variables
    TYPE(cmfe_problemtype), INTENT(IN) :: problem
    INTEGER(INTG), INTENT(OUT) :: specificationSize
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Problem_SpecificationSizeGetObj",err,error,*999)

    CALL problem_specificationsizeget(problem%problem,specificationsize,err,error,*999)

    exits("cmfe_Problem_SpecificationSizeGetObj")
    RETURN
999 errorsexits("cmfe_Problem_SpecificationSizeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_problem_specificationsizegetobj

!!==================================================================================================================================
!!
!! REGION_ROUTINES
!!
!!==================================================================================================================================

  SUBROUTINE cmfe_region_coordinatesystemgetnumber(regionUserNumber,coordinateSystemUserNumber,err)
    !DLLEXPORT(cmfe_Region_CoordinateSystemGetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Region_CoordinateSystemGetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(coordinate_system)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_coordinate_system_get(region,coordinate_system,err,error,*999)
      IF(ASSOCIATED(coordinate_system)) THEN
        coordinatesystemusernumber = coordinate_system%USER_NUMBER
      ELSE
        localerror="The coordinate system is not associated for region number "// &
          & trim(numbertovstring(regionusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Region_CoordinateSystemGetNumber")
    RETURN
999 errorsexits("cmfe_Region_CoordinateSystemGetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_coordinatesystemgetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_coordinatesystemgetobj(region,coordinateSystem,err)
    !DLLEXPORT(cmfe_Region_CoordinateSystemGetObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: coordinateSystem
   INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Region_CoordinateSystemGetObj",err,error,*999)

    CALL region_coordinate_system_get(region%region,coordinatesystem%coordinateSystem,err,error,*999)

    exits("cmfe_Region_CoordinateSystemGetObj")
    RETURN
999 errorsexits("cmfe_Region_CoordinateSystemGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_coordinatesystemgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_coordinatesystemsetnumber(regionUserNumber,coordinateSystemUserNumber,err)
    !DLLEXPORT(cmfe_Region_CoordinateSystemSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: coordinateSystemUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Region_CoordinateSystemSetNumber",err,error,*999)

    NULLIFY(region)
    NULLIFY(coordinate_system)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL coordinate_system_user_number_find(coordinatesystemusernumber,coordinate_system,err,error,*999)
      IF(ASSOCIATED(coordinate_system)) THEN
        CALL region_coordinate_system_set(region,coordinate_system,err,error,*999)
      ELSE
        localerror="A coordinate system with an user number of "// &
          & trim(numbertovstring(coordinatesystemusernumber,"*",err,error))//"."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Region_CoordinateSystemSetNumber")
    RETURN
999 errorsexits("cmfe_Region_CoordinateSystemSetNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_coordinatesystemsetnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_coordinatesystemsetobj(region,coordinateSystem,err)
    !DLLEXPORT(cmfe_Region_CoordinateSystemSetObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_coordinatesystemtype), INTENT(IN) :: coordinateSystem
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Region_CoordinateSystemSetObj",err,error,*999)

    CALL region_coordinate_system_set(region%region,coordinatesystem%coordinateSystem,err,error,*999)

    exits("cmfe_Region_CoordinateSystemSetObj")
    RETURN
999 errorsexits("cmfe_Region_CoordinateSystemSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_coordinatesystemsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_createfinishnumber(regionUserNumber,err)
    !DLLEXPORT(cmfe_Region_CreateFinishNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Region_CreateFinishNumber",err,error,*999)

    NULLIFY(region)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_create_finish(region,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

#ifdef TAUPROF
    CALL tau_static_phase_stop('Region Create')
#endif

    exits("cmfe_Region_CreateFinishNumber")
    RETURN
999 errorsexits("cmfe_Region_CreateFinishNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_createfinishnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_createfinishobj(region,err)
    !DLLEXPORT(cmfe_Region_CreateFinishObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Region_CreateFinishObj",err,error,*999)

    CALL region_create_finish(region%region,err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_stop('region Create')
#endif

    exits("cmfe_Region_CreateFinishObj")
    RETURN
999 errorsexits("cmfe_Region_CreateFinishObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_createfinishobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_createstartnumber(regionUserNumber,parentRegionUserNumber,err)
    !DLLEXPORT(cmfe_Region_CreateStartNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: parentRegionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: PARENT_REGION,REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Region_CreateStartNumber",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('Region Create')
#endif

    NULLIFY(parent_region)
    NULLIFY(region)
    CALL region_user_number_find(parentregionusernumber,parent_region,err,error,*999)
    IF(ASSOCIATED(parent_region)) THEN
      CALL region_create_start(regionusernumber,parent_region,region,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(parentregionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Region_CreateStartNumber")
    RETURN
999 errorsexits("cmfe_Region_CreateStartNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_createstartnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_createstartobj(regionUserNumber,parentRegion,region,err)
    !DLLEXPORT(cmfe_Region_CreateStartObj)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    TYPE(cmfe_regiontype), INTENT(IN) :: parentRegion
    TYPE(cmfe_regiontype), INTENT(INOUT) :: region
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Region_CreateStartObj",err,error,*999)

#ifdef TAUPROF
    CALL tau_static_phase_start('region Create')
#endif

    CALL region_create_start(regionusernumber,parentregion%region,region%region,err,error,*999)

    exits("cmfe_Region_CreateStartObj")
    RETURN
999 errorsexits("cmfe_Region_CreateStartObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_createstartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_destroynumber(regionUserNumber,err)
    !DLLEXPORT(cmfe_Region_DestroyNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Region_DestroyNumber",err,error,*999)

    NULLIFY(region)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_destroy(region,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Region_DestroyNumber")
    RETURN
999 errorsexits("cmfe_Region_DestroyNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_destroynumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_datapointsgetobj(region,dataPoints,err)
    !DLLEXPORT(cmfe_Region_DataPointsGetObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_datapointstype), INTENT(INOUT) :: dataPoints
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Region_DataPointsGetObj",err,error,*999)

    CALL region_data_points_get(region%region,datapoints%dataPoints,err,error,*999)

    exits("cmfe_Region_DataPointsGetObj")
    RETURN
999 errorsexits("cmfe_Region_DataPointsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_datapointsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_destroyobj(region,err)
    !DLLEXPORT(cmfe_Region_DestroyObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(INOUT) :: region
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Region_DestroyObj",err,error,*999)

    CALL region_destroy(region%region,err,error,*999)

    exits("cmfe_Region_DestroyObj")
    RETURN
999 errorsexits("cmfe_Region_DestroyObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_destroyobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_labelgetcnumber(regionUserNumber,label,err)
    !DLLEXPORT(cmfe_Region_LabelGetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Region_LabelGetCNumber",err,error,*999)

    NULLIFY(region)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_label_get(region,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Region_LabelGetCNumber")
    RETURN
999 errorsexits("cmfe_Region_LabelGetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_labelgetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_labelgetcobj(region,label,err)
    !DLLEXPORT(cmfe_Region_LabelGetCObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Region_LabelGetCObj",err,error,*999)

    CALL region_label_get(region%region,label,err,error,*999)

    exits("cmfe_Region_LabelGetCObj")
    RETURN
999 errorsexits("cmfe_Region_LabelGetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_labelgetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_labelgetvsnumber(regionUserNumber,label,err)
    !DLLEXPORT(cmfe_Region_LabelGetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Region_LabelGetVSNumber",err,error,*999)

    NULLIFY(region)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_label_get(region,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Region_LabelGetVSNumber")
    RETURN
999 errorsexits("cmfe_Region_LabelGetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_labelgetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_labelgetvsobj(region,label,err)
    !DLLEXPORT(cmfe_Region_LabelGetVSObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Region_LabelGetVSObj",err,error,*999)

    CALL region_label_get(region%region,label,err,error,*999)

    exits("cmfe_Region_LabelGetVSObj")
    RETURN
999 errorsexits("cmfe_Region_LabelGetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_labelgetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_labelsetcnumber(regionUserNumber,label,err)
    !DLLEXPORT(cmfe_Region_LabelSetCNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Region_LabelSetCNumber",err,error,*999)

    NULLIFY(region)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_label_set(region,label,err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Region_LabelSetCNumber")
    RETURN
999 errorsexits("cmfe_Region_LabelSetCNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_labelsetcnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_labelsetcobj(region,label,err)
    !DLLEXPORT(cmfe_Region_LabelSetCObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Region_LabelSetCObj",err,error,*999)

    CALL region_label_set(region%region,label,err,error,*999)

    exits("cmfe_Region_LabelSetCObj")
    RETURN
999 errorsexits("cmfe_Region_LabelSetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_labelsetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_labelsetvsnumber(regionUserNumber,label,err)
    !DLLEXPORT(cmfe_Region_LabelSetVSNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(region_type), POINTER :: REGION
    TYPE(varying_string) :: localError

    enters("cmfe_Region_LabelSetVSNumber",err,error,*999)

    NULLIFY(region)
    CALL region_user_number_find(regionusernumber,region,err,error,*999)
    IF(ASSOCIATED(region)) THEN
      CALL region_label_set(region,char(label),err,error,*999)
    ELSE
      localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_RegionLabelStVSNumber")
    RETURN
999 errorsexits("cmfe_Region_LabelSetVSNumber",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_labelsetvsnumber

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_labelsetvsobj(region,label,err)
    !DLLEXPORT(cmfe_Region_LabelSetVSObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Region_LabelSetVSObj",err,error,*999)

    CALL region_label_set(region%region,char(label),err,error,*999)

    exits("cmfe_Region_LabelSetVSObj")
    RETURN
999 errorsexits("cmfe_Region_LabelSetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_labelsetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_region_nodesgetobj(region,nodes,err)
    !DLLEXPORT(cmfe_Region_NodesGetObj)

    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_nodestype), INTENT(INOUT) :: nodes
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Region_NodesGetObj",err,error,*999)

    CALL region_nodes_get(region%region,nodes%nodes,err,error,*999)

    exits("cmfe_Region_NodesGetObj")
    RETURN
999 errorsexits("cmfe_Region_NodesGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_region_nodesgetobj

!!==================================================================================================================================
!!
!! SOLVER_ROUTINES
!!
!!==================================================================================================================================

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_cellmlequations_cellmladdnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & regionusernumber,cellmlusernumber,cellmlindex,err)
    !DLLEXPORT(cmfe_CellMLEquations_CellMLAddNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: CellMLIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(cellml_equations_type), POINTER :: CELLML_EQUATIONS
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(region_type), POINTER :: REGION
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_CellMLEquations_CellMLAddNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(cellml_equations)
    NULLIFY(region)
    NULLIFY(cellml)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_cellml_equations_get(solver,cellml_equations,err,error,*999)
      CALL region_user_number_find(regionusernumber,region,err,error,*999)
      IF(ASSOCIATED(region)) THEN
        CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
        IF(ASSOCIATED(cellml)) THEN
          CALL cellml_equations_cellml_add(cellml_equations,cellml,cellmlindex,err,error,*999)
        ELSE
          localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
            & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellMLEquations_CellMLAddNumber0")
    RETURN
999 errorsexits("cmfe_CellMLEquations_CellMLAddNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellmlequations_cellmladdnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_cellmlequations_cellmladdnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & regionusernumber,cellmlusernumber,cellmlindex,err)
    !DLLEXPORT(cmfe_CellMLEquations_CellMLAddNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: CellMLUserNumber
    INTEGER(INTG), INTENT(OUT) :: CellMLIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(cellml_type), POINTER :: CELLML
    TYPE(cellml_equations_type), POINTER :: CELLML_EQUATIONS
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(region_type), POINTER :: REGION
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_CellMLEquations_CellMLAddNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(cellml_equations)
    NULLIFY(region)
    NULLIFY(cellml)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_cellml_equations_get(solver,cellml_equations,err,error,*999)
      CALL region_user_number_find(regionusernumber,region,err,error,*999)
      IF(ASSOCIATED(region)) THEN
        CALL cellml_user_number_find(cellmlusernumber,region,cellml,err,error,*999)
        IF(ASSOCIATED(cellml)) THEN
          CALL cellml_equations_cellml_add(cellml_equations,cellml,cellmlindex,err,error,*999)
        ELSE
          localerror="A CellML environment with an user number of "//trim(numbertovstring(cellmlusernumber,"*",err,error))// &
            & " does not exist in region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(localerror,err,error,*999)
        END IF
      ELSE
        localerror="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_CellMLEquations_CellMLAddNumber1")
    RETURN
999 errorsexits("cmfe_CellMLEquations_CellMLAddNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellmlequations_cellmladdnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_cellmlequations_cellmladdobj(CellMLEquations,CellML,CellMLIndex,err)
    !DLLEXPORT(cmfe_CellMLEquations_CellMLAddObj)

    !Argument variables
    TYPE(cmfe_cellmlequationstype), INTENT(IN) :: CellMLEquations
    TYPE(cmfe_cellmltype), INTENT(IN) :: CellML
    INTEGER(INTG), INTENT(OUT) :: CellMLIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_CellMLEquations_CellMLAddObj",err,error,*999)

    CALL cellml_equations_cellml_add(cellmlequations%cellmlEquations,cellml%CELLML,cellmlindex,err,error,*999)

    exits("cmfe_CellMLEquations_CellMLAddObj")
    RETURN
999 errorsexits("cmfe_CellMLEquations_CellMLAddObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_cellmlequations_cellmladdobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_cellmlequationsgetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,CellMLEquations,err)
    !DLLEXPORT(cmfe_Solver_CellMLEquationsGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_cellmlequationstype), INTENT(INOUT) :: CellMLEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_CellMLEquationsGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_cellml_equations_get(solver,cellmlequations%cellmlEquations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_CellMLEquationsGetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_CellMLEquationsGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_cellmlequationsgetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_cellmlequationsgetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,CellMLEquations,err)
    !DLLEXPORT(cmfe_Solver_CellMLEquationsGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_cellmlequationstype), INTENT(INOUT) :: CellMLEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_CellMLEquationsGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_cellml_equations_get(solver,cellmlequations%cellmlEquations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_CellMLEquationsGetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_CellMLEquationsGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_cellmlequationsgetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_cellmlequationsgetobj(solver,CellMLEquations,err)
    !DLLEXPORT(cmfe_Solver_CellMLEquationsGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    TYPE(cmfe_cellmlequationstype), INTENT(INOUT) :: CellMLEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_CellMLEquationsGetObj",err,error,*999)

    CALL solver_cellml_equations_get(solver%solver,cellmlequations%cellmlEquations,err,error,*999)

    exits("cmfe_Solver_CellMLEquationsGetObj")
    RETURN
999 errorsexits("cmfe_Solver_CellMLEquationsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_cellmlequationsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daeeulersolvertypegetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,DAEEulerSolverType,err)
    !DLLEXPORT(cmfe_Solver_DAEEulerSolverTypeGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: DAEEulerSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAEEulerSolverTypeGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dae_euler_solver_type_get(solver,daeeulersolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAEEulerSolverTypeGetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DAEEulerSolverTypeGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daeeulersolvertypegetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daeeulersolvertypegetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,DAEEulerSolverType,err)
    !DLLEXPORT(cmfe_Solver_DAEEulerSolverTypeGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: DAEEulerSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAEEulerSolverTypeGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dae_euler_solver_type_get(solver,daeeulersolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAEEulerSolverTypeGetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DAEEulerSolverTypeGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daeeulersolvertypegetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daeeulersolvertypegetobj(solver,DAEEulerSolverType,err)
    !DLLEXPORT(cmfe_Solver_DAEEulerSolverTypeGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(OUT) :: DAEEulerSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DAEEulerSolverTypeGetObj",err,error,*999)

    CALL solver_dae_euler_solver_type_get(solver%solver,daeeulersolvertype,err,error,*999)

    exits("cmfe_Solver_DAEEulerSolverTypeGetObj")
    RETURN
999 errorsexits("cmfe_Solver_DAEEulerSolverTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daeeulersolvertypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daeeulersolvertypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,DAEEulerSolverType,err)
    !DLLEXPORT(cmfe_Solver_DAEEulerSolverTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: DAEEulerSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAEEulerSolverTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dae_euler_solver_type_set(solver,daeeulersolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAEEulerSolverTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DAEEulerSolverTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daeeulersolvertypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daeeulersolvertypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,DAEEulerSolverType,err)
    !DLLEXPORT(cmfe_Solver_DAEEulerSolverTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: DAEEulerSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAEEulerSolverTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dae_euler_solver_type_set(solver,daeeulersolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAEEulerSolverTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DAEEulerSolverTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daeeulersolvertypesetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daeeulersolvertypesetobj(solver,DAEEulerSolverType,err)
    !DLLEXPORT(cmfe_Solver_DAEEulerSolverTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: DAEEulerSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DAEEulerSolverTypeSetObj",err,error,*999)

    CALL solver_dae_euler_solver_type_set(solver%solver,daeeulersolvertype,err,error,*999)

    exits("cmfe_Solver_DAEEulerSolverTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_DAEEulerSolverTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daeeulersolvertypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daesolvertypegetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,DAESolverType,err)
    !DLLEXPORT(cmfe_Solver_DAESolverTypeGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: DAESolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAESolverTypeGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dae_solver_type_get(solver,daesolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAESolverTypeGetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DAESolverTypeGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daesolvertypegetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daesolvertypegetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,DAESolverType,err)
    !DLLEXPORT(cmfe_Solver_DAESolverTypeGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: DAESolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAESolverTypeGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dae_solver_type_get(solver,daesolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAESolverTypeGetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DAESolverTypeGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daesolvertypegetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daesolvertypegetobj(solver,DAESolverType,err)
    !DLLEXPORT(cmfe_Solver_DAESolverTypeGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(OUT) :: DAESolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DAESolverTypeGetObj",err,error,*999)

    CALL solver_dae_solver_type_get(solver%solver,daesolvertype,err,error,*999)

    exits("cmfe_Solver_DAESolverTypeGetObj")
    RETURN
999 errorsexits("cmfe_Solver_DAESolverTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daesolvertypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daesolvertypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,DAESolverType,err)
    !DLLEXPORT(cmfe_Solver_DAESolverTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: DAESolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAESolverTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dae_solver_type_set(solver,daesolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAESolverTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DAESolverTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daesolvertypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daesolvertypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,DAESolverType,err)
    !DLLEXPORT(cmfe_Solver_DAESolverTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: DAESolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAESolverTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dae_solver_type_set(solver,daesolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAESolverTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DAESolverTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daesolvertypesetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daesolvertypesetobj(solver,DAESolverType,err)
    !DLLEXPORT(cmfe_Solver_DAESolverTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: DAESolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DAESolverTypeSetObj",err,error,*999)

    CALL solver_dae_solver_type_set(solver%solver,daesolvertype,err,error,*999)

    exits("cmfe_Solver_DAESolverTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_DAESolverTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daesolvertypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daetimessetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,startTime,endTime,err)
    !DLLEXPORT(cmfe_Solver_DAETimesSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: startTime
    REAL(DP), INTENT(IN) :: endTime
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAETimesSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dae_times_set(solver,starttime,endtime,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAETimesSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DAETimesSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daetimessetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daetimessetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,startTime,endTime,err)
    !DLLEXPORT(cmfe_Solver_DAETimesSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: startTime
    REAL(DP), INTENT(IN) :: endTime
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAETimesSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dae_times_set(solver,starttime,endtime,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAETimesSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DAETimesSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daetimessetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daetimessetobj(solver,startTime,endTime,err)
    !DLLEXPORT(cmfe_Solver_DAETimesSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: startTime
    REAL(DP), INTENT(IN) :: endTime
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DAETimesSetObj",err,error,*999)

    CALL solver_dae_times_set(solver%solver,starttime,endtime,err,error,*999)

    exits("cmfe_Solver_DAETimesSetObj")
    RETURN
999 errorsexits("cmfe_Solver_DAETimesSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daetimessetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daetimestepsetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,timeStep,err)
    !DLLEXPORT(cmfe_Solver_DAETimeStepSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: timeStep
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAETimeStepSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dae_time_step_set(solver,timestep,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAETimeStepSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DAETimeStepSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daetimestepsetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daetimestepsetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,timeStep,err)
    !DLLEXPORT(cmfe_Solver_DAETimeStepSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: timeStep
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DAETimeStepSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dae_time_step_set(solver,timestep,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DAETimeStepSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DAETimeStepSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daetimestepsetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_daetimestepsetobj(solver,timeStep,err)
    !DLLEXPORT(cmfe_Solver_DAETimeStepSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: timeStep
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DAETimeStepSetObj",err,error,*999)

    CALL solver_dae_time_step_set(solver%solver,timestep,err,error,*999)

    exits("cmfe_Solver_DAETimeStepSetObj")
    RETURN
999 errorsexits("cmfe_Solver_DAETimeStepSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_daetimestepsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicdegreegetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,degree,err)
    !DLLEXPORT(cmfe_Solver_DynamicDegreeGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: degree
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicDegreeGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dynamic_degree_get(solver,degree,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicDegreeGetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DynamicDegreeGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicdegreegetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicdegreegetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,degree,err)
    !DLLEXPORT(cmfe_Solver_DynamicDegreeGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: degree
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicDegreeGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dynamic_degree_get(solver,degree,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicDegreeGetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DynamicDegreeGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicdegreegetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicdegreegetobj(solver,degree,err)
    !DLLEXPORT(cmfe_Solver_DynamicDegreeGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(OUT) :: degree
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DynamicDegreeGetObj",err,error,*999)

    CALL solver_dynamic_degree_get(solver%solver,degree,err,error,*999)

    exits("cmfe_Solver_DynamicDegreeGetObj")
    RETURN
999 errorsexits("cmfe_Solver_DynamicDegreeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicdegreegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicdegreesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,degree,err)
    !DLLEXPORT(cmfe_Solver_DynamicDegreeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: degree
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicDegreeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dynamic_degree_set(solver,degree,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicDegreeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DynamicDegreeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicdegreesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicdegreesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,degree,err)
    !DLLEXPORT(cmfe_Solver_DynamicDegreeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: degree
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicDegreeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dynamic_degree_set(solver,degree,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicDegreeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DynamicDegreeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicdegreesetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicdegreesetobj(solver,degree,err)
    !DLLEXPORT(cmfe_Solver_DynamicDegreeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: degree
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DynamicDegreeSetObj",err,error,*999)

    CALL solver_dynamic_degree_set(solver%solver,degree,err,error,*999)

    exits("cmfe_Solver_DynamicDegreeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_DynamicDegreeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicdegreesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamiclinearitytypegetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,linearityType,err)
    !DLLEXPORT(cmfe_Solver_DynamicLinearityTypeGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: linearityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicLinearityTypeGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dynamic_linearity_type_get(solver,linearitytype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicLinearityTypeGetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DynamicLinearityTypeGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamiclinearitytypegetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamiclinearitytypegetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,linearityType,err)
    !DLLEXPORT(cmfe_Solver_DynamicLinearityTypeGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: linearityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicLinearityTypeGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dynamic_linearity_type_get(solver,linearitytype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicLinearityTypeGetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DynamicLinearityTypeGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamiclinearitytypegetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamiclinearitytypegetobj(solver,linearityType,err)
    !DLLEXPORT(cmfe_Solver_DynamicLinearityTypeGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(OUT) :: linearityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DynamicLinearityTypeGetObj",err,error,*999)

    CALL solver_dynamic_linearity_type_get(solver%solver,linearitytype,err,error,*999)

    exits("cmfe_Solver_DynamicLinearityTypeGetObj")
    RETURN
999 errorsexits("cmfe_Solver_DynamicLinearityTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamiclinearitytypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicnonlinearsolvergetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & nonlinearsolverindex,err)
    !DLLEXPORT(cmfe_Solver_DynamicNonlinearSolverGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: nonlinearSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,NONLINEAR_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicNonlinearSolverGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(nonlinear_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dynamic_nonlinear_solver_get(solver,nonlinear_solver,err,error,*999)
      !todo: get the solver index from nonlinear solver
      nonlinearsolverindex=nonlinear_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicNonlinearSolverGetNumber0")
    RETURN
999 errors("cmfe_Solver_DynamicNonlinearSolverGetNumber0",err,error)
    exits("cmfe_Solver_DynamicNonlinearSolverGetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicnonlinearsolvergetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicnonlinearsolvergetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & nonlinearsolverindex,err)
    !DLLEXPORT(cmfe_Solver_DynamicNonlinearSolverGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: nonlinearSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,NONLINEAR_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicNonlinearSolverGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(nonlinear_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dynamic_nonlinear_solver_get(solver,nonlinear_solver,err,error,*999)
      !todo: get the solver index from nonlinear solver
      nonlinearsolverindex=nonlinear_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicNonlinearSolverGetNumber1")
    RETURN
999 errors("cmfe_Solver_DynamicNonlinearSolverGetNumber1",err,error)
    exits("cmfe_Solver_DynamicNonlinearSolverGetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicnonlinearsolvergetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicnonlinearsolvergetobj(solver,nonlinearSolver,err)
    !DLLEXPORT(cmfe_Solver_DynamicNonlinearSolverGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    TYPE(cmfe_solvertype), INTENT(INOUT) :: nonlinearSolver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DynamicNonlinearSolverGetObj",err,error,*999)

    CALL solver_dynamic_nonlinear_solver_get(solver%solver,nonlinearsolver%solver,err,error,*999)

    exits("cmfe_Solver_DynamicNonlinearSolverGetObj")
    RETURN
999 errorsexits("cmfe_Solver_DynamicNonlinearSolverGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicnonlinearsolvergetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamiclinearsolvergetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,linearSolverIndex,err)
    !DLLEXPORT(cmfe_Solver_DynamicLinearSolverGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: linearSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,LINEAR_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicLinearSolverGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(linear_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dynamic_linear_solver_get(solver,linear_solver,err,error,*999)
      !todo: get the solver index from linear solver
      linearsolverindex=linear_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicLinearSolverGetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DynamicLinearSolverGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamiclinearsolvergetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamiclinearsolvergetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,linearSolverIndex,err)
    !DLLEXPORT(cmfe_Solver_DynamicLinearSolverGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: linearSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,LINEAR_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicLinearSolverGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(linear_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dynamic_linear_solver_get(solver,linear_solver,err,error,*999)
      !todo: get the solver index from linear solver
      linearsolverindex=linear_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicLinearSolverGetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DynamicLinearSolverGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamiclinearsolvergetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamiclinearsolvergetobj(solver,linearSolver,err)
    !DLLEXPORT(cmfe_Solver_DynamicLinearSolverGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    TYPE(cmfe_solvertype), INTENT(INOUT) :: linearSolver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DynamicLinearSolverGetObj",err,error,*999)

    CALL solver_dynamic_linear_solver_get(solver%solver,linearsolver%solver,err,error,*999)

    exits("cmfe_Solver_DynamicLinearSolverGetObj")
    RETURN
999 errorsexits("cmfe_Solver_DynamicLinearSolverGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamiclinearsolvergetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicschemesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,scheme,err)
    !DLLEXPORT(cmfe_Solver_DynamicSchemeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: scheme
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicSchemeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dynamic_scheme_set(solver,scheme,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicSchemeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DynamicSchemeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicschemesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicschemesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,scheme,err)
    !DLLEXPORT(cmfe_Solver_DynamicSchemeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: scheme
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicSchemeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dynamic_scheme_set(solver,scheme,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicSchemeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DynamicSchemeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicschemesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicschemesetobj(solver,scheme,err)
    !DLLEXPORT(cmfe_Solver_DynamicSchemeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: scheme
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DynamicSchemeSetObj",err,error,*999)

    CALL solver_dynamic_scheme_set(solver%solver,scheme,err,error,*999)

    exits("cmfe_Solver_DynamicSchemeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_DynamicSchemeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicschemesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicthetasetnumber00(problemUserNumber,controlLoopIdentifier,solverIndex,theta,err)
    !DLLEXPORT(cmfe_Solver_DynamicThetaSetNumber00)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: theta
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicThetaSetNumber00",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dynamic_theta_set(solver,theta,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicThetaSetNumber00")
    RETURN
999 errorsexits("cmfe_Solver_DynamicThetaSetNumber00",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicthetasetnumber00

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicthetasetnumber01(problemUserNumber,controlLoopIdentifier,solverIndex,thetas,err)
    !DLLEXPORT(cmfe_Solver_DynamicThetaSetNumber01)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: thetas(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicThetaSetNumber01",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dynamic_theta_set(solver,thetas,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicThetaSetNumber01")
    RETURN
999 errorsexits("cmfe_Solver_DynamicThetaSetNumber01",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicthetasetnumber01

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicthetasetnumber10(problemUserNumber,controlLoopIdentifiers,solverIndex,theta,err)
    !DLLEXPORT(cmfe_Solver_DynamicThetaSetNumber10)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: theta
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicThetaSetNumber10",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dynamic_theta_set(solver,theta,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicThetaSetNumber10")
    RETURN
999 errorsexits("cmfe_Solver_DynamicThetaSetNumber10",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicthetasetnumber10

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicthetasetnumber11(problemUserNumber,controlLoopIdentifiers,solverIndex,thetas,err)
    !DLLEXPORT(cmfe_Solver_DynamicThetaSetNumber11)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: thetas(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicThetaSetNumber11",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dynamic_theta_set(solver,thetas,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicThetaSetNumber11")
    RETURN
999 errorsexits("cmfe_Solver_DynamicThetaSetNumber11",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicthetasetnumber11

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicthetasetobj0(solver,theta,err)
    !DLLEXPORT(cmfe_Solver_DynamicThetaSetObj0)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: theta
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DynamicThetaSetObj0",err,error,*999)

    CALL solver_dynamic_theta_set(solver%solver,theta,err,error,*999)

    exits("cmfe_Solver_DynamicThetaSetObj0")
    RETURN
999 errorsexits("cmfe_Solver_DynamicThetaSetObj0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicthetasetobj0

   !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamicthetasetobj1(solver,thetas,err)
    !DLLEXPORT(cmfe_Solver_DynamicThetaSetObj1)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: thetas(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DynamicThetaSetObj1",err,error,*999)

    CALL solver_dynamic_theta_set(solver%solver,thetas,err,error,*999)

    exits("cmfe_Solver_DynamicThetaSetObj1")
    RETURN
999 errorsexits("cmfe_Solver_DynamicThetaSetObj1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamicthetasetobj1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamictimessetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,currentTime,timeIncrement,err)
    !DLLEXPORT(cmfe_Solver_DynamicTimesSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: currentTime
    REAL(DP), INTENT(IN) :: timeIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_DynamicTimesSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_dynamic_times_set(solver,currenttime,timeincrement,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicTimesSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_DynamicTimesSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamictimessetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamictimessetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,currentTime,timeIncrement,err)
    !DLLEXPORT(cmfe_Solver_DynamicTimesSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: currentTime
    REAL(DP), INTENT(IN) :: timeIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_SolverDynamicTimeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_dynamic_times_set(solver,currenttime,timeincrement,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_DynamicTimesSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_DynamicTimesSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamictimessetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_dynamictimessetobj(solver,currentTime,timeIncrement,err)
    !DLLEXPORT(cmfe_Solver_DynamicTimesSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: currentTime
    REAL(DP), INTENT(IN) :: timeIncrement
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_DynamicTimesSetObj",err,error,*999)

    CALL solver_dynamic_times_set(solver%solver,currenttime,timeincrement,err,error,*999)

    exits("cmfe_Solver_DynamicTimesSetObj")
    RETURN
999 errorsexits("cmfe_Solver_DynamicTimesSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_dynamictimessetobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationarbitrarypathsetnumber(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & arbitrarypath,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationArbitraryPathSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    LOGICAL, INTENT(IN) :: arbitraryPath
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_GeometricTransformationArbitraryPathSetNumber",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      IF(ASSOCIATED(solver)) THEN
        CALL solver_geometrictransformationarbitrarypathset(solver,arbitrarypath,err,error,*999)
      ELSE
        localerror="A solver with index of "//trim(numbertovstring(solverindex,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_GeometricTransformationArbitraryPathSetNumber")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationArbitraryPathSetNumber",err,error)
    exits("cmfe_Solver_GeometricTransformationArbitraryPathSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationarbitrarypathsetnumber
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationarbitrarypathsetobj(solver,arbitraryPath,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationArbitraryPathSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    LOGICAL, INTENT(IN) :: arbitraryPath
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_GeometricTransformationArbitraryPathSetObj",err,error,*999)
    
    CALL solver_geometrictransformationarbitrarypathset(solver%solver,arbitrarypath,err,error,*999)

    exits("cmfe_Solver_GeometricTransformationArbitraryPathSetObj")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationArbitraryPathSetObj",err,error)
    exits("cmfe_Solver_GeometricTransformationArbitraryPathSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationarbitrarypathsetobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationclearnumber(problemUserNumber,controlLoopIdentifier,solverIndex,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationClearNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_GeometricTransformationClearNumber",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      IF(ASSOCIATED(solver)) THEN
        CALL solver_geometrictransformationclear(solver,err,error,*999)
      ELSE
        localerror="A solver with index of "//trim(numbertovstring(solverindex,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_GeometricTransformationClearNumber")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationClearNumber",err,error)
    exits("cmfe_Solver_GeometricTransformationClearNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationclearnumber
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationclearobj(solver,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationClearObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_GeometricTransformationClearObj",err,error,*999)
    
    CALL solver_geometrictransformationclear(solver%solver,err,error,*999)

    exits("cmfe_Solver_GeometricTransformationClearObj")
    RETURN
999 errorsexits("cmfe_Solver_GeometricTransformationClearObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationclearobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationfieldsetnumber(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & regionusernumber,fieldusernumber,variabletype,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationFieldSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: fieldUserNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(field_type), POINTER :: field
    TYPE(region_type), POINTER :: region
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_GeometricTransformationFieldSetNumber",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(field)
    NULLIFY(region)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      IF(ASSOCIATED(solver)) THEN
        CALL region_user_number_find(regionusernumber,region,err,error,*999)
        IF(ASSOCIATED(region)) THEN
          CALL field_user_number_find(fieldusernumber,region,field,err,error,*999)
          IF(ASSOCIATED(field)) THEN
            CALL solver_geometrictransformationfieldset(solver,field,variabletype,err,error,*999)
          ELSE
            localerror="A field with user number of "//trim(numbertovstring(fieldusernumber,"*",err,error))// &
              & " does not exist."
            CALL flagerror(localerror,err,error,*999)
          ENDIF
        ELSE
          localerror="A region with user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
            & " does not exist."
          CALL flagerror(localerror,err,error,*999)
        ENDIF
      ELSE
        localerror="A solver with index of "//trim(numbertovstring(solverindex,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_GeometricTransformationFieldSetNumber")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationFieldSetNumber",err,error)
    exits("cmfe_Solver_GeometricTransformationFieldSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationfieldsetnumber
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationfieldsetobj(solver,field,variableType,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationFieldSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_GeometricTransformationFieldSetObj",err,error,*999)
    
    CALL solver_geometrictransformationfieldset(solver%solver,field%field,variabletype,err,error,*999)

    exits("cmfe_Solver_GeometricTransformationFieldSetObj")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationFieldSetObj",err,error)
    exits("cmfe_Solver_GeometricTransformationFieldSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationfieldsetobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationmatrixsetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & matrix,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationMatrixSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: matrix(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_GeometricTransformationMatrixSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      IF(ASSOCIATED(solver)) THEN
        CALL solver_geometrictransformationmatrixset(solver,matrix,1,err,error,*999)
      ELSE
        localerror="A solver with index of "//trim(numbertovstring(solverindex,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_GeometricTransformationMatrixSetNumber0")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationMatrixSetNumber0",err,error)
    exits("cmfe_Solver_GeometricTransformationMatrixSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationmatrixsetnumber0
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationmatrixsetobj0(solver,matrix,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationMatrixSetObj0)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: matrix(:,:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_GeometricTransformationMatrixSetObj0",err,error,*999)
    
    CALL solver_geometrictransformationmatrixset(solver%solver,matrix,1,err,error,*999)

    exits("cmfe_Solver_GeometricTransformationMatrixSetObj0")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationMatrixSetObj0",err,error)
    exits("cmfe_Solver_GeometricTransformationMatrixSetObj0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationmatrixsetobj0
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationmatrixsetnumber1(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & matrix,loadincrementidx,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationMatrixSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: matrix(:,:)
    INTEGER(INTG), INTENT(IN) :: loadIncrementIdx
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_GeometricTransformationMatrixSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      IF(ASSOCIATED(solver)) THEN
        CALL solver_geometrictransformationmatrixset(solver,matrix,loadincrementidx,err,error,*999)
      ELSE
        localerror="A solver with index of "//trim(numbertovstring(solverindex,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_GeometricTransformationMatrixSetNumber1")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationMatrixSetNumber1",err,error)
    exits("cmfe_Solver_GeometricTransformationMatrixSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationmatrixsetnumber1
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationmatrixsetobj1(solver,matrix,loadIncrementIdx,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationMatrixSetObj1)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: matrix(:,:)
    INTEGER(INTG), INTENT(IN) :: loadIncrementIdx
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_GeometricTransformationMatrixSetObj1",err,error,*999)
    
    CALL solver_geometrictransformationmatrixset(solver%solver,matrix,loadincrementidx,err,error,*999)

    exits("cmfe_Solver_GeometricTransformationMatrixSetObj1")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationMatrixSetObj1",err,error)
    exits("cmfe_Solver_GeometricTransformationMatrixSetObj1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationmatrixsetobj1
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationnoloadincrementssetnumber(problemUserNumber,controlLoopIdentifier, &
      & solverindex,numberofincrements,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationNoLoadIncrementsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: numberOfIncrements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_GeometricTransformationNumberOfLoadIncrementsSetNumber",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      IF(ASSOCIATED(solver)) THEN
        CALL solver_geometrictransformationnumberofloadincrementsset(solver,numberofincrements,err,error,*999)
      ELSE
        localerror="A solver with index of "//trim(numbertovstring(solverindex,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_GeometricTransformationNumberOfLoadIncrementsSetNumber")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationNumberOfLoadIncrementsSetNumber",err,error)
    exits("cmfe_Solver_GeometricTransformationNumberOfLoadIncrementsSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationnoloadincrementssetnumber
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationnoloadincrementssetobj(solver,numberOfIncrements,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationNoLoadIncrementsSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: numberOfIncrements
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_GeometricTransformationNumberOfLoadIncrementsSetObj",err,error,*999)
    
    CALL solver_geometrictransformationnumberofloadincrementsset(solver%solver,numberofincrements,err,error,*999)

    exits("cmfe_Solver_GeometricTransformationNumberOfLoadIncrementsSetObj")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationNumberOfLoadIncrementsSetObj",err,error)
    exits("cmfe_Solver_GeometricTransformationNumberOfLoadIncrementsSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationnoloadincrementssetobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationrotationsetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & pivotpoint,axis,angle,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationRotationSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: pivotPoint(:)
    REAL(DP), INTENT(IN) :: axis(:)
    REAL(DP), INTENT(IN) :: angle
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_GeometricTransformationRotationSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      IF(ASSOCIATED(solver)) THEN
        CALL solver_geometrictransformationrotationset(solver,pivotpoint,axis,angle,1,err,error,*999)
      ELSE
        localerror="A solver with index of "//trim(numbertovstring(solverindex,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_GeometricTransformationRotationSetNumber0")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationRotationSetNumber0",err,error)
    exits("cmfe_Solver_GeometricTransformationRotationSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationrotationsetnumber0
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationrotationsetobj0(solver,pivotPoint,axis,angle,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationRotationSetObj0)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: pivotPoint(:)
    REAL(DP), INTENT(IN) :: axis(:)
    REAL(DP), INTENT(IN) :: angle
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_GeometricTransformationRotationSetObj0",err,error,*999)
    
    CALL solver_geometrictransformationrotationset(solver%solver,pivotpoint,axis,angle,1,err,error,*999)

    exits("cmfe_Solver_GeometricTransformationRotationSetObj0")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationRotationSetObj0",err,error)
    exits("cmfe_Solver_GeometricTransformationRotationSetObj0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationrotationsetobj0
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationrotationsetnumber1(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & pivotpoint,axis,angle,loadincrementidx,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationRotationSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: pivotPoint(:)
    REAL(DP), INTENT(IN) :: axis(:)
    REAL(DP), INTENT(IN) :: angle
    INTEGER(INTG), INTENT(IN) :: loadIncrementIdx
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_GeometricTransformationRotationSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      IF(ASSOCIATED(solver)) THEN
        CALL solver_geometrictransformationrotationset(solver,pivotpoint,axis,angle,loadincrementidx,err,error,*999)
      ELSE
        localerror="A solver with index of "//trim(numbertovstring(solverindex,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_GeometricTransformationRotationSetNumber1")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationRotationSetNumber1",err,error)
    exits("cmfe_Solver_GeometricTransformationRotationSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationrotationsetnumber1
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationrotationsetobj1(solver,pivotPoint,axis,angle,loadIncrementIdx,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationRotationSetObj1)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: pivotPoint(:)
    REAL(DP), INTENT(IN) :: axis(:)
    REAL(DP), INTENT(IN) :: angle
    INTEGER(INTG), INTENT(IN) :: loadIncrementIdx
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_GeometricTransformationRotationSetObj1",err,error,*999)
    
    CALL solver_geometrictransformationrotationset(solver%solver,pivotpoint,axis,angle,loadincrementidx,err,error,*999)

    exits("cmfe_Solver_GeometricTransformationRotationSetObj1")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationRotationSetObj1",err,error)
    exits("cmfe_Solver_GeometricTransformationRotationSetObj1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationrotationsetobj1
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationscalingssetnumber(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & scalings,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationScalingsSetNumber)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: scalings(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_GeometricTransformationScalingsSetNumber",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      IF(ASSOCIATED(solver)) THEN
        CALL solver_geometrictransformationscalingsset(solver,scalings,err,error,*999)
      ELSE
        localerror="A solver with index of "//trim(numbertovstring(solverindex,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_GeometricTransformationScalingsSetNumber")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationScalingsSetNumber",err,error)
    exits("cmfe_Solver_GeometricTransformationScalingsSetNumber")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationscalingssetnumber
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationscalingssetobj(solver,scalings,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationScalingsSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: scalings(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_GeometricTransformationScalingsSetObj",err,error,*999)
    
    CALL solver_geometrictransformationscalingsset(solver%solver,scalings,err,error,*999)

    exits("cmfe_Solver_GeometricTransformationScalingsSetObj")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationScalingsSetObj",err,error)
    exits("cmfe_Solver_GeometricTransformationScalingsSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationscalingssetobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationtranslationsetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & translation,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationTranslationSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: translation(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_GeometricTransformationTranslationSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      IF(ASSOCIATED(solver)) THEN
        CALL solver_geometrictransformationtranslationset(solver,translation,1,err,error,*999)
      ELSE
        localerror="A solver with index of "//trim(numbertovstring(solverindex,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_GeometricTransformationTranslationSetNumber0")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationTranslationSetNumber0",err,error)
    exits("cmfe_Solver_GeometricTransformationTranslationSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationtranslationsetnumber0
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationtranslationsetobj0(solver,translation,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationTranslationSetObj0)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: translation(:)
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_GeometricTransformationTranslationSetObj0",err,error,*999)
    
    CALL solver_geometrictransformationtranslationset(solver%solver,translation,1,err,error,*999)

    exits("cmfe_Solver_GeometricTransformationTranslationSetObj0")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationTranslationSetObj0",err,error)
    exits("cmfe_Solver_GeometricTransformationTranslationSetObj0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationtranslationsetobj0
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationtranslationsetnumber1(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & translation,loadincrementidx,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationTranslationSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: translation(:)
    INTEGER(INTG), INTENT(IN) :: loadIncrementIdx
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_GeometricTransformationTranslationSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      IF(ASSOCIATED(solver)) THEN
        CALL solver_geometrictransformationtranslationset(solver,translation,loadincrementidx,err,error,*999)
      ELSE
        localerror="A solver with index of "//trim(numbertovstring(solverindex,"*",err,error))// &
          & " does not exist."
        CALL flagerror(localerror,err,error,*999)
      ENDIF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_GeometricTransformationTranslationSetNumber1")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationTranslationSetNumber1",err,error)
    exits("cmfe_Solver_GeometricTransformationTranslationSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationtranslationsetnumber1
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_geometrictransformationtranslationsetobj1(solver,translation,loadIncrementIdx,err)
    !DLLEXPORT(cmfe_Solver_GeometricTransformationTranslationSetObj1)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: translation(:)
    INTEGER(INTG), INTENT(IN) :: loadIncrementIdx
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_GeometricTransformationTranslationSetObj1",err,error,*999)
    
    CALL solver_geometrictransformationtranslationset(solver%solver,translation,loadincrementidx,err,error,*999)

    exits("cmfe_Solver_GeometricTransformationTranslationSetObj1")
    RETURN
999 errors("cmfe_Solver_GeometricTransformationTranslationSetObj1",err,error)
    exits("cmfe_Solver_GeometricTransformationTranslationSetObj1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_geometrictransformationtranslationsetobj1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelgetcnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,label,err)
    !DLLEXPORT(cmfe_Solver_LabelGetCNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LabelGetCNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_label_get(solver,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_LabelGetCNumber0")
    RETURN
999 errorsexits("cmfe_Solver_LabelGetCNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelgetcnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelgetcnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,label,err)
    !DLLEXPORT(cmfe_Solver_LabelGetCNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LabelGetCNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_label_get(solver,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    ENDIF

    exits("cmfe_Solver_LabelGetCNumber1")
    RETURN
999 errorsexits("cmfe_Solver_LabelGetCNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelgetcnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelgetcobj(solver,label,err)
    !DLLEXPORT(cmfe_Solver_LabelGetCObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    CHARACTER(LEN=*), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LabelGetCObj",err,error,*999)

    CALL solver_label_get(solver%solver,label,err,error,*999)

    exits("cmfe_Solver_LabelGetCObj")
    RETURN
999 errorsexits("cmfe_Solver_LabelGetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelgetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelgetvsnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,label,err)
    !DLLEXPORT(cmfe_Solver_LabelGetVSNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LabelGetVSNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_label_get(solver,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LabelGetVSNumber0")
    RETURN
999 errorsexits("cmfe_Solver_LabelGetVSNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelgetvsnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelgetvsnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,label,err)
    !DLLEXPORT(cmfe_Solver_LabelGetVSNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LabelGetVSNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_label_get(solver,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LabelGetVSNumber1")
    RETURN
999 errorsexits("cmfe_Solver_LabelGetVSNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelgetvsnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelgetvsobj(solver,label,err)
    !DLLEXPORT(cmfe_Solver_LabelGetVSObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    TYPE(varying_string), INTENT(OUT) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LabelGetVSObj",err,error,*999)

    CALL solver_label_get(solver%solver,label,err,error,*999)

    exits("cmfe_Solver_LabelGetVSObj")
    RETURN
999 errorsexits("cmfe_Solver_LabelGetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelgetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelsetcnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,label,err)
    !DLLEXPORT(cmfe_Solver_LabelSetCNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LabelSetCNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_label_set(solver,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LabelSetCNumber0")
    RETURN
999 errorsexits("cmfe_Solver_LabelSetCNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelsetcnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelsetcnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,label,err)
    !DLLEXPORT(cmfe_Solver_LabelSetCNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LabelSetCNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_label_set(solver,label,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LabelSetCNumber1")
    RETURN
999 errorsexits("cmfe_Solver_LabelSetCNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelsetcnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelsetcobj(solver,label,err)
    !DLLEXPORT(cmfe_Solver_LabelSetCObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    CHARACTER(LEN=*), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LabelSetCObj",err,error,*999)

    CALL solver_label_set(solver%solver,label,err,error,*999)

    exits("cmfe_Solver_LabelSetCObj")
    RETURN
999 errorsexits("cmfe_Solver_LabelSetCObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelsetcobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelsetvsnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,label,err)
    !DLLEXPORT(cmfe_Solver_LabelSetVSNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LabelSetVSNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_label_set(solver,char(label),err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_SolverLabelStVSNumber0")
    RETURN
999 errorsexits("cmfe_Solver_LabelSetVSNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelsetvsnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelsetvsnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,label,err)
    !DLLEXPORT(cmfe_Solver_LabelSetVSNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LabelSetVSNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_label_set(solver,char(label),err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_SolverLabelStVSNumber1")
    RETURN
999 errorsexits("cmfe_Solver_LabelSetVSNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelsetvsnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_labelsetvsobj(solver,label,err)
    !DLLEXPORT(cmfe_Solver_LabelSetVSObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    TYPE(varying_string), INTENT(IN) :: label
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LabelSetVSObj",err,error,*999)

    CALL solver_label_set(solver%solver,char(label),err,error,*999)

    exits("cmfe_Solver_LabelSetVSObj")
    RETURN
999 errorsexits("cmfe_Solver_LabelSetVSObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_labelsetvsobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_librarytypegetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,libraryType,err)
    !DLLEXPORT(cmfe_Solver_LibraryTypeGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: libraryType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LibraryTypeGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_library_type_get(solver,librarytype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LibraryTypeGetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_LibraryTypeGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_librarytypegetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_librarytypegetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,libraryType,err)
    !DLLEXPORT(cmfe_Solver_LibraryTypeGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: libraryType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LibraryTypeGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_library_type_get(solver,librarytype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LibraryTypeGetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_LibraryTypeGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_librarytypegetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_librarytypegetobj(solver,libraryType,err)
    !DLLEXPORT(cmfe_Solver_LibraryTypeGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(OUT) :: libraryType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LibraryTypeGetObj",err,error,*999)

    CALL solver_library_type_get(solver%solver,librarytype,err,error,*999)

    exits("cmfe_Solver_LibraryTypeGetObj")
    RETURN
999 errorsexits("cmfe_Solver_LibraryTypeGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_librarytypegetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_librarytypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,libraryType,err)
    !DLLEXPORT(cmfe_Solver_LibraryTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: libraryType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LibraryTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_library_type_set(solver,librarytype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LibraryTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_LibraryTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_librarytypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_librarytypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,libraryType,err)
    !DLLEXPORT(cmfe_Solver_LibraryTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: libraryType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LibraryTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_library_type_set(solver,librarytype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LibraryTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_LibraryTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_librarytypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_librarytypesetobj(solver,libraryType,err)
    !DLLEXPORT(cmfe_Solver_LibraryTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: libraryType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LibraryTypeSetObj",err,error,*999)

    CALL solver_library_type_set(solver%solver,librarytype,err,error,*999)

    exits("cmfe_Solver_LibraryTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_LibraryTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_librarytypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineardirecttypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,directSolverType,err)
    !DLLEXPORT(cmfe_Solver_LinearDirectTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: directSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearDirectTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_linear_direct_type_set(solver,directsolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearDirectTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_LinearDirectTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineardirecttypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineardirecttypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,directSolverType,err)
    !DLLEXPORT(cmfe_Solver_LinearDirectTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: directSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearDirectTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_linear_direct_type_set(solver,directsolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearDirectTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_LinearDirectTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineardirecttypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineardirecttypesetobj(solver,directSolverType,err)
    !DLLEXPORT(cmfe_Solver_LinearDirectTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: directSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LinearDirectTypeSetObj",err,error,*999)

    CALL solver_linear_direct_type_set(solver%solver,directsolvertype,err,error,*999)

    exits("cmfe_Solver_LinearDirectTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_LinearDirectTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineardirecttypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_mumpsseticntl(solver,icntl,ivalue,err)
    !DLLEXPORT(cmfe_Solver_MumpsSetIcntl)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: icntl
    INTEGER(INTG), INTENT(IN) :: ivalue
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_MumpsSetIcntl",err,error,*999)

    CALL solver_mumpsseticntl(solver%solver,icntl,ivalue,err,error,*999)

    exits("cmfe_Solver_MumpsSetIcntl")
    RETURN
999 errorsexits("cmfe_Solver_MumpsSetIcntl",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_mumpsseticntl

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_mumpssetcntl(solver,icntl,val,err)
    !DLLEXPORT(cmfe_Solver_MumpsSetCntl)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: icntl
    REAL(DP), INTENT(IN) :: val
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_MumpsSetCntl",err,error,*999)

    CALL solver_mumpssetcntl(solver%solver,icntl,val,err,error,*999)

    exits("cmfe_Solver_MumpsSetCntl")
    RETURN
999 errorsexits("cmfe_Solver_MumpsSetCntl",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_mumpssetcntl

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativeabsolutetolerancesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & absolutetolerance,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_lineariterativeabsolutetoleranceset(solver,absolutetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber0")
    RETURN
999 errors("cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber0",err,error)
    exits("cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativeabsolutetolerancesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativeabsolutetolerancesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & absolutetolerance,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_lineariterativeabsolutetoleranceset(solver,absolutetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber1")
    RETURN
999 errors("cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber1",err,error)
    exits("cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativeabsolutetolerancesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativeabsolutetolerancesetobj(solver,absoluteTolerance,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeAbsoluteToleranceSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LinearIterativeAbsoluteToleranceSetObj",err,error,*999)

    CALL solver_lineariterativeabsolutetoleranceset(solver%solver,absolutetolerance,err,error,*999)

    exits("cmfe_Solver_LinearIterativeAbsoluteToleranceSetObj")
    RETURN
999 errors("cmfe_Solver_LinearIterativeAbsoluteToleranceSetObj",err,error)
    exits("cmfe_Solver_LinearIterativeAbsoluteToleranceSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativeabsolutetolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativedivergencetolerancesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & divergencetolerance,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: divergenceTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_lineariterativedivergencetoleranceset(solver,divergencetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber0")
    RETURN
999 errors("cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber0",err,error)
    exits("cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativedivergencetolerancesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativedivergencetolerancesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & divergencetolerance,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: divergenceTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_lineariterativedivergencetoleranceset(solver,divergencetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber1")
    RETURN
999 errors("cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber1",err,error)
    exits("cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativedivergencetolerancesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativedivergencetolerancesetobj(solver,divergenceTolerance,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeDivergenceToleranceSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: divergenceTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LinearIterativeDivergenceToleranceSetObj",err,error,*999)

    CALL solver_lineariterativedivergencetoleranceset(solver%solver,divergencetolerance,err,error,*999)

    exits("cmfe_Solver_LinearIterativeDivergenceToleranceSetObj")
    RETURN
999 errors("cmfe_Solver_LinearIterativeDivergenceToleranceSetObj",err,error)
    exits("cmfe_Solver_LinearIterativeDivergenceToleranceSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativedivergencetolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativegmresrestartsetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & gmresrestart,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeGMRESRestartSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: GMRESRestart
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeGMRESRestartSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_linear_iterative_gmres_restart_set(solver,gmresrestart,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeGMRESRestartSetNumber0")
    RETURN
999 errors("cmfe_Solver_LinearIterativeGMRESRestartSetNumber0",err,error)
    exits("cmfe_Solver_LinearIterativeGMRESRestartSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativegmresrestartsetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativegmresrestartsetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & gmresrestart,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeGMRESRestartSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: GMRESRestart
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeGMRESRestartSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_linear_iterative_gmres_restart_set(solver,gmresrestart,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeGMRESRestartSetNumber1")
    RETURN
999 errors("cmfe_Solver_LinearIterativeGMRESRestartSetNumber1",err,error)
    exits("cmfe_Solver_LinearIterativeGMRESRestartSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativegmresrestartsetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativegmresrestartsetobj(solver,GMRESRestart,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeGMRESRestartSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: GMRESRestart
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LinearIterativeGMRESRestartSetObj",err,error,*999)

    CALL solver_linear_iterative_gmres_restart_set(solver%solver,gmresrestart,err,error,*999)

    exits("cmfe_Solver_LinearIterativeGMRESRestartSetObj")
    RETURN
999 errors("cmfe_Solver_LinearIterativeGMRESRestartSetObj",err,error)
    exits("cmfe_Solver_LinearIterativeGMRESRestartSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativegmresrestartsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativemaximumiterationssetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & maximumiterations,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeMaximumIterationsSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeMaximumIterationsSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_lineariterativemaximumiterationsset(solver,maximumiterations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeMaximumIterationsSetNumber0")
    RETURN
999 errors("cmfe_Solver_LinearIterativeMaximumIterationsSetNumber0",err,error)
    exits("cmfe_Solver_LinearIterativeMaximumIterationsSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativemaximumiterationssetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativemaximumiterationssetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & maximumiterations,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeMaximumIterationsSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeMaximumIterationsSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_lineariterativemaximumiterationsset(solver,maximumiterations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeMaximumIterationsSetNumber1")
    RETURN
999 errors("cmfe_Solver_LinearIterativeMaximumIterationsSetNumber1",err,error)
    exits("cmfe_Solver_LinearIterativeMaximumIterationsSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativemaximumiterationssetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativemaximumiterationssetobj(solver,maximumIterations,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeMaximumIterationsSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LinearIterativeMaximumIterationsSetObj",err,error,*999)

    CALL solver_lineariterativemaximumiterationsset(solver%solver,maximumiterations,err,error,*999)

    exits("cmfe_Solver_LinearIterativeMaximumIterationsSetObj")
    RETURN
999 errors("cmfe_Solver_LinearIterativeMaximumIterationsSetObj",err,error)
    exits("cmfe_Solver_LinearIterativeMaximumIterationsSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativemaximumiterationssetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativepreconditionertypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & preconditionertype,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativePreconditionerTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: preconditionerType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativePreconditionerTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_lineariterativepreconditionertypeset(solver,preconditionertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativePreconditionerTypeSetNumber0")
    RETURN
999 errors("cmfe_Solver_LinearIterativePreconditionerTypeSetNumber0",err,error)
    exits("cmfe_Solver_LinearIterativePreconditionerTypeSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativepreconditionertypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativepreconditionertypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & preconditionertype,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativePreconditionerTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: preconditionerType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativePreconditionerTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_lineariterativepreconditionertypeset(solver,preconditionertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativePreconditionerTypeSetNumber1")
    RETURN
999 errors("cmfe_Solver_LinearIterativePreconditionerTypeSetNumber1",err,error)
    exits("cmfe_Solver_LinearIterativePreconditionerTypeSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativepreconditionertypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativepreconditionertypesetobj(solver,preconditionerType,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativePreconditionerTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: preconditionerType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LinearIterativePreconditionerTypeSetObj",err,error,*999)

    CALL solver_lineariterativepreconditionertypeset(solver%solver,preconditionertype,err,error,*999)

    exits("cmfe_Solver_LinearIterativePreconditionerTypeSetObj")
    RETURN
999 errors("cmfe_Solver_LinearIterativePreconditionerTypeSetObj",err,error)
    exits("cmfe_Solver_LinearIterativePreconditionerTypeSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativepreconditionertypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativerelativetolerancesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & relativetolerance,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeRelativeToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeRelativeToleranceSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_lineariterativerelativetoleranceset(solver,relativetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeRelativeToleranceSetNumber0")
    RETURN
999 errors("cmfe_Solver_LinearIterativeRelativeToleranceSetNumber0",err,error)
    exits("cmfe_Solver_LinearIterativeRelativeToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativerelativetolerancesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativerelativetolerancesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & relativetolerance,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeRelativeToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeRelativeToleranceSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_lineariterativerelativetoleranceset(solver,relativetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeRelativeToleranceSetNumber1")
    RETURN
999 errors("cmfe_Solver_LinearIterativeRelativeToleranceSetNumber1",err,error)
    exits("cmfe_Solver_LinearIterativeRelativeToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativerelativetolerancesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativerelativetolerancesetobj(solver,relativeTolerance,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeRelativeToleranceSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LinearIterativeRelativeToleranceSetObj",err,error,*999)

    CALL solver_lineariterativerelativetoleranceset(solver%solver,relativetolerance,err,error,*999)

    exits("cmfe_Solver_LinearIterativeRelativeToleranceSetObj")
    RETURN
999 errors("cmfe_Solver_LinearIterativeRelativeToleranceSetObj",err,error)
    exits("cmfe_Solver_LinearIterativeRelativeToleranceSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativerelativetolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativetypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,iterativeSolverType,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: iterativeSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_linear_iterative_type_set(solver,iterativesolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_LinearIterativeTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativetypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativetypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,iterativeSolverType,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: iterativeSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearIterativeTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_linear_iterative_type_set(solver,iterativesolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearIterativeTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_LinearIterativeTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativetypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineariterativetypesetobj(solver,iterativeSolverType,err)
    !DLLEXPORT(cmfe_Solver_LinearIterativeTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: iterativeSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LinearIterativeTypeSetObj",err,error,*999)

    CALL solver_linear_iterative_type_set(solver%solver,iterativesolvertype,err,error,*999)

    exits("cmfe_Solver_LinearIterativeTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_LinearIterativeTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineariterativetypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineartypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,linearSolverType,err)
    !DLLEXPORT(cmfe_Solver_LinearTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: linearSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_linear_type_set(solver,linearsolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_LinearTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineartypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineartypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,linearSolverType,err)
    !DLLEXPORT(cmfe_Solver_LinearTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: linearSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_LinearTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_linear_type_set(solver,linearsolvertype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_LinearTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_LinearTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineartypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_lineartypesetobj(solver,linearSolverType,err)
    !DLLEXPORT(cmfe_Solver_LinearTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: linearSolverType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_LinearTypeSetObj",err,error,*999)

    CALL solver_linear_type_set(solver%solver,linearsolvertype,err,error,*999)

    exits("cmfe_Solver_LinearTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_LinearTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_lineartypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonabsolutetolerancesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & absolutetolerance,err)
    !DLLEXPORT(cmfe_Solver_NewtonAbsoluteToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonAbsoluteToleranceSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_absolute_tolerance_set(solver,absolutetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonAbsoluteToleranceSetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonAbsoluteToleranceSetNumber0",err,error)
    exits("cmfe_Solver_NewtonAbsoluteToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonabsolutetolerancesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonabsolutetolerancesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,absoluteTolerance, &
    & err)
    !DLLEXPORT(cmfe_Solver_NewtonAbsoluteToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonAbsoluteToleranceSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_absolute_tolerance_set(solver,absolutetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonAbsoluteToleranceSetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonAbsoluteToleranceSetNumber1",err,error)
    exits("cmfe_Solver_NewtonAbsoluteToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonabsolutetolerancesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonabsolutetolerancesetobj(solver,absoluteTolerance,err)
    !DLLEXPORT(cmfe_Solver_NewtonAbsoluteToleranceSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonAbsoluteToleranceSetObj",err,error,*999)

    CALL solver_newton_absolute_tolerance_set(solver%solver,absolutetolerance,err,error,*999)

    exits("cmfe_Solver_NewtonAbsoluteToleranceSetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonAbsoluteToleranceSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonabsolutetolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchmonitoroutputsetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & monitorlinesearchflag,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    LOGICAL, INTENT(IN) :: monitorLinesearchFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newtonlinesearchmonitoroutputset(solver,monitorlinesearchflag,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber0",err,error)
    exits("cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchmonitoroutputsetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchmonitoroutputsetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & monitorlinesearchflag,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    LOGICAL, INTENT(IN) :: monitorLinesearchFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newtonlinesearchmonitoroutputset(solver,monitorlinesearchflag,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber1",err,error)
    exits("cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchmonitoroutputsetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchmonitoroutputsetobj(solver,monitorLinesearchFlag,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchMonitorOutputSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    LOGICAL, INTENT(IN) :: monitorLinesearchFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonLineSearchMonitorOutputSetObj",err,error,*999)

    CALL solver_newtonlinesearchmonitoroutputset(solver%solver,monitorlinesearchflag,err,error,*999)

    exits("cmfe_Solver_NewtonLineSearchMonitorOutputSetObj")
    RETURN
999 errors("cmfe_Solver_NewtonLineSearchMonitorOutputSetObj",err,error)
    exits("cmfe_Solver_NewtonLineSearchMonitorOutputSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchmonitoroutputsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonjacobiancalculationtypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & jacobiancalculationtype,err)
    !DLLEXPORT(cmfe_Solver_NewtonJacobianCalculationTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: jacobianCalculationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonJacobianCalculationTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_jacobian_calculation_type_set(solver,jacobiancalculationtype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonJacobianCalculationTypeSetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonJacobianCalculationTypeSetNumber0",err,error)
    exits("cmfe_Solver_NewtonJacobianCalculationTypeSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonjacobiancalculationtypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonjacobiancalculationtypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & jacobiancalculationtype,err)
    !DLLEXPORT(cmfe_Solver_NewtonJacobianCalculationTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: jacobianCalculationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonJacobianCalculationTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_jacobian_calculation_type_set(solver,jacobiancalculationtype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonJacobianCalculationTypeSetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonJacobianCalculationTypeSetNumber1",err,error)
    exits("cmfe_Solver_NewtonJacobianCalculationTypeSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonjacobiancalculationtypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonjacobiancalculationtypesetobj(solver,jacobianCalculationType,err)
    !DLLEXPORT(cmfe_Solver_NewtonJacobianCalculationTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: jacobianCalculationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonJacobianCalculationTypeSetObj",err,error,*999)

    CALL solver_newton_jacobian_calculation_type_set(solver%solver,jacobiancalculationtype,err,error,*999)

    exits("cmfe_Solver_NewtonJacobianCalculationTypeSetObj")
    RETURN
999 errors("cmfe_Solver_NewtonJacobianCalculationTypeSetObj",err,error)
    exits("cmfe_Solver_NewtonJacobianCalculationTypeSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonjacobiancalculationtypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinearsolvergetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,linearSolverIndex,err)
    !DLLEXPORT(cmfe_Solver_NewtonLinearSolverGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: linearSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,LINEAR_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLinearSolverGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(linear_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_linear_solver_get(solver,linear_solver,err,error,*999)
      !todo: get the solver index from linear solver
      linearsolverindex=linear_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLinearSolverGetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_NewtonLinearSolverGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinearsolvergetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinearsolvergetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,linearSolverIndex,err)
    !DLLEXPORT(cmfe_Solver_NewtonLinearSolverGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: linearSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,LINEAR_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLinearSolverGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(linear_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_linear_solver_get(solver,linear_solver,err,error,*999)
      !todo: get the solver index from linear solver
      linearsolverindex=linear_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLinearSolverGetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_NewtonLinearSolverGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinearsolvergetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinearsolvergetobj(solver,linearSolver,err)
    !DLLEXPORT(cmfe_Solver_NewtonLinearSolverGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    TYPE(cmfe_solvertype), INTENT(INOUT) :: linearSolver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonLinearSolverGetObj",err,error,*999)

    CALL solver_newton_linear_solver_get(solver%solver,linearsolver%solver,err,error,*999)

    exits("cmfe_Solver_NewtonLinearSolverGetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonLinearSolverGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinearsolvergetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtoncellmlsolvergetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,CellMLSolverIndex,err)
    !DLLEXPORT(cmfe_Solver_NewtonCellMLSolverGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: CellMLSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,CELLML_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonCellMLSolverGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(cellml_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_cellml_solver_get(solver,cellml_solver,err,error,*999)
      !todo: get the solver index from CellML solver
      cellmlsolverindex=cellml_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonCellMLSolverGetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_NewtonCellMLSolverGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtoncellmlsolvergetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtoncellmlsolvergetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,CellMLSolverIndex,err)
    !DLLEXPORT(cmfe_Solver_NewtonCellMLSolverGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: CellMLSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,CELLML_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonCellMLSolverGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(cellml_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_cellml_solver_get(solver,cellml_solver,err,error,*999)
      !todo: get the solver index from CellML solver
      cellmlsolverindex=cellml_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonCellMLSolverGetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_NewtonCellMLSolverGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtoncellmlsolvergetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtoncellmlsolvergetobj(solver,CellMLSolver,err)
    !DLLEXPORT(cmfe_Solver_NewtonCellMLSolverGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    TYPE(cmfe_solvertype), INTENT(INOUT) :: CellMLSolver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonCellMLSolverGetObj",err,error,*999)

    CALL solver_newton_cellml_solver_get(solver%solver,cellmlsolver%solver,err,error,*999)

    exits("cmfe_Solver_NewtonCellMLSolverGetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonCellMLSolverGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtoncellmlsolvergetobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonconvergencetesttypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & convergencetesttype,err)
    !DLLEXPORT(cmfe_Solver_NewtonConvergenceTestTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: convergenceTestType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonConvergenceTestTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newtonconvergencetesttypeset(solver,convergencetesttype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonConvergenceTestTypeSetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonConvergenceTestTypeSetNumber0",err,error)
    exits("cmfe_Solver_NewtonConvergenceTestTypeSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonconvergencetesttypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonconvergencetesttypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
      & convergencetesttype,err)
    !DLLEXPORT(cmfe_Solver_NewtonConvergenceTestTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: convergenceTestType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonConvergenceTestTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newtonconvergencetesttypeset(solver,convergencetesttype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonConvergenceTestTypeSetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonConvergenceTestTypeSetNumber1",err,error)
    exits("cmfe_Solver_NewtonConvergenceTestTypeSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonconvergencetesttypesetnumber1
  
  ! 
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonconvergencetesttypesetobj(solver,convergenceTestType,err)
    !DLLEXPORT(cmfe_Solver_NewtonConvergenceTestTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: convergenceTestType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonConvergenceTestTypeSetObj",err,error,*999)

    CALL solver_newtonconvergencetesttypeset(solver%solver,convergencetesttype,err,error,*999)

    exits("cmfe_Solver_NewtonConvergenceTestTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonConvergenceTestTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonconvergencetesttypesetobj

  !
  !================================================================================================================================
  !
  
  SUBROUTINE cmfe_solver_newtonlinesearchalphasetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,alpha,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchAlphaSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: alpha
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLineSearchAlphaSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_linesearch_alpha_set(solver,alpha,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLineSearchAlphaSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_NewtonLineSearchAlphaSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchalphasetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchalphasetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,alpha,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchAlphaSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: alpha
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLineSearchAlphaSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_linesearch_alpha_set(solver,alpha,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLineSearchAlphaSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_NewtonLineSearchAlphaSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchalphasetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchalphasetobj(solver,alpha,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchAlphaSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: alpha
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonLineSearchAlphaSetObj",err,error,*999)

    CALL solver_newton_linesearch_alpha_set(solver%solver,alpha,err,error,*999)

    exits("cmfe_Solver_NewtonLineSearchAlphaSetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonLineSearchAlphaSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchalphasetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchmaxstepsetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,maxStep,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchMaxStepSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: maxStep
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLineSearchMaxStepSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_linesearch_maxstep_set(solver,maxstep,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLineSearchMaxStepSetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonLineSearchMaxStepSetNumber0",err,error)
    exits("cmfe_Solver_NewtonLineSearchMaxStepSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchmaxstepsetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchmaxstepsetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,maxStep,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchMaxStepSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: maxStep
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLineSearchMaxStepSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_linesearch_maxstep_set(solver,maxstep,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLineSearchMaxStepSetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonLineSearchMaxStepSetNumber1",err,error)
    exits("cmfe_Solver_NewtonLineSearchMaxStepSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchmaxstepsetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchmaxstepsetobj(solver,maxStep,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchMaxStepSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: maxStep
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonLineSearchMaxStepSetObj",err,error,*999)

    CALL solver_newton_linesearch_maxstep_set(solver%solver,maxstep,err,error,*999)

    exits("cmfe_Solver_NewtonLineSearchMaxStepSetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonLineSearchMaxStepSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchmaxstepsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchsteptolsetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,stepTol,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchStepTolSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: stepTol
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLineSearchStepTolSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_linesearch_steptol_set(solver,steptol,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLineSearchStepTolSetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonLineSearchStepTolSetNumber0",err,error)
    exits("cmfe_Solver_NewtonLineSearchStepTolSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchsteptolsetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchsteptolsetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,stepTol,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchStepTolSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: stepTol
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLineSearchStepTolSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_linesearch_steptol_set(solver,steptol,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLineSearchStepTolSetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonLineSearchStepTolSetNumber1",err,error)
    exits("cmfe_Solver_NewtonLineSearchStepTolSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchsteptolsetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchsteptolsetobj(solver,stepTol,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchStepTolSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: stepTol
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonLineSearchStepTolSetObj",err,error,*999)

    CALL solver_newton_linesearch_steptol_set(solver%solver,steptol,err,error,*999)

    exits("cmfe_Solver_NewtonLineSearchStepTolSetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonLineSearchStepTolSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchsteptolsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchtypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,lineSearchType,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: lineSearchType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLineSearchTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_linesearch_type_set(solver,linesearchtype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLineSearchTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_NewtonLineSearchTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchtypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchtypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,lineSearchType,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: lineSearchType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonLineSearchTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_linesearch_type_set(solver,linesearchtype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonLineSearchTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_NewtonLineSearchTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchtypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonlinesearchtypesetobj(solver,lineSearchType,err)
    !DLLEXPORT(cmfe_Solver_NewtonLineSearchTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: lineSearchType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonLineSearchTypeSetObj",err,error,*999)

    CALL solver_newton_linesearch_type_set(solver%solver,linesearchtype,err,error,*999)

    exits("cmfe_Solver_NewtonLineSearchTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonLineSearchTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonlinesearchtypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonmaximumfunctionevaluationssetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & maximumfunctionevaluations,err)
    !DLLEXPORT(cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: maximumFunctionEvaluations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newtonmaximumfunctionevaluationsset(solver,maximumfunctionevaluations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber0",err,error)
    exits("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonmaximumfunctionevaluationssetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonmaximumfunctionevaluationssetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & maximumfunctionevaluations,err)
    !DLLEXPORT(cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: maximumFunctionEvaluations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newtonmaximumfunctionevaluationsset(solver,maximumfunctionevaluations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber1",err,error)
    exits("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonmaximumfunctionevaluationssetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonmaximumfunctionevaluationssetobj(solver,maximumFunctionEvaluations,err)
    !DLLEXPORT(cmfe_Solver_NewtonMaximumFunctionEvaluationsSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: maximumFunctionEvaluations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetObj",err,error,*999)

    CALL solver_newtonmaximumfunctionevaluationsset(solver%solver,maximumfunctionevaluations,err,error,*999)

    exits("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetObj")
    RETURN
999 errors("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetObj",err,error)
    exits("cmfe_Solver_NewtonMaximumFunctionEvaluationsSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonmaximumfunctionevaluationssetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonmaximumiterationssetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & maximumiterations,err)
    !DLLEXPORT(cmfe_Solver_NewtonMaximumIterationsSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonMaximumIterationsSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_maximum_iterations_set(solver,maximumiterations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonMaximumIterationsSetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonMaximumIterationsSetNumber0",err,error)
    exits("cmfe_Solver_NewtonMaximumIterationsSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonmaximumiterationssetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonmaximumiterationssetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,maximumIterations, &
    & err)
    !DLLEXPORT(cmfe_Solver_NewtonMaximumIterationsSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonMaximumIterationsSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_maximum_iterations_set(solver,maximumiterations,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonMaximumIterationsSetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonMaximumIterationsSetNumber1",err,error)
    exits("cmfe_Solver_NewtonMaximumIterationsSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonmaximumiterationssetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonmaximumiterationssetobj(solver,maximumIterations,err)
    !DLLEXPORT(cmfe_Solver_NewtonMaximumIterationsSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonMaximumIterationsSetObj",err,error,*999)

    CALL solver_newton_maximum_iterations_set(solver%solver,maximumiterations,err,error,*999)

    exits("cmfe_Solver_NewtonMaximumIterationsSetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonMaximumIterationsSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonmaximumiterationssetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonrelativetolerancesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & relativetolerance,err)
    !DLLEXPORT(cmfe_Solver_NewtonRelativeToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonRelativeToleranceSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_relative_tolerance_set(solver,relativetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonRelativeToleranceSetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonRelativeToleranceSetNumber0",err,error)
    exits("cmfe_Solver_NewtonRelativeToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonrelativetolerancesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonrelativetolerancesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,relativeTolerance, &
    & err)
    !DLLEXPORT(cmfe_Solver_NewtonRelativeToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonRelativeToleranceSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_relative_tolerance_set(solver,relativetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonRelativeToleranceSetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonRelativeToleranceSetNumber1",err,error)
    exits("cmfe_Solver_NewtonRelativeToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonrelativetolerancesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonrelativetolerancesetobj(solver,relativeTolerance,err)
    !DLLEXPORT(cmfe_Solver_NewtonRelativeToleranceSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonRelativeToleranceSetObj",err,error,*999)

    CALL solver_newton_relative_tolerance_set(solver%solver,relativetolerance,err,error,*999)

    exits("cmfe_Solver_NewtonRelativeToleranceSetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonRelativeToleranceSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonrelativetolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonsolutiontolerancesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & solutiontolerance,err)
    !DLLEXPORT(cmfe_Solver_NewtonSolutionToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: solutionTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonSolutionToleranceSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_solution_tolerance_set(solver,solutiontolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonSolutionToleranceSetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonSolutionToleranceSetNumber0",err,error)
    exits("cmfe_Solver_NewtonSolutionToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonsolutiontolerancesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonsolutiontolerancesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,solutionTolerance, &
    & err)
    !DLLEXPORT(cmfe_Solver_NewtonSolutionToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: solutionTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonSolutionToleranceSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_solution_tolerance_set(solver,solutiontolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonSolutionToleranceSetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonSolutionToleranceSetNumber1",err,error)
    exits("cmfe_Solver_NewtonSolutionToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonsolutiontolerancesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtonsolutiontolerancesetobj(solver,solutionTolerance,err)
    !DLLEXPORT(cmfe_Solver_NewtonSolutionToleranceSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: solutionTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonSolutionToleranceSetObj",err,error,*999)

    CALL solver_newton_solution_tolerance_set(solver%solver,solutiontolerance,err,error,*999)

    exits("cmfe_Solver_NewtonSolutionToleranceSetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonSolutionToleranceSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtonsolutiontolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtontrustregiondelta0setnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,delta0,err)
    !DLLEXPORT(cmfe_Solver_NewtonTrustRegionDelta0SetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: delta0
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonTrustRegionDelta0SetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_trustregion_delta0_set(solver,delta0,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonTrustRegionDelta0SetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonTrustRegionDelta0SetNumber0",err,error)
    exits("cmfe_Solver_NewtonTrustRegionDelta0SetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtontrustregiondelta0setnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtontrustregiondelta0setnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,delta0,err)
    !DLLEXPORT(cmfe_Solver_NewtonTrustRegionDelta0SetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: delta0
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonTrustRegionDelta0SetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_trustregion_delta0_set(solver,delta0,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonTrustRegionDelta0SetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonTrustRegionDelta0SetNumber1",err,error)
    exits("cmfe_Solver_NewtonTrustRegionDelta0SetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtontrustregiondelta0setnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtontrustregiondelta0setobj(solver,delta0,err)
    !DLLEXPORT(cmfe_Solver_NewtonTrustRegionDelta0SetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: delta0
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonTrustRegionDelta0SetObj",err,error,*999)

    CALL solver_newton_trustregion_delta0_set(solver%solver,delta0,err,error,*999)

    exits("cmfe_Solver_NewtonTrustRegionDelta0SetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonTrustRegionDelta0SetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtontrustregiondelta0setobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtontrustregiontolerancesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,tolerance,err)
    !DLLEXPORT(cmfe_Solver_NewtonTrustRegionToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: tolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonTrustRegionToleranceSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_trustregion_tolerance_set(solver,tolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonTrustRegionToleranceSetNumber0")
    RETURN
999 errors("cmfe_Solver_NewtonTrustRegionToleranceSetNumber0",err,error)
    exits("cmfe_Solver_NewtonTrustRegionToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtontrustregiontolerancesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtontrustregiontolerancesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,tolerance,err)
    !DLLEXPORT(cmfe_Solver_NewtonTrustRegionToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: tolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonTrustRegionToleranceSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_trustregion_tolerance_set(solver,tolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonTrustRegionToleranceSetNumber1")
    RETURN
999 errors("cmfe_Solver_NewtonTrustRegionToleranceSetNumber1",err,error)
    exits("cmfe_Solver_NewtonTrustRegionToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtontrustregiontolerancesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtontrustregiontolerancesetobj(solver,tolerance,err)
    !DLLEXPORT(cmfe_Solver_NewtonTrustRegionToleranceSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: tolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonTrustRegionToleranceSetObj",err,error,*999)

    CALL solver_newton_trustregion_tolerance_set(solver%solver,tolerance,err,error,*999)

    exits("cmfe_Solver_NewtonTrustRegionToleranceSetObj")
    RETURN
999 errors("cmfe_Solver_NewtonTrustRegionToleranceSetObj",err,error)
    exits("cmfe_Solver_NewtonTrustRegionToleranceSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtontrustregiontolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtontypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,newtonSolveType,err)
    !DLLEXPORT(cmfe_Solver_NewtonTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: newtonSolveType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_newton_type_set(solver,newtonsolvetype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_NewtonTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtontypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtontypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,newtonSolveType,err)
    !DLLEXPORT(cmfe_Solver_NewtonTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: newtonSolveType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_NewtonTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_newton_type_set(solver,newtonsolvetype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_NewtonTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_NewtonTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtontypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_newtontypesetobj(solver,newtonSolveType,err)
    !DLLEXPORT(cmfe_Solver_NewtonTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: newtonSolveType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NewtonTypeSetObj",err,error,*999)

    CALL solver_newton_type_set(solver%solver,newtonsolvetype,err,error,*999)

    exits("cmfe_Solver_NewtonTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_NewtonTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_newtontypesetobj

  !
  !================================================================================================================================
  !
  SUBROUTINE cmfe_solver_quasinewtonabsolutetolerancesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & absolutetolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_absolute_tolerance_set(solver,absolutetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonabsolutetolerancesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonabsolutetolerancesetnumber1(problemUserNumber, &
      & controlloopidentifiers,solverindex,absolutetolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_absolute_tolerance_set(solver,absolutetolerance,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonabsolutetolerancesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonabsolutetolerancesetobj(solver,absoluteTolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonAbsoluteToleranceSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: absoluteTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetObj",err,error,*999)

    CALL solver_quasi_newton_absolute_tolerance_set(solver%solver,absolutetolerance,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonAbsoluteToleranceSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonabsolutetolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchmonitoroutputsetnumber0(problemUserNumber, &
      & controlloopidentifier,solverindex,monitorlinesearchflag,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    LOGICAL, INTENT(IN) :: monitorLinesearchFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasinewtonlinesearchmonitoroutputset(solver,monitorlinesearchflag,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchmonitoroutputsetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchmonitoroutputsetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
      & monitorlinesearchflag,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    LOGICAL, INTENT(IN) :: monitorLinesearchFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasinewtonlinesearchmonitoroutputset(solver,monitorlinesearchflag,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchmonitoroutputsetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchmonitoroutputsetobj(solver,monitorLinesearchFlag,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    LOGICAL, INTENT(IN) :: monitorLinesearchFlag
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetObj",err,error,*999)

    CALL solver_quasinewtonlinesearchmonitoroutputset(solver%solver,monitorlinesearchflag,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchmonitoroutputsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonjacobiancalculationtypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & jacobiancalculationtype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: jacobianCalculationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasinewtonjacobiancalculationtypeset(solver,jacobiancalculationtype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonjacobiancalculationtypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonjacobiancalculationtypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
      & jacobiancalculationtype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: jacobianCalculationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasinewtonjacobiancalculationtypeset(solver,jacobiancalculationtype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonjacobiancalculationtypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonjacobiancalculationtypesetobj(solver,jacobianCalculationType,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: jacobianCalculationType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetObj",err,error,*999)

    CALL solver_quasinewtonjacobiancalculationtypeset(solver%solver,jacobiancalculationtype,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonjacobiancalculationtypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinearsolvergetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,linearsolverindex,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLinearSolverGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: linearSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,LINEAR_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonLinearSolverGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(linear_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_linear_solver_get(solver,linear_solver,err,error,*999)
      !todo: get the solver index from linear solver
      linearsolverindex=linear_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonLinearSolverGetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLinearSolverGetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonLinearSolverGetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinearsolvergetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinearsolvergetnumber1(problemUserNumber,controlLoopIdentifiers, &
      & solverindex,linearsolverindex,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLinearSolverGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: linearSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,LINEAR_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonLinearSolverGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(linear_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_linear_solver_get(solver,linear_solver,err,error,*999)
      !todo: get the solver index from linear solver
      linearsolverindex=linear_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonLinearSolverGetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLinearSolverGetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonLinearSolverGetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinearsolvergetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinearsolvergetobj(solver,linearSolver,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLinearSolverGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    TYPE(cmfe_solvertype), INTENT(INOUT) :: linearSolver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonLinearSolverGetObj",err,error,*999)

    CALL solver_quasi_newton_linear_solver_get(solver%solver,linearsolver%solver,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonLinearSolverGetObj")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonLinearSolverGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinearsolvergetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtoncellmlsolvergetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,cellmlsolverindex,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonCellMLSolverGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: CellMLSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,CELLML_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonCellMLSolverGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(cellml_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_cellml_solver_get(solver,cellml_solver,err,error,*999)
      !todo: get the solver index from CellML solver
      cellmlsolverindex=cellml_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonCellMLSolverGetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonCellMLSolverGetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonCellMLSolverGetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtoncellmlsolvergetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtoncellmlsolvergetnumber1(problemUserNumber,controlLoopIdentifiers, &
      & solverindex,cellmlsolverindex,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonCellMLSolverGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: CellMLSolverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER,CELLML_SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonCellMLSolverGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(cellml_solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_cellml_solver_get(solver,cellml_solver,err,error,*999)
      !todo: get the solver index from CellML solver
      cellmlsolverindex=cellml_solver%GLOBAL_NUMBER
      CALL flagerror("Not implemented.",err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonCellMLSolverGetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonCellMLSolverGetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonCellMLSolverGetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtoncellmlsolvergetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtoncellmlsolvergetobj(solver,CellMLSolver,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonCellMLSolverGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    TYPE(cmfe_solvertype), INTENT(INOUT) :: CellMLSolver
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonCellMLSolverGetObj",err,error,*999)

    CALL solver_quasi_newton_cellml_solver_get(solver%solver,cellmlsolver%solver,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonCellMLSolverGetObj")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonCellMLSolverGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtoncellmlsolvergetobj
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonconvergencetesttypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & convergencetesttype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: convergenceTestType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasinewtonconvergencetesttypeset(solver,convergencetesttype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonconvergencetesttypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonconvergencetesttypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
      & convergencetesttype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: convergenceTestType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: problem
    TYPE(solver_type), POINTER :: solver
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasinewtonconvergencetesttypeset(solver,convergencetesttype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonconvergencetesttypesetnumber1
  
  ! 
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonconvergencetesttypesetobj(solver,convergenceTestType,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonConvergenceTestTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: convergenceTestType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetObj",err,error,*999)

    CALL solver_quasinewtonconvergencetesttypeset(solver%solver,convergencetesttype,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonConvergenceTestTypeSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonconvergencetesttypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchmaxstepsetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,maxStep,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: maxStep
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_linesearch_maxstep_set(solver,maxstep,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchmaxstepsetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchmaxstepsetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,maxStep,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: maxStep
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_linesearch_maxstep_set(solver,maxstep,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchmaxstepsetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchmaxstepsetobj(solver,maxStep,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchMaxStepSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: maxStep
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetObj",err,error,*999)

    CALL solver_quasi_newton_linesearch_maxstep_set(solver%solver,maxstep,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonLineSearchMaxStepSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchmaxstepsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchsteptolsetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,stepTol,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: stepTol
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_linesearch_steptol_set(solver,steptol,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchsteptolsetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchsteptolsetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,stepTol,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: stepTol
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_linesearch_steptol_set(solver,steptol,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchsteptolsetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchsteptolsetobj(solver,stepTol,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchStepTolSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: stepTol
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonLineSearchStepTolSetObj",err,error,*999)

    CALL solver_quasi_newton_linesearch_steptol_set(solver%solver,steptol,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonLineSearchStepTolSetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLineSearchStepTolSetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonLineSearchStepTolSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchsteptolsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchtypesetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,linesearchtype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: lineSearchType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_linesearch_type_set(solver,linesearchtype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchtypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchtypesetnumber1(problemUserNumber,controlLoopIdentifiers, &
      & solverindex,linesearchtype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: lineSearchType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: localError

    enters("cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_linesearch_type_set(solver,linesearchtype,err,error,*999)
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchtypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonlinesearchtypesetobj(solver,lineSearchType,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonLineSearchTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: lineSearchType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonLineSearchTypeSetObj",err,error,*999)

    CALL solver_quasi_newton_linesearch_type_set(solver%solver,linesearchtype,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonLineSearchTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonLineSearchTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonlinesearchtypesetobj


  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonmaximumfunctionevaluationssetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
      & maximumfunctionevaluations,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: maximumFunctionEvaluations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasinewtonmaximumfunctionevaluationsset(solver,maximumfunctionevaluations,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonmaximumfunctionevaluationssetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonmaximumfunctionevaluationssetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
      & maximumfunctionevaluations,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: maximumFunctionEvaluations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasinewtonmaximumfunctionevaluationsset(solver,maximumfunctionevaluations,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonmaximumfunctionevaluationssetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonmaximumfunctionevaluationssetobj(solver,maximumFunctionEvaluations,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: maximumFunctionEvaluations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetObj",err,error,*999)

    CALL solver_quasinewtonmaximumfunctionevaluationsset(solver%solver,maximumfunctionevaluations,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonmaximumfunctionevaluationssetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonmaximumiterationssetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,maximumiterations,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_maximum_iterations_set(solver,maximumiterations,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonmaximumiterationssetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonmaximumiterationssetnumber1(problemUserNumber,controlLoopIdentifiers, &
      & solverindex,maximumiterations,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_maximum_iterations_set(solver,maximumiterations,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonmaximumiterationssetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonmaximumiterationssetobj(solver,maximumIterations,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonMaximumIterationsSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: maximumIterations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonMaximumIterationsSetObj",err,error,*999)

    CALL solver_quasi_newton_maximum_iterations_set(solver%SOLVER,maximumiterations,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonMaximumIterationsSetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonMaximumIterationsSetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonMaximumIterationsSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonmaximumiterationssetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonrelativetolerancesetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,relativetolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_relative_tolerance_set(solver,relativetolerance,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonrelativetolerancesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonrelativetolerancesetnumber1(problemUserNumber,controlLoopIdentifiers, &
    & solverindex,relativetolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_relative_tolerance_set(solver,relativetolerance,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonrelativetolerancesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonrelativetolerancesetobj(solver,relativeTolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonRelativeToleranceSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: relativeTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonRelativeToleranceSetObj",err,error,*999)

    CALL solver_quasi_newton_relative_tolerance_set(solver%SOLVER,relativetolerance,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonRelativeToleranceSetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonRelativeToleranceSetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonRelativeToleranceSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonrelativetolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonsolutiontolerancesetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,solutiontolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: solutionTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_solution_tolerance_set(solver,solutiontolerance,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonsolutiontolerancesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonsolutiontolerancesetnumber1(problemUserNumber,controlLoopIdentifiers, &
    & solverindex,solutiontolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: solutionTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_solution_tolerance_set(solver,solutiontolerance,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonsolutiontolerancesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonsolutiontolerancesetobj(solver,solutionTolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonSolutionToleranceSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: solutionTolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonSolutionToleranceSetObj",err,error,*999)

    CALL solver_quasi_newton_solution_tolerance_set(solver%SOLVER,solutiontolerance,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonSolutionToleranceSetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonSolutionToleranceSetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonSolutionToleranceSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonsolutiontolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtontrustregiondelta0setnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,delta0,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: delta0
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_trustregion_delta0_set(solver,delta0,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtontrustregiondelta0setnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtontrustregiondelta0setnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,delta0,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: delta0
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_trustregion_delta0_set(solver,delta0,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtontrustregiondelta0setnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtontrustregiondelta0setobj(solver,delta0,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonTrustRegionDelta0SetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: delta0
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetObj",err,error,*999)

    CALL solver_quasi_newton_trustregion_delta0_set(solver%SOLVER,delta0,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonTrustRegionDelta0SetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtontrustregiondelta0setobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtontrustregiontolerancesetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,tolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: tolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasinewtontrustregiontoleranceset(solver,tolerance,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtontrustregiontolerancesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtontrustregiontolerancesetnumber1(problemUserNumber,controlLoopIdentifiers, &
      & solverindex,tolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    REAL(DP), INTENT(IN) :: tolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasinewtontrustregiontoleranceset(solver,tolerance,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtontrustregiontolerancesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtontrustregiontolerancesetobj(solver,tolerance,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonTrustRegionToleranceSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    REAL(DP), INTENT(IN) :: tolerance
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetObj",err,error,*999)

    CALL solver_quasinewtontrustregiontoleranceset(solver%solver,tolerance,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetObj")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetObj",err,error)
    exits("cmfe_Solver_QuasiNewtonTrustRegionToleranceSetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtontrustregiontolerancesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonrestartsetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,quasinewtonrestart,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonRestartSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: quasiNewtonRestart
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonRestartSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_restart_set(solver,quasinewtonrestart,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonRestartSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonRestartSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonrestartsetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonrestartsetnumber1(problemUserNumber,controlLoopIdentifiers, &
      & solverindex,quasinewtonrestart,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonRestartSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: quasiNewtonRestart
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonRestartSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_restart_set(solver,quasinewtonrestart,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonRestartSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonRestartSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonrestartsetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonrestartsetobj(solver,quasiNewtonRestart,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonRestartSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: quasiNewtonRestart
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonRestartSetObj",err,error,*999)

    CALL solver_quasi_newton_restart_set(solver%SOLVER,quasinewtonrestart,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonRestartSetObj")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonRestartSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonrestartsetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonrestarttypesetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,quasinewtonrestarttype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonRestartTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: quasiNewtonRestartType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonRestartTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_restart_type_set(solver,quasinewtonrestarttype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonRestartTypeSetNumber0")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonRestartTypeSetNumber0",err,error)
    exits("cmfe_Solver_QuasiNewtonRestartTypeSetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonrestarttypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonrestarttypesetnumber1(problemUserNumber,controlLoopIdentifiers, &
      & solverindex,quasinewtonrestarttype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonRestartTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: quasiNewtonRestartType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonRestartTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_restart_type_set(solver,quasinewtonrestarttype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonRestartTypeSetNumber1")
    RETURN
999 errors("cmfe_Solver_QuasiNewtonRestartTypeSetNumber1",err,error)
    exits("cmfe_Solver_QuasiNewtonRestartTypeSetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonrestarttypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonrestarttypesetobj(solver,quasiNewtonRestartType,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonRestartTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: quasiNewtonRestartType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonRestartTypeSetObj",err,error,*999)

    CALL solver_quasi_newton_restart_type_set(solver%SOLVER,quasinewtonrestarttype,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonRestartTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonRestartTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonrestarttypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonscaletypesetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,quasinewtonscaletype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonScaleTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: quasiNewtonScaleType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonScaleTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_scale_type_set(solver,quasinewtonscaletype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonScaleTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonScaleTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonscaletypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonscaletypesetnumber1(problemUserNumber,controlLoopIdentifiers, &
      & solverindex,quasinewtonscaletype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonScaleTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: quasiNewtonScaleType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonScaleTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_scale_type_set(solver,quasinewtonscaletype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonScaleTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonScaleTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonscaletypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonscaletypesetobj(solver,quasiNewtonScaleType,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonScaleTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: quasiNewtonScaleType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonScaleTypeSetObj",err,error,*999)

    CALL solver_quasi_newton_scale_type_set(solver%SOLVER,quasinewtonscaletype,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonScaleTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonScaleTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonscaletypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonsolvetypesetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,quasinewtonsolvetype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonSolveTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: quasiNewtonSolveType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonSolveTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_solve_type_set(solver,quasinewtonsolvetype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonSolveTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonSolveTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonsolvetypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonsolvetypesetnumber1(problemUserNumber,controlLoopIdentifiers, &
      & solverindex,quasinewtonsolvetype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonSolveTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: quasiNewtonSolveType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonSolveTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_solve_type_set(solver,quasinewtonsolvetype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonSolveTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonSolveTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonsolvetypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtonsolvetypesetobj(solver,quasiNewtonSolveType,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonSolveTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: quasiNewtonSolveType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonSolveTypeSetObj",err,error,*999)

    CALL solver_quasi_newton_solve_type_set(solver%SOLVER,quasinewtonsolvetype,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonSolveTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonSolveTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtonsolvetypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtontypesetnumber0(problemUserNumber,controlLoopIdentifier, &
      & solverindex,quasinewtontype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: quasiNewtonType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_type_set(solver,quasinewtontype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtontypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtontypesetnumber1(problemUserNumber,controlLoopIdentifiers, &
      & solverindex,quasinewtontype,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: quasiNewtonType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_QuasiNewtonTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_quasi_newton_type_set(solver,quasinewtontype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_QuasiNewtonTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtontypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_quasinewtontypesetobj(solver,quasiNewtonType,err)
    !DLLEXPORT(cmfe_Solver_QuasiNewtonTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: quasiNewtonType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_QuasiNewtonTypeSetObj",err,error,*999)

    CALL solver_quasi_newton_type_set(solver%SOLVER,quasinewtontype,err,error,*999)

    exits("cmfe_Solver_QuasiNewtonTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_QuasiNewtonTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_quasinewtontypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_nonlineartypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,nonlinearSolveType,err)
    !DLLEXPORT(cmfe_Solver_NonlinearTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: nonlinearSolveType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_NonlinearTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_nonlinear_type_set(solver,nonlinearsolvetype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_NonlinearTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_NonlinearTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_nonlineartypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_nonlineartypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,nonlinearSolveType,err)
    !DLLEXPORT(cmfe_Solver_NonlinearTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: nonlinearSolveType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_NonlinearTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_nonlinear_type_set(solver,nonlinearsolvetype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_NonlinearTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_NonlinearTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_nonlineartypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_nonlineartypesetobj(solver,nonlinearSolveType,err)
    !DLLEXPORT(cmfe_Solver_NonlinearTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: nonlinearSolveType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_NonlinearTypeSetObj",err,error,*999)

    CALL solver_nonlinear_type_set(solver%SOLVER,nonlinearsolvetype,err,error,*999)

    exits("cmfe_Solver_NonlinearTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_NonlinearTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_nonlineartypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_outputtypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,outputType,err)
    !DLLEXPORT(cmfe_Solver_OutputTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_OutputTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_output_type_set(solver,outputtype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_OutputTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_OutputTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_outputtypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_outputtypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,outputType,err)
    !DLLEXPORT(cmfe_Solver_OutputTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_OutputTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_output_type_set(solver,outputtype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_OutputTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_OutputTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_outputtypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_outputtypesetobj(solver,outputType,err)
    !DLLEXPORT(cmfe_Solver_OutputTypeSetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    INTEGER(INTG), INTENT(IN) :: outputType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_OutputTypeSetObj",err,error,*999)

    CALL solver_output_type_set(solver%SOLVER,outputtype,err,error,*999)

    exits("cmfe_Solver_OutputTypeSetObj")
    RETURN
999 errorsexits("cmfe_Solver_OutputTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_outputtypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_solverequationsgetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,solverEquations,err)
    !DLLEXPORT(cmfe_Solver_SolverEquationsGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_solverequationstype), INTENT(INOUT) :: solverEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_SolverEquationsGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_solver_equations_get(solver,solverequations%solverEquations,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_SolverEquationsGetNumber0")
    RETURN
999 errorsexits("cmfe_Solver_SolverEquationsGetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_solverequationsgetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_solverequationsgetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,solverEquations,err)
    !DLLEXPORT(cmfe_Solver_SolverEquationsGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_solverequationstype), INTENT(INOUT) :: solverEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_Solver_SolverEquationsGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_solver_equations_get(solver,solverequations%solverEquations,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_Solver_SolverEquationsGetNumber1")
    RETURN
999 errorsexits("cmfe_Solver_SolverEquationsGetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_solverequationsgetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solver_solverequationsgetobj(solver,solverEquations,err)
    !DLLEXPORT(cmfe_Solver_SolverEquationsGetObj)

    !Argument variables
    TYPE(cmfe_solvertype), INTENT(IN) :: solver
    TYPE(cmfe_solverequationstype), INTENT(INOUT) :: solverEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_Solver_SolverEquationsGetObj",err,error,*999)

    CALL solver_solver_equations_get(solver%SOLVER,solverequations%solverEquations,err,error,*999)

    exits("cmfe_Solver_SolverEquationsGetObj")
    RETURN
999 errorsexits("cmfe_Solver_SolverEquationsGetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solver_solverequationsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_equationssetaddnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & regionusernumber,equationssetusernumber,equationssetindex,err)
    !DLLEXPORT(cmfe_SolverEquations_EquationsSetAddNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: equationsSetIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(region_type), POINTER :: REGION
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_SolverEquations_EquationsSetAddNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(solver_equations)
    NULLIFY(region)
    NULLIFY(equations_set)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_solver_equations_get(solver,solver_equations,err,error,*999)
      CALL region_user_number_find(regionusernumber,region,err,error,*999)
      IF(ASSOCIATED(region)) THEN
        CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
        IF(ASSOCIATED(equations_set)) THEN
          CALL solver_equations_equations_set_add(solver_equations,equations_set,equationssetindex,err,error,*999)
        ELSE
          local_error="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        END IF
      ELSE
        local_error="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(local_error,err,error,*999)
      END IF
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_EquationsSetAddNumber0")
    RETURN
999 errorsexits("cmfe_SolverEquations_EquationsSetAddNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_equationssetaddnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_equationssetaddnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & regionusernumber,equationssetusernumber,equationssetindex,err)
    !DLLEXPORT(cmfe_SolverEquations_EquationsSetAddNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: regionUserNumber
    INTEGER(INTG), INTENT(IN) :: equationsSetUserNumber
    INTEGER(INTG), INTENT(OUT) :: equationsSetIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(equations_set_type), POINTER :: EQUATIONS_SET
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(region_type), POINTER :: REGION
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_SolverEquations_EquationsSetAddNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(solver_equations)
    NULLIFY(region)
    NULLIFY(equations_set)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_solver_equations_get(solver,solver_equations,err,error,*999)
      CALL region_user_number_find(regionusernumber,region,err,error,*999)
      IF(ASSOCIATED(region)) THEN
        CALL equations_set_user_number_find(equationssetusernumber,region,equations_set,err,error,*999)
        IF(ASSOCIATED(equations_set)) THEN
          CALL solver_equations_equations_set_add(solver_equations,equations_set,equationssetindex,err,error,*999)
        ELSE
          local_error="An equations set with an user number of "//trim(numbertovstring(equationssetusernumber,"*",err,error))// &
            & " does not exist on region number "//trim(numbertovstring(regionusernumber,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        END IF
      ELSE
        local_error="A region with an user number of "//trim(numbertovstring(regionusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(local_error,err,error,*999)
      END IF
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_EquationsSetAddNumber1")
    RETURN
999 errorsexits("cmfe_SolverEquations_EquationsSetAddNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_equationssetaddnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_equationssetaddobj(solverEquations,equationsSet,equationsSetIndex,err)
    !DLLEXPORT(cmfe_SolverEquations_EquationsSetAddObj)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    TYPE(cmfe_equationssettype), INTENT(IN) :: equationsSet
    INTEGER(INTG), INTENT(OUT) :: equationsSetIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_SolverEquations_EquationsSetAddObj",err,error,*999)

    CALL solver_equations_equations_set_add(solverequations%solverEquations,equationsset%equationsSet,equationssetindex, &
      & err,error,*999)

    exits("cmfe_SolverEquations_EquationsSetAddObj")
    RETURN
999 errorsexits("cmfe_SolverEquations_EquationsSetAddObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_equationssetaddobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_interfaceconditionaddnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & interfaceregionusernumber,interfaceusernumber,interfaceconditionusernumber,interfaceconditionindex,err)
    !DLLEXPORT(cmfe_SolverEquations_InterfaceConditionAddNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: interfaceRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: interfaceConditionIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(region_type), POINTER :: INTERFACE_REGION
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_SolverEquations_InterfaceConditionAddNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(solver_equations)
    NULLIFY(interface_region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_solver_equations_get(solver,solver_equations,err,error,*999)
      CALL region_user_number_find(interfaceregionusernumber,interface_region,err,error,*999)
      IF(ASSOCIATED(interface_region)) THEN
        CALL interface_user_number_find(interfaceusernumber,interface_region,interface,err,error,*999)
        IF(ASSOCIATED(interface)) THEN
          CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
          IF(ASSOCIATED(interface_condition)) THEN
            CALL solver_equations_interface_condition_add(solver_equations,interface_condition,interfaceconditionindex, &
              & err,error,*999)
          ELSE
            local_error="An interface condition with an user number of "// &
              & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
              & " does not exist on interface number "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
              & " of parent region number "//trim(numbertovstring(interfaceregionusernumber,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          END IF
        ELSE
          local_error="An interface with an user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " does not exist on parent region number "// &
            & trim(numbertovstring(interfaceregionusernumber,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        END IF
      ELSE
        local_error="A region with an user number of "//trim(numbertovstring(interfaceregionusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(local_error,err,error,*999)
      END IF
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_SolverEquationsInterfaceConditionNumber0")
    RETURN
999 errors("cmfe_SolverEquations_InterfaceConditionAddNumber0",err,error)
    exits("cmfe_SolverEquations_InterfaceConditionAddNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_interfaceconditionaddnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_interfaceconditionaddnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & interfaceregionusernumber,interfaceusernumber,interfaceconditionusernumber,interfaceconditionindex,err)
    !DLLEXPORT(cmfe_SolverEquations_InterfaceConditionAddNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: interfaceRegionUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceUserNumber
    INTEGER(INTG), INTENT(IN) :: interfaceConditionUserNumber
    INTEGER(INTG), INTENT(OUT) :: interfaceConditionIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(interface_type), POINTER :: INTERFACE
    TYPE(interface_condition_type), POINTER :: INTERFACE_CONDITION
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(region_type), POINTER :: INTERFACE_REGION
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_SolverEquations_InterfaceConditionAddNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(solver_equations)
    NULLIFY(interface_region)
    NULLIFY(interface)
    NULLIFY(interface_condition)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_solver_equations_get(solver,solver_equations,err,error,*999)
      CALL region_user_number_find(interfaceregionusernumber,interface_region,err,error,*999)
      IF(ASSOCIATED(interface_region)) THEN
        CALL interface_user_number_find(interfaceusernumber,interface_region,interface,err,error,*999)
        IF(ASSOCIATED(interface)) THEN
          CALL interface_condition_user_number_find(interfaceconditionusernumber,interface,interface_condition,err,error,*999)
          IF(ASSOCIATED(interface_condition)) THEN
            CALL solver_equations_interface_condition_add(solver_equations,interface_condition,interfaceconditionindex, &
              & err,error,*999)
          ELSE
            local_error="An interface condition with an user number of "// &
              & trim(numbertovstring(interfaceconditionusernumber,"*",err,error))// &
              & " does not exist on interface number "//trim(numbertovstring(interfaceusernumber,"*",err,error))// &
              & " of parent region number "//trim(numbertovstring(interfaceregionusernumber,"*",err,error))//"."
            CALL flagerror(local_error,err,error,*999)
          END IF
        ELSE
          local_error="An interface with an user number of "// &
            & trim(numbertovstring(interfaceusernumber,"*",err,error))// &
            & " does not exist on parent region number "// &
            & trim(numbertovstring(interfaceregionusernumber,"*",err,error))//"."
          CALL flagerror(local_error,err,error,*999)
        END IF
      ELSE
        local_error="A region with an user number of "//trim(numbertovstring(interfaceregionusernumber,"*",err,error))// &
          & " does not exist."
        CALL flagerror(local_error,err,error,*999)
      END IF
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_InterfaceConditionAddNumber1")
    RETURN
999 errors("cmfe_SolverEquations_InterfaceConditionAddNumber1",err,error)
    exits("cmfe_SolverEquations_InterfaceConditionAddNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_interfaceconditionaddnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_interfaceconditionaddobj(solverEquations,interfaceCondition,interfaceConditionIndex,err)
    !DLLEXPORT(cmfe_SolverEquations_InterfaceConditionAddObj)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(OUT) :: interfaceConditionIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_SolverEquations_InterfaceConditionAddObj",err,error,*999)

    CALL solver_equations_interface_condition_add(solverequations%solverEquations,interfacecondition%interfaceCondition, &
      & interfaceconditionindex,err,error,*999)

    exits("cmfe_SolverEquations_InterfaceConditionAddObj")
    RETURN
999 errors("cmfe_SolverEquations_InterfaceConditionAddObj",err,error)
    exits("cmfe_SolverEquations_InterfaceConditionAddObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_interfaceconditionaddobj

  !
  !================================================================================================================================
  !
  
  SUBROUTINE cmfe_interfacematrices_timedependencetypeset(interfaceCondition, &
    & interfacematrixindex,hastranspose,timedependencetypes,err)
    !DLLEXPORT(cmfe_InterfaceMatrices_TimeDependenceTypeSet)
    
    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(IN) :: timeDependenceTypes(:)
    INTEGER(INTG), INTENT(IN) :: interfaceMatrixIndex
    LOGICAL, INTENT(IN) :: hasTranspose
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local Variables
    TYPE(varying_string) :: LOCAL_ERROR
    
    enters("cmfe_InterfaceMatrices_TimeDependenceTypeSet",err,error,*999)
    
    IF(SIZE(timedependencetypes)/=2) CALL flagerror("Invalid size of time dependence types array. Must be 2.",err,error,*999)
    IF(timedependencetypes(1)>0.AND.timedependencetypes(1)<=cmfe_number_of_interface_matrix_types) THEN
      CALL interfacematrix_timedependencetypeset(interfacecondition%interfaceCondition, &
        & interfacematrixindex,.false.,timedependencetypes(1),err,error,*999)
      IF(hastranspose.AND.(timedependencetypes(2)>0.AND.timedependencetypes(2)<=cmfe_number_of_interface_matrix_types)) THEN
        CALL interfacematrix_timedependencetypeset(interfacecondition%interfaceCondition, &
          & interfacematrixindex,.true.,timedependencetypes(2),err,error,*999)
      ELSE
        IF(.NOT.hastranspose) THEN
          !ok)
        ELSEIF(hastranspose.AND. &
          & .NOT.(timedependencetypes(2)>0.AND.timedependencetypes(2)<=cmfe_number_of_interface_matrix_types)) THEN
          local_error="Interface matrix number "//trim(numbertovstring(interfacematrixindex,"*",err,error))// &
            & " has transpose but invalid time dependence type of "//trim(numbertovstring(timedependencetypes(1), &
            & "*",err,error))//" ."
          CALL flagerror(local_error,err,error,*999)
        ENDIF
      ENDIF
    ELSE
      local_error="Interface matrix time dependence type of "//trim(numbertovstring(timedependencetypes(1),"*",err,error))// &
        & " is invalid for interface matrix number "//trim(numbertovstring(interfacematrixindex,"*",err,error))// &
        & " ."
      CALL flagerror(local_error,err,error,*999)
    ENDIF
    
    exits("cmfe_InterfaceMatrices_TimeDependenceTypeSet")
    RETURN
999 errors("cmfe_InterfaceMatrices_TimeDependenceTypeSet",err,error)
    exits("cmfe_InterfaceMatrices_TimeDependenceTypeSet")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacematrices_timedependencetypeset

  !
  !================================================================================================================================
  !
  
  SUBROUTINE cmfe_interfacematrices_timedependencetypeget(interfaceCondition, &
    & interfacematrixindex,hastranspose,timedependencetypes,err)
    !DLLEXPORT(cmfe_InterfaceMatrices_TimeDependenceTypeGet)
    
    !Argument variables
    TYPE(cmfe_interfaceconditiontype), INTENT(IN) :: interfaceCondition
    INTEGER(INTG), INTENT(OUT) :: timeDependenceTypes(:)
    INTEGER(INTG), INTENT(IN) :: interfaceMatrixIndex
    LOGICAL, INTENT(IN) :: hasTranspose
    INTEGER(INTG), INTENT(OUT) :: Err
    !Local Variables
   
    enters("cmfe_InterfaceMatrices_TimeDependenceTypeGet",err,error,*999)
    
    IF(SIZE(timedependencetypes)/=2) CALL flagerror("Invalid size of time dependence types array. Must be 2.",err,error,*999)
    CALL interfacematrix_timedependencetypeget(interfacecondition%interfaceCondition, &
      & interfacematrixindex,.false.,timedependencetypes(1),err,error,*999)
    IF(hastranspose) THEN
      CALL interfacematrix_timedependencetypeget(interfacecondition%interfaceCondition, &
        & interfacematrixindex,.true.,timedependencetypes(2),err,error,*999)
    ENDIF
    
    exits("cmfe_InterfaceMatrices_TimeDependenceTypeGet")
    RETURN
999 errors("cmfe_InterfaceMatrices_TimeDependenceTypeGet",err,error)
    exits("cmfe_InterfaceMatrices_TimeDependenceTypeGet")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_interfacematrices_timedependencetypeget
  
  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_sparsitytypesetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,sparsityType,err)
    !DLLEXPORT(cmfe_SolverEquations_SparsityTypeSetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_SolverEquations_SparsityTypeSetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(solver_equations)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifier,solverindex,solver,err,error,*999)
      CALL solver_solver_equations_get(solver,solver_equations,err,error,*999)
      CALL solver_equations_sparsity_type_set(solver_equations,sparsitytype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_SparsityTypeSetNumber0")
    RETURN
999 errorsexits("cmfe_SolverEquations_SparsityTypeSetNumber0",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_sparsitytypesetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_sparsitytypesetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,sparsityType,err)
    !DLLEXPORT(cmfe_SolverEquations_SparsityTypeSetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(IN) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_type), POINTER :: SOLVER
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_SolverEquations_SparsityTypeSetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver)
    NULLIFY(solver_equations)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_get(problem,controlloopidentifiers,solverindex,solver,err,error,*999)
      CALL solver_solver_equations_get(solver,solver_equations,err,error,*999)
      CALL solver_equations_sparsity_type_set(solver_equations,sparsitytype,err,error,*999)
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))// &
        & " does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_SparsityTypeSetNumber1")
    RETURN
999 errorsexits("cmfe_SolverEquations_SparsityTypeSetNumber1",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_sparsitytypesetnumber1

  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_sparsitytypesetobj(solverEquations,sparsityType,err)
    !DLLEXPORT(cmfe_SolverEquations_SparsityTypeSetObj)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    INTEGER(INTG), INTENT(IN) :: sparsityType
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_SolverEquations_SparsityTypeSetObj",err,error,*999)

    CALL solver_equations_sparsity_type_set(solverequations%solverEquations,sparsitytype,err,error,*999)

    exits("cmfe_SolverEquations_SparsityTypeSetObj")
    RETURN
999 errorsexits("cmfe_SolverEquations_SparsityTypeSetObj",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_sparsitytypesetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionscreatefinishnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifier,solverindex,solver_equations,err,error,*999)
      IF(ASSOCIATED(solver_equations)) THEN
        CALL solverequations_boundaryconditionscreatefinish(solver_equations,err,error,*999)
      ELSE
        local_error="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(local_error,err,error,*999)
      END IF
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber0")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber0",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionscreatefinishnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionscreatefinishnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solver_equations,err,error,*999)
      IF(ASSOCIATED(solver_equations)) THEN
        CALL solverequations_boundaryconditionscreatefinish(solver_equations,err,error,*999)
      ELSE
        local_error="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(local_error,err,error,*999)
      END IF
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber1")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber1",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionscreatefinishnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionscreatefinishobj(solverEquations,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsCreateFinishObj)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_SolverEquations_BoundaryConditionsCreateFinishObj",err,error,*999)

    CALL solverequations_boundaryconditionscreatefinish(solverequations%solverEquations,err,error,*999)

    exits("cmfe_SolverEquations_BoundaryConditionsCreateFinishObj")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsCreateFinishObj",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsCreateFinishObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionscreatefinishobj

   !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionscreatestartnumber0(problemUserNumber,controlLoopIdentifier,solverIndex,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsCreateStartNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_SolverEquations_BoundaryConditionsCreateStartNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifier,solverindex,solver_equations,err,error,*999)
      IF(ASSOCIATED(solver_equations)) THEN
        CALL solverequations_boundaryconditionscreatestart(solver_equations,boundary_conditions,err,error,*999)
      ELSE
        local_error="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(local_error,err,error,*999)
      END IF
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_BoundaryConditionsCreateStartNumber0")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsCreateStartNumber0",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsCreateStartNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionscreatestartnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionscreatestartnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsCreateStartNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(boundary_conditions_type), POINTER :: BOUNDARY_CONDITIONS
    TYPE(varying_string) :: LOCAL_ERROR

    enters("cmfe_SolverEquations_BoundaryConditionsCreateStartNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver_equations)
    NULLIFY(boundary_conditions)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solver_equations,err,error,*999)
      IF(ASSOCIATED(solver_equations)) THEN
        CALL solverequations_boundaryconditionscreatestart(solver_equations,boundary_conditions,err,error,*999)
      ELSE
        local_error="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(local_error,err,error,*999)
      END IF
    ELSE
      local_error="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(local_error,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_BoundaryConditionsCreateStartNumber1")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsCreateStartNumber1",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsCreateStartNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionscreatestartnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionscreatestartobj(solverEquations,boundaryConditions,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsCreateStartObj)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(INOUT) :: solverEquations
    TYPE(cmfe_boundaryconditionstype), INTENT(INOUT) :: boundaryConditions
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables

    enters("cmfe_SolverEquations_BoundaryConditionsCreateStartObj",err,error,*999)

    CALL solverequations_boundaryconditionscreatestart(solverequations%solverEquations, &
        & boundaryconditions%boundaryConditions,err,error,*999)

    exits("cmfe_SolverEquations_BoundaryConditionsCreateStartObj")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsCreateStartObj",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsCreateStartObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionscreatestartobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionsgetnumber0(problemUserNumber,controlLoopIdentifier,solverIndex, &
    & boundaryconditions,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsGetNumber0)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifier
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_boundaryconditionstype), INTENT(INOUT) :: boundaryConditions
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(varying_string) :: localError

    enters("cmfe_SolverEquations_BoundaryConditionsGetNumber0",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver_equations)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifier,solverindex,solver_equations,err,error,*999)
      IF(ASSOCIATED(solver_equations)) THEN
        CALL solver_equations_boundary_conditions_get(solver_equations,boundaryconditions%boundaryConditions,err,error,*999)
      ELSE
        localerror="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_BoundaryConditionsGetNumber0")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsGetNumber0",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsGetNumber0")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionsgetnumber0

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionsgetnumber1(problemUserNumber,controlLoopIdentifiers,solverIndex, &
    & boundaryconditions,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsGetNumber1)

    !Argument variables
    INTEGER(INTG), INTENT(IN) :: problemUserNumber
    INTEGER(INTG), INTENT(IN) :: controlLoopIdentifiers(:)
    INTEGER(INTG), INTENT(IN) :: solverIndex
    TYPE(cmfe_boundaryconditionstype), INTENT(INOUT) :: boundaryConditions
    INTEGER(INTG), INTENT(OUT) :: err
    !Local variables
    TYPE(problem_type), POINTER :: PROBLEM
    TYPE(solver_equations_type), POINTER :: SOLVER_EQUATIONS
    TYPE(varying_string) :: localError

    enters("cmfe_SolverEquations_BoundaryConditionsGetNumber1",err,error,*999)

    NULLIFY(problem)
    NULLIFY(solver_equations)
    CALL problem_user_number_find(problemusernumber,problem,err,error,*999)
    IF(ASSOCIATED(problem)) THEN
      CALL problem_solver_equations_get(problem,controlloopidentifiers,solverindex,solver_equations,err,error,*999)
      IF(ASSOCIATED(solver_equations)) THEN
        CALL solver_equations_boundary_conditions_get(solver_equations,boundaryconditions%boundaryConditions,err,error,*999)
      ELSE
        localerror="Solver equations with the given solver index and control loop identifier do not exist."
        CALL flagerror(localerror,err,error,*999)
      END IF
    ELSE
      localerror="A problem with an user number of "//trim(numbertovstring(problemusernumber,"*",err,error))//" does not exist."
      CALL flagerror(localerror,err,error,*999)
    END IF

    exits("cmfe_SolverEquations_BoundaryConditionsGetNumber1")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsGetNumber1",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsGetNumber1")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionsgetnumber1

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_boundaryconditionsgetobj(solverEquations,boundaryConditions,err)
    !DLLEXPORT(cmfe_SolverEquations_BoundaryConditionsGetObj)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    TYPE(cmfe_boundaryconditionstype), INTENT(INOUT) :: boundaryConditions
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_SolverEquations_BoundaryConditionsGetObj",err,error,*999)

    CALL solver_equations_boundary_conditions_get(solverequations%solverEquations,boundaryconditions%boundaryConditions, &
      & err,error,*999)

    exits("cmfe_SolverEquations_BoundaryConditionsGetObj")
    RETURN
999 errors("cmfe_SolverEquations_BoundaryConditionsGetObj",err,error)
    exits("cmfe_SolverEquations_BoundaryConditionsGetObj")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_boundaryconditionsgetobj

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_numberofmatricesget(solverEquations,numberOfMatrices,err)
    !DLLEXPORT(cmfe_SolverEquations_NumberOfMatricesGet)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    INTEGER(INTG), INTENT(OUT) :: numberOfMatrices
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_SolverEquations_NumberOfMatricesGet",err,error,*999)

    CALL solverequations_numberofmatricesget(solverequations%solverEquations,numberofmatrices,err,error,*999)

    exits("cmfe_SolverEquations_NumberOfMatricesGet")
    RETURN
999 errorsexits("cmfe_SolverEquations_NumberOfMatricesGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_numberofmatricesget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_matrixget(solverEquations,matrixIndex,matrix,err)
    !DLLEXPORT(cmfe_SolverEquations_MatrixGet)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    INTEGER(INTG), INTENT(IN) :: matrixIndex
    TYPE(cmfe_distributedmatrixtype), INTENT(INOUT) :: matrix
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_SolverEquations_MatrixGet",err,error,*999)

    CALL solverequations_matrixget(solverequations%solverEquations,matrixindex,matrix%distributedMatrix,err,error,*999)

    exits("cmfe_SolverEquations_MatrixGet")
    RETURN
999 errorsexits("cmfe_SolverEquations_MatrixGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_matrixget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_jacobianmatrixget(solverEquations,matrix,err)
    !DLLEXPORT(cmfe_SolverEquations_JacobianMatrixGet)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    TYPE(cmfe_distributedmatrixtype), INTENT(INOUT) :: matrix
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_SolverEquations_JacobianMatrixGet",err,error,*999)

    CALL solverequations_jacobianmatrixget(solverequations%solverEquations,matrix%distributedMatrix,err,error,*999)

    exits("cmfe_SolverEquations_JacobianMatrixGet")
    RETURN
999 errorsexits("cmfe_SolverEquations_JacobianMatrixGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_jacobianmatrixget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_vectorget(solverEquations,matrixIndex,vector,err)
    !DLLEXPORT(cmfe_SolverEquations_VectorGet)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    INTEGER(INTG), INTENT(IN) :: matrixIndex
    TYPE(cmfe_distributedvectortype), INTENT(INOUT) :: vector
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_SolverEquations_VectorGet",err,error,*999)

    CALL solverequations_vectorget(solverequations%solverEquations,matrixindex,vector%distributedVector,err,error,*999)

    exits("cmfe_SolverEquations_VectorGet")
    RETURN
999 errorsexits("cmfe_SolverEquations_VectorGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_vectorget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_residualvectorget(solverEquations,residualVector,err)
    !DLLEXPORT(cmfe_SolverEquations_ResidualVectorGet)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    TYPE(cmfe_distributedvectortype), INTENT(INOUT) :: residualVector
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_SolverEquations_ResidualVectorGet",err,error,*999)

    CALL solverequations_residualvectorget(solverequations%solverEquations,residualvector%distributedVector,err,error,*999)

    exits("cmfe_SolverEquations_ResidualVectorGet")
    RETURN
999 errorsexits("cmfe_SolverEquations_ResidualVectorGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_residualvectorget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_solverequations_rhsvectorget(solverEquations,rhsVector,err)
    !DLLEXPORT(cmfe_SolverEquations_RhsVectorGet)

    !Argument variables
    TYPE(cmfe_solverequationstype), INTENT(IN) :: solverEquations
    TYPE(cmfe_distributedvectortype), INTENT(INOUT) :: rhsVector
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_SolverEquations_RhsVectorGet",err,error,*999)

    CALL solverequations_rhsvectorget(solverequations%solverEquations,rhsvector%distributedVector,err,error,*999)

    exits("cmfe_SolverEquations_RhsVectorGet")
    RETURN
999 errorsexits("cmfe_SolverEquations_RhsVectorGet",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_solverequations_rhsvectorget

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_usernumbergetregion( region, userNumber, err )
    !DLLEXPORT(cmfe_UserNumberGetRegion)
    !Argument variables
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    INTEGER(INTG), INTENT(OUT) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: err

    err = 0

    usernumber = region%region%USER_NUMBER

  END SUBROUTINE cmfe_usernumbergetregion

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_usernumbergetmesh( mesh, userNumber, err )
    !DLLEXPORT(cmfe_UserNumberGetMesh)
    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(OUT) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: err

    err = 0

    usernumber = mesh%mesh%USER_NUMBER

  END SUBROUTINE cmfe_usernumbergetmesh

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_usernumbergetbasis( basis, userNumber, err )
    !DLLEXPORT(cmfe_UserNumberGetBasis)
    !Argument variables
    TYPE(cmfe_basistype), INTENT(IN) :: basis
    INTEGER(INTG), INTENT(OUT) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: err

    err = 0

    usernumber = basis%basis%USER_NUMBER

  END SUBROUTINE cmfe_usernumbergetbasis

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_bioelectricsfiniteelasticity_updategeometricfield(controlLoop,calcClosestGaussPoint,err)
    !DLLEXPORT(cmfe_BioelectricsFiniteElasticity_UpdateGeometricField)
  
    !Argument variables
    TYPE(cmfe_controllooptype), INTENT(INOUT) :: controlLoop
    LOGICAL, INTENT(IN) :: calcClosestGaussPoint
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_BioelectricsFiniteElasticity_UpdateGeometricField",err,error,*999)

    CALL bioelectricfiniteelasticity_updategeometricfield(controlloop%controlLoop,calcclosestgausspoint,err,error,*999)

    exits("cmfe_BioelectricsFiniteElasticity_UpdateGeometricField")
    RETURN
999 errors("cmfe_BioelectricsFiniteElasticity_UpdateGeometricField",err,error)
    exits("cmfe_BioelectricsFiniteElasticity_UpdateGeometricField")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_bioelectricsfiniteelasticity_updategeometricfield

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputcreatefromfilevs( filename, fieldml, err )
    !DLLEXPORT(cmfe_FieldML_InputCreateFromFileVS)
    !Arguments
    TYPE(varying_string), INTENT(IN) :: filename
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputCreateFromFileVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_initialise_from_file( fieldml%fieldmlInfo, filename, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputCreateFromFileVS")
    RETURN
999 errorsexits("cmfe_FieldML_InputCreateFromFileVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputcreatefromfilevs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputcreatefromfilec( filename, fieldml, err )
    !DLLEXPORT(cmfe_FieldML_InputCreateFromFileC)
    !Arguments
    CHARACTER(LEN=*), INTENT(IN) :: filename
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputCreateFromFileC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_initialise_from_file( fieldml%fieldmlInfo, var_str(filename), err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputCreateFromFileC")
    RETURN
999 errorsexits("cmfe_FieldML_InputCreateFromFileC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputcreatefromfilec

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputmeshcreatestartobjvs( fieldml, meshArgumentName, mesh, meshNumber, region, err )
    !DLLEXPORT(cmfe_FieldML_InputMeshCreateStartObjVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(varying_string), INTENT(IN) :: meshArgumentName
    INTEGER(INTG), INTENT(IN) :: meshNumber
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_meshtype), INTENT(INOUT) :: mesh
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputMeshCreateStartObjVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_mesh_create_start( fieldml%fieldmlInfo, meshargumentname, mesh%mesh, meshnumber, region%region, &
      & err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputMeshCreateStartObjVS")
    RETURN
999 errorsexits("cmfe_FieldML_InputMeshCreateStartObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputmeshcreatestartobjvs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputmeshcreatestartnumbervs( fieldml, meshArgumentName, meshNumber, regionNumber, err )
    !DLLEXPORT(cmfe_FieldML_InputMeshCreateStartNumberVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(varying_string), INTENT(IN) :: meshArgumentName
    INTEGER(INTG), INTENT(IN) :: meshNumber
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region
    TYPE(mesh_type), POINTER :: mesh

    enters("cmfe_FieldML_InputMeshCreateStartNumberVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    NULLIFY( mesh )
    CALL fieldml_input_mesh_create_start( fieldml%fieldmlInfo, meshargumentname, mesh, meshnumber, region, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputMeshCreateStartNumberVS")
    RETURN
999 errorsexits("cmfe_FieldML_InputMeshCreateStartNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputmeshcreatestartnumbervs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputmeshcreatestartobjc( fieldml, meshArgumentName, mesh, meshNumber, region, err )
    !DLLEXPORT(cmfe_FieldML_InputMeshCreateStartObjC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    CHARACTER(LEN=*), INTENT(IN) :: meshArgumentName
    INTEGER(INTG), INTENT(IN) :: meshNumber
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_meshtype), INTENT(INOUT) :: mesh
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputMeshCreateStartObjC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_mesh_create_start( fieldml%fieldmlInfo, var_str(meshargumentname), mesh%mesh, meshnumber, region%region, &
      & err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputMeshCreateStartObjC")
    RETURN
999 errorsexits("cmfe_FieldML_InputMeshCreateStartObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputmeshcreatestartobjc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputmeshcreatestartnumberc( fieldml, meshArgumentName, meshNumber, regionNumber, err )
    !DLLEXPORT(cmfe_FieldML_InputMeshCreateStartNumberC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    CHARACTER(LEN=*), INTENT(IN) :: meshArgumentName
    INTEGER(INTG), INTENT(IN) :: meshNumber
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region
    TYPE(mesh_type), POINTER :: mesh

    enters("cmfe_FieldML_InputMeshCreateStartNumberC",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    NULLIFY( mesh )
    CALL fieldml_input_mesh_create_start( fieldml%fieldmlInfo, var_str(meshargumentname), mesh, meshnumber, region, &
      & err, error, *999)

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputMeshCreateStartNumberC")
    RETURN
999 errors("cmfe_FieldML_InputMeshCreateStartNumberC",err,error)
    exits("cmfe_FieldML_InputMeshCreateStartNumberC")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputmeshcreatestartnumberc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputcoordinatesystemcreatestartobjvs( fieldml, evaluatorName, coordinateSystem, userNumber, err )
    !DLLEXPORT(cmfe_FieldML_InputCoordinateSystemCreateStartObjVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(varying_string), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: userNumber
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: coordinateSystem
    INTEGER(INTG), INTENT(OUT) :: err
    
    enters("cmfe_FieldML_InputCoordinateSystemCreateStartObjVS",err,error,*999)
    
#ifdef WITH_FIELDML
    
    CALL fieldmlinput_coordinatesystemcreatestart( fieldml%fieldmlInfo, evaluatorname, coordinatesystem%coordinateSystem, &
      & usernumber, err, error, *999 )
    
#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputCoordinateSystemCreateStartObjVS")
    RETURN
999 errors("cmfe_FieldML_InputCoordinateSystemCreateStartObjVS",err,error)
    exits("cmfe_FieldML_InputCoordinateSystemCreateStartObjVS")
    CALL cmfe_handleerror(err,error)    
    RETURN
   
  END SUBROUTINE cmfe_fieldml_inputcoordinatesystemcreatestartobjvs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputcoordinatesystemcreatestartnumbervs( fieldml, evaluatorName, userNumber, err )
    !DLLEXPORT(cmfe_FieldML_InputCoordinateSystemCreateStartNumberVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(varying_string), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: err
    !Locals
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM

    enters("cmfe_FieldML_InputCoordinateSystemCreateStartNumberVS",err,error,*999)

#ifdef WITH_FIELDML

    NULLIFY( coordinate_system )
    CALL fieldmlinput_coordinatesystemcreatestart( fieldml%fieldmlInfo, evaluatorname, coordinate_system, &
      & usernumber, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputCoordinateSystemCreateStartNumberVS")
    RETURN
999 errors("cmfe_FieldML_InputCoordinateSystemCreateStartNumberVS",err,error)
    exits("cmfe_FieldML_InputCoordinateSystemCreateStartNumberVS")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_fieldml_inputcoordinatesystemcreatestartnumbervs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputcoordinatesystemcreatestartobjc( fieldml, evaluatorName, coordinateSystem, userNumber, err )
    !DLLEXPORT(cmfe_FieldML_InputCoordinateSystemCreateStartObjC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    CHARACTER(LEN=*), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: userNumber
    TYPE(cmfe_coordinatesystemtype), INTENT(INOUT) :: coordinateSystem
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputCoordinateSystemCreateStartObjC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldmlinput_coordinatesystemcreatestart( fieldml%fieldmlInfo, var_str(evaluatorname), &
      & coordinatesystem%coordinateSystem, usernumber, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputCoordinateSystemCreateStartObjC")
    RETURN
999 errors("cmfe_FieldML_InputCoordinateSystemCreateStartObjC",err,error)
    exits("cmfe_FieldML_InputCoordinateSystemCreateStartObjC")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_fieldml_inputcoordinatesystemcreatestartobjc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputcoordinatesystemcreatestartnumberc( fieldml, evaluatorName, userNumber, err )
    !DLLEXPORT(cmfe_FieldML_InputCoordinateSystemCreateStartNumberC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    CHARACTER(LEN=*), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(coordinate_system_type), POINTER :: COORDINATE_SYSTEM

    enters("cmfe_FieldML_InputCoordinateSystemCreateStartNumberC",err,error,*999)

#ifdef WITH_FIELDML

    NULLIFY( coordinate_system )
    CALL fieldmlinput_coordinatesystemcreatestart( fieldml%fieldmlInfo, var_str(evaluatorname), coordinate_system, &
      & usernumber, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputCoordinateSystemCreateStartNumberC")
    RETURN
999 errors("cmfe_FieldML_InputCoordinateSystemCreateStartNumberC",err,error)
    exits("cmfe_FieldML_InputCoordinateSystemCreateStartNumberC")
    CALL cmfe_handleerror(err,error)
    RETURN
    
  END SUBROUTINE cmfe_fieldml_inputcoordinatesystemcreatestartnumberc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputbasiscreatestartnumbervs( fieldml, evaluatorName, userNumber, err )
    !DLLEXPORT(cmfe_FieldML_InputBasisCreateStartNumberVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(varying_string), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(basis_type), POINTER :: basis

    enters("cmfe_FieldML_InputBasisCreateStartNumberVS",err,error,*999)

#ifdef WITH_FIELDML

    NULLIFY( basis )
    CALL fieldml_input_basis_create_start( fieldml%fieldmlInfo, evaluatorname, usernumber, basis, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputBasisCreateStartNumberVS")
    RETURN
999 errorsexits("cmfe_FieldML_InputBasisCreateStartNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
   RETURN

  END SUBROUTINE cmfe_fieldml_inputbasiscreatestartnumbervs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputbasiscreatestartobjvs( fieldml, evaluatorName, userNumber, basis, err )
    !DLLEXPORT(cmfe_FieldML_InputBasisCreateStartObjVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(varying_string), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: userNumber
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputBasisCreateStartObjVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_basis_create_start( fieldml%fieldmlInfo, evaluatorname, usernumber, basis%basis, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputBasisCreateStartObjVS")
    RETURN
999 errorsexits("cmfe_FieldML_InputBasisCreateStartObjVS",err,error)
    CALL cmfe_handleerror(err,error)
   RETURN

  END SUBROUTINE cmfe_fieldml_inputbasiscreatestartobjvs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputbasiscreatestartnumberc( fieldml, evaluatorName, userNumber, err )
    !DLLEXPORT(cmfe_FieldML_InputBasisCreateStartNumberC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    CHARACTER(LEN=*), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: userNumber
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(basis_type), POINTER :: basis

    enters("cmfe_FieldML_InputBasisCreateStartNumberC",err,error,*999)

#ifdef WITH_FIELDML

    NULLIFY( basis )
    CALL fieldml_input_basis_create_start( fieldml%fieldmlInfo, var_str(evaluatorname), usernumber, basis, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputBasisCreateStartNumberC")
    RETURN
999 errorsexits("cmfe_FieldML_InputBasisCreateStartNumberC",err,error)
    CALL cmfe_handleerror(err,error)
   RETURN

  END SUBROUTINE cmfe_fieldml_inputbasiscreatestartnumberc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputbasiscreatestartobjc( fieldml, evaluatorName, userNumber, basis, err )
    !DLLEXPORT(cmfe_FieldML_InputBasisCreateStartObjC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    CHARACTER(LEN=*), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: userNumber
    TYPE(cmfe_basistype), INTENT(INOUT) :: basis
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputBasisCreateStartObjC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_basis_create_start( fieldml%fieldmlInfo, var_str(evaluatorname), usernumber, basis%basis, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputBasisCreateStartObjC")
    RETURN
999 errorsexits("cmfe_FieldML_InputBasisCreateStartObjC",err,error)
    CALL cmfe_handleerror(err,error)
   RETURN

  END SUBROUTINE cmfe_fieldml_inputbasiscreatestartobjc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputnodescreatestartnumbervs( fieldml, nodesArgumentName, regionNumber, nodes, err )
    !DLLEXPORT(cmfe_FieldML_InputNodesCreateStartNumberVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(varying_string), INTENT(IN) :: nodesArgumentName
    INTEGER(INTG), INTENT(IN) :: regionNumber
    TYPE(cmfe_nodestype), INTENT(INOUT) :: nodes
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region

    enters("cmfe_FieldML_InputNodesCreateStartNumberVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL fieldml_input_nodes_create_start( fieldml%fieldmlInfo, nodesargumentname, region, nodes%nodes, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputNodesCreateStartNumberVS")
    RETURN
999 errorsexits("cmfe_FieldML_InputNodesCreateStartNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
   RETURN

  END SUBROUTINE cmfe_fieldml_inputnodescreatestartnumbervs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputnodescreatestartobjvs( fieldml, nodesArgumentName, region, nodes, err )
    !DLLEXPORT(cmfe_FieldML_InputNodesCreateStartObjVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(varying_string), INTENT(IN) :: nodesArgumentName
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_nodestype), INTENT(INOUT) :: nodes
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputNodesCreateStartObjVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_nodes_create_start( fieldml%fieldmlInfo, nodesargumentname, region%region, nodes%nodes, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputNodesCreateStartObjVS")
    RETURN
999 errorsexits("cmfe_FieldML_InputNodesCreateStartObjVS",err,error)
    CALL cmfe_handleerror(err,error)
   RETURN

  END SUBROUTINE cmfe_fieldml_inputnodescreatestartobjvs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputnodescreatestartnumberc( fieldml, nodesArgumentName, regionNumber, nodes, err )
    !DLLEXPORT(cmfe_FieldML_InputNodesCreateStartNumberC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    CHARACTER(LEN=*), INTENT(IN) :: nodesArgumentName
    INTEGER(INTG), INTENT(IN) :: regionNumber
    TYPE(cmfe_nodestype), INTENT(INOUT) :: nodes
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region

    enters("cmfe_FieldML_InputNodesCreateStartNumberC",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL fieldml_input_nodes_create_start( fieldml%fieldmlInfo, var_str(nodesargumentname), region, nodes%nodes, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputNodesCreateStartNumberC")
    RETURN
999 errorsexits("cmfe_FieldML_InputNodesCreateStartNumberC",err,error)
    CALL cmfe_handleerror(err,error)
   RETURN

  END SUBROUTINE cmfe_fieldml_inputnodescreatestartnumberc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputnodescreatestartobjc( fieldml, nodesArgumentName, region, nodes, err )
    !DLLEXPORT(cmfe_FieldML_InputNodesCreateStartObjC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    CHARACTER(LEN=*), INTENT(IN) :: nodesArgumentName
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_nodestype), INTENT(INOUT) :: nodes
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputNodesCreateStartObjC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_nodes_create_start( fieldml%fieldmlInfo, var_str(nodesargumentname), region%region, nodes%nodes, &
      & err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputNodesCreateStartObjC")
    RETURN
999 errorsexits("cmfe_FieldML_InputNodesCreateStartObjC",err,error)
    CALL cmfe_handleerror(err,error)
   RETURN

  END SUBROUTINE cmfe_fieldml_inputnodescreatestartobjc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputcreatemeshcomponentobjvs( fieldml, mesh, componentNumber, evaluatorName, err )
    !DLLEXPORT(cmfe_FieldML_InputCreateMeshComponentObjVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(IN) :: componentNumber
    TYPE(varying_string), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputCreateMeshComponentObjVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_create_mesh_component( fieldml%fieldmlInfo, mesh%mesh, componentnumber, evaluatorname, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputCreateMeshComponentObjVS")
    RETURN
999 errorsexits("cmfe_FieldML_InputCreateMeshComponentObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputcreatemeshcomponentobjvs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputcreatemeshcomponentnumbervs( fieldml, regionNumber, meshNumber, componentNumber, evaluatorName, &
    & err )
    !DLLEXPORT(cmfe_FieldML_InputCreateMeshComponentNumberVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: meshNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    TYPE(varying_string), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(OUT) :: err

    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(mesh_type), POINTER :: mesh

    enters( "CMISSFieldML_InputCreateMeshComponentNumberVS", err, error, *999 )

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL mesh_user_number_to_mesh( meshnumber, region, mesh, err, error, *999 )

    CALL fieldml_input_create_mesh_component( fieldml%fieldmlInfo, mesh, componentnumber, evaluatorname, err, error, *999 )
    
#else
    
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
    
#endif

    exits("cmfe_FieldML_InputCreateMeshComponentNumberVS")
    RETURN
999 errors("cmfe_FieldML_InputCreateMeshComponentNumberVS",err,error)
    exits("cmfe_FieldML_InputCreateMeshComponentNumberVS")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputcreatemeshcomponentnumbervs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputcreatemeshcomponentobjc( fieldml, mesh, componentNumber, evaluatorName, err )
    !DLLEXPORT(cmfe_FieldML_InputCreateMeshComponentObjC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    INTEGER(INTG), INTENT(IN) :: componentNumber
    CHARACTER(LEN=*), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputCreateMeshComponentObjC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_create_mesh_component( fieldml%fieldmlInfo, mesh%mesh, componentnumber, var_str(evaluatorname), &
      & err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputCreateMeshComponentObjC")
    RETURN
999 errorsexits("cmfe_FieldML_InputCreateMeshComponentObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputcreatemeshcomponentobjc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputcreatemeshcomponentnumberc( fieldml, regionNumber, meshNumber, componentNumber, evaluatorName, &
    & err )
    !DLLEXPORT(cmfe_FieldML_InputCreateMeshComponentNumberC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: meshNumber
    INTEGER(INTG), INTENT(IN) :: componentNumber
    CHARACTER(LEN=*), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(OUT) :: err

    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(mesh_type), POINTER :: mesh

    enters( "CMISSFieldML_InputCreateMeshComponentNumberC", err, error, *999 )

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL mesh_user_number_to_mesh( meshnumber, region, mesh, err, error, *999 )

    CALL fieldml_input_create_mesh_component( fieldml%fieldmlInfo, mesh, componentnumber, var_str(evaluatorname), err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputCreateMeshComponentNumberC")
    RETURN
999 errors("cmfe_FieldML_InputCreateMeshComponentNumberC",err,error)
    exits("cmfe_FieldML_InputCreateMeshComponentNumberC")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputcreatemeshcomponentnumberc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputfieldcreatestartobjvs( fieldml, region, decomposition, fieldNumber, field, variableType, &
    & evaluatorname, err )
    !DLLEXPORT(cmfe_FieldML_InputFieldCreateStartObjVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    TYPE(varying_string), INTENT(IN) :: evaluatorName
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputFieldCreateStartObjVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_field_create_start( fieldml%fieldmlInfo, region%region, decomposition%decomposition, fieldnumber, &
      & field%field, variabletype, evaluatorname, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputFieldCreateStartObjVS")
    RETURN
999 errorsexits("cmfe_FieldML_InputFieldCreateStartObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputfieldcreatestartobjvs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputfieldcreatestartnumbervs( fieldml, regionNumber, meshNumber, decompositionNumber, fieldNumber, &
    & variabletype, evaluatorname, err )
    !DLLEXPORT(cmfe_FieldML_InputFieldCreateStartNumberVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: meshNumber
    INTEGER(INTG), INTENT(IN) :: decompositionNumber
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    TYPE(varying_string), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(OUT) :: err

    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(mesh_type), POINTER :: mesh
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(field_type), POINTER :: field

    enters("cmfe_FieldML_InputFieldCreateStartNumberVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL mesh_user_number_to_mesh( meshnumber, region, mesh, err, error, *999 )
    CALL decomposition_user_number_to_decomposition( decompositionnumber, mesh, decomposition, err, error, *999 )

    NULLIFY( field )
    CALL fieldml_input_field_create_start( fieldml%fieldmlInfo, region, decomposition, fieldnumber, field, variabletype, &
      & evaluatorname, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputFieldCreateStartNumberVS")
    RETURN
999 errorsexits("cmfe_FieldML_InputFieldCreateStartNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputfieldcreatestartnumbervs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputfieldcreatestartobjc( fieldml, region, decomposition, fieldNumber, field, variableType, &
    & evaluatorname, err )
    !DLLEXPORT(cmfe_FieldML_InputFieldCreateStartObjC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(cmfe_regiontype), INTENT(IN) :: region
    TYPE(cmfe_decompositiontype), INTENT(IN) :: decomposition
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    CHARACTER(LEN=*), INTENT(IN) :: evaluatorName
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputFieldCreateStartObjC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_field_create_start( fieldml%fieldmlInfo, region%region, decomposition%decomposition, fieldnumber, &
      & field%field, variabletype, var_str(evaluatorname), err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputFieldCreateStartObjC")
    RETURN
999 errorsexits("cmfe_FieldML_InputFieldCreateStartObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputfieldcreatestartobjc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputfieldcreatestartnumberc( fieldml, regionNumber, meshNumber, decompositionNumber, fieldNumber, &
    & variabletype, evaluatorname, err )
    !DLLEXPORT(cmfe_FieldML_InputFieldCreateStartNumberC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: meshNumber
    INTEGER(INTG), INTENT(IN) :: decompositionNumber
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    CHARACTER(LEN=*), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(OUT) :: err

    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(mesh_type), POINTER :: mesh
    TYPE(decomposition_type), POINTER :: decomposition
    TYPE(field_type), POINTER :: field

    enters("cmfe_FieldML_InputFieldCreateStartNumberC",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL mesh_user_number_to_mesh( meshnumber, region, mesh, err, error, *999 )
    CALL decomposition_user_number_to_decomposition( decompositionnumber, mesh, decomposition, err, error, *999 )

    NULLIFY( field )
    CALL fieldml_input_field_create_start( fieldml%fieldmlInfo, region, decomposition, fieldnumber, field, variabletype, &
      & var_str(evaluatorname), err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputFieldCreateStartNumberC")
    RETURN
999 errorsexits("cmfe_FieldML_InputFieldCreateStartNumberC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputfieldcreatestartnumberc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputfieldparametersupdateobjvs( fieldml, field, evaluatorName, variableType, &
    & settype, err )
    !DLLEXPORT(cmfe_FieldML_InputFieldParametersUpdateObjVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    TYPE(varying_string), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputFieldParametersUpdateObjVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_field_parameters_update( fieldml%fieldmlInfo, evaluatorname, field%field, variabletype, &
      &  settype, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputFieldParametersUpdateObjVS")
    RETURN
999 errors("cmfe_FieldML_InputFieldParametersUpdateObjVS",err,error)
    exits("cmfe_FieldML_InputFieldParametersUpdateObjVS")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputfieldparametersupdateobjvs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputfieldparametersupdatenumbervs( fieldml, regionNumber, fieldNumber, &
    & evaluatorname, variabletype, settype, err )
    !DLLEXPORT(cmfe_FieldML_InputFieldParametersUpdateNumberVS)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    TYPE(varying_string), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field

    enters("cmfe_FieldML_InputFieldParametersUpdateNumberVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL field_user_number_to_field( fieldnumber, region, field, err, error, *999 )

    CALL fieldml_input_field_parameters_update( fieldml%fieldmlInfo, evaluatorname, field, variabletype, settype, &
      & err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputFieldParametersUpdateNumberVS")
    RETURN
999 errors("cmfe_FieldML_InputFieldParametersUpdateNumberVS",err,error)
    exits("cmfe_FieldML_InputFieldParametersUpdateNumberVS")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputfieldparametersupdatenumbervs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputfieldparametersupdateobjc( fieldml, field, evaluatorName, &
    & variabletype, settype, err )
    !DLLEXPORT(cmfe_FieldML_InputFieldParametersUpdateObjC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    TYPE(cmfe_fieldtype), INTENT(INOUT) :: field
    CHARACTER(LEN=*), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_InputFieldParametersUpdateObjC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_input_field_parameters_update( fieldml%fieldmlInfo, var_str(evaluatorname), field%field, variabletype, &
      & settype, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputFieldParametersUpdateObjC")
    RETURN
999 errorsexits("cmfe_FieldML_InputFieldParametersUpdateObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputfieldparametersupdateobjc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_inputfieldparametersupdatenumberc( fieldml, regionNumber, fieldNumber, &
    & evaluatorname, variabletype, settype, err )
    !DLLEXPORT(cmfe_FieldML_InputFieldParametersUpdateNumberC)
    !Arguments
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    CHARACTER(LEN=*), INTENT(IN) :: evaluatorName
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    !Local variables
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field

    enters("cmfe_FieldML_InputFieldParametersUpdateNumberC",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL field_user_number_to_field( fieldnumber, region, field, err, error, *999 )

    CALL fieldml_input_field_parameters_update( fieldml%fieldmlInfo, var_str(evaluatorname), field, variabletype, &
      & settype, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_InputFieldParametersUpdateNumberC")
    RETURN
999 errors("cmfe_FieldML_InputFieldParametersUpdateNumberC",err,error)
    exits("cmfe_FieldML_InputFieldParametersUpdateNumberC")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_inputfieldparametersupdatenumberc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputwritevs( fieldml, filename, err )
    !DLLEXPORT(cmfe_FieldML_OutputWriteVS)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    TYPE(varying_string), INTENT(IN) :: filename
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_OutputWriteVS",err,error,*999)

#ifdef WITH_FIELDML

    IF( .NOT. fieldml%fieldmlInfo%IS_OUT ) THEN
      CALL flagerror( "Inbound FieldML handle used four an output-only operation.", err, error, *999 )
    END IF

    CALL fieldml_output_write( fieldml%fieldmlInfo, filename, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputWriteVS")
    RETURN
999 errorsexits("cmfe_FieldML_OutputWriteVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputwritevs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputwritec( fieldml, filename, err )
    !DLLEXPORT(cmfe_FieldML_OutputWriteC)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: filename
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_OutputWriteC",err,error,*999)

#ifdef WITH_FIELDML

    IF( .NOT. fieldml%fieldmlInfo%IS_OUT ) THEN
      CALL flagerror( "Inbound FieldML handle used four an output-only operation.", err, error, *999 )
    END IF

    CALL fieldml_output_write( fieldml%fieldmlInfo, var_str(filename), err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputWriteC")
    RETURN
999 errorsexits("cmfe_FieldML_OutputWriteC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputwritec

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldnotypeobjvs( fieldml, baseName, dofFormat, field, variableType, setType, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldNoTypeObjVS)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    TYPE(varying_string), INTENT(IN) :: baseName
    TYPE(varying_string), INTENT(IN) :: dofFormat
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_OutputAddFieldNoTypeObjVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_output_add_field( fieldml%fieldmlInfo, basename, dofformat, field%field, variabletype, settype, &
      & err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldNoTypeObjVS")
    RETURN
999 errorsexits("cmfe_FieldML_OutputAddFieldNoTypeObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldnotypeobjvs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldnotypenumbervs( fieldml, baseName, dofFormat, regionNumber, fieldNumber, &
    & variabletype, settype, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldNoTypeNumberVS)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    TYPE(varying_string), INTENT(IN) :: baseName
    TYPE(varying_string), INTENT(IN) :: dofFormat
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field

    enters("cmfe_FieldML_OutputAddFieldNoTypeNumberVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL field_user_number_to_field( fieldnumber, region, field, err, error, *999 )

    CALL fieldml_output_add_field( fieldml%fieldmlInfo, basename, dofformat, field, variabletype, settype, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldNoTypeNumberVS")
    RETURN
999 errorsexits("cmfe_FieldML_OutputAddFieldNoTypeNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldnotypenumbervs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldwithtypeobjvs( fieldml, baseName, dofFormat, field, variableType, setType, typeHandle, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldWithTypeObjVS)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    TYPE(varying_string), INTENT(IN) :: baseName
    TYPE(varying_string), INTENT(IN) :: dofFormat
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: typeHandle
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_OutputAddFieldWithTypeObjVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_output_add_field( fieldml%fieldmlInfo, basename, dofformat, field%field, variabletype, settype, typehandle, &
      & err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldWithTypeObjVS")
    RETURN
999 errorsexits("cmfe_FieldML_OutputAddFieldWithTypeObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldwithtypeobjvs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldwithtypenumbervs( fieldml, baseName, dofFormat, regionNumber, fieldNumber, &
    & variabletype, settype, typehandle, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldWithTypeNumberVS)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    TYPE(varying_string), INTENT(IN) :: baseName
    TYPE(varying_string), INTENT(IN) :: dofFormat
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(IN) :: typeHandle
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field

    enters("cmfe_FieldML_OutputAddFieldWithTypeNumberVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL field_user_number_to_field( fieldnumber, region, field, err, error, *999 )

    CALL fieldml_output_add_field( fieldml%fieldmlInfo, basename, dofformat, field, variabletype, settype, typehandle, &
      & err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldWithTypeNumberVS")
    RETURN
999 errorsexits("cmfe_FieldML_OutputAddFieldWithTypeNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldwithtypenumbervs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldnotypeobjc( fieldml, baseName, dofFormat, field, variableType, setType, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldNoTypeObjC)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: baseName
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: dofFormat
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_OutputAddFieldNoTypeObjC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_output_add_field( fieldml%fieldmlInfo, var_str(basename), var_str(dofformat), field%field, variabletype, &
      & settype, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldNoTypeObjC")
    RETURN
999 errorsexits("cmfe_FieldML_OutputAddFieldNoTypeObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldnotypeobjc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldnotypenumberc( fieldml, baseName, dofFormat, regionNumber, fieldNumber, &
    & variabletype, settype, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldNoTypeNumberC)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: baseName
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: dofFormat
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field

    enters("cmfe_FieldML_OutputAddFieldNoTypeNumberC",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL field_user_number_to_field( fieldnumber, region, field, err, error, *999 )

    CALL fieldml_output_add_field( fieldml%fieldmlInfo, var_str(basename), var_str(dofformat), field, variabletype, &
      & settype, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldNoTypeNumberC")
    RETURN
999 errorsexits("cmfe_FieldML_OutputAddFieldNoTypeNumberC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldnotypenumberc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldwithtypeobjc( fieldml, baseName, dofFormat, field, variableType, setType, typeHandle, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldWithTypeObjC)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: baseName
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: dofFormat
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(IN) :: typeHandle
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_OutputAddFieldWithTypeObjC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_output_add_field( fieldml%fieldmlInfo, var_str(basename), var_str(dofformat), field%field, variabletype, &
      & typehandle, settype, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldWithTypeObjC")
    RETURN
999 errorsexits("cmfe_FieldML_OutputAddFieldWithTypeObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldwithtypeobjc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldwithtypenumberc( fieldml, baseName, dofFormat, regionNumber, fieldNumber, &
    & variabletype, settype, typehandle, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldWithTypeNumberC)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: baseName
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: dofFormat
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(IN) :: typeHandle
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field

    enters("cmfe_FieldML_OutputAddFieldWithTypeNumberC",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL field_user_number_to_field( fieldnumber, region, field, err, error, *999 )

    CALL fieldml_output_add_field( fieldml%fieldmlInfo, var_str(basename), var_str(dofformat), field, variabletype, &
      & settype, typehandle, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldWithTypeNumberC")
    RETURN
999 errorsexits("cmfe_FieldML_OutputAddFieldWithTypeNumberC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldwithtypenumberc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputcreateobjvs( mesh, location, baseName, connectivityFormat, fieldml, err )
    !DLLEXPORT(cmfe_FieldML_OutputCreateObjVS)
    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    TYPE(varying_string), INTENT(IN) :: location
    TYPE(varying_string), INTENT(IN) :: baseName
    TYPE(varying_string), INTENT(IN) :: connectivityFormat
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_OutputCreateObjVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_output_initialise_info( mesh%mesh, location, basename, connectivityformat, fieldml%fieldmlInfo, &
      & err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputCreateObjVS")
    RETURN
999 errorsexits("cmfe_FieldML_OutputCreateObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputcreateobjvs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputcreatenumbervs( regionNumber, meshNumber, location, baseName, connectivityFormat, fieldml, err )
    !DLLEXPORT(cmfe_FieldML_OutputCreateNumberVS)
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: meshNumber
    TYPE(varying_string), INTENT(IN) :: location
    TYPE(varying_string), INTENT(IN) :: baseName
    TYPE(varying_string), INTENT(IN) :: connectivityFormat
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region
    TYPE(mesh_type), POINTER :: mesh

    enters("cmfe_FieldML_OutputCreateNumberVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL mesh_user_number_to_mesh( meshnumber, region, mesh, err, error, *999 )

    CALL fieldml_output_initialise_info( mesh, location, basename, connectivityformat, fieldml%fieldmlInfo, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputCreateNumberVS")
    RETURN
999 errorsexits("cmfe_FieldML_OutputCreateNumberVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputcreatenumbervs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputcreateobjc( mesh, location, baseName, connectivityFormat, fieldml, err )
    !DLLEXPORT(cmfe_FieldML_OutputCreateObjC)
    !Argument variables
    TYPE(cmfe_meshtype), INTENT(IN) :: mesh
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: location
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: baseName
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: connectivityFormat
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_OutputCreateObjC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_output_initialise_info( mesh%mesh, var_str(location), var_str(basename), var_str(connectivityformat), &
      & fieldml%fieldmlInfo, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputCreateObjC")
    RETURN
999 errorsexits("cmfe_FieldML_OutputCreateObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputcreateobjc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputcreatenumberc( regionNumber, meshNumber, location, baseName, connectivityFormat, fieldml, err )
    !DLLEXPORT(cmfe_FieldML_OutputCreateNumberC)
    !Argument variables
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: meshNumber
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: location
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: baseName
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: connectivityFormat
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region
    TYPE(mesh_type), POINTER :: mesh

    enters("cmfe_FieldML_OutputCreateNumberC",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL mesh_user_number_to_mesh( meshnumber, region, mesh, err, error, *999 )

    CALL fieldml_output_initialise_info( mesh, var_str(location), var_str(basename), var_str(connectivityformat), &
      & fieldml%fieldmlInfo, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputCreateNumberC")
    RETURN
999 errorsexits("cmfe_FieldML_OutputCreateNumberC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputcreatenumberc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldcomponentsobjvs( fieldml, typeHandle, baseName, dofFormat, field, fieldComponentNumbers, &
    & variabletype, settype, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldComponentsObjVS)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    INTEGER(INTG), INTENT(IN) :: typeHandle
    TYPE(varying_string), INTENT(IN) :: baseName
    TYPE(varying_string), INTENT(IN) :: dofFormat
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: fieldComponentNumbers(:)
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_OutputAddFieldComponentsObjVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_output_add_field_components( fieldml%fieldmlInfo, typehandle, basename, dofformat, field%field, &
      & fieldcomponentnumbers, variabletype, settype, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldComponentsObjVS")
    RETURN
999 errorsexits("cmfe_FieldML_OutputAddFieldComponentsObjVS",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldcomponentsobjvs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldcomponentsnumbervs( fieldml, typeHandle, baseName, dofFormat, regionNumber, &
    & fieldnumber, fieldcomponentnumbers, variabletype, settype, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldComponentsNumberVS)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    INTEGER(INTG), INTENT(IN) :: typeHandle
    TYPE(varying_string), INTENT(IN) :: baseName
    TYPE(varying_string), INTENT(IN) :: dofFormat
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    INTEGER(INTG), INTENT(IN) :: fieldComponentNumbers(:)
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field

    enters("cmfe_FieldML_OutputAddFieldComponentsNumberVS",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL field_user_number_to_field( fieldnumber, region, field, err, error, *999 )

    CALL fieldml_output_add_field_components( fieldml%fieldmlInfo, typehandle, basename, dofformat, field, fieldcomponentnumbers,&
      & variabletype, settype, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldComponentsNumberVS")
    RETURN
999 errors("cmfe_FieldML_OutputAddFieldComponentsNumberVS",err,error)
    exits("cmfe_FieldML_OutputAddFieldComponentsNumberVS")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldcomponentsnumbervs

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldcomponentsobjc( fieldml, typeHandle, baseName, dofFormat, field, fieldComponentNumbers, &
    & variabletype, settype, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldComponentsObjC)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    INTEGER(INTG), INTENT(IN) :: typeHandle
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: baseName
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: dofFormat
    TYPE(cmfe_fieldtype), INTENT(IN) :: field
    INTEGER(INTG), INTENT(IN) :: fieldComponentNumbers(:)
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldML_OutputAddFieldComponentsObjC",err,error,*999)

#ifdef WITH_FIELDML

    CALL fieldml_output_add_field_components( fieldml%fieldmlInfo, typehandle, var_str(basename), var_str(dofformat), &
      & field%field, fieldcomponentnumbers, variabletype, settype, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldComponentsObjC")
    RETURN
999 errorsexits("cmfe_FieldML_OutputAddFieldComponentsObjC",err,error)
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldcomponentsobjc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddfieldcomponentsnumberc( fieldml, typeHandle, baseName, dofFormat, regionNumber, &
    & fieldnumber, fieldcomponentnumbers, variabletype, settype, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddFieldComponentsNumberC)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    INTEGER(INTG), INTENT(IN) :: typeHandle
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: baseName
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: dofFormat
    INTEGER(INTG), INTENT(IN) :: regionNumber
    INTEGER(INTG), INTENT(IN) :: fieldNumber
    INTEGER(INTG), INTENT(IN) :: fieldComponentNumbers(:)
    INTEGER(INTG), INTENT(IN) :: variableType
    INTEGER(INTG), INTENT(IN) :: setType
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(region_type), POINTER :: region
    TYPE(field_type), POINTER :: field

    enters("cmfe_FieldML_OutputAddFieldComponentsNumberC",err,error,*999)

#ifdef WITH_FIELDML

    CALL region_user_number_to_region( regionnumber, region, err, error, *999 )
    CALL field_user_number_to_field( fieldnumber, region, field, err, error, *999 )

    CALL fieldml_output_add_field_components( fieldml%fieldmlInfo, typehandle, var_str(basename), var_str(dofformat), &
      & field, fieldcomponentnumbers, variabletype, settype, err, error, *999 )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddFieldComponentsNumberC")
    RETURN
999 errors("cmfe_FieldML_OutputAddFieldComponentsNumberC",err,error)
    exits("cmfe_FieldML_OutputAddFieldComponentsNumberC")
    CALL cmfe_handleerror(err,error)
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddfieldcomponentsnumberc

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldml_outputaddimport( fieldml, name, handle, err )
    !DLLEXPORT(cmfe_FieldML_OutputAddImport)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(IN) :: fieldml
    CHARACTER(KIND=C_CHAR,LEN=*), INTENT(IN) :: name
    INTEGER(INTG), INTENT(OUT) :: handle
    INTEGER(INTG), INTENT(OUT) :: err

    !Locals
    TYPE(varying_string) :: stringName

    enters("cmfe_FieldML_OutputAddImport",err,error,*999)

#ifdef WITH_FIELDML

    stringname = name

    handle = fieldml_output_add_import( fieldml%fieldmlInfo, stringname, err, error )
    IF(err/=0) GOTO 999

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldML_OutputAddImport")
    RETURN
999 errorsexits("cmfe_FieldML_OutputAddImport",err,error)
    CALL cmfe_handleerror( err, error )
    RETURN

  END SUBROUTINE cmfe_fieldml_outputaddimport

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldmlio_finalise( fieldml, err )
    !DLLEXPORT(cmfe_FieldMLIO_Finalise)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(OUT) :: fieldml
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldMLIO_Finalise", err, error, *999 )

#ifdef WITH_FIELDML

    CALL fieldml_io_finalise( fieldml%fieldmlInfo, err, error, *999  )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldMLIO_Finalise")
    RETURN
999 errorsexits("cmfe_FieldMLIO_Finalise",err,error)
    CALL cmfe_handleerror( err, error )
    RETURN

  END SUBROUTINE cmfe_fieldmlio_finalise

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldmlio_initialise( fieldml, err )
    !DLLEXPORT(cmfe_FieldMLIO_Initialise)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(OUT) :: fieldml
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldMLIO_Initialise", err, error, *999 )

#ifdef WITH_FIELDML

    NULLIFY( fieldml%fieldmlInfo )

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldMLIO_Initialise")
    RETURN
999 errorsexits("cmfe_FieldMLIO_Initialise",err,error)
    CALL cmfe_handleerror( err, error )
    RETURN

  END SUBROUTINE cmfe_fieldmlio_initialise

  !
  !================================================================================================================================
  !

  SUBROUTINE cmfe_fieldmlio_getsession( fieldml, sessionHandle, err )
    !DLLEXPORT(cmfe_FieldMLIO_GetSession)
    !Argument variables
    TYPE(cmfe_fieldmliotype), INTENT(INOUT) :: fieldml
    INTEGER(INTG), INTENT(OUT) :: sessionHandle
    INTEGER(INTG), INTENT(OUT) :: err

    enters("cmfe_FieldMLIO_GetSession", err, error, *999 )

#ifdef WITH_FIELDML

    sessionhandle = fieldml%fieldmlInfo%FML_HANDLE

#else
    CALL flagerror("Must compile with WITH_FIELDML ON to use FieldML functionality.",err,error,*999)
#endif

    exits("cmfe_FieldMLIO_GetSession")
    RETURN
999 errorsexits("cmfe_FieldMLIO_GetSession",err,error)
    CALL cmfe_handleerror( err, error )
    RETURN

  END SUBROUTINE cmfe_fieldmlio_getsession

  !
  !================================================================================================================================
  !


END MODULE opencmiss_iron