OpenCMISSFortran  0.3
opencmiss_iron.f90
Go to the documentation of this file.
00001 
00051 MODULE OpenCMISS_Iron
00052 
00053   USE ANALYTIC_ANALYSIS_ROUTINES
00054   USE BASE_ROUTINES
00055   USE BASIS_ROUTINES
00056   USE BIOELECTRIC_FINITE_ELASTICITY_ROUTINES
00057   USE BOUNDARY_CONDITIONS_ROUTINES
00058   USE Cmiss
00059   USE CMISS_CELLML
00060   USE COMP_ENVIRONMENT
00061   USE CONSTANTS
00062   USE CONTROL_LOOP_ROUTINES
00063   USE COORDINATE_ROUTINES
00064   USE DATA_POINT_ROUTINES
00065   USE DATA_PROJECTION_ROUTINES
00066   USE DISTRIBUTED_MATRIX_VECTOR
00067   USE EQUATIONS_ROUTINES
00068   USE EQUATIONS_SET_CONSTANTS
00069   USE EQUATIONS_SET_ROUTINES
00070   USE FIELD_ROUTINES
00071 #ifdef USEFIELDML
00072   USE FIELDML_TYPES
00073   USE FIELDML_INPUT_ROUTINES
00074   USE FIELDML_OUTPUT_ROUTINES
00075   USE FIELDML_UTIL_ROUTINES
00076 #endif
00077   USE FIELD_IO_ROUTINES
00078   USE FINITE_ELASTICITY_ROUTINES
00079   USE GENERATED_MESH_ROUTINES
00080   USE HAMILTON_JACOBI_EQUATIONS_ROUTINES
00081   USE HISTORY_ROUTINES
00082   USE INPUT_OUTPUT
00083   USE INTERFACE_ROUTINES
00084   USE INTERFACE_CONDITIONS_CONSTANTS
00085   USE INTERFACE_CONDITIONS_ROUTINES
00086   USE INTERFACE_EQUATIONS_ROUTINES
00087   USE INTERFACE_MATRICES_CONSTANTS
00088   USE INTERFACE_MATRICES_ROUTINES
00089   USE ISO_C_BINDING
00090   USE ISO_VARYING_STRING
00091   USE KINDS
00092   USE MESH_ROUTINES
00093   USE NODE_ROUTINES
00094   USE PROBLEM_CONSTANTS
00095   USE PROBLEM_ROUTINES
00096   USE REGION_ROUTINES
00097   USE SOLVER_ROUTINES
00098   USE STRINGS
00099   USE TYPES
00100 
00101 #include "macros.h"  
00102 
00103   IMPLICIT NONE
00104 
00105   PRIVATE
00106 
00107   !Module parameters
00108 
00109   !Module types
00110 
00112   TYPE cmfe_BasisType
00113     PRIVATE
00114     TYPE(BASIS_TYPE), POINTER :: basis
00115   END TYPE cmfe_BasisType
00116 
00118   TYPE cmfe_BoundaryConditionsType
00119     PRIVATE
00120     TYPE(BOUNDARY_CONDITIONS_TYPE), POINTER :: boundaryConditions
00121   END TYPE cmfe_BoundaryConditionsType
00122 
00124   TYPE cmfe_CellMLType
00125     PRIVATE
00126     TYPE(CELLML_TYPE), POINTER :: cellml
00127   END TYPE cmfe_CellMLType
00128 
00130   TYPE cmfe_CellMLEquationsType
00131     PRIVATE
00132     TYPE(CELLML_EQUATIONS_TYPE), POINTER :: cellmlEquations
00133   END TYPE cmfe_CellMLEquationsType
00134 
00136   TYPE cmfe_ControlLoopType
00137     PRIVATE
00138     TYPE(CONTROL_LOOP_TYPE), POINTER :: controlLoop
00139   END TYPE cmfe_ControlLoopType
00140 
00142   TYPE cmfe_CoordinateSystemType
00143     PRIVATE
00144     TYPE(COORDINATE_SYSTEM_TYPE), POINTER :: coordinateSystem
00145   END TYPE cmfe_CoordinateSystemType
00146 
00148   TYPE cmfe_DataPointsType
00149     PRIVATE
00150     TYPE(DATA_POINTS_TYPE), POINTER :: dataPoints
00151   END TYPE cmfe_DataPointsType
00152 
00154   TYPE cmfe_DataProjectionType
00155     PRIVATE
00156     TYPE(DATA_PROJECTION_TYPE), POINTER :: dataProjection
00157   END TYPE cmfe_DataProjectionType
00158 
00160   TYPE cmfe_DecompositionType
00161     PRIVATE
00162     TYPE(DECOMPOSITION_TYPE), POINTER :: decomposition
00163   END TYPE cmfe_DecompositionType
00164 
00166   TYPE cmfe_EquationsType
00167     PRIVATE
00168     TYPE(EQUATIONS_TYPE), POINTER :: equations
00169   END TYPE cmfe_EquationsType
00170 
00172   TYPE cmfe_EquationsSetType
00173     PRIVATE
00174     TYPE(EQUATIONS_SET_TYPE), POINTER :: equationsSet
00175   END TYPE cmfe_EquationsSetType
00176 
00178   TYPE cmfe_FieldType
00179     PRIVATE
00180     TYPE(FIELD_TYPE), POINTER :: field
00181   END TYPE cmfe_FieldType
00182 
00184   TYPE cmfe_FieldsType
00185     !PRIVATE
00186     TYPE(FIELDS_TYPE), POINTER :: fields
00187   END TYPE cmfe_FieldsType
00188 
00190   TYPE cmfe_GeneratedMeshType
00191     PRIVATE
00192     TYPE(GENERATED_MESH_TYPE), POINTER :: generatedMesh
00193   END TYPE cmfe_GeneratedMeshType
00194 
00196   TYPE cmfe_HistoryType
00197     PRIVATE
00198     TYPE(HISTORY_TYPE), POINTER :: history
00199   END TYPE cmfe_HistoryType
00200 
00202   TYPE cmfe_InterfaceType
00203     PRIVATE
00204     TYPE(INTERFACE_TYPE), POINTER :: interface
00205   END TYPE cmfe_InterfaceType
00206 
00208   TYPE cmfe_InterfaceConditionType
00209     PRIVATE
00210     TYPE(INTERFACE_CONDITION_TYPE), POINTER :: interfaceCondition
00211   END TYPE cmfe_InterfaceConditionType
00212 
00214   TYPE cmfe_InterfaceEquationsType
00215     PRIVATE
00216     TYPE(INTERFACE_EQUATIONS_TYPE), POINTER :: interfaceEquations
00217   END TYPE cmfe_InterfaceEquationsType
00218 
00220   TYPE cmfe_InterfaceMeshConnectivityType
00221     PRIVATE
00222     TYPE(INTERFACE_MESH_CONNECTIVITY_TYPE), POINTER :: meshConnectivity
00223   END TYPE cmfe_InterfaceMeshConnectivityType
00224   
00226   TYPE cmfe_InterfacePointsConnectivityType
00227     PRIVATE
00228     TYPE(InterfacePointsConnectivityType), POINTER :: pointsConnectivity
00229   END TYPE cmfe_InterfacePointsConnectivityType
00230 
00233   TYPE cmfe_DistributedMatrixType
00234     PRIVATE
00235     TYPE(DISTRIBUTED_MATRIX_TYPE), POINTER :: distributedMatrix
00236   END TYPE cmfe_DistributedMatrixType
00237 
00239   TYPE cmfe_DistributedVectorType
00240     PRIVATE
00241     TYPE(DISTRIBUTED_VECTOR_TYPE), POINTER :: distributedVector
00242   END TYPE cmfe_DistributedVectorType
00243 
00245   TYPE cmfe_MeshType
00246     PRIVATE
00247     TYPE(MESH_TYPE), POINTER :: mesh
00248   END TYPE cmfe_MeshType
00249 
00251   TYPE cmfe_MeshElementsType
00252     PRIVATE
00253     TYPE(MeshElementsType), POINTER :: meshElements
00254   END TYPE cmfe_MeshElementsType
00255 
00257   TYPE cmfe_MeshEmbeddingType
00258     PRIVATE
00259     TYPE(MESH_EMBEDDING_TYPE), POINTER :: meshEmbedding
00260   END TYPE cmfe_MeshEmbeddingType
00261 
00263   TYPE cmfe_MeshNodesType
00264     PRIVATE
00265     TYPE(MeshNodesType), POINTER :: meshNodes
00266   END TYPE cmfe_MeshNodesType
00267 
00269   TYPE cmfe_NodesType
00270     PRIVATE
00271     TYPE(NODES_TYPE), POINTER :: nodes
00272   END TYPE cmfe_NodesType
00273 
00275   TYPE cmfe_ProblemType
00276     PRIVATE
00277     TYPE(PROBLEM_TYPE), POINTER :: problem
00278   END TYPE cmfe_ProblemType
00279 
00281   TYPE cmfe_QuadratureType
00282     PRIVATE
00283     TYPE(QUADRATURE_TYPE), POINTER :: quadrature
00284   END TYPE cmfe_QuadratureType
00285 
00287   TYPE cmfe_RegionType
00288     PRIVATE
00289     TYPE(REGION_TYPE), POINTER :: region
00290   END TYPE cmfe_RegionType
00291 
00293   TYPE cmfe_SolverType
00294     PRIVATE
00295     TYPE(SOLVER_TYPE), POINTER :: solver
00296   END TYPE cmfe_SolverType
00297 
00299   TYPE cmfe_SolverEquationsType
00300     PRIVATE
00301     TYPE(SOLVER_EQUATIONS_TYPE), POINTER :: solverEquations
00302   END TYPE cmfe_SolverEquationsType
00303 
00305   TYPE cmfe_ComputationalWorkGroupType
00306     PRIVATE
00307     TYPE(COMPUTATIONAL_WORK_GROUP_TYPE), POINTER :: computationalWorkGroup
00308   END TYPE cmfe_ComputationalWorkGroupType
00309 
00310   !Module variables
00311 
00312   TYPE(VARYING_STRING) :: error
00313 
00314   !INTERFACE cmfe_Finalise_
00315   !  MODULE PROCEDURE cmfe_Finalise
00316   !END INTERFACE cmfe_Finalise_
00317 
00318   INTERFACE cmfe_Initialise
00319     MODULE PROCEDURE cmfe_InitialiseNumber
00320     MODULE PROCEDURE cmfe_InitialiseObj
00321   END INTERFACE cmfe_Initialise
00322 
00323   INTERFACE cmfe_Fields_Create
00324     MODULE PROCEDURE cmfe_Fields_CreateInterface
00325     MODULE PROCEDURE cmfe_Fields_CreateRegion
00326   END INTERFACE cmfe_Fields_Create
00327 
00328   !PUBLIC cmfe_Finalise,cmfe_Initialise
00329   PUBLIC cmfe_Finalise,cmfe_Initialise
00330 
00331   PUBLIC cmfe_BasisType,cmfe_BasisTypesCopy,cmfe_Basis_Finalise,cmfe_Basis_Initialise
00332 
00333   PUBLIC cmfe_BoundaryConditionsType,cmfe_BoundaryConditions_Finalise,cmfe_BoundaryConditions_Initialise
00334 
00335   PUBLIC cmfe_CellMLType,cmfe_CellML_Finalise,cmfe_CellML_Initialise
00336 
00337   PUBLIC cmfe_CellMLEquationsType,cmfe_CellMLEquations_Finalise,cmfe_CellMLEquations_Initialise
00338 
00339   PUBLIC cmfe_ComputationalWorkGroupType,cmfe_ComputationalWorkGroup_Initialise
00340 
00341   PUBLIC cmfe_ControlLoopType,cmfe_ControlLoop_Finalise,cmfe_ControlLoop_Initialise,cmfe_ControlLoop_LoadOutputSet
00342 
00343   PUBLIC cmfe_CoordinateSystemType,cmfe_CoordinateSystem_Finalise,cmfe_CoordinateSystem_Initialise
00344 
00345   PUBLIC cmfe_DataPointsType,cmfe_DataPoints_Finalise,cmfe_DataPoints_Initialise
00346 
00347   PUBLIC cmfe_DataProjectionType,cmfe_DataProjection_Finalise,cmfe_DataProjection_Initialise
00348 
00349   PUBLIC cmfe_DecompositionType,cmfe_Decomposition_Finalise,cmfe_Decomposition_Initialise
00350 
00351   PUBLIC cmfe_Decomposition_CalculateFacesSet,cmfe_Decomposition_CalculateLinesSet
00352 
00353   PUBLIC cmfe_EquationsType,cmfe_Equations_Finalise,cmfe_Equations_Initialise
00354 
00355   PUBLIC cmfe_EquationsSetType,cmfe_EquationsSet_Finalise,cmfe_EquationsSet_Initialise
00356 
00357   PUBLIC cmfe_FieldType,cmfe_Field_Finalise,cmfe_Field_Initialise
00358 
00359   PUBLIC cmfe_FieldsType,cmfe_Fields_Create,cmfe_Fields_Finalise,cmfe_Fields_Initialise
00360 
00361   PUBLIC cmfe_GeneratedMeshType,cmfe_GeneratedMesh_Finalise,cmfe_GeneratedMesh_Initialise
00362 
00363   PUBLIC cmfe_HistoryType,cmfe_History_Finalise,cmfe_History_Initialise
00364 
00365   PUBLIC cmfe_InterfaceType,cmfe_Interface_Finalise,cmfe_Interface_Initialise
00366 
00367   PUBLIC cmfe_InterfaceConditionType,cmfe_InterfaceCondition_Finalise,cmfe_InterfaceCondition_Initialise
00368 
00369   PUBLIC cmfe_InterfaceEquationsType,cmfe_InterfaceEquations_Finalise,cmfe_InterfaceEquations_Initialise
00370 
00371   PUBLIC cmfe_InterfaceMeshConnectivityType,cmfe_InterfaceMeshConnectivity_Finalise, &
00372     & cmfe_InterfaceMeshConnectivity_Initialise
00373   
00374   PUBLIC cmfe_InterfacePointsConnectivityType,cmfe_InterfacePointsConnectivity_Initialise, &
00375     & cmfe_InterfacePointsConnectivity_Finalise
00376 
00377   PUBLIC cmfe_DistributedMatrixType,cmfe_DistributedVectorType
00378 
00379   PUBLIC cmfe_DistributedMatrix_Initialise,cmfe_DistributedVector_Initialise
00380 
00381   PUBLIC cmfe_MeshType,cmfe_Mesh_Finalise,cmfe_Mesh_Initialise
00382 
00383   PUBLIC cmfe_MeshElementsType,cmfe_MeshElements_Finalise,cmfe_MeshElements_Initialise
00384 
00385   PUBLIC cmfe_MeshNodesType,cmfe_MeshNodes_Finalise,cmfe_MeshNodes_Initialise
00386 
00387   PUBLIC cmfe_NodesType,cmfe_Nodes_Finalise,cmfe_Nodes_Initialise
00388 
00389   PUBLIC cmfe_ProblemType,cmfe_Problem_Finalise,cmfe_Problem_Initialise
00390 
00391   PUBLIC cmfe_QuadratureType,cmfe_Quadrature_Finalise,cmfe_Quadrature_Initialise
00392 
00393   PUBLIC cmfe_RegionType,cmfe_Region_Finalise,cmfe_Region_Initialise
00394 
00395   PUBLIC cmfe_SolverType,cmfe_Solver_Finalise,cmfe_Solver_Initialise
00396 
00397   PUBLIC cmfe_SolverEquationsType,cmfe_SolverEquations_Finalise,cmfe_SolverEquations_Initialise
00398 
00399 !!==================================================================================================================================
00400 !!
00401 !! ANALYTIC_ANALYSIS_ROUTINES
00402 !!
00403 !!==================================================================================================================================
00404 
00405   !Module parameters
00406 
00407   !Module types
00408 
00409   !Module variables
00410 
00411   !Interfaces
00412 
00414   INTERFACE cmfe_AnalyticAnalysis_Output
00415     MODULE PROCEDURE cmfe_AnalyticAnalysis_OutputNumber
00416     MODULE PROCEDURE cmfe_AnalyticAnalysis_OutputObj
00417   END INTERFACE
00418 
00420   INTERFACE cmfe_AnalyticAnalysis_AbsoluteErrorGetNode
00421     MODULE PROCEDURE cmfe_AnalyticAnalysis_AbsoluteErrorGetNodeNumber
00422     MODULE PROCEDURE cmfe_AnalyticAnalysis_AbsoluteErrorGetNodeObj
00423   END INTERFACE cmfe_AnalyticAnalysis_AbsoluteErrorGetNode
00424 
00426   INTERFACE cmfe_AnalyticAnalysis_PercentageErrorGetNode
00427     MODULE PROCEDURE cmfe_AnalyticAnalysis_PercentageErrorGetNodeNumber
00428     MODULE PROCEDURE cmfe_AnalyticAnalysis_PercentageErrorGetNodeObj
00429   END INTERFACE cmfe_AnalyticAnalysis_PercentageErrorGetNode
00430 
00432   INTERFACE cmfe_AnalyticAnalysis_RelativeErrorGetNode
00433     MODULE PROCEDURE cmfe_AnalyticAnalysis_RelativeErrorGetNodeNumber
00434     MODULE PROCEDURE cmfe_AnalyticAnalysis_RelativeErrorGetNodeObj
00435   END INTERFACE cmfe_AnalyticAnalysis_RelativeErrorGetNode
00436 
00438   INTERFACE cmfe_AnalyticAnalysis_AbsoluteErrorGetElement
00439     MODULE PROCEDURE cmfe_AnalyticAnalysis_AbsoluteErrorGetElementNumber
00440     MODULE PROCEDURE cmfe_AnalyticAnalysis_AbsoluteErrorGetElementObj
00441   END INTERFACE cmfe_AnalyticAnalysis_AbsoluteErrorGetElement
00442 
00444   INTERFACE cmfe_AnalyticAnalysis_PercentageErrorGetElement
00445     MODULE PROCEDURE cmfe_AnalyticAnalysis_PercentageErrorGetElementNumber
00446     MODULE PROCEDURE cmfe_AnalyticAnalysis_PercentageErrorGetElementObj
00447   END INTERFACE cmfe_AnalyticAnalysis_PercentageErrorGetElement
00448 
00450   INTERFACE cmfe_AnalyticAnalysis_RelativeErrorGetElement
00451     MODULE PROCEDURE cmfe_AnalyticAnalysis_RelativeErrorGetElementNumber
00452     MODULE PROCEDURE cmfe_AnalyticAnalysis_RelativeErrorGetElementObj
00453   END INTERFACE cmfe_AnalyticAnalysis_RelativeErrorGetElement
00454 
00456   INTERFACE cmfe_AnalyticAnalysis_AbsoluteErrorGetConstant
00457     MODULE PROCEDURE cmfe_AnalyticAnalysis_AbsoluteErrorGetConstantNumber
00458     MODULE PROCEDURE cmfe_AnalyticAnalysis_AbsoluteErrorGetConstantObj
00459   END INTERFACE cmfe_AnalyticAnalysis_AbsoluteErrorGetConstant
00460 
00462   INTERFACE cmfe_AnalyticAnalysis_PercentageErrorGetConstant
00463     MODULE PROCEDURE cmfe_AnalyticAnalysis_PercentageErrorGetConstantNumber
00464     MODULE PROCEDURE cmfe_AnalyticAnalysis_PercentageErrorGetConstantObj
00465   END INTERFACE cmfe_AnalyticAnalysis_PercentageErrorGetConstant
00466 
00468   INTERFACE cmfe_AnalyticAnalysis_RelativeErrorGetConstant
00469     MODULE PROCEDURE cmfe_AnalyticAnalysis_RelativeErrorGetConstantNumber
00470     MODULE PROCEDURE cmfe_AnalyticAnalysis_RelativeErrorGetConstantObj
00471   END INTERFACE cmfe_AnalyticAnalysis_RelativeErrorGetConstant
00472 
00474   INTERFACE cmfe_AnalyticAnalysis_RMSErrorGetNode
00475     MODULE PROCEDURE cmfe_AnalyticAnalysis_RMSErrorGetNodeNumber
00476     MODULE PROCEDURE cmfe_AnalyticAnalysis_RMSErrorGetNodeObj
00477   END INTERFACE cmfe_AnalyticAnalysis_RMSErrorGetNode
00478 
00480   INTERFACE cmfe_AnalyticAnalysis_RMSErrorGetElement
00481     MODULE PROCEDURE cmfe_AnalyticAnalysis_RMSErrorGetElementNumber
00482     MODULE PROCEDURE cmfe_AnalyticAnalysis_RMSErrorGetElementObj
00483   END INTERFACE cmfe_AnalyticAnalysis_RMSErrorGetElement
00484 
00486   INTERFACE cmfe_AnalyticAnalysis_IntegralNumericalValueGet
00487     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralNumericalValueGetNumber
00488     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralNumericalValueGetObj
00489   END INTERFACE cmfe_AnalyticAnalysis_IntegralNumericalValueGet
00490   
00492   INTERFACE cmfe_AnalyticAnalysis_IntegralAnalyticValueGet
00493     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralAnalyticValueGetNumber
00494     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralAnalyticValueGetObj
00495   END INTERFACE cmfe_AnalyticAnalysis_IntegralAnalyticValueGet
00496 
00498   INTERFACE cmfe_AnalyticAnalysis_IntegralPercentageErrorGet
00499     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralPercentageErrorGetNumber
00500     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralPercentageErrorGetObj
00501   END INTERFACE cmfe_AnalyticAnalysis_IntegralPercentageErrorGet
00502 
00504   INTERFACE cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGet
00505     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGetNumber
00506     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGetObj
00507   END INTERFACE cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGet
00508 
00510   INTERFACE cmfe_AnalyticAnalysis_IntegralRelativeErrorGet
00511     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralRelativeErrorGetNumber
00512     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralRelativeErrorGetObj
00513   END INTERFACE cmfe_AnalyticAnalysis_IntegralRelativeErrorGet
00514 
00516   INTERFACE cmfe_AnalyticAnalysis_IntegralNIDNumericalValueGet
00517     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralNIDNumericalValueGetNumber
00518     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralNIDNumericalValueGetObj
00519   END INTERFACE cmfe_AnalyticAnalysis_IntegralNIDNumericalValueGet
00520 
00522   INTERFACE cmfe_AnalyticAnalysis_IntegralNIDErrorGet
00523     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralNIDErrorGetNumber
00524     MODULE PROCEDURE cmfe_AnalyticAnalysis_IntegralNIDErrorGetObj
00525   END INTERFACE cmfe_AnalyticAnalysis_IntegralNIDErrorGet
00526 
00527   PUBLIC cmfe_AnalyticAnalysis_Output
00528 
00529   PUBLIC cmfe_AnalyticAnalysis_AbsoluteErrorGetNode,cmfe_AnalyticAnalysis_PercentageErrorGetNode, &
00530     & cmfe_AnalyticAnalysis_RelativeErrorGetNode
00531 
00532   PUBLIC cmfe_AnalyticAnalysis_AbsoluteErrorGetElement,cmfe_AnalyticAnalysis_PercentageErrorGetElement, &
00533     & cmfe_AnalyticAnalysis_RelativeErrorGetElement
00534 
00535   PUBLIC cmfe_AnalyticAnalysis_AbsoluteErrorGetConstant,cmfe_AnalyticAnalysis_PercentageErrorGetConstant, &
00536     & cmfe_AnalyticAnalysis_RelativeErrorGetConstant
00537 
00538   PUBLIC cmfe_AnalyticAnalysis_RMSErrorGetNode,cmfe_AnalyticAnalysis_RMSErrorGetElement
00539 
00540   PUBLIC cmfe_AnalyticAnalysis_IntegralNumericalValueGet,cmfe_AnalyticAnalysis_IntegralAnalyticValueGet, &
00541     & cmfe_AnalyticAnalysis_IntegralPercentageErrorGet,cmfe_AnalyticAnalysis_IntegralAbsoluteErrorGet, &
00542     & cmfe_AnalyticAnalysis_IntegralRelativeErrorGet,cmfe_AnalyticAnalysis_IntegralNIDNumericalValueGet, &
00543     & cmfe_AnalyticAnalysis_IntegralNIDErrorGet
00544 
00545 !!==================================================================================================================================
00546 !!
00547 !! BASE_ROUTINES
00548 !!
00549 !!==================================================================================================================================
00550 
00551   !Module parameters
00552 
00560   INTEGER(INTG), PARAMETER :: CMFE_ALL_DIAG_TYPE = ALL_DIAG_TYPE !<Type for setting diagnostic output in all routines \see OPENCMISS_DiagnosticTypes,OPENCMISS
00561   INTEGER(INTG), PARAMETER :: CMFE_IN_DIAG_TYPE = IN_DIAG_TYPE !<Type for setting diagnostic output in one routine \see OPENCMISS_DiagnosticTypes,OPENCMISS
00562   INTEGER(INTG), PARAMETER :: CMFE_FROM_DIAG_TYPE = FROM_DIAG_TYPE !<Type for setting diagnostic output in one routine downwards \see OPENCMISS_DiagnosticTypes,OPENCMISS
00563 
00568   INTEGER(INTG), PARAMETER :: CMFE_ALL_TIMING_TYPE = ALL_TIMING_TYPE !<Type for setting timing output in all routines \see OPENCMISS_TimingTypes,OPENCMISS
00569   INTEGER(INTG), PARAMETER :: CMFE_IN_TIMING_TYPE = IN_TIMING_TYPE !<Type for setting timing output in one routine \see OPENCMISS_TimingTypes,OPENCMISS
00570   INTEGER(INTG), PARAMETER :: CMFE_FROM_TIMING_TYPE = FROM_TIMING_TYPE !<Type for setting timing output from one routine downwards \see OPENCMISS_TimingTypes,OPENCMISS
00571 
00573 
00574   !Module types
00575 
00576   !Module variables
00577 
00578   !Interfaces
00579 
00580   PUBLIC CMFE_ALL_DIAG_TYPE,CMFE_IN_DIAG_TYPE,CMFE_FROM_DIAG_TYPE
00581 
00582   PUBLIC CMFE_ALL_TIMING_TYPE,CMFE_IN_TIMING_TYPE,CMFE_FROM_TIMING_TYPE
00583 
00584   PUBLIC cmfe_DiagnosticsSetOff,cmfe_DiagnosticsSetOn
00585 
00586   PUBLIC cmfe_OutputSetOff,cmfe_OutputSetOn
00587 
00588   PUBLIC cmfe_TimingSetOff,cmfe_TimingSetOn,cmfe_TimingSummaryOutput
00589 
00590 !!==================================================================================================================================
00591 !!
00592 !! BASIS_ROUTINES
00593 !!
00594 !!==================================================================================================================================
00595 
00596   !Module parameters
00597 
00605   INTEGER(INTG), PARAMETER :: CMFE_BASIS_LAGRANGE_HERMITE_TP_TYPE = BASIS_LAGRANGE_HERMITE_TP_TYPE !<Lagrange-Hermite tensor product basis type \see OPENCMISS_BasisTypes,OPENCMISS
00606   INTEGER(INTG), PARAMETER :: CMFE_BASIS_SIMPLEX_TYPE = BASIS_SIMPLEX_TYPE !<Simplex basis type \see OPENCMISS_BasisTypes,OPENCMISS
00607   INTEGER(INTG), PARAMETER :: CMFE_BASIS_SERENDIPITY_TYPE = BASIS_SERENDIPITY_TYPE !<Serendipity basis type \see OPENCMISS_BasisTypes,OPENCMISS
00608   INTEGER(INTG), PARAMETER :: CMFE_BASIS_AUXILLIARY_TYPE = BASIS_AUXILLIARY_TYPE !<Auxillary basis type \see OPENCMISS_BasisTypes,OPENCMISS
00609   INTEGER(INTG), PARAMETER :: CMFE_BASIS_B_SPLINE_TP_TYPE = BASIS_B_SPLINE_TP_TYPE !<B-spline basis type \see OPENCMISS_BasisTypes,OPENCMISS
00610   INTEGER(INTG), PARAMETER :: CMFE_BASIS_FOURIER_LAGRANGE_HERMITE_TP_TYPE = BASIS_FOURIER_LAGRANGE_HERMITE_TP_TYPE !<Fourier-Lagrange tensor product basis type \see OPENCMISS_BasisTypes,OPENCMISS
00611   INTEGER(INTG), PARAMETER :: CMFE_BASIS_EXTENDED_LAGRANGE_TP_TYPE = BASIS_EXTENDED_LAGRANGE_TP_TYPE !< Extendend Lagrange tensor product basis type \see OPENCMISS_BasisTypes,OPENCMISS
00612 
00617   INTEGER(INTG), PARAMETER :: CMFE_BASIS_LINEAR_LAGRANGE_INTERPOLATION = BASIS_LINEAR_LAGRANGE_INTERPOLATION !<Linear Lagrange interpolation specification \see OPENCMISS_BasisInterpolationSpecifications,OPENCMISS
00618   INTEGER(INTG), PARAMETER :: CMFE_BASIS_QUADRATIC_LAGRANGE_INTERPOLATION = BASIS_QUADRATIC_LAGRANGE_INTERPOLATION !<Quadratic Lagrange interpolation specification \see OPENCMISS_BasisInterpolationSpecifications,OPENCMISS
00619   INTEGER(INTG), PARAMETER :: CMFE_BASIS_CUBIC_LAGRANGE_INTERPOLATION = BASIS_CUBIC_LAGRANGE_INTERPOLATION !<Cubic Lagrange interpolation specification \see OPENCMISS_BasisInterpolationSpecifications,OPENCMISS
00620   INTEGER(INTG), PARAMETER :: CMFE_BASIS_CUBIC_HERMITE_INTERPOLATION = BASIS_CUBIC_HERMITE_INTERPOLATION !<Cubic Hermite interpolation specification \see OPENCMISS_BasisInterpolationSpecifications,OPENCMISS
00621   INTEGER(INTG), PARAMETER :: CMFE_BASIS_QUADRATIC1_HERMITE_INTERPOLATION = BASIS_QUADRATIC1_HERMITE_INTERPOLATION !<Quadratic Hermite (no derivative at xi=0) interpolation specification \see OPENCMISS_BasisInterpolationSpecifications,OPENCMISS
00622   INTEGER(INTG), PARAMETER :: CMFE_BASIS_QUADRATIC2_HERMITE_INTERPOLATION = BASIS_QUADRATIC2_HERMITE_INTERPOLATION !<Quadratic Hermite (no derivative at xi=1) interpolation specification \see OPENCMISS_BasisInterpolationSpecifications,OPENCMISS
00623   INTEGER(INTG), PARAMETER :: CMFE_BASIS_LINEAR_SIMPLEX_INTERPOLATION = BASIS_LINEAR_SIMPLEX_INTERPOLATION !<Linear Simplex interpolation specification \see OPENCMISS_BasisInterpolationSpecifications,OPENCMISS
00624   INTEGER(INTG), PARAMETER :: CMFE_BASIS_QUADRATIC_SIMPLEX_INTERPOLATION = BASIS_QUADRATIC_SIMPLEX_INTERPOLATION !<Quadratic Simplex interpolation specification \see OPENCMISS_BasisInterpolationSpecifications,OPENCMISS
00625   INTEGER(INTG), PARAMETER :: CMFE_BASIS_CUBIC_SIMPLEX_INTERPOLATION = BASIS_CUBIC_SIMPLEX_INTERPOLATION !<Cubic Simplex interpolation specification \see OPENCMISS_BasisInterpolationSpecifications,OPENCMISS
00626 
00631   INTEGER(INTG), PARAMETER :: CMFE_BASIS_DEFAULT_QUADRATURE_SCHEME = BASIS_DEFAULT_QUADRATURE_SCHEME !<Identifier for the default quadrature scheme \see OPENCMISS_BasisQuadratureSchemes,OPENCMISS
00632   INTEGER(INTG), PARAMETER :: CMFE_BASIS_LOW_QUADRATURE_SCHEME = BASIS_LOW_QUADRATURE_SCHEME !<Identifier for a low order quadrature scheme \see OPENCMISS_BasisQuadratureSchemes,OPENCMISS
00633   INTEGER(INTG), PARAMETER :: CMFE_BASIS_MID_QUADRATURE_SCHEME = BASIS_MID_QUADRATURE_SCHEME !<Identifier for a mid order quadrature scheme \see OPENCMISS_BasisQuadratureSchemes,OPENCMISS
00634   INTEGER(INTG), PARAMETER :: CMFE_BASIS_HIGH_QUADRATURE_SCHEME = BASIS_HIGH_QUADRATURE_SCHEME !<Identifier for a high order quadrature scheme \see OPENCMISS_BasisQuadratureSchemes,OPENCMISS
00635 
00640   INTEGER(INTG), PARAMETER :: CMFE_BASIS_GAUSS_LEGENDRE_QUADRATURE = BASIS_GAUSS_LEGENDRE_QUADRATURE !<Gauss-Legendre quadrature \see OPENCMISS_BasisQuadratureTypes,OPENCMISS
00641   INTEGER(INTG), PARAMETER :: CMFE_BASIS_GAUSS_LAGUERRE_QUADRATURE = BASIS_GAUSS_LAGUERRE_QUADRATURE !<Gauss-Laguerre quadrature \see OPENCMISS_BasisQuadratureTypes,OPENCMISS
00642   INTEGER(INTG), PARAMETER :: CMFE_BASIS_GUASS_HERMITE_QUADRATURE = BASIS_GUASS_HERMITE_QUADRATURE !<Gauss-Hermite quadrature \see OPENCMISS_BasisQuadratureTypes,OPENCMISS
00643   INTEGER(INTG), PARAMETER :: CMFE_BASIS_ADAPTIVE_GAUSS_LEGENDRE_QUADRATURE = BASIS_ADAPTIVE_GAUSS_LEGENDRE_QUADRATURE !<Adaptive Gauss-Legendre quadrature \see OPENCMISS_BasisQuadratureTypes,OPENCMISS
00644   INTEGER(INTG), PARAMETER :: CMFE_BASIS_GAUSS_SIMPLEX_QUADRATURE = BASIS_GAUSS_SIMPLEX_QUADRATURE !<Gauss-Legendre for Simplex elements quadrature \see OPENCMISS_BasisQuadratureTypes,OPENCMISS
00645 
00650   INTEGER(INTG), PARAMETER :: CMFE_BASIS_XI_COLLAPSED = BASIS_XI_COLLAPSED !<The Xi direction is collapsed \see OPENCMISS_BasisXiCollapse,OPENCMISS
00651   INTEGER(INTG), PARAMETER :: CMFE_BASIS_COLLAPSED_AT_XI0 = BASIS_COLLAPSED_AT_XI0 !<The Xi direction at the xi=0 end of this Xi direction is collapsed \see OPENCMISS_BasisXiCollapse,OPENCMISS
00652   INTEGER(INTG), PARAMETER :: CMFE_BASIS_COLLAPSED_AT_XI1 = BASIS_COLLAPSED_AT_XI1 !<The Xi direction at the xi=1 end of this Xi direction is collapsed \see OPENCMISS_BasisXiCollapse,OPENCMISS
00653   INTEGER(INTG), PARAMETER :: CMFE_BASIS_NOT_COLLAPSED = BASIS_NOT_COLLAPSED !<The Xi direction is not collapsed \see OPENCMISS_BasisXiCollapse,OPENCMISS
00654 
00656 
00657   !Module types
00658 
00659   !Module variables
00660 
00661   !Interfaces
00662 
00664   INTERFACE cmfe_Basis_CollapsedXiGet
00665     MODULE PROCEDURE cmfe_Basis_CollapsedXiGetNumber
00666     MODULE PROCEDURE cmfe_Basis_CollapsedXiGetObj
00667   END INTERFACE cmfe_Basis_CollapsedXiGet
00668 
00670   INTERFACE cmfe_Basis_CollapsedXiSet
00671     MODULE PROCEDURE cmfe_Basis_CollapsedXiSetNumber
00672     MODULE PROCEDURE cmfe_Basis_CollapsedXiSetObj
00673   END INTERFACE cmfe_Basis_CollapsedXiSet
00674 
00676   INTERFACE cmfe_Basis_CreateFinish
00677     MODULE PROCEDURE cmfe_Basis_CreateFinishNumber
00678     MODULE PROCEDURE cmfe_Basis_CreateFinishObj
00679   END INTERFACE cmfe_Basis_CreateFinish
00680 
00682   INTERFACE cmfe_Basis_CreateStart
00683     MODULE PROCEDURE cmfe_Basis_CreateStartNumber
00684     MODULE PROCEDURE cmfe_Basis_CreateStartObj
00685   END INTERFACE cmfe_Basis_CreateStart
00686 
00688   INTERFACE cmfe_Basis_Destroy
00689     MODULE PROCEDURE cmfe_Basis_DestroyNumber
00690     MODULE PROCEDURE cmfe_Basis_DestroyObj
00691   END INTERFACE cmfe_Basis_Destroy
00692 
00694   INTERFACE cmfe_Basis_InterpolationXiGet
00695     MODULE PROCEDURE cmfe_Basis_InterpolationXiGetNumber
00696     MODULE PROCEDURE cmfe_Basis_InterpolationXiGetObj
00697   END INTERFACE cmfe_Basis_InterpolationXiGet
00698 
00700   INTERFACE cmfe_Basis_InterpolationXiSet
00701     MODULE PROCEDURE cmfe_Basis_InterpolationXiSetNumber
00702     MODULE PROCEDURE cmfe_Basis_InterpolationXiSetObj
00703   END INTERFACE cmfe_Basis_InterpolationXiSet
00704 
00706   INTERFACE cmfe_Basis_NumberOfLocalNodesGet
00707     MODULE PROCEDURE cmfe_Basis_NumberOfLocalNodesGetNumber
00708     MODULE PROCEDURE cmfe_Basis_NumberOfLocalNodesGetObj
00709   END INTERFACE cmfe_Basis_NumberOfLocalNodesGet
00710 
00712   INTERFACE cmfe_Basis_NumberOfXiGet
00713     MODULE PROCEDURE cmfe_Basis_NumberOfXiGetNumber
00714     MODULE PROCEDURE cmfe_Basis_NumberOfXiGetObj
00715   END INTERFACE cmfe_Basis_NumberOfXiGet
00716 
00718   INTERFACE cmfe_Basis_NumberOfXiSet
00719     MODULE PROCEDURE cmfe_Basis_NumberOfXiSetNumber
00720     MODULE PROCEDURE cmfe_Basis_NumberOfXiSetObj
00721   END INTERFACE cmfe_Basis_NumberOfXiSet
00722 
00724   INTERFACE cmfe_Basis_QuadratureNumberOfGaussXiGet
00725     MODULE PROCEDURE cmfe_Basis_QuadratureNumberOfGaussXiGetNumber
00726     MODULE PROCEDURE cmfe_Basis_QuadratureNumberOfGaussXiGetObj
00727   END INTERFACE cmfe_Basis_QuadratureNumberOfGaussXiGet
00728 
00730   INTERFACE cmfe_Basis_QuadratureNumberOfGaussXiSet
00731     MODULE PROCEDURE cmfe_Basis_QuadratureNumberOfGaussXiSetNumber
00732     MODULE PROCEDURE cmfe_Basis_QuadratureNumberOfGaussXiSetObj
00733   END INTERFACE cmfe_Basis_QuadratureNumberOfGaussXiSet
00734 
00736   INTERFACE cmfe_Basis_QuadratureGaussXiGet
00737     MODULE PROCEDURE cmfe_Basis_QuadratureSingleGaussXiGetNumber
00738     MODULE PROCEDURE cmfe_Basis_QuadratureSingleGaussXiGetObj
00739     MODULE PROCEDURE cmfe_Basis_QuadratureMultipleGaussXiGetNumber
00740     MODULE PROCEDURE cmfe_Basis_QuadratureMultipleGaussXiGetObj
00741   END INTERFACE cmfe_Basis_QuadratureGaussXiGet
00742 
00744   INTERFACE cmfe_Basis_QuadratureOrderGet
00745     MODULE PROCEDURE cmfe_Basis_QuadratureOrderGetNumber
00746     MODULE PROCEDURE cmfe_Basis_QuadratureOrderGetObj
00747   END INTERFACE cmfe_Basis_QuadratureOrderGet
00748 
00750   INTERFACE cmfe_Basis_QuadratureOrderSet
00751     MODULE PROCEDURE cmfe_Basis_QuadratureOrderSetNumber
00752     MODULE PROCEDURE cmfe_Basis_QuadratureOrderSetObj
00753   END INTERFACE cmfe_Basis_QuadratureOrderSet
00754 
00756   INTERFACE cmfe_Basis_QuadratureTypeGet
00757     MODULE PROCEDURE cmfe_Basis_QuadratureTypeGetNumber
00758     MODULE PROCEDURE cmfe_Basis_QuadratureTypeGetObj
00759   END INTERFACE cmfe_Basis_QuadratureTypeGet
00760 
00762   INTERFACE cmfe_Basis_QuadratureTypeSet
00763     MODULE PROCEDURE cmfe_Basis_QuadratureTypeSetNumber
00764     MODULE PROCEDURE cmfe_Basis_QuadratureTypeSetObj
00765   END INTERFACE cmfe_Basis_QuadratureTypeSet
00766 
00768   INTERFACE cmfe_Basis_QuadratureLocalFaceGaussEvaluateSet
00769     MODULE PROCEDURE cmfe_Basis_QuadratureLocalFaceGaussEvaluateSetNumber
00770     MODULE PROCEDURE cmfe_Basis_QuadratureLocalFaceGaussEvaluateSetObj
00771   END INTERFACE cmfe_Basis_QuadratureLocalFaceGaussEvaluateSet
00772 
00774   INTERFACE cmfe_Basis_TypeGet
00775     MODULE PROCEDURE cmfe_Basis_TypeGetNumber
00776     MODULE PROCEDURE cmfe_Basis_TypeGetObj
00777   END INTERFACE cmfe_Basis_TypeGet
00778 
00780   INTERFACE cmfe_Basis_TypeSet
00781     MODULE PROCEDURE cmfe_Basis_TypeSetNumber
00782     MODULE PROCEDURE cmfe_Basis_TypeSetObj
00783   END INTERFACE cmfe_Basis_TypeSet
00784 
00785   PUBLIC CMFE_BASIS_LAGRANGE_HERMITE_TP_TYPE,CMFE_BASIS_SIMPLEX_TYPE,CMFE_BASIS_SERENDIPITY_TYPE,CMFE_BASIS_AUXILLIARY_TYPE, &
00786     & CMFE_BASIS_B_SPLINE_TP_TYPE,CMFE_BASIS_FOURIER_LAGRANGE_HERMITE_TP_TYPE,CMFE_BASIS_EXTENDED_LAGRANGE_TP_TYPE
00787 
00788   PUBLIC CMFE_BASIS_LINEAR_LAGRANGE_INTERPOLATION,CMFE_BASIS_QUADRATIC_LAGRANGE_INTERPOLATION, &
00789     & CMFE_BASIS_CUBIC_LAGRANGE_INTERPOLATION, &
00790     & CMFE_BASIS_CUBIC_HERMITE_INTERPOLATION,CMFE_BASIS_QUADRATIC1_HERMITE_INTERPOLATION, &
00791     & CMFE_BASIS_QUADRATIC2_HERMITE_INTERPOLATION, &
00792     & CMFE_BASIS_LINEAR_SIMPLEX_INTERPOLATION,CMFE_BASIS_QUADRATIC_SIMPLEX_INTERPOLATION,CMFE_BASIS_CUBIC_SIMPLEX_INTERPOLATION
00793 
00794   PUBLIC CMFE_BASIS_DEFAULT_QUADRATURE_SCHEME,CMFE_BASIS_LOW_QUADRATURE_SCHEME,CMFE_BASIS_MID_QUADRATURE_SCHEME, &
00795     & CMFE_BASIS_HIGH_QUADRATURE_SCHEME
00796 
00797   PUBLIC CMFE_BASIS_GAUSS_LEGENDRE_QUADRATURE,CMFE_BASIS_GAUSS_LAGUERRE_QUADRATURE,CMFE_BASIS_GUASS_HERMITE_QUADRATURE, &
00798     & CMFE_BASIS_ADAPTIVE_GAUSS_LEGENDRE_QUADRATURE,CMFE_BASIS_GAUSS_SIMPLEX_QUADRATURE
00799 
00800   PUBLIC CMFE_BASIS_XI_COLLAPSED,CMFE_BASIS_COLLAPSED_AT_XI0,CMFE_BASIS_COLLAPSED_AT_XI1,CMFE_BASIS_NOT_COLLAPSED
00801 
00802   PUBLIC cmfe_Basis_CollapsedXiGet,cmfe_Basis_CollapsedXiSet
00803 
00804   PUBLIC cmfe_Basis_CreateFinish,cmfe_Basis_CreateStart,cmfe_Basis_Destroy
00805 
00806   PUBLIC cmfe_Basis_InterpolationXiGet,cmfe_Basis_InterpolationXiSet
00807 
00808   PUBLIC cmfe_Basis_NumberOfLocalNodesGet
00809 
00810   PUBLIC cmfe_Basis_NumberOfXiGet,cmfe_Basis_NumberOfXiSet
00811 
00812   PUBLIC cmfe_Basis_QuadratureNumberOfGaussXiGet,cmfe_Basis_QuadratureNumberOfGaussXiSet
00813 
00814   PUBLIC cmfe_Basis_QuadratureGaussXiGet
00815 
00816   PUBLIC cmfe_Basis_QuadratureOrderGet,cmfe_Basis_QuadratureOrderSet
00817 
00818   PUBLIC cmfe_Basis_QuadratureTypeGet,cmfe_Basis_QuadratureTypeSet,cmfe_Basis_QuadratureLocalFaceGaussEvaluateSet
00819 
00820   PUBLIC cmfe_Basis_TypeGet,cmfe_Basis_TypeSet
00821 
00822 !!==================================================================================================================================
00823 !!
00824 !! BOUNDARY_CONDITIONS_ROUTINES
00825 !!
00826 !!==================================================================================================================================
00827 
00828   !Module parameters
00829 
00830 
00838   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_FREE = BOUNDARY_CONDITION_FREE !<The dof is free.
00839   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_FIXED = BOUNDARY_CONDITION_FIXED !<The dof is fixed as a boundary condition.
00840   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_FIXED_WALL = BOUNDARY_CONDITION_FIXED_WALL
00841   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_FIXED_INLET = BOUNDARY_CONDITION_FIXED_INLET
00842   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_FIXED_OUTLET = BOUNDARY_CONDITION_FIXED_OUTLET
00843   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_MOVED_WALL = BOUNDARY_CONDITION_MOVED_WALL
00844   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_MOVED_WALL_INCREMENTED = BOUNDARY_CONDITION_MOVED_WALL_INCREMENTED
00845   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_FREE_WALL = BOUNDARY_CONDITION_FREE_WALL
00846 
00847   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_NEUMANN_POINT = BOUNDARY_CONDITION_NEUMANN_POINT !<Specify the normal derivative at a node, which is then integrated to find the nodal load term
00848   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_NEUMANN_POINT_INCREMENTED = BOUNDARY_CONDITION_NEUMANN_POINT_INCREMENTED !<Specify the normal derivative at a node, which is then integrated to find the nodal load term. The value is incremented inside a load incremented control loop.
00849   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_NEUMANN_INTEGRATED = BOUNDARY_CONDITION_NEUMANN_INTEGRATED !<Set the integrated right hand side load value directly
00850   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_DIRICHLET = BOUNDARY_CONDITION_DIRICHLET
00851   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_CAUCHY = BOUNDARY_CONDITION_CAUCHY
00852   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_ROBIN = BOUNDARY_CONDITION_ROBIN
00853 
00854   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_FIXED_INCREMENTED = BOUNDARY_CONDITION_FIXED_INCREMENTED
00855   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_PRESSURE = BOUNDARY_CONDITION_PRESSURE
00856   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_PRESSURE_INCREMENTED = BOUNDARY_CONDITION_PRESSURE_INCREMENTED
00857 
00858   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_CORRECTION_MASS_INCREASE = BOUNDARY_CONDITION_CORRECTION_MASS_INCREASE
00859   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_IMPERMEABLE_WALL = BOUNDARY_CONDITION_IMPERMEABLE_WALL
00860   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_NEUMANN_INTEGRATED_ONLY = BOUNDARY_CONDITION_NEUMANN_INTEGRATED_ONLY !<A Neumann integrated boundary condition, and no point values will be integrated over a face or line that includes this dof
00861 
00862   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_FIXED_FITTED = BOUNDARY_CONDITION_FIXED_FITTED
00863   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_FIXED_NONREFLECTING = BOUNDARY_CONDITION_FIXED_NONREFLECTING
00864   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_FIXED_CELLML = BOUNDARY_CONDITION_FIXED_CELLML
00865 
00870   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_SPARSE_MATRICES = BOUNDARY_CONDITION_SPARSE_MATRICES
00871   INTEGER(INTG), PARAMETER :: CMFE_BOUNDARY_CONDITION_FULL_MATRICES = BOUNDARY_CONDITION_FULL_MATRICES
00872 
00874 
00875   !Module types
00876 
00877   !Module variables
00878 
00879   !Interfaces
00880 
00882   INTERFACE cmfe_BoundaryConditions_Destroy
00883     MODULE PROCEDURE cmfe_BoundaryConditions_DestroyNumber0
00884     MODULE PROCEDURE cmfe_BoundaryConditions_DestroyNumber1
00885     MODULE PROCEDURE cmfe_BoundaryConditions_DestroyObj
00886   END INTERFACE cmfe_BoundaryConditions_Destroy
00887 
00889   INTERFACE cmfe_BoundaryConditions_AddConstant
00890     MODULE PROCEDURE cmfe_BoundaryConditions_AddConstantNumber
00891     MODULE PROCEDURE cmfe_BoundaryConditions_AddConstantObj
00892   END INTERFACE cmfe_BoundaryConditions_AddConstant
00893 
00895   INTERFACE cmfe_BoundaryConditions_SetConstant
00896     MODULE PROCEDURE cmfe_BoundaryConditions_SetConstantNumber
00897     MODULE PROCEDURE cmfe_BoundaryConditions_SetConstantObj
00898   END INTERFACE cmfe_BoundaryConditions_SetConstant
00899 
00901   INTERFACE cmfe_BoundaryConditions_AddElement
00902     MODULE PROCEDURE cmfe_BoundaryConditions_AddElementNumber
00903     MODULE PROCEDURE cmfe_BoundaryConditions_AddElementObj
00904   END INTERFACE cmfe_BoundaryConditions_AddElement
00905 
00907   INTERFACE cmfe_BoundaryConditions_SetElement
00908     MODULE PROCEDURE cmfe_BoundaryConditions_SetElementNumber
00909     MODULE PROCEDURE cmfe_BoundaryConditions_SetElementObj
00910   END INTERFACE cmfe_BoundaryConditions_SetElement
00911 
00913   INTERFACE cmfe_BoundaryConditions_AddNode
00914     MODULE PROCEDURE cmfe_BoundaryConditions_AddNodeNumber
00915     MODULE PROCEDURE cmfe_BoundaryConditions_AddNodeObj
00916   END INTERFACE cmfe_BoundaryConditions_AddNode
00917 
00919   INTERFACE cmfe_BoundaryConditions_SetNode
00920     MODULE PROCEDURE cmfe_BoundaryConditions_SetNodeNumber0
00921     MODULE PROCEDURE cmfe_BoundaryConditions_SetNodeNumber1
00922     MODULE PROCEDURE cmfe_BoundaryConditions_SetNodeObj
00923   END INTERFACE cmfe_BoundaryConditions_SetNode
00924 
00926   INTERFACE cmfe_BoundaryConditions_NeumannSparsityTypeSet
00927     MODULE PROCEDURE cmfe_BoundaryConditions_NeumannSparsityTypeSetNumber0
00928     MODULE PROCEDURE cmfe_BoundaryConditions_NeumannSparsityTypeSetNumber1
00929     MODULE PROCEDURE cmfe_BoundaryConditions_NeumannSparsityTypeSetObj
00930   END INTERFACE cmfe_BoundaryConditions_NeumannSparsityTypeSet
00931 
00933   INTERFACE cmfe_BoundaryConditions_ConstrainNodeDofsEqual
00934     MODULE PROCEDURE cmfe_BoundaryConditions_ConstrainNodeDofsEqualNumber
00935     MODULE PROCEDURE cmfe_BoundaryConditions_ConstrainNodeDofsEqualObj
00936   END INTERFACE cmfe_BoundaryConditions_ConstrainNodeDofsEqual
00937 
00938   PUBLIC CMFE_BOUNDARY_CONDITION_FREE,CMFE_BOUNDARY_CONDITION_FIXED, &
00939     & CMFE_BOUNDARY_CONDITION_FIXED_WALL,CMFE_BOUNDARY_CONDITION_FIXED_INLET,CMFE_BOUNDARY_CONDITION_MOVED_WALL, &
00940     & CMFE_BOUNDARY_CONDITION_FREE_WALL,CMFE_BOUNDARY_CONDITION_FIXED_OUTLET,CMFE_BOUNDARY_CONDITION_MOVED_WALL_INCREMENTED, &
00941     & CMFE_BOUNDARY_CONDITION_CORRECTION_MASS_INCREASE,CMFE_BOUNDARY_CONDITION_IMPERMEABLE_WALL, &
00942     & CMFE_BOUNDARY_CONDITION_NEUMANN_INTEGRATED_ONLY,CMFE_BOUNDARY_CONDITION_FIXED_FITTED, &
00943     & CMFE_BOUNDARY_CONDITION_FIXED_NONREFLECTING,CMFE_BOUNDARY_CONDITION_FIXED_CELLML
00944 
00945   PUBLIC CMFE_BOUNDARY_CONDITION_NEUMANN_POINT,CMFE_BOUNDARY_CONDITION_NEUMANN_INTEGRATED,CMFE_BOUNDARY_CONDITION_DIRICHLET
00946   PUBLIC CMFE_BOUNDARY_CONDITION_CAUCHY,CMFE_BOUNDARY_CONDITION_ROBIN,CMFE_BOUNDARY_CONDITION_FIXED_INCREMENTED
00947   PUBLIC CMFE_BOUNDARY_CONDITION_PRESSURE,CMFE_BOUNDARY_CONDITION_PRESSURE_INCREMENTED
00948   PUBLIC CMFE_BOUNDARY_CONDITION_NEUMANN_POINT_INCREMENTED
00949 
00950   PUBLIC CMFE_BOUNDARY_CONDITION_SPARSE_MATRICES,CMFE_BOUNDARY_CONDITION_FULL_MATRICES
00951 
00952   PUBLIC cmfe_BoundaryConditions_Destroy
00953 
00954   PUBLIC cmfe_BoundaryConditions_AddConstant,cmfe_BoundaryConditions_SetConstant
00955 
00956   PUBLIC cmfe_BoundaryConditions_AddElement,cmfe_BoundaryConditions_SetElement
00957 
00958   PUBLIC cmfe_BoundaryConditions_AddNode,cmfe_BoundaryConditions_SetNode
00959 
00960   PUBLIC cmfe_BoundaryConditions_NeumannSparsityTypeSet
00961 
00962   PUBLIC cmfe_BoundaryConditions_ConstrainNodeDofsEqual
00963 
00964 !!==================================================================================================================================
00965 !!
00966 !! CMISS
00967 !!
00968 !!==================================================================================================================================
00969 
00970   !Module parameters
00978   INTEGER(INTG), PARAMETER :: CMFE_ERRORS_RETURN_ERROR_CODE = CMFE_RETURN_ERROR_CODE !<Just return the error code \see OPENCMISS_CMISSErrorHandlingModes,OPENCMISS
00979   INTEGER(INTG), PARAMETER :: CMFE_ERRORS_OUTPUT_ERROR = CMFE_OUTPUT_ERROR !<Output the error traceback and return the error code \see OPENCMISS_CMISSErrorHandlingModes,OPENCMISS
00980   INTEGER(INTG), PARAMETER :: CMFE_ERRORS_TRAP_ERROR = CMFE_TRAP_ERROR!<Trap the error by outputing the error traceback and stopping the program \see OPENCMISS_CMISSErrorHandlingModes,OPENCMISS
00981 
00983 
00984   !Module types
00985 
00986   !Module variables
00987 
00988   !Interfaces
00989 
00991   INTERFACE cmfe_ExtractErrorMessage
00992     MODULE PROCEDURE cmfe_ExtractErrorMessageC
00993     MODULE PROCEDURE cmfe_ExtractErrorMessageVS
00994   END INTERFACE cmfe_ExtractErrorMessage
00995 
00997   INTERFACE cmfe_RandomSeedsGet
00998     MODULE PROCEDURE cmfe_RandomSeedsGet0
00999     MODULE PROCEDURE cmfe_RandomSeedsGet1
01000   END INTERFACE cmfe_RandomSeedsGet
01001 
01003   INTERFACE cmfe_RandomSeedsSet
01004     MODULE PROCEDURE cmfe_RandomSeedsSet0
01005     MODULE PROCEDURE cmfe_RandomSeedsSet1
01006   END INTERFACE cmfe_RandomSeedsSet
01007 
01008   PUBLIC CMFE_ERRORS_RETURN_ERROR_CODE,CMFE_ERRORS_OUTPUT_ERROR,CMFE_ERRORS_TRAP_ERROR
01009 
01010   PUBLIC cmfe_ErrorHandlingModeGet,cmfe_ErrorHandlingModeSet
01011 
01012   PUBLIC cmfe_ExtractErrorMessage
01013 
01014   PUBLIC cmfe_RandomSeedsGet,cmfe_RandomSeedsSizeGet,cmfe_RandomSeedsSet
01015 
01016 !!==================================================================================================================================
01017 !!
01018 !! CMISS_CELLML
01019 !!
01020 !!==================================================================================================================================
01021 
01022   !Module parameters
01023 
01031   INTEGER(INTG), PARAMETER :: CMFE_CELLML_MODELS_FIELD = CELLML_MODELS_FIELD !<CellML models field type \see OPENCMISS_CellMLFieldTypes,OPENCMISS
01032   INTEGER(INTG), PARAMETER :: CMFE_CELLML_STATE_FIELD = CELLML_STATE_FIELD !<CellML state field type \see OPENCMISS_CellMLFieldTypes,OPENCMISS
01033   INTEGER(INTG), PARAMETER :: CMFE_CELLML_INTERMEDIATE_FIELD = CELLML_INTERMEDIATE_FIELD !<CellML intermediate field type \see OPENCMISS_CellMLFieldTypes,OPENCMISS
01034   INTEGER(INTG), PARAMETER :: CMFE_CELLML_PARAMETERS_FIELD = CELLML_PARAMETERS_FIELD !<CellML parameters field type \see OPENCMISS_CellMLFieldTypes,OPENCMISS
01035 
01037 
01038   !Module types
01039 
01040   !Module variables
01041 
01042   !Interfaces
01043 
01045   INTERFACE cmfe_CellML_VariableSetAsKnown
01046     MODULE PROCEDURE cmfe_CellML_VariableSetAsKnownNumberC
01047     MODULE PROCEDURE cmfe_CellML_VariableSetAsKnownObjC
01048     MODULE PROCEDURE cmfe_CellML_VariableSetAsKnownNumberVS
01049     MODULE PROCEDURE cmfe_CellML_VariableSetAsKnownObjVS
01050   END INTERFACE cmfe_CellML_VariableSetAsKnown
01051 
01053   INTERFACE cmfe_CellML_VariableSetAsWanted
01054     MODULE PROCEDURE cmfe_CellML_VariableSetAsWantedNumberC
01055     MODULE PROCEDURE cmfe_CellML_VariableSetAsWantedObjC
01056     MODULE PROCEDURE cmfe_CellML_VariableSetAsWantedNumberVS
01057     MODULE PROCEDURE cmfe_CellML_VariableSetAsWantedObjVS
01058   END INTERFACE cmfe_CellML_VariableSetAsWanted
01059 
01061   INTERFACE cmfe_CellML_CreateCellMLToFieldMap
01062     MODULE PROCEDURE cmfe_CellML_CreateCellMLToFieldMapNumberC
01063     MODULE PROCEDURE cmfe_CellML_CreateCellMLToFieldMapObjC
01064     MODULE PROCEDURE cmfe_CellML_CreateCellMLToFieldMapNumberVS
01065     MODULE PROCEDURE cmfe_CellML_CreateCellMLToFieldMapObjVS
01066   END INTERFACE cmfe_CellML_CreateCellMLToFieldMap
01067 
01069   INTERFACE cmfe_CellML_CreateFieldToCellMLMap
01070     MODULE PROCEDURE cmfe_CellML_CreateFieldToCellMLMapNumberC
01071     MODULE PROCEDURE cmfe_CellML_CreateFieldToCellMLMapObjC
01072     MODULE PROCEDURE cmfe_CellML_CreateFieldToCellMLMapNumberVS
01073     MODULE PROCEDURE cmfe_CellML_CreateFieldToCellMLMapObjVS
01074   END INTERFACE cmfe_CellML_CreateFieldToCellMLMap
01075 
01077   INTERFACE cmfe_CellML_CreateFinish
01078     MODULE PROCEDURE cmfe_CellML_CreateFinishNumber
01079     MODULE PROCEDURE cmfe_CellML_CreateFinishObj
01080   END INTERFACE cmfe_CellML_CreateFinish
01081 
01083   INTERFACE cmfe_CellML_CreateStart
01084     MODULE PROCEDURE cmfe_CellML_CreateStartNumber
01085     MODULE PROCEDURE cmfe_CellML_CreateStartObj
01086   END INTERFACE cmfe_CellML_CreateStart
01087 
01089   INTERFACE cmfe_CellML_Destroy
01090     MODULE PROCEDURE cmfe_CellML_DestroyNumber
01091     MODULE PROCEDURE cmfe_CellML_DestroyObj
01092   END INTERFACE cmfe_CellML_Destroy
01093 
01095   INTERFACE cmfe_CellML_FieldMapsCreateFinish
01096     MODULE PROCEDURE cmfe_CellML_FieldMapsCreateFinishNumber
01097     MODULE PROCEDURE cmfe_CellML_FieldMapsCreateFinishObj
01098   END INTERFACE cmfe_CellML_FieldMapsCreateFinish
01099 
01101   INTERFACE cmfe_CellML_FieldMapsCreateStart
01102     MODULE PROCEDURE cmfe_CellML_FieldMapsCreateStartNumber
01103     MODULE PROCEDURE cmfe_CellML_FieldMapsCreateStartObj
01104   END INTERFACE cmfe_CellML_FieldMapsCreateStart
01105 
01107   INTERFACE cmfe_CellML_ModelImport
01108     MODULE PROCEDURE cmfe_CellML_ModelImportNumberC
01109     MODULE PROCEDURE cmfe_CellML_ModelImportObjC
01110     MODULE PROCEDURE cmfe_CellML_ModelImportNumberVS
01111     MODULE PROCEDURE cmfe_CellML_ModelImportObjVS
01112   END INTERFACE cmfe_CellML_ModelImport
01113 
01115   INTERFACE cmfe_CellML_ModelsFieldCreateFinish
01116     MODULE PROCEDURE cmfe_CellML_ModelsFieldCreateFinishNumber
01117     MODULE PROCEDURE cmfe_CellML_ModelsFieldCreateFinishObj
01118   END INTERFACE cmfe_CellML_ModelsFieldCreateFinish
01119 
01121   INTERFACE cmfe_CellML_ModelsFieldCreateStart
01122     MODULE PROCEDURE cmfe_CellML_ModelsFieldCreateStartNumber
01123     MODULE PROCEDURE cmfe_CellML_ModelsFieldCreateStartObj
01124   END INTERFACE cmfe_CellML_ModelsFieldCreateStart
01125 
01127   INTERFACE cmfe_CellML_ModelsFieldGet
01128     MODULE PROCEDURE cmfe_CellML_ModelsFieldGetNumber
01129     MODULE PROCEDURE cmfe_CellML_ModelsFieldGetObj
01130   END INTERFACE cmfe_CellML_ModelsFieldGet
01131 
01133   INTERFACE cmfe_CellML_StateFieldCreateFinish
01134     MODULE PROCEDURE cmfe_CellML_StateFieldCreateFinishNumber
01135     MODULE PROCEDURE cmfe_CellML_StateFieldCreateFinishObj
01136   END INTERFACE cmfe_CellML_StateFieldCreateFinish
01137 
01139   INTERFACE cmfe_CellML_StateFieldCreateStart
01140     MODULE PROCEDURE cmfe_CellML_StateFieldCreateStartNumber
01141     MODULE PROCEDURE cmfe_CellML_StateFieldCreateStartObj
01142   END INTERFACE cmfe_CellML_StateFieldCreateStart
01143 
01145   INTERFACE cmfe_CellML_StateFieldGet
01146     MODULE PROCEDURE cmfe_CellML_StateFieldGetNumber
01147     MODULE PROCEDURE cmfe_CellML_StateFieldGetObj
01148   END INTERFACE cmfe_CellML_StateFieldGet
01149 
01151   INTERFACE cmfe_CellML_FieldComponentGet
01152     MODULE PROCEDURE cmfe_CellML_FieldComponentGetNumberC
01153     MODULE PROCEDURE cmfe_CellML_FieldComponentGetObjC
01154     MODULE PROCEDURE cmfe_CellML_FieldComponentGetNumberVS
01155     MODULE PROCEDURE cmfe_CellML_FieldComponentGetObjVS
01156   END INTERFACE cmfe_CellML_FieldComponentGet
01157 
01159   INTERFACE cmfe_CellML_IntermediateFieldCreateFinish
01160     MODULE PROCEDURE cmfe_CellML_IntermediateFieldCreateFinishNumber
01161     MODULE PROCEDURE cmfe_CellML_IntermediateFieldCreateFinishObj
01162   END INTERFACE cmfe_CellML_IntermediateFieldCreateFinish
01163 
01165   INTERFACE cmfe_CellML_IntermediateFieldCreateStart
01166     MODULE PROCEDURE cmfe_CellML_IntermediateFieldCreateStartNumber
01167     MODULE PROCEDURE cmfe_CellML_IntermediateFieldCreateStartObj
01168   END INTERFACE cmfe_CellML_IntermediateFieldCreateStart
01169 
01171   INTERFACE cmfe_CellML_IntermediateFieldGet
01172     MODULE PROCEDURE cmfe_CellML_IntermediateFieldGetNumber
01173     MODULE PROCEDURE cmfe_CellML_IntermediateFieldGetObj
01174   END INTERFACE cmfe_CellML_IntermediateFieldGet
01175 
01177   INTERFACE cmfe_CellML_ParametersFieldCreateFinish
01178     MODULE PROCEDURE cmfe_CellML_ParametersFieldCreateFinishNumber
01179     MODULE PROCEDURE cmfe_CellML_ParametersFieldCreateFinishObj
01180   END INTERFACE cmfe_CellML_ParametersFieldCreateFinish
01181 
01183   INTERFACE cmfe_CellML_ParametersFieldCreateStart
01184     MODULE PROCEDURE cmfe_CellML_ParametersFieldCreateStartNumber
01185     MODULE PROCEDURE cmfe_CellML_ParametersFieldCreateStartObj
01186   END INTERFACE cmfe_CellML_ParametersFieldCreateStart
01187 
01189   INTERFACE cmfe_CellML_ParametersFieldGet
01190     MODULE PROCEDURE cmfe_CellML_ParametersFieldGetNumber
01191     MODULE PROCEDURE cmfe_CellML_ParametersFieldGetObj
01192   END INTERFACE cmfe_CellML_ParametersFieldGet
01193 
01195   INTERFACE cmfe_CellML_Generate
01196     MODULE PROCEDURE cmfe_CellML_GenerateNumber
01197     MODULE PROCEDURE cmfe_CellML_GenerateObj
01198   END INTERFACE cmfe_CellML_Generate
01199 
01200   PUBLIC CMFE_CELLML_MODELS_FIELD,CMFE_CELLML_STATE_FIELD,CMFE_CELLML_INTERMEDIATE_FIELD,CMFE_CELLML_PARAMETERS_FIELD
01201 
01202   PUBLIC cmfe_CellML_VariableSetAsKnown,cmfe_CellML_VariableSetAsWanted
01203 
01204   PUBLIC cmfe_CellML_CreateCellMLToFieldMap,cmfe_CellML_CreateFieldToCellMLMap
01205 
01206   PUBLIC cmfe_CellML_CreateFinish,cmfe_CellML_CreateStart
01207 
01208   PUBLIC cmfe_CellML_Destroy
01209 
01210   PUBLIC cmfe_CellML_FieldMapsCreateStart,cmfe_CellML_FieldMapsCreateFinish
01211 
01212   PUBLIC cmfe_CellML_ModelImport
01213 
01214   PUBLIC cmfe_CellML_ModelsFieldCreateFinish,cmfe_CellML_ModelsFieldCreateStart,cmfe_CellML_ModelsFieldGet
01215 
01216   PUBLIC cmfe_CellML_StateFieldCreateFinish,cmfe_CellML_StateFieldCreateStart,cmfe_CellML_StateFieldGet
01217 
01218   PUBLIC cmfe_CellML_FieldComponentGet
01219 
01220   PUBLIC cmfe_CellML_IntermediateFieldCreateFinish,cmfe_CellML_IntermediateFieldCreateStart
01221 
01222   PUBLIC cmfe_CellML_IntermediateFieldGet
01223 
01224   PUBLIC cmfe_CellML_ParametersFieldCreateFinish,cmfe_CellML_ParametersFieldCreateStart,cmfe_CellML_ParametersFieldGet
01225 
01226   PUBLIC cmfe_CellML_Generate
01227 
01228 !!==================================================================================================================================
01229 !!
01230 !! COMP_ENVIRONMENT
01231 !!
01232 !!==================================================================================================================================
01233 
01234   !Module parameters
01235 
01236   !Module types
01237 
01238   !Module variables
01239 
01240   !Interfaces
01241 
01242   PUBLIC cmfe_ComputationalNodeNumberGet
01243 
01244   PUBLIC cmfe_ComputationalNumberOfNodesGet
01245 
01246   PUBLIC cmfe_ComputationalWorkGroup_CreateStart
01247 
01248   PUBLIC cmfe_ComputationalWorkGroup_CreateFinish
01249 
01250   PUBLIC cmfe_ComputationalWorkGroup_SubgroupAdd
01251 
01252   PUBLIC cmfe_Decomposition_WorldWorkGroupSet
01253 !!==================================================================================================================================
01254 !!
01255 !! CONSTANTS
01256 !!
01257 !!==================================================================================================================================
01258 
01259   !Module parameters
01260 
01268   INTEGER(INTG), PARAMETER :: CMFE_NO_GLOBAL_DERIV = NO_GLOBAL_DERIV !<No global derivative i.e., u \see OPENCMISS_GlobalDerivativeConstants,OPENCMISS
01269   INTEGER(INTG), PARAMETER :: CMFE_GLOBAL_DERIV_S1 = GLOBAL_DERIV_S1 !<First global derivative in the s1 direction i.e., du/ds1 \see OPENCMISS_GlobalDerivativeConstants,OPENCMISS
01270   INTEGER(INTG), PARAMETER :: CMFE_GLOBAL_DERIV_S2 = GLOBAL_DERIV_S2 !<First global derivative in the s2 direction i.e., du/ds2 \see OPENCMISS_GlobalDerivativeConstants,OPENCMISS
01271   INTEGER(INTG), PARAMETER :: CMFE_GLOBAL_DERIV_S1_S2 = GLOBAL_DERIV_S1_S2 !<Global Cross derivative in the s1 and s2 direction i.e., d^2u/ds1ds2 \see OPENCMISS_GlobalDerivativeConstants,OPENCMISS
01272   INTEGER(INTG), PARAMETER :: CMFE_GLOBAL_DERIV_S3 = GLOBAL_DERIV_S3 !<First global derivative in the s3 direction i.e., du/ds3 \see OPENCMISS_GlobalDerivativeConstants,OPENCMISS
01273   INTEGER(INTG), PARAMETER :: CMFE_GLOBAL_DERIV_S1_S3 = GLOBAL_DERIV_S1_S3 !<Global Cross derivative in the s1 and s3 direction i.e., d^2u/ds1ds3 \see OPENCMISS_GlobalDerivativeConstants,OPENCMISS
01274   INTEGER(INTG), PARAMETER :: CMFE_GLOBAL_DERIV_S2_S3 = GLOBAL_DERIV_S2_S3 !<Global Cross derivative in the s2 and s3 direction i.e., d^2u/ds2ds3 \see OPENCMISS_GlobalDerivativeConstants,OPENCMISS
01275   INTEGER(INTG), PARAMETER :: CMFE_GLOBAL_DERIV_S1_S2_S3 = GLOBAL_DERIV_S1_S2_S3 !<Cross derivative in the s1, s2 and s3 direction i.e., d^3u/ds1ds2ds3 \see OPENCMISS_GlobalDerivativeConstants,OPENCMISS
01276 
01278 
01279   !Module types
01280 
01281   !Module variables
01282 
01283   !Interfaces
01284 
01285   PUBLIC CMFE_NO_GLOBAL_DERIV,CMFE_GLOBAL_DERIV_S1,CMFE_GLOBAL_DERIV_S2,CMFE_GLOBAL_DERIV_S1_S2, &
01286     & CMFE_GLOBAL_DERIV_S3,CMFE_GLOBAL_DERIV_S1_S3,CMFE_GLOBAL_DERIV_S2_S3,CMFE_GLOBAL_DERIV_S1_S2_S3
01287 
01288 !!==================================================================================================================================
01289 !!
01290 !! CONTROL_LOOP_ROUTINES
01291 !!
01292 !!==================================================================================================================================
01293 
01294   !Module parameters
01295 
01303   INTEGER(INTG), PARAMETER :: CMFE_CONTROL_LOOP_NODE = CONTROL_LOOP_NODE !<The identifier for a each "leaf" node in a control loop. \see OPENCMISS_ControlLoopIdentifiers,OPENCMISS
01304 
01309   INTEGER(INTG), PARAMETER :: CMFE_CONTROL_LOOP_NO_OUTPUT = CONTROL_LOOP_NO_OUTPUT !<No output from the control loop. \see OPENCMISS_ControlLoopOutputTypes,OPENCMISS
01310   INTEGER(INTG), PARAMETER :: CMFE_CONTROL_LOOP_PROGRESS_OUTPUT = CONTROL_LOOP_PROGRESS_OUTPUT !<Progress output from the control loop. \see OPENCMISS_ControlLoopOutputTypes,OPENCMISS
01311   INTEGER(INTG), PARAMETER :: CMFE_CONTROL_LOOP_TIMING_OUTPUT = CONTROL_LOOP_TIMING_OUTPUT !<Timing output from the control loop. \see OPENCMISS_ControlLoopOutputTypes,OPENCMISS
01312 
01314 
01315   !Module types
01316 
01317   !Module variables
01318 
01319   !Interfaces
01320 
01322   INTERFACE cmfe_ControlLoop_CurrentTimesGet
01323     MODULE PROCEDURE cmfe_ControlLoop_CurrentTimesGetNumber0
01324     MODULE PROCEDURE cmfe_ControlLoop_CurrentTimesGetNumber1
01325     MODULE PROCEDURE cmfe_ControlLoop_CurrentTimesGetObj
01326   END INTERFACE cmfe_ControlLoop_CurrentTimesGet
01327 
01329   INTERFACE cmfe_ControlLoop_Destroy
01330     MODULE PROCEDURE cmfe_ControlLoop_DestroyNumber0
01331     MODULE PROCEDURE cmfe_ControlLoop_DestroyNumber1
01332     MODULE PROCEDURE cmfe_ControlLoop_DestroyObj
01333   END INTERFACE cmfe_ControlLoop_Destroy
01334 
01336   INTERFACE cmfe_ControlLoop_ControlLoopGet
01337     MODULE PROCEDURE cmfe_ControlLoop_ControlLoopGetNumber00
01338     MODULE PROCEDURE cmfe_ControlLoop_ControlLoopGetNumber10
01339     MODULE PROCEDURE cmfe_ControlLoop_ControlLoopGetNumber01
01340     MODULE PROCEDURE cmfe_ControlLoop_ControlLoopGetNumber11
01341     MODULE PROCEDURE cmfe_ControlLoop_ControlLoopGetObj0
01342     MODULE PROCEDURE cmfe_ControlLoop_ControlLoopGetObj1
01343   END INTERFACE cmfe_ControlLoop_ControlLoopGet
01344 
01346   INTERFACE cmfe_ControlLoop_IterationsSet
01347     MODULE PROCEDURE cmfe_ControlLoop_IterationsSetNumber0
01348     MODULE PROCEDURE cmfe_ControlLoop_IterationsSetNumber1
01349     MODULE PROCEDURE cmfe_ControlLoop_IterationsSetObj
01350   END INTERFACE cmfe_ControlLoop_IterationsSet
01351 
01353   INTERFACE cmfe_ControlLoop_LabelGet
01354     MODULE PROCEDURE cmfe_ControlLoop_LabelGetCNumber0
01355     MODULE PROCEDURE cmfe_ControlLoop_LabelGetCNumber1
01356     MODULE PROCEDURE cmfe_ControlLoop_LabelGetCObj
01357     MODULE PROCEDURE cmfe_ControlLoop_LabelGetVSNumber0
01358     MODULE PROCEDURE cmfe_ControlLoop_LabelGetVSNumber1
01359     MODULE PROCEDURE cmfe_ControlLoop_LabelGetVSObj
01360   END INTERFACE cmfe_ControlLoop_LabelGet
01361 
01363   INTERFACE cmfe_ControlLoop_LabelSet
01364     MODULE PROCEDURE cmfe_ControlLoop_LabelSetCNumber0
01365     MODULE PROCEDURE cmfe_ControlLoop_LabelSetCNumber1
01366     MODULE PROCEDURE cmfe_ControlLoop_LabelSetCObj
01367     MODULE PROCEDURE cmfe_ControlLoop_LabelSetVSNumber0
01368     MODULE PROCEDURE cmfe_ControlLoop_LabelSetVSNumber1
01369     MODULE PROCEDURE cmfe_ControlLoop_LabelSetVSObj
01370   END INTERFACE cmfe_ControlLoop_LabelSet
01371 
01373   INTERFACE cmfe_ControlLoop_MaximumIterationsSet
01374     MODULE PROCEDURE cmfe_ControlLoop_MaximumIterationsSetNumber0
01375     MODULE PROCEDURE cmfe_ControlLoop_MaximumIterationsSetNumber1
01376     MODULE PROCEDURE cmfe_ControlLoop_MaximumIterationsSetObj
01377   END INTERFACE cmfe_ControlLoop_MaximumIterationsSet
01378 
01380   INTERFACE cmfe_ControlLoop_AbsoluteToleranceSet
01381     MODULE PROCEDURE cmfe_ControlLoop_AbsoluteToleranceSetNumber0
01382     MODULE PROCEDURE cmfe_ControlLoop_AbsoluteToleranceSetNumber1
01383     MODULE PROCEDURE cmfe_ControlLoop_AbsoluteToleranceSetObj
01384   END INTERFACE cmfe_ControlLoop_AbsoluteToleranceSet
01385 
01387   INTERFACE cmfe_ControlLoop_NumberOfSubLoopsGet
01388     MODULE PROCEDURE cmfe_ControlLoop_NumberOfSubLoopsGetNumber0
01389     MODULE PROCEDURE cmfe_ControlLoop_NumberOfSubLoopsGetNumber1
01390     MODULE PROCEDURE cmfe_ControlLoop_NumberOfSubLoopsGetObj
01391   END INTERFACE cmfe_ControlLoop_NumberOfSubLoopsGet
01392 
01394   INTERFACE cmfe_ControlLoop_NumberOfSubLoopsSet
01395     MODULE PROCEDURE cmfe_ControlLoop_NumberOfSubLoopsSetNumber0
01396     MODULE PROCEDURE cmfe_ControlLoop_NumberOfSubLoopsSetNumber1
01397     MODULE PROCEDURE cmfe_ControlLoop_NumberOfSubLoopsSetObj
01398   END INTERFACE cmfe_ControlLoop_NumberOfSubLoopsSet
01399 
01401   INTERFACE cmfe_ControlLoop_TimeOutputSet
01402     MODULE PROCEDURE cmfe_ControlLoop_TimeOutputSetNumber0
01403     MODULE PROCEDURE cmfe_ControlLoop_TimeOutputSetNumber1
01404     MODULE PROCEDURE cmfe_ControlLoop_TimeOutputSetObj
01405   END INTERFACE cmfe_ControlLoop_TimeOutputSet
01406 
01408   INTERFACE cmfe_ControlLoop_OutputTypeGet
01409     MODULE PROCEDURE cmfe_ControlLoop_OutputTypeGetNumber0
01410     MODULE PROCEDURE cmfe_ControlLoop_OutputTypeGetNumber1
01411     MODULE PROCEDURE cmfe_ControlLoop_OutputTypeGetObj
01412   END INTERFACE cmfe_ControlLoop_OutputTypeGet
01413 
01415   INTERFACE cmfe_ControlLoop_OutputTypeSet
01416     MODULE PROCEDURE cmfe_ControlLoop_OutputTypeSetNumber0
01417     MODULE PROCEDURE cmfe_ControlLoop_OutputTypeSetNumber1
01418     MODULE PROCEDURE cmfe_ControlLoop_OutputTypeSetObj
01419   END INTERFACE cmfe_ControlLoop_OutputTypeSet
01420 
01422   INTERFACE cmfe_ControlLoop_TimeInputSet
01423     MODULE PROCEDURE cmfe_ControlLoop_TimeInputSetNumber0
01424     MODULE PROCEDURE cmfe_ControlLoop_TimeInputSetNumber1
01425     MODULE PROCEDURE cmfe_ControlLoop_TimeInputSetObj
01426   END INTERFACE cmfe_ControlLoop_TimeInputSet
01427 
01429   INTERFACE cmfe_ControlLoop_TimesGet
01430     MODULE PROCEDURE cmfe_ControlLoop_TimesGetNumber0
01431     MODULE PROCEDURE cmfe_ControlLoop_TimesGetNumber1
01432     MODULE PROCEDURE cmfe_ControlLoop_TimesGetObj
01433   END INTERFACE cmfe_ControlLoop_TimesGet
01434 
01436   INTERFACE cmfe_ControlLoop_TimesSet
01437     MODULE PROCEDURE cmfe_ControlLoop_TimesSetNumber0
01438     MODULE PROCEDURE cmfe_ControlLoop_TimesSetNumber1
01439     MODULE PROCEDURE cmfe_ControlLoop_TimesSetObj
01440   END INTERFACE cmfe_ControlLoop_TimesSet
01441 
01443   INTERFACE cmfe_ControlLoop_TypeSet
01444     MODULE PROCEDURE cmfe_ControlLoop_TypeSetNumber0
01445     MODULE PROCEDURE cmfe_ControlLoop_TypeSetNumber1
01446     MODULE PROCEDURE cmfe_ControlLoop_TypeSetObj
01447   END INTERFACE cmfe_ControlLoop_TypeSet
01448 
01449   PUBLIC CMFE_CONTROL_LOOP_NODE
01450 
01451   PUBLIC CMFE_CONTROL_LOOP_NO_OUTPUT,CMFE_CONTROL_LOOP_PROGRESS_OUTPUT,CMFE_CONTROL_LOOP_TIMING_OUTPUT
01452 
01453   PUBLIC cmfe_ControlLoop_CurrentTimesGet
01454 
01455   PUBLIC cmfe_ControlLoop_Destroy
01456 
01457   PUBLIC cmfe_ControlLoop_ControlLoopGet
01458 
01459   PUBLIC cmfe_ControlLoop_IterationsSet
01460 
01461   PUBLIC cmfe_ControlLoop_LabelGet,cmfe_ControlLoop_LabelSet
01462 
01463   PUBLIC cmfe_ControlLoop_MaximumIterationsSet
01464 
01465   PUBLIC cmfe_ControlLoop_AbsoluteToleranceSet
01466 
01467   PUBLIC cmfe_ControlLoop_NumberOfSubLoopsGet,cmfe_ControlLoop_NumberOfSubLoopsSet
01468 
01469   PUBLIC cmfe_ControlLoop_OutputTypeGet,cmfe_ControlLoop_OutputTypeSet
01470 
01471   PUBLIC cmfe_ControlLoop_TimeOutputSet,cmfe_ControlLoop_TimeInputSet
01472 
01473   PUBLIC cmfe_ControlLoop_TimesGet,cmfe_ControlLoop_TimesSet
01474 
01475   PUBLIC cmfe_ControlLoop_TypeSet
01476 
01477 
01478 !!==================================================================================================================================
01479 !!
01480 !! COORDINATE_ROUTINES
01481 !!
01482 !!==================================================================================================================================
01483 
01484   !Module parameters
01485 
01493   INTEGER(INTG), PARAMETER :: CMFE_COORDINATE_RECTANGULAR_CARTESIAN_TYPE = COORDINATE_RECTANGULAR_CARTESIAN_TYPE !<Rectangular Cartesian coordinate system type \see OPENCMISS_CoordinateSystemTypes,OPENCMISS
01494   INTEGER(INTG), PARAMETER :: CMFE_COORDINATE_CYLINDRICAL_POLAR_TYPE = COORDINATE_CYLINDRICAL_POLAR_TYPE !<Cylindrical polar coordinate system type \see OPENCMISS_CoordinateSystemTypes,OPENCMISS
01495   INTEGER(INTG), PARAMETER :: CMFE_COORDINATE_SPHERICAL_POLAR_TYPE = COORDINATE_SPHERICAL_POLAR_TYPE !<Spherical polar coordinate system type \see OPENCMISS_CoordinateSystemTypes,OPENCMISS
01496   INTEGER(INTG), PARAMETER :: CMFE_COORDINATE_PROLATE_SPHEROIDAL_TYPE = COORDINATE_PROLATE_SPHEROIDAL_TYPE !<Prolate spheroidal coordinate system type \see OPENCMISS_CoordinateSystemTypes,OPENCMISS
01497   INTEGER(INTG), PARAMETER :: CMFE_COORDINATE_OBLATE_SPHEROIDAL_TYPE = COORDINATE_OBLATE_SPHEROIDAL_TYPE !<Oblate spheroidal coordinate system type \see OPENCMISS_CoordinateSystemTypes,OPENCMISS
01498 
01503   INTEGER(INTG), PARAMETER :: CMFE_COORDINATE_NO_RADIAL_INTERPOLATION_TYPE = COORDINATE_NO_RADIAL_INTERPOLATION_TYPE !<No radial interpolation \see OPENCMISS_CoordinateRadialInterpolations,OPENCMISS
01504   INTEGER(INTG), PARAMETER :: CMFE_COORDINATE_RADIAL_INTERPOLATION_TYPE = COORDINATE_RADIAL_INTERPOLATION_TYPE !<r radial interpolation \see OPENCMISS_CoordinateRadialInterpolations,OPENCMISS
01505   INTEGER(INTG), PARAMETER :: CMFE_COORDINATE_RADIAL_SQUARED_INTERPOLATION_TYPE = COORDINATE_RADIAL_SQUARED_INTERPOLATION_TYPE !<r^2 radial interpolation \see OPENCMISS_CoordinateRadialInterpolations,OPENCMISS
01506   INTEGER(INTG), PARAMETER :: CMFE_COORDINATE_RADIAL_CUBED_INTERPOLATION_TYPE = COORDINATE_RADIAL_CUBED_INTERPOLATION_TYPE !<r^3 radial interpolation \see OPENCMISS_CoordinateRadialInterpolations,OPENCMISS
01507 
01509 
01510   !Module types
01511 
01512   !Module variables
01513 
01514   !Interfaces
01515 
01517   INTERFACE cmfe_CoordinateSystem_CreateFinish
01518     MODULE PROCEDURE cmfe_CoordinateSystem_CreateFinishNumber
01519     MODULE PROCEDURE cmfe_CoordinateSystem_CreateFinishObj
01520   END INTERFACE cmfe_CoordinateSystem_CreateFinish
01521 
01523   INTERFACE cmfe_CoordinateSystem_CreateStart
01524     MODULE PROCEDURE cmfe_CoordinateSystem_CreateStartNumber
01525     MODULE PROCEDURE cmfe_CoordinateSystem_CreateStartObj
01526   END INTERFACE cmfe_CoordinateSystem_CreateStart
01527 
01529   INTERFACE cmfe_CoordinateSystem_Destroy
01530     MODULE PROCEDURE cmfe_CoordinateSystem_DestroyNumber
01531     MODULE PROCEDURE cmfe_CoordinateSystem_DestroyObj
01532   END INTERFACE cmfe_CoordinateSystem_Destroy
01533 
01535   INTERFACE cmfe_CoordinateSystem_DimensionGet
01536     MODULE PROCEDURE cmfe_CoordinateSystem_DimensionGetNumber
01537     MODULE PROCEDURE cmfe_CoordinateSystem_DimensionGetObj
01538   END INTERFACE cmfe_CoordinateSystem_DimensionGet
01539 
01541   INTERFACE cmfe_CoordinateSystem_DimensionSet
01542     MODULE PROCEDURE cmfe_CoordinateSystem_DimensionSetNumber
01543     MODULE PROCEDURE cmfe_CoordinateSystem_DimensionSetObj
01544   END INTERFACE cmfe_CoordinateSystem_DimensionSet
01545 
01547   INTERFACE cmfe_CoordinateSystem_FocusGet
01548     MODULE PROCEDURE cmfe_CoordinateSystem_FocusGetNumber
01549     MODULE PROCEDURE cmfe_CoordinateSystem_FocusGetObj
01550   END INTERFACE cmfe_CoordinateSystem_FocusGet
01551 
01553   INTERFACE cmfe_CoordinateSystem_FocusSet
01554     MODULE PROCEDURE cmfe_CoordinateSystem_FocusSetNumber
01555     MODULE PROCEDURE cmfe_CoordinateSystem_FocusSetObj
01556   END INTERFACE cmfe_CoordinateSystem_FocusSet
01557 
01559   INTERFACE cmfe_CoordinateSystem_RadialInterpolationGet
01560     MODULE PROCEDURE cmfe_CoordinateSystem_RadialInterpolationGetNumber
01561     MODULE PROCEDURE cmfe_CoordinateSystem_RadialInterpolationGetObj
01562   END INTERFACE cmfe_CoordinateSystem_RadialInterpolationGet
01563 
01565   INTERFACE cmfe_CoordinateSystem_RadialInterpolationSet
01566     MODULE PROCEDURE cmfe_CoordinateSystem_RadialInterpolationSetNumber
01567     MODULE PROCEDURE cmfe_CoordinateSystem_RadialInterpolationSetObj
01568   END INTERFACE cmfe_CoordinateSystem_RadialInterpolationSet
01569 
01571   INTERFACE cmfe_CoordinateSystem_TypeGet
01572     MODULE PROCEDURE cmfe_CoordinateSystem_TypeGetNumber
01573     MODULE PROCEDURE cmfe_CoordinateSystem_TypeGetObj
01574   END INTERFACE cmfe_CoordinateSystem_TypeGet
01575 
01577   INTERFACE cmfe_CoordinateSystem_TypeSet
01578     MODULE PROCEDURE cmfe_CoordinateSystem_TypeSetNumber
01579     MODULE PROCEDURE cmfe_CoordinateSystem_TypeSetObj
01580   END INTERFACE cmfe_CoordinateSystem_TypeSet
01581 
01583   INTERFACE cmfe_CoordinateSystem_OriginGet
01584     MODULE PROCEDURE cmfe_CoordinateSystem_OriginGetNumber
01585     MODULE PROCEDURE cmfe_CoordinateSystem_OriginGetObj
01586   END INTERFACE cmfe_CoordinateSystem_OriginGet
01587 
01589   INTERFACE cmfe_CoordinateSystem_OriginSet
01590     MODULE PROCEDURE cmfe_CoordinateSystem_OriginSetNumber
01591     MODULE PROCEDURE cmfe_CoordinateSystem_OriginSetObj
01592   END INTERFACE cmfe_CoordinateSystem_OriginSet
01593 
01595   INTERFACE cmfe_CoordinateSystem_OrientationGet
01596     MODULE PROCEDURE cmfe_CoordinateSystem_OrientationGetNumber
01597     MODULE PROCEDURE cmfe_CoordinateSystem_OrientationGetObj
01598   END INTERFACE cmfe_CoordinateSystem_OrientationGet
01599 
01601   INTERFACE cmfe_CoordinateSystem_OrientationSet
01602     MODULE PROCEDURE cmfe_CoordinateSystem_OrientationSetNumber
01603     MODULE PROCEDURE cmfe_CoordinateSystem_OrientationSetObj
01604   END INTERFACE cmfe_CoordinateSystem_OrientationSet
01605 
01606   PUBLIC CMFE_COORDINATE_RECTANGULAR_CARTESIAN_TYPE,CMFE_COORDINATE_CYLINDRICAL_POLAR_TYPE, &
01607     & CMFE_COORDINATE_SPHERICAL_POLAR_TYPE, &
01608     & CMFE_COORDINATE_PROLATE_SPHEROIDAL_TYPE,CMFE_COORDINATE_OBLATE_SPHEROIDAL_TYPE
01609 
01610   PUBLIC CMFE_COORDINATE_NO_RADIAL_INTERPOLATION_TYPE,CMFE_COORDINATE_RADIAL_INTERPOLATION_TYPE, &
01611     & CMFE_COORDINATE_RADIAL_SQUARED_INTERPOLATION_TYPE,CMFE_COORDINATE_RADIAL_CUBED_INTERPOLATION_TYPE
01612 
01613   PUBLIC cmfe_CoordinateSystem_CreateFinish,cmfe_CoordinateSystem_CreateStart
01614 
01615   PUBLIC cmfe_CoordinateSystem_Destroy
01616 
01617   PUBLIC cmfe_CoordinateSystem_DimensionGet,cmfe_CoordinateSystem_DimensionSet
01618 
01619   PUBLIC cmfe_CoordinateSystem_FocusGet,cmfe_CoordinateSystem_FocusSet
01620 
01621   PUBLIC cmfe_CoordinateSystem_RadialInterpolationGet,cmfe_CoordinateSystem_RadialInterpolationSet
01622 
01623   PUBLIC cmfe_CoordinateSystem_TypeGet,cmfe_CoordinateSystem_TypeSet
01624 
01625   PUBLIC cmfe_CoordinateSystem_OriginGet,cmfe_CoordinateSystem_OriginSet
01626 
01627   PUBLIC cmfe_CoordinateSystem_OrientationGet,cmfe_CoordinateSystem_OrientationSet
01628 
01629 !!==================================================================================================================================
01630 !!
01631 !! DATA_POINT_ROUTINES
01632 !!
01633 !!==================================================================================================================================
01634 
01635   !Module parameters
01636 
01637   !Module types
01638 
01639   !Module variables
01640 
01641   !Interfaces
01642 
01644   INTERFACE cmfe_DataPoints_CreateFinish
01645     MODULE PROCEDURE cmfe_DataPoints_CreateFinishNumber
01646     MODULE PROCEDURE cmfe_DataPoints_CreateFinishObj
01647   END INTERFACE cmfe_DataPoints_CreateFinish
01648 
01650   INTERFACE cmfe_DataPoints_CreateStart
01651     MODULE PROCEDURE cmfe_DataPoints_CreateStartNumber
01652     MODULE PROCEDURE cmfe_DataPoints_CreateStartObj
01653     MODULE PROCEDURE cmfe_DataPoints_CreateStartInterfaceObj
01654   END INTERFACE cmfe_DataPoints_CreateStart
01655 
01657   INTERFACE cmfe_DataPoints_Destroy
01658     MODULE PROCEDURE cmfe_DataPoints_DestroyNumber
01659     MODULE PROCEDURE cmfe_DataPoints_DestroyObj
01660   END INTERFACE cmfe_DataPoints_Destroy
01661 
01663   INTERFACE cmfe_DataPoints_NumberOfDataPointsGet
01664     MODULE PROCEDURE cmfe_DataPoints_NumberOfDataPointsGetNumber
01665     MODULE PROCEDURE cmfe_DataPoints_NumberOfDataPointsGetObj
01666   END INTERFACE cmfe_DataPoints_NumberOfDataPointsGet
01667 
01669   INTERFACE cmfe_DataPoints_LabelGet
01670     MODULE PROCEDURE cmfe_DataPoints_LabelGetCNumber
01671     MODULE PROCEDURE cmfe_DataPoints_LabelGetCObj
01672     MODULE PROCEDURE cmfe_DataPoints_LabelGetVSNumber
01673     MODULE PROCEDURE cmfe_DataPoints_LabelGetVSObj
01674   END INTERFACE cmfe_DataPoints_LabelGet
01675 
01677   INTERFACE cmfe_DataPoints_LabelSet
01678     MODULE PROCEDURE cmfe_DataPoints_LabelSetCNumber
01679     MODULE PROCEDURE cmfe_DataPoints_LabelSetCObj
01680     MODULE PROCEDURE cmfe_DataPoints_LabelSetVSNumber
01681     MODULE PROCEDURE cmfe_DataPoints_LabelSetVSObj
01682   END INTERFACE cmfe_DataPoints_LabelSet
01683 
01685   INTERFACE cmfe_DataPoints_UserNumberGet
01686     MODULE PROCEDURE cmfe_DataPoints_UserNumberGetNumber
01687     MODULE PROCEDURE cmfe_DataPoints_UserNumberGetObj
01688   END INTERFACE cmfe_DataPoints_UserNumberGet
01689 
01691   INTERFACE cmfe_DataPoints_UserNumberSet
01692     MODULE PROCEDURE cmfe_DataPoints_UserNumberSetNumber
01693     MODULE PROCEDURE cmfe_DataPoints_UserNumberSetObj
01694   END INTERFACE cmfe_DataPoints_UserNumberSet
01695 
01697   INTERFACE cmfe_DataPoints_ValuesGet
01698     MODULE PROCEDURE cmfe_DataPoints_ValuesGetNumber
01699     MODULE PROCEDURE cmfe_DataPoints_ValuesGetObj
01700   END INTERFACE cmfe_DataPoints_ValuesGet
01701 
01703   INTERFACE cmfe_DataPoints_ValuesSet
01704     MODULE PROCEDURE cmfe_DataPoints_ValuesSetNumber
01705     MODULE PROCEDURE cmfe_DataPoints_ValuesSetObj
01706   END INTERFACE cmfe_DataPoints_ValuesSet
01707 
01709   INTERFACE cmfe_DataPoints_WeightsGet
01710     MODULE PROCEDURE cmfe_DataPoints_WeightsGetNumber
01711     MODULE PROCEDURE cmfe_DataPoints_WeightsGetObj
01712   END INTERFACE cmfe_DataPoints_WeightsGet
01713 
01715   INTERFACE cmfe_DataPoints_WeightsSet
01716     MODULE PROCEDURE cmfe_DataPoints_WeightsSetNumber
01717     MODULE PROCEDURE cmfe_DataPoints_WeightsSetObj
01718   END INTERFACE cmfe_DataPoints_WeightsSet
01719 
01720   PUBLIC cmfe_DataPoints_CreateFinish,cmfe_DataPoints_CreateStart
01721 
01722   PUBLIC cmfe_DataPoints_Destroy
01723 
01724   PUBLIC cmfe_DataPoints_NumberOfDataPointsGet
01725 
01726   PUBLIC cmfe_DataPoints_LabelGet,cmfe_DataPoints_LabelSet
01727 
01728   PUBLIC cmfe_DataPoints_UserNumberGet,cmfe_DataPoints_UserNumberSet
01729 
01730   PUBLIC cmfe_DataPoints_ValuesGet,cmfe_DataPoints_ValuesSet
01731 
01732   PUBLIC cmfe_DataPoints_WeightsGet,cmfe_DataPoints_WeightsSet
01733 
01734 !!==================================================================================================================================
01735 !!
01736 !! DATA_PROJECTION_ROUTINES
01737 !!
01738 !!==================================================================================================================================
01739 
01740   !Module parameters
01741 
01749   INTEGER(INTG), PARAMETER :: CMFE_DATA_PROJECTION_BOUNDARY_LINES_PROJECTION_TYPE = DATA_PROJECTION_BOUNDARY_LINES_PROJECTION_TYPE!<The boundary line projection type for data projection, only projects to boundary lines of the mesh. \see OPENCMISS_DataProjectionProjectionTypes,OPENCMISS
01750   INTEGER(INTG), PARAMETER :: CMFE_DATA_PROJECTION_BOUNDARY_FACES_PROJECTION_TYPE = DATA_PROJECTION_BOUNDARY_FACES_PROJECTION_TYPE!<The boundary face projection type for data projection, only projects to boundary faces of the mesh. \see OPENCMISS_DataProjectionProjectionTypes,OPENCMISS
01751   INTEGER(INTG), PARAMETER :: CMFE_DATA_PROJECTION_ALL_ELEMENTS_PROJECTION_TYPE = DATA_PROJECTION_ALL_ELEMENTS_PROJECTION_TYPE !<The element projection type for data projection, projects to all elements in mesh. \see OPENCMISS_DataProjectionProjectionTypes,OPENCMISS
01752 
01754 
01755   !Module types
01756 
01757   !Module variables
01758 
01759   !Interfaces
01760 
01762   INTERFACE cmfe_DataProjection_AbsoluteToleranceGet
01763     MODULE PROCEDURE cmfe_DataProjection_AbsoluteToleranceGetNumber
01764     MODULE PROCEDURE cmfe_DataProjection_AbsoluteToleranceGetObj
01765   END INTERFACE cmfe_DataProjection_AbsoluteToleranceGet
01766 
01768   INTERFACE cmfe_DataProjection_AbsoluteToleranceSet
01769     MODULE PROCEDURE cmfe_DataProjection_AbsoluteToleranceSetNumber
01770     MODULE PROCEDURE cmfe_DataProjection_AbsoluteToleranceSetObj
01771   END INTERFACE cmfe_DataProjection_AbsoluteToleranceSet
01772 
01774   INTERFACE cmfe_DataProjection_CreateFinish
01775     MODULE PROCEDURE cmfe_DataProjection_CreateFinishNumber
01776     MODULE PROCEDURE cmfe_DataProjection_CreateFinishObj
01777   END INTERFACE cmfe_DataProjection_CreateFinish
01778 
01780   INTERFACE cmfe_DataProjection_CreateStart
01781     MODULE PROCEDURE cmfe_DataProjection_CreateStartNumber
01782     MODULE PROCEDURE cmfe_DataProjection_CreateStartObj
01783   END INTERFACE cmfe_DataProjection_CreateStart
01784 
01786   INTERFACE cmfe_DataProjection_Destroy
01787     MODULE PROCEDURE cmfe_DataProjection_DestroyNumber
01788     MODULE PROCEDURE cmfe_DataProjection_DestroyObj
01789   END INTERFACE cmfe_DataProjection_Destroy
01790   
01792   INTERFACE cmfe_DataProjection_DataPointsPositionEvaluate
01793     MODULE PROCEDURE cmfe_DataProjection_DataPointsPositionEvaluateRegionNumber
01794     MODULE PROCEDURE cmfe_DataProjection_DataPointsPositionEvaluateInterfaceNumber
01795     MODULE PROCEDURE cmfe_DataProjection_DataPointsPositionEvaluateObj
01796   END INTERFACE cmfe_DataProjection_DataPointsPositionEvaluate
01797 
01799   INTERFACE cmfe_DataProjection_DataPointsProjectionEvaluate
01800     MODULE PROCEDURE cmfe_DataProjection_DataPointsProjectionEvaluateNumber
01801     MODULE PROCEDURE cmfe_DataProjection_DataPointsProjectionEvaluateObj
01802   END INTERFACE cmfe_DataProjection_DataPointsProjectionEvaluate
01803 
01805   INTERFACE cmfe_DataProjection_MaximumIterationUpdateGet
01806     MODULE PROCEDURE cmfe_DataProjection_MaximumIterationUpdateGetNumber
01807     MODULE PROCEDURE cmfe_DataProjection_MaximumIterationUpdateGetObj
01808   END INTERFACE cmfe_DataProjection_MaximumIterationUpdateGet
01809 
01811   INTERFACE cmfe_DataProjection_MaximumIterationUpdateSet
01812     MODULE PROCEDURE cmfe_DataProjection_MaximumIterationUpdateSetNumber
01813     MODULE PROCEDURE cmfe_DataProjection_MaximumIterationUpdateSetObj
01814   END INTERFACE cmfe_DataProjection_MaximumIterationUpdateSet
01815 
01817   INTERFACE cmfe_DataProjection_MaximumNumberOfIterationsGet
01818     MODULE PROCEDURE cmfe_DataProjection_MaximumNumberOfIterationsGetNumber
01819     MODULE PROCEDURE cmfe_DataProjection_MaximumNumberOfIterationsGetObj
01820   END INTERFACE cmfe_DataProjection_MaximumNumberOfIterationsGet
01821 
01823   INTERFACE cmfe_DataProjection_MaximumNumberOfIterationsSet
01824     MODULE PROCEDURE cmfe_DataProjection_MaximumNumberOfIterationsSetNumber
01825     MODULE PROCEDURE cmfe_DataProjection_MaximumNumberOfIterationsSetObj
01826   END INTERFACE cmfe_DataProjection_MaximumNumberOfIterationsSet
01827 
01829   INTERFACE cmfe_DataProjection_NumberOfClosestElementsGet
01830     MODULE PROCEDURE cmfe_DataProjection_NumberOfClosestElementsGetNumber
01831     MODULE PROCEDURE cmfe_DataProjection_NumberOfClosestElementsGetObj
01832   END INTERFACE cmfe_DataProjection_NumberOfClosestElementsGet
01833 
01835   INTERFACE cmfe_DataProjection_NumberOfClosestElementsSet
01836     MODULE PROCEDURE cmfe_DataProjection_NumberOfClosestElementsSetNumber
01837     MODULE PROCEDURE cmfe_DataProjection_NumberOfClosestElementsSetObj
01838   END INTERFACE cmfe_DataProjection_NumberOfClosestElementsSet
01839   
01841   INTERFACE cmfe_DataProjection_ProjectionCandidatesSet
01842     MODULE PROCEDURE cmfe_DataProjection_ProjectionCandidatesSetRegionNumber
01843     MODULE PROCEDURE cmfe_DataProjection_ProjectionCandidatesSetInterfaceNumber
01844     MODULE PROCEDURE cmfe_DataProjection_ProjectionCandidatesSetObj
01845   END INTERFACE cmfe_DataProjection_ProjectionCandidatesSet
01846 
01848   INTERFACE cmfe_DataProjection_ProjectionTypeGet
01849     MODULE PROCEDURE cmfe_DataProjection_ProjectionTypeGetNumber
01850     MODULE PROCEDURE cmfe_DataProjection_ProjectionTypeGetObj
01851   END INTERFACE cmfe_DataProjection_ProjectionTypeGet
01852 
01854   INTERFACE cmfe_DataProjection_ProjectionTypeSet
01855     MODULE PROCEDURE cmfe_DataProjection_ProjectionTypeSetNumber
01856     MODULE PROCEDURE cmfe_DataProjection_ProjectionTypeSetObj
01857   END INTERFACE cmfe_DataProjection_ProjectionTypeSet
01858 
01860   INTERFACE cmfe_DataProjection_RelativeToleranceGet
01861     MODULE PROCEDURE cmfe_DataProjection_RelativeToleranceGetNumber
01862     MODULE PROCEDURE cmfe_DataProjection_RelativeToleranceGetObj
01863   END INTERFACE cmfe_DataProjection_RelativeToleranceGet
01864 
01866   INTERFACE cmfe_DataProjection_RelativeToleranceSet
01867     MODULE PROCEDURE cmfe_DataProjection_RelativeToleranceSetNumber
01868     MODULE PROCEDURE cmfe_DataProjection_RelativeToleranceSetObj
01869   END INTERFACE cmfe_DataProjection_RelativeToleranceSet
01870 
01872   INTERFACE cmfe_DataProjection_StartingXiGet
01873     MODULE PROCEDURE cmfe_DataProjection_StartingXiGetNumber
01874     MODULE PROCEDURE cmfe_DataProjection_StartingXiGetObj
01875   END INTERFACE cmfe_DataProjection_StartingXiGet
01876 
01878   INTERFACE cmfe_DataProjection_StartingXiSet
01879     MODULE PROCEDURE cmfe_DataProjection_StartingXiSetNumber
01880     MODULE PROCEDURE cmfe_DataProjection_StartingXiSetObj
01881   END INTERFACE cmfe_DataProjection_StartingXiSet
01882 
01884   INTERFACE cmfe_DataProjection_ElementSet
01885     MODULE PROCEDURE cmfe_DataProjection_ElementSetRegionNumber
01886     MODULE PROCEDURE cmfe_DataProjection_ElementSetInterfaceNumber
01887     MODULE PROCEDURE cmfe_DataProjection_ElementSetObj
01888   END INTERFACE cmfe_DataProjection_ElementSet
01889 
01891   INTERFACE cmfe_DataProjection_LabelGet
01892     MODULE PROCEDURE cmfe_DataProjection_LabelGetCRegionNumber
01893     MODULE PROCEDURE cmfe_DataProjection_LabelGetCInterfaceNumber
01894     MODULE PROCEDURE cmfe_DataProjection_LabelGetCObj
01895     MODULE PROCEDURE cmfe_DataProjection_LabelGetVSRegionNumber
01896     MODULE PROCEDURE cmfe_DataProjection_LabelGetVSInterfaceNumber
01897     MODULE PROCEDURE cmfe_DataProjection_LabelGetVSObj
01898   END INTERFACE cmfe_DataProjection_LabelGet
01899 
01901   INTERFACE cmfe_DataProjection_LabelSet
01902     MODULE PROCEDURE cmfe_DataProjection_LabelSetCRegionNumber
01903     MODULE PROCEDURE cmfe_DataProjection_LabelSetCInterfaceNumber
01904     MODULE PROCEDURE cmfe_DataProjection_LabelSetCObj
01905     MODULE PROCEDURE cmfe_DataProjection_LabelSetVSRegionNumber
01906     MODULE PROCEDURE cmfe_DataProjection_LabelSetVSInterfaceNumber
01907     MODULE PROCEDURE cmfe_DataProjection_LabelSetVSObj
01908   END INTERFACE cmfe_DataProjection_LabelSet
01909 
01911   INTERFACE cmfe_DataProjection_ResultDistanceGet
01912     MODULE PROCEDURE cmfe_DataProjection_ResultDistanceGetNumber
01913     MODULE PROCEDURE cmfe_DataProjection_ResultDistanceGetObj
01914   END INTERFACE cmfe_DataProjection_ResultDistanceGet
01915 
01917   INTERFACE cmfe_DataProjection_ResultElementNumberGet
01918     MODULE PROCEDURE cmfe_DataProjection_ResultElementNumberGetNumber
01919     MODULE PROCEDURE cmfe_DataProjection_ResultElementNumberGetObj
01920   END INTERFACE cmfe_DataProjection_ResultElementNumberGet
01921 
01923   INTERFACE cmfe_DataProjection_ResultElementFaceNumberGet
01924     MODULE PROCEDURE cmfe_DataProjection_ResultElementFaceNumberGetNumber
01925     MODULE PROCEDURE cmfe_DataProjection_ResultElementFaceNumberGetObj
01926   END INTERFACE cmfe_DataProjection_ResultElementFaceNumberGet
01927 
01929   INTERFACE cmfe_DataProjection_ResultElementLineNumberGet
01930     MODULE PROCEDURE cmfe_DataProjection_ResultElementLineNumberGetNumber
01931     MODULE PROCEDURE cmfe_DataProjection_ResultElementLineNumberGetObj
01932   END INTERFACE cmfe_DataProjection_ResultElementLineNumberGet
01933 
01935   INTERFACE cmfe_DataProjection_ResultExitTagGet
01936     MODULE PROCEDURE cmfe_DataProjection_ResultExitTagGetNumber
01937     MODULE PROCEDURE cmfe_DataProjection_ResultExitTagGetObj
01938   END INTERFACE cmfe_DataProjection_ResultExitTagGet
01939 
01941   INTERFACE cmfe_DataProjection_ResultXiGet
01942     MODULE PROCEDURE cmfe_DataProjection_ResultXiGetNumber
01943     MODULE PROCEDURE cmfe_DataProjection_ResultXiGetObj
01944   END INTERFACE cmfe_DataProjection_ResultXiGet
01945 
01947   INTERFACE cmfe_DataProjection_ResultXiSet
01948     MODULE PROCEDURE cmfe_DataProjection_ResultXiSetNumber
01949     MODULE PROCEDURE cmfe_DataProjection_ResultXiSetObj
01950   END INTERFACE cmfe_DataProjection_ResultXiSet
01951 
01952   PUBLIC CMFE_DATA_PROJECTION_BOUNDARY_LINES_PROJECTION_TYPE,CMFE_DATA_PROJECTION_BOUNDARY_FACES_PROJECTION_TYPE
01953 
01954   PUBLIC CMFE_DATA_PROJECTION_ALL_ELEMENTS_PROJECTION_TYPE
01955 
01956   PUBLIC cmfe_DataProjection_AbsoluteToleranceGet,cmfe_DataProjection_AbsoluteToleranceSet
01957 
01958   PUBLIC cmfe_DataProjection_CreateFinish,cmfe_DataProjection_CreateStart
01959 
01960   PUBLIC cmfe_DataProjection_Destroy
01961   
01962   PUBLIC cmfe_DataProjection_DataPointsPositionEvaluate
01963   
01964   PUBLIC cmfe_DataProjection_ProjectionCandidatesSet
01965 
01966   PUBLIC cmfe_DataProjection_DataPointsProjectionEvaluate
01967 
01968   PUBLIC cmfe_DataProjection_MaximumIterationUpdateGet,cmfe_DataProjection_MaximumIterationUpdateSet
01969 
01970   PUBLIC cmfe_DataProjection_MaximumNumberOfIterationsGet,cmfe_DataProjection_MaximumNumberOfIterationsSet
01971 
01972   PUBLIC cmfe_DataProjection_NumberOfClosestElementsGet,cmfe_DataProjection_NumberOfClosestElementsSet
01973 
01974   PUBLIC cmfe_DataProjection_ProjectionTypeGet,cmfe_DataProjection_ProjectionTypeSet
01975 
01976   PUBLIC cmfe_DataProjection_RelativeToleranceGet,cmfe_DataProjection_RelativeToleranceSet
01977 
01978   PUBLIC cmfe_DataProjection_StartingXiGet,cmfe_DataProjection_StartingXiSet
01979 
01980   PUBLIC cmfe_DataProjection_ElementSet
01981 
01982   PUBLIC cmfe_DataProjection_LabelGet,cmfe_DataProjection_LabelSet
01983 
01984   PUBLIC cmfe_DataProjection_ResultDistanceGet,cmfe_DataProjection_ResultElementNumberGet
01985 
01986   PUBLIC cmfe_DataProjection_ResultElementFaceNumberGet,cmfe_DataProjection_ResultElementLineNumberGet
01987 
01988   PUBLIC cmfe_DataProjection_ResultExitTagGet
01989 
01990   PUBLIC cmfe_DataProjection_ResultXiGet,cmfe_DataProjection_ResultXiSet
01991 
01992 !!==================================================================================================================================
01993 !!
01994 !! EQUATIONS_ROUTINES
01995 !!
01996 !!==================================================================================================================================
01997 
01998   !Module parameters
01999 
02007   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_NO_OUTPUT = EQUATIONS_NO_OUTPUT!<No output from the equations \see OPENCMISS_EquationsOutputTypes,OPENCMISS
02008   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_TIMING_OUTPUT = EQUATIONS_TIMING_OUTPUT !<Timing information output. \see OPENCMISS_EquationsOutputTypes,OPENCMISS
02009   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_MATRIX_OUTPUT = EQUATIONS_MATRIX_OUTPUT !<All below and equation matrices output. \see OPENCMISS_EquationsOutputTypes,OPENCMISS
02010   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_ELEMENT_MATRIX_OUTPUT = EQUATIONS_ELEMENT_MATRIX_OUTPUT !<All below and element matrices output. \see OPENCMISS_EquationsOutputTypes,OPENCMISS
02011   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_NODAL_MATRIX_OUTPUT = EQUATIONS_NODAL_MATRIX_OUTPUT !<All below and nodal matrices output. \see OPENCMISS_EquationsOutputTypes,OPENCMISS
02012 
02017   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SPARSE_MATRICES = EQUATIONS_SPARSE_MATRICES !<Use sparse matrices for the equations. \see OPENCMISS_EquationsSparsityTypes,OPENCMISS
02018   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_FULL_MATRICES = EQUATIONS_FULL_MATRICES !<Use fully populated matrices for the equations. \see OPENCMISS_EquationsSparsityTypes,OPENCMISS
02019 
02024   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_UNLUMPED_MATRICES = EQUATIONS_UNLUMPED_MATRICES !<The equations matrices are not lumped. \see OPENCMISS_EquationsLumpingTypes,OPENCMISS
02025   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_LUMPED_MATRICES = EQUATIONS_LUMPED_MATRICES !<The equations matrices are "mass" lumped. \see OPENCMISS_EquationsLumpingTypes,OPENCMISS
02026 
02031   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_LINEAR = EQUATIONS_LINEAR !<The equations are linear. \see OPENCMISS_EquationsLinearityTypes,OPENCMISS
02032   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_NONLINEAR = EQUATIONS_NONLINEAR !<The equations are non-linear. \see \see OPENCMISS_EquationsLinearityTypes,OPENCMISS
02033   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_NONLINEAR_BCS = EQUATIONS_NONLINEAR_BCS !<The equations have non-linear boundary conditions. \see \see OPENCMISS_EquationsLinearityTypes,OPENCMISS
02034 
02039   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_STATIC = EQUATIONS_STATIC !<The equations are static and have no time dependence. \see OPENCMISS_EquationsTimeDependenceTypes,OPENCMISS
02040   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_QUASISTATIC = EQUATIONS_QUASISTATIC !<The equations are quasi-static. \see OPENCMISS_EquationsTimeDependenceTypes,OPENCMISS
02041   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_FIRST_ORDER_DYNAMIC = EQUATIONS_FIRST_ORDER_DYNAMIC !<The equations are first order dynamic. \see OPENCMISS_EquationsTimeDependenceTypes,OPENCMISS
02042   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SECOND_ORDER_DYNAMIC = EQUATIONS_SECOND_ORDER_DYNAMIC !<The equations are a second order dynamic. \see OPENCMISS_EquationsTimeDependenceTypes,OPENCMISS
02043   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_TIME_STEPPING = EQUATIONS_TIME_STEPPING !<The equations are for time stepping. \see OPENCMISS_EquationsTimeDependenceTypes,OPENCMISS
02044 
02046 
02047   !Module types
02048 
02049   !Module variables
02050 
02051   !Interfaces
02052 
02054   INTERFACE cmfe_Equations_Destroy
02055     MODULE PROCEDURE cmfe_Equations_DestroyNumber
02056     MODULE PROCEDURE cmfe_Equations_DestroyObj
02057   END INTERFACE cmfe_Equations_Destroy
02058 
02060   INTERFACE cmfe_Equations_LinearityTypeGet
02061     MODULE PROCEDURE cmfe_Equations_LinearityTypeGetNumber
02062     MODULE PROCEDURE cmfe_Equations_LinearityTypeGetObj
02063   END INTERFACE cmfe_Equations_LinearityTypeGet
02064 
02066   INTERFACE cmfe_Equations_LumpingTypeGet
02067     MODULE PROCEDURE cmfe_Equations_LumpingTypeGetNumber
02068     MODULE PROCEDURE cmfe_Equations_LumpingTypeGetObj
02069   END INTERFACE cmfe_Equations_LumpingTypeGet
02070 
02072   INTERFACE cmfe_Equations_LumpingTypeSet
02073     MODULE PROCEDURE cmfe_Equations_LumpingTypeSetNumber
02074     MODULE PROCEDURE cmfe_Equations_LumpingTypeSetObj
02075   END INTERFACE cmfe_Equations_LumpingTypeSet
02076 
02078   INTERFACE cmfe_Equations_OutputTypeGet
02079     MODULE PROCEDURE cmfe_Equations_OutputTypeGetNumber
02080     MODULE PROCEDURE cmfe_Equations_OutputTypeGetObj
02081   END INTERFACE cmfe_Equations_OutputTypeGet
02082 
02084   INTERFACE cmfe_Equations_OutputTypeSet
02085     MODULE PROCEDURE cmfe_Equations_OutputTypeSetNumber
02086     MODULE PROCEDURE cmfe_Equations_OutputTypeSetObj
02087   END INTERFACE cmfe_Equations_OutputTypeSet
02088 
02090   INTERFACE cmfe_Equations_SparsityTypeGet
02091     MODULE PROCEDURE cmfe_Equations_SparsityTypeGetNumber
02092     MODULE PROCEDURE cmfe_Equations_SparsityTypeGetObj
02093   END INTERFACE cmfe_Equations_SparsityTypeGet
02094 
02096   INTERFACE cmfe_Equations_SparsityTypeSet
02097     MODULE PROCEDURE cmfe_Equations_SparsityTypeSetNumber
02098     MODULE PROCEDURE cmfe_Equations_SparsityTypeSetObj
02099   END INTERFACE cmfe_Equations_SparsityTypeSet
02100 
02102   INTERFACE cmfe_Equations_TimeDependenceTypeGet
02103     MODULE PROCEDURE cmfe_Equations_TimeDependenceTypeGetNumber
02104     MODULE PROCEDURE cmfe_Equations_TimeDependenceTypeGetObj
02105   END INTERFACE cmfe_Equations_TimeDependenceTypeGet
02106 
02107   PUBLIC CMFE_EQUATIONS_NO_OUTPUT,CMFE_EQUATIONS_TIMING_OUTPUT,CMFE_EQUATIONS_MATRIX_OUTPUT
02108 
02109   PUBLIC CMFE_EQUATIONS_ELEMENT_MATRIX_OUTPUT,CMFE_EQUATIONS_NODAL_MATRIX_OUTPUT
02110 
02111   PUBLIC CMFE_EQUATIONS_SPARSE_MATRICES,CMFE_EQUATIONS_FULL_MATRICES
02112 
02113   PUBLIC CMFE_EQUATIONS_UNLUMPED_MATRICES,CMFE_EQUATIONS_LUMPED_MATRICES
02114 
02115   PUBLIC CMFE_EQUATIONS_LINEAR,CMFE_EQUATIONS_NONLINEAR,CMFE_EQUATIONS_NONLINEAR_BCS
02116 
02117   PUBLIC CMFE_EQUATIONS_STATIC,CMFE_EQUATIONS_QUASISTATIC,CMFE_EQUATIONS_FIRST_ORDER_DYNAMIC, &
02118     & CMFE_EQUATIONS_SECOND_ORDER_DYNAMIC, &
02119     & CMFE_EQUATIONS_TIME_STEPPING
02120 
02121   PUBLIC cmfe_Equations_Destroy
02122 
02123   PUBLIC cmfe_Equations_LinearityTypeGet
02124 
02125   PUBLIC cmfe_Equations_LumpingTypeGet,cmfe_Equations_LumpingTypeSet
02126 
02127   PUBLIC cmfe_Equations_OutputTypeGet,cmfe_Equations_OutputTypeSet
02128 
02129   PUBLIC cmfe_Equations_SparsityTypeGet,cmfe_Equations_SparsityTypeSet
02130 
02131   PUBLIC cmfe_Equations_TimeDependenceTypeGet
02132 
02133   PUBLIC cmfe_Equations_NumberOfLinearMatricesGet
02134 
02135   PUBLIC cmfe_Equations_NumberOfJacobianMatricesGet
02136 
02137   PUBLIC cmfe_Equations_NumberOfDynamicMatricesGet
02138 
02139   PUBLIC cmfe_Equations_LinearMatrixGet
02140   
02141   PUBLIC cmfe_Equations_JacobianMatrixGet
02142 
02143   PUBLIC cmfe_Equations_DynamicMatrixGet
02144 
02145   PUBLIC cmfe_Equations_DynamicMatrixGetByType
02146 
02147   PUBLIC cmfe_Equations_DynamicMatrixTypeGet
02148 
02149   PUBLIC cmfe_Equations_RhsVectorGet
02150 
02151   PUBLIC cmfe_Equations_ResidualVectorGet
02152 
02153   PUBLIC cmfe_Equations_ResidualNumberOfVariablesGet
02154 
02155   PUBLIC cmfe_Equations_ResidualVariablesGet
02156 
02157   PUBLIC cmfe_Equations_SourceVectorGet
02158 
02159 !!==================================================================================================================================
02160 !!
02161 !! EQUATIONS_SET_CONSTANTS
02162 !!
02163 !!==================================================================================================================================
02164 
02165   !Module parameters
02166 
02174   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_CLASS = EQUATIONS_SET_NO_CLASS !<No equations set class \see OPENCMISS_EquationsSetClasses,OPENCMISS
02175   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ELASTICITY_CLASS = EQUATIONS_SET_ELASTICITY_CLASS !<Elasticity equations set class \see OPENCMISS_EquationsSetClasses,OPENCMISS
02176   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FLUID_MECHANICS_CLASS = EQUATIONS_SET_FLUID_MECHANICS_CLASS !<Fluid Mechanics equations set class \see OPENCMISS_EquationsSetClasses,OPENCMISS
02177   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ELECTROMAGNETICS_CLASS = EQUATIONS_SET_ELECTROMAGNETICS_CLASS !<Electromagnetics equations set class \see OPENCMISS_EquationsSetClasses,OPENCMISS
02178   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CLASSICAL_FIELD_CLASS = EQUATIONS_SET_CLASSICAL_FIELD_CLASS !<Classical Field equations set class \see OPENCMISS_EquationsSetClasses,OPENCMISS
02179   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_BIOELECTRICS_CLASS = EQUATIONS_SET_BIOELECTRICS_CLASS !<Bioelectrics equations set class \see OPENCMISS_EquationsSetClasses,OPENCMISS
02180   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MODAL_CLASS = EQUATIONS_SET_MODAL_CLASS !<Modal equations set class \see OPENCMISS_EquationsSetClasses,OPENCMISS
02181   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FITTING_CLASS = EQUATIONS_SET_FITTING_CLASS !<Fitting equations set class \see OPENCMISS_EquationsSetClasses,OPENCMISS
02182   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_OPTIMISATION_CLASS = EQUATIONS_SET_OPTIMISATION_CLASS !<Optimisation equations set class \see OPENCMISS_EquationsSetClasses,OPENCMISS
02183   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_PHYSICS_CLASS = EQUATIONS_SET_MULTI_PHYSICS_CLASS !<Multi Physics equations set class \see OPENCMISS_EquationsSetClasses,OPENCMISS
02184 
02189   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_TYPE = EQUATIONS_SET_NO_TYPE !<No equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02190   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_TYPE = EQUATIONS_SET_LINEAR_ELASTICITY_TYPE !<Linear elasticity equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02191   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FINITE_ELASTICITY_TYPE = EQUATIONS_SET_FINITE_ELASTICITY_TYPE !<Finite elasticity equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02192   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_TYPE = EQUATIONS_SET_STOKES_EQUATION_TYPE !<Stokes equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02193   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TYPE = EQUATIONS_SET_NAVIER_STOKES_EQUATION_TYPE !<Navier-Stokes equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02194   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_TYPE = EQUATIONS_SET_DARCY_EQUATION_TYPE !<Darcy equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02195   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_PRESSURE_EQUATION_TYPE = EQUATIONS_SET_DARCY_PRESSURE_EQUATION_TYPE !<Darcy pressure equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02196   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISEUILLE_EQUATION_TYPE = EQUATIONS_SET_POISEUILLE_EQUATION_TYPE !<Poiseuille equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02197   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_BURGERS_EQUATION_TYPE = EQUATIONS_SET_BURGERS_EQUATION_TYPE !<Burgers equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02198   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CHARACTERISTIC_EQUATION_TYPE = EQUATIONS_SET_CHARACTERISTIC_EQUATION_TYPE !<Characteristic equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02199   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ELECTROSTATIC_TYPE = EQUATIONS_SET_ELECTROSTATIC_TYPE !<Electrostatic equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02200   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MAGNETOSTATIC_TYPE = EQUATIONS_SET_MAGNETOSTATIC_TYPE !<Magnetostatic equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02201   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MAXWELLS_EQUATIONS_TYPE = EQUATIONS_SET_MAXWELLS_EQUATIONS_TYPE !<Maxwells equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02202   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LAPLACE_EQUATION_TYPE = EQUATIONS_SET_LAPLACE_EQUATION_TYPE !<Laplace equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02203   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISSON_EQUATION_TYPE = EQUATIONS_SET_POISSON_EQUATION_TYPE !<Poisson equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02204   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_HELMHOLTZ_EQUATION_TYPE = EQUATIONS_SET_HELMHOLTZ_EQUATION_TYPE !<Helmholtz equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02205   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_WAVE_EQUATION_TYPE = EQUATIONS_SET_WAVE_EQUATION_TYPE !<Wave equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02206   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_TYPE = EQUATIONS_SET_DIFFUSION_EQUATION_TYPE !<Diffusion equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02207   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ADVECTION_EQUATION_TYPE = EQUATIONS_SET_ADVECTION_EQUATION_TYPE !<Advection-Diffusion equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02208   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ADVECTION_DIFFUSION_EQUATION_TYPE = 
02209      EQUATIONS_SET_ADVECTION_DIFFUSION_EQUATION_TYPE !<Advection-Diffusion equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02210   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_REACTION_DIFFUSION_EQUATION_TYPE = EQUATIONS_SET_REACTION_DIFFUSION_EQUATION_TYPE !<Reaction-Diffusion equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02211   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_BIHARMONIC_EQUATION_TYPE = EQUATIONS_SET_BIHARMONIC_EQUATION_TYPE !<Biharmonic equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02212   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MONODOMAIN_EQUATION_TYPE = EQUATIONS_SET_MONODOMAIN_EQUATION_TYPE !<Monodomain equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02213   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_BIDOMAIN_EQUATION_TYPE = EQUATIONS_SET_BIDOMAIN_EQUATION_TYPE !<Bidomain equation equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02214   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTIC_MODAL_TYPE = EQUATIONS_SET_LINEAR_ELASTIC_MODAL_TYPE !<Linear elasticity modal equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02215   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DATA_FITTING_EQUATION_TYPE = EQUATIONS_SET_DATA_FITTING_EQUATION_TYPE !<Galerkin projection equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02216   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FINITE_ELASTICITY_DARCY_TYPE = EQUATIONS_SET_FINITE_ELASTICITY_DARCY_TYPE !<Finite Elasticity Darcy equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02217   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FINITE_ELASTICITY_STOKES_TYPE = EQUATIONS_SET_FINITE_ELASTICITY_STOKES_TYPE !<Finite Elasticity Stokes equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02218   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FINITE_ELASTICITY_NAVIER_STOKES_TYPE = 
02219      EQUATIONS_SET_FINITE_ELASTICITY_NAVIER_STOKES_TYPE !<Finite Elasticity Navier Stokes equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02220   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIFFUSION_DIFFUSION_TYPE = EQUATIONS_SET_DIFFUSION_DIFFUSION_TYPE !<Diffusion Diffusion equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02221   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIFFUSION_ADVECTION_DIFFUSION_TYPE = 
02222      EQUATIONS_SET_DIFFUSION_ADVECTION_DIFFUSION_TYPE !<Diffusion Advection Diffusion equations set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02223   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MONODOMAIN_STRANG_SPLITTING_EQUATION_TYPE = 
02224      EQUATIONS_SET_MONODOMAIN_STRANG_SPLITTING_EQUATION_TYPE !<Monodomain equation equations Strang Splitting set type \see OPENCMISS_EquationsSetTypes,OPENCMISS
02225 
02226 
02231   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SUBTYPE = EQUATIONS_SET_NO_SUBTYPE !<No equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02232   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_THREE_DIMENSIONAL_SUBTYPE = EQUATIONS_SET_THREE_DIMENSIONAL_SUBTYPE !<Three dimensional linear elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02233   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TWO_DIMENSIONAL_PLANE_STRESS_SUBTYPE = 
02234      EQUATIONS_SET_TWO_DIMENSIONAL_PLANE_STRESS_SUBTYPE !<Plane stress linear elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02235   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TWO_DIMENSIONAL_PLANE_STRAIN_SUBTYPE = 
02236      EQUATIONS_SET_TWO_DIMENSIONAL_PLANE_STRAIN_SUBTYPE !<Plane strain linear elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02237   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ONE_DIMENSIONAL_SUBTYPE = EQUATIONS_SET_ONE_DIMENSIONAL_SUBTYPE !<One dimensional linear elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02238   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_PLATE_SUBTYPE = EQUATIONS_SET_PLATE_SUBTYPE !<Plate linear elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02239   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_SHELL_SUBTYPE = EQUATIONS_SET_SHELL_SUBTYPE !<Shell linear elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02240   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MOONEY_RIVLIN_SUBTYPE = EQUATIONS_SET_MOONEY_RIVLIN_SUBTYPE !< Mooney-Rivlin constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02241   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_INCOMPRESSIBLE_MOONEY_RIVLIN_SUBTYPE = 
02242    EQUATIONS_SET_INCOMPRESSIBLE_MOONEY_RIVLIN_SUBTYPE !< Incompressible Mooney-Rivlin constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02243   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NEARLY_INCOMPRESSIBLE_MOONEY_RIVLIN_SUBTYPE = 
02244    EQUATIONS_SET_NEARLY_INCOMPRESSIBLE_MOONEY_RIVLIN_SUBTYPE !< Nearly Incompressible Mooney-Rivlin constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02245   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MOONEY_RIVLIN_ACTIVECONTRACTION_SUBTYPE =  
02246      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
02247   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STVENANT_KIRCHOFF_ACTIVECONTRACTION_SUBTYPE =  
02248      EQUATIONS_SET_STVENANT_KIRCHOFF_ACTIVECONTRACTION_SUBTYPE !< St Venant Kirchoff constitutive law with steady-state active contraction for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02249   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ACTIVECONTRACTION_SUBTYPE =
02250      EQUATIONS_SET_ACTIVECONTRACTION_SUBTYPE !< Active contraction/costa-based law with quasistatic time loop for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02251   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ISOTROPIC_EXPONENTIAL_SUBTYPE = EQUATIONS_SET_ISOTROPIC_EXPONENTIAL_SUBTYPE !< Isotropic exponential constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02252   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_EXPONENTIAL_SUBTYPE = 
02253      EQUATIONS_SET_TRANSVERSE_ISOTROPIC_EXPONENTIAL_SUBTYPE !< Transverse isotropic exponential constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02254   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_ACTIVE_SUBTYPE = 
02255      EQUATIONS_SET_TRANSVERSE_ISOTROPIC_ACTIVE_SUBTYPE !< Transverse isotropic, active-contraction constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02256   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANS_ISOTROPIC_ACTIVE_TRANSITION_SUBTYPE = 
02257      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
02258   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ORTHOTROPIC_MATERIAL_COSTA_SUBTYPE = 
02259      EQUATIONS_SET_ORTHOTROPIC_MATERIAL_COSTA_SUBTYPE !< Orthotropic Costa constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02260   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_COMPRESSIBLE_FINITE_ELASTICITY_SUBTYPE= 
02261      EQUATIONS_SET_COMPRESSIBLE_FINITE_ELASTICITY_SUBTYPE !<Compressible version for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02262   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_COMPRESSIBLE_ACTIVECONTRACTION_SUBTYPE= 
02263      EQUATIONS_SET_COMPRESSIBLE_ACTIVECONTRACTION_SUBTYPE !<Compressible version for finite elasticity equations set with active contraction subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02264   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_GUCCIONE_SUBTYPE = 
02265      EQUATIONS_SET_TRANSVERSE_ISOTROPIC_GUCCIONE_SUBTYPE !< Transverse isotropic Guccione constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02266   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GUCCIONE_ACTIVECONTRACTION_SUBTYPE = 
02267      EQUATIONS_SET_GUCCIONE_ACTIVECONTRACTION_SUBTYPE !< Transverse isotropic Guccione constitutive law with active contraction subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02268   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_INCOMPRESS_FINITE_ELASTICITY_DARCY_SUBTYPE= 
02269      EQUATIONS_SET_INCOMPRESSIBLE_FINITE_ELASTICITY_DARCY_SUBTYPE !<Incompressible version for finite elasticity coupled with Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02270   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ELASTICITY_DARCY_INRIA_MODEL_SUBTYPE= 
02271      EQUATIONS_SET_ELASTICITY_DARCY_INRIA_MODEL_SUBTYPE !<INRIA Model for finite elasticity coupled with Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02272   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ELASTICITY_MULTI_COMP_DARCY_INRIA_SUBTYPE= 
02273      EQUATIONS_SET_ELASTICITY_MULTI_COMPARTMENT_DARCY_INRIA_SUBTYPE !<Multi Compartment Darcy INRIA Model coupled with finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02274   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_INCOMPRESS_ELASTICITY_DRIVEN_DARCY_SUBTYPE= 
02275      EQUATIONS_SET_INCOMPRESSIBLE_ELASTICITY_DRIVEN_DARCY_SUBTYPE !< Incompressible finite elasticity with Darcy flow driven by solid hydrostatic pressure \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02276   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_INCOMPRESSIBLE_ELASTICITY_DRIVEN_MR_SUBTYPE= 
02277      EQUATIONS_SET_INCOMPRESSIBLE_ELASTICITY_DRIVEN_MR_SUBTYPE !< Incompressible finite elasticity with Darcy flow driven by solid hydrostatic pressure, formulated in terms of modified invariants. \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02278   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_INCOMPRESS_ELAST_MULTI_COMP_DARCY_SUBTYPE= 
02279      EQUATIONS_SET_INCOMPRESSIBLE_ELAST_MULTI_COMP_DARCY_SUBTYPE
02280   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MEMBRANE_SUBTYPE = EQUATIONS_SET_MEMBRANE_SUBTYPE !<Compressible version for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02281   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ORTHOTROPIC_HOLZAPFEL_OGDEN_SUBTYPE = 
02282      EQUATIONS_SET_ORTHOTROPIC_MATERIAL_HOLZAPFEL_OGDEN_SUBTYPE !< Orthotropic Holzapfel-Ogden constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02283   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_HOLZAPFEL_OGDEN_ACTIVECONTRACTION_SUBTYPE = 
02284      EQUATIONS_SET_HOLZAPFEL_OGDEN_ACTIVECONTRACTION_SUBTYPE &
02285      !< Orthotropic Holzapfel-Ogden constitutive law with active contraction for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02286   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ELASTICITY_FLUID_PRES_STATIC_INRIA_SUBTYPE = 
02287      EQUATIONS_SET_ELASTICITY_FLUID_PRESSURE_STATIC_INRIA_SUBTYPE !< Static finite elasticity coupled with fluid pressure set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02288   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ELASTICITY_FLUID_PRES_HOLMES_MOW_SUBTYPE= 
02289      EQUATIONS_SET_ELASTICITY_FLUID_PRESSURE_HOLMES_MOW_SUBTYPE !<Holmes and Mow's poroelastic constitutive relation subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02290   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_POLYNOMIAL_SUBTYPE = 
02291      EQUATIONS_SET_TRANSVERSE_ISOTROPIC_POLYNOMIAL_SUBTYPE !<Transverse isotropic constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02292   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_SUBTYPE = 
02293      EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_SUBTYPE !<Anisotropic polynomial constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02294   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_ACTIVE_SUBTYPE = 
02295      EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_ACTIVE_SUBTYPE !<Anisotropic polynomial active constitutive law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02296   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_HUMPHREY_YIN_SUBTYPE= 
02297      EQUATIONS_SET_TRANSVERSE_ISOTROPIC_HUMPHREY_YIN_SUBTYPE !<Humphrey and Yin transversely isotropic constitutive relation subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02298   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STATIC_STOKES_SUBTYPE = EQUATIONS_SET_STATIC_STOKES_SUBTYPE !<Static Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02299   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LAPLACE_STOKES_SUBTYPE = EQUATIONS_SET_LAPLACE_STOKES_SUBTYPE !<Laplace type Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02300   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT_STOKES_SUBTYPE = EQUATIONS_SET_TRANSIENT_STOKES_SUBTYPE !<Transient Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02301   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ALE_STOKES_SUBTYPE = EQUATIONS_SET_ALE_STOKES_SUBTYPE !<ALE Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02302   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_PGM_STOKES_SUBTYPE = EQUATIONS_SET_PGM_STOKES_SUBTYPE !<PGM Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02303   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_OPTIMISED_STOKES_SUBTYPE = EQUATIONS_SET_OPTIMISED_STOKES_SUBTYPE !<Optimised Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02304   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
02305   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
02306   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
02307   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT_RBS_NAVIER_STOKES_SUBTYPE =  
02308      EQUATIONS_SET_TRANSIENT_RBS_NAVIER_STOKES_SUBTYPE !<Transient residual-based stabilisation Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02309   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STATIC_RBS_NAVIER_STOKES_SUBTYPE =  
02310      EQUATIONS_SET_STATIC_RBS_NAVIER_STOKES_SUBTYPE !<Transient residual-based stabilisation Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02311   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTISCALE3D_NAVIER_STOKES_SUBTYPE =  
02312      EQUATIONS_SET_MULTISCALE3D_NAVIER_STOKES_SUBTYPE !<Transient stabilised 3D Navier-Stokes equations set with coupled multiscale boundaries subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02313   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTITUTIVE_MU_NAVIER_STOKES_SUBTYPE =  
02314      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
02315   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT1D_NAVIER_STOKES_SUBTYPE = 
02316      EQUATIONS_SET_TRANSIENT1D_NAVIER_STOKES_SUBTYPE !<TRANSIENT1D Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02317   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT1D_ADV_NAVIER_STOKES_SUBTYPE = 
02318      EQUATIONS_SET_TRANSIENT1D_ADV_NAVIER_STOKES_SUBTYPE !<TRANSIENT1D Navier-Stokes equations set subtype with coupled Advection \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02319   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CHARACTERISTIC_SUBTYPE = 
02320      EQUATIONS_SET_CHARACTERISTIC_SUBTYPE !<Static Characteristics equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02321   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_COUPLED1D0D_NAVIER_STOKES_SUBTYPE = 
02322      EQUATIONS_SET_COUPLED1D0D_NAVIER_STOKES_SUBTYPE !<Coupled 1D-0D Navier-Stokes equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02323   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_COUPLED1D0D_ADV_NAVIER_STOKES_SUBTYPE = 
02324      EQUATIONS_SET_COUPLED1D0D_ADV_NAVIER_STOKES_SUBTYPE !<Coupled 1D-0D Navier-Stokes equations set subtype with coupled Advection \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02325   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STREE1D0D_SUBTYPE = 
02326      EQUATIONS_SET_STREE1D0D_SUBTYPE !<Coupled 1D-0D Navier-Stokes equations set subtype with coupled Advection \see
02327   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STREE1D0D_ADV_SUBTYPE = 
02328      EQUATIONS_SET_STREE1D0D_ADV_SUBTYPE !<Coupled 1D-0D Navier-Stokes equations set subtype with coupled Advection \see
02329   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
02330   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
02331   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
02332   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STANDARD_DARCY_SUBTYPE = EQUATIONS_SET_STANDARD_DARCY_SUBTYPE !<Standard Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02333   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUASISTATIC_DARCY_SUBTYPE = EQUATIONS_SET_QUASISTATIC_DARCY_SUBTYPE !<Quasistatic Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02334   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ALE_DARCY_SUBTYPE = EQUATIONS_SET_ALE_DARCY_SUBTYPE !<ALE Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02335   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_TRANSIENT_DARCY_SUBTYPE = EQUATIONS_SET_TRANSIENT_DARCY_SUBTYPE !<Transient Darcy equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02336   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
02337   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
02338   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_BURGERS_SUBTYPE = EQUATIONS_SET_BURGERS_SUBTYPE !<Burgers equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02339   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_BURGERS_SUBTYPE = EQUATIONS_SET_GENERALISED_BURGERS_SUBTYPE !<Generalised Burgers equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02340   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STATIC_BURGERS_SUBTYPE = EQUATIONS_SET_STATIC_BURGERS_SUBTYPE !<Static Burgers equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02341   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_INVISCID_BURGERS_SUBTYPE = EQUATIONS_SET_INVISCID_BURGERS_SUBTYPE !<Inviscid Burgers equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02342 
02343   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STANDARD_LAPLACE_SUBTYPE = EQUATIONS_SET_STANDARD_LAPLACE_SUBTYPE !<Standard Laplace equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02344   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_LAPLACE_SUBTYPE = EQUATIONS_SET_GENERALISED_LAPLACE_SUBTYPE !<Generalised Laplace equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02345   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
02346   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STATIC_POISEUILLE_SUBTYPE = EQUATIONS_SET_STATIC_POISEUILLE_SUBTYPE !<Static Poiseuille equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02347   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DYNAMIC_POISEUILLE_SUBTYPE = EQUATIONS_SET_DYNAMIC_POISEUILLE_SUBTYPE !<Dynamic Poiseuille equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02348   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
02349   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NONLINEAR_PRESSURE_POISSON_SUBTYPE = 
02350      EQUATIONS_SET_NONLINEAR_PRESSURE_POISSON_SUBTYPE !<Vector source Poisson equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02351   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
02352   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
02353   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
02354   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXTRACELLULAR_BIDOMAIN_POISSON_SUBTYPE = 
02355      EQUATIONS_SET_EXTRACELLULAR_BIDOMAIN_POISSON_SUBTYPE !<Poisson equations set subtype, that is the extracellular bidomain equation \see OPENCMISS_EquationsSetSubtypes,OPENCMISS  
02356   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
02357   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
02358   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_POISSON_SUBTYPE = 
02359      EQUATIONS_SET_EXPONENTIAL_SOURCE_POISSON_SUBTYPE !<Exponential source Poisson equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02360   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STANDARD_HELMHOLTZ_SUBTYPE = EQUATIONS_SET_STANDARD_HELMHOLTZ_SUBTYPE !<No source Helmholtz equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02361   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_HELMHOLTZ_SUBTYPE = EQUATIONS_SET_GENERALISED_HELMHOLTZ_SUBTYPE !<No source Helmholtz equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02362   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
02363   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_DIFFUSION_SUBTYPE = 
02364      EQUATIONS_SET_CONSTANT_SOURCE_DIFFUSION_SUBTYPE !<Constant source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02365   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
02366   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_SUBTYPE = 
02367      EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_SUBTYPE !<Quadratic source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02368   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_SUBTYPE = 
02369      EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_SUBTYPE !<Exponential source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02370   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
02371   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_DIFFUSION_SUBTYPE = 
02372      EQUATIONS_SET_CONSTANT_SOURCE_ALE_DIFFUSION_SUBTYPE !<Constant source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02373   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE = 
02374      EQUATIONS_SET_LINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE !<Linear source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02375   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ALE_DIFFUSION_SUBTYPE = 
02376      EQUATIONS_SET_QUADRATIC_SOURCE_ALE_DIFFUSION_SUBTYPE !<Quadratic source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02377   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_ALE_DIFFUSION_SUBTYPE = 
02378      EQUATIONS_SET_EXPONENTIAL_SOURCE_ALE_DIFFUSION_SUBTYPE !<Exponential source diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02379   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_TRANSPORT_DIFFUSION_SUBTYPE = 
02380      EQUATIONS_SET_MULTI_COMP_TRANSPORT_DIFFUSION_SUBTYPE !<Multi-compartment transport diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02381 
02382   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ADVECTION_SUBTYPE = 
02383      EQUATIONS_SET_ADVECTION_SUBTYPE !<advection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02384   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFFUSION_SUBTYPE = 
02385      EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02386   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFFUSION_SUBTYPE = 
02387      EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02388   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE = 
02389      EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02390   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ADVEC_DIFF_SUBTYPE = 
02391      EQUATIONS_SET_QUADRATIC_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<Quadratic source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02392   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_ADVEC_DIFF_SUBTYPE = 
02393      EQUATIONS_SET_EXPONENTIAL_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<Exponential source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02394   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTITUTIVE_LAW_IN_CELLML_EVALUATE_SUBTYPE = 
02395      EQUATIONS_SET_CONSTITUTIVE_LAW_IN_CELLML_EVALUATE_SUBTYPE !<In CellML evaluated incompressible material law for finite elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02396   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTIT_AND_GROWTH_LAW_IN_CELLML_SUBTYPE = 
02397      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
02398   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE = 
02399      EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02400   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVEC_DIFF_SUBTYPE = 
02401      EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02402   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVEC_DIFF_SUBTYPE = 
02403      EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02404   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ALE_ADVEC_DIFF_SUBTYPE = 
02405      EQUATIONS_SET_QUADRATIC_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<Quadratic source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02406   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE = 
02407      EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<Exponential source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02408 
02409   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE = 
02410      EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02411   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE = 
02412      EQUATIONS_SET_CONSTANT_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02413   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE = 
02414      EQUATIONS_SET_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02415 
02416   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE = 
02417      EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02418   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE = 
02419      EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02420   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE = 
02421      EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02422   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUAD_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE = 
02423      EQUATIONS_SET_QUAD_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE !<Quadratic source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02424   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXP_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE = 
02425      EQUATIONS_SET_EXP_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE !<Exponential source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02426 
02427   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE = 
02428      EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02429   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVEC_DIFF_SUPG_SUBTYPE = 
02430      EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02431   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVEC_DIFF_SUPG_SUBTYPE = 
02432      EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02433   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUAD_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE = 
02434      EQUATIONS_SET_QUAD_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE !<Quadratic source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02435   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE = 
02436      EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE !<Exponential source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02437 
02438   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE = 
02439      EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE !<No source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02440   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONST_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE = 
02441      EQUATIONS_SET_CONSTANT_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE !<Constant source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02442   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LIN_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE = 
02443      EQUATIONS_SET_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE !<Linear source advection diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02444   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_ADVEC_DIFF_SUBTYPE = 
02445      EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_ADVEC_DIFFUSION_SUBTYPE !<Coupled source diffusion & advection-diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02446   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_TRANSPORT_ADVEC_DIFF_SUBTYPE = 
02447      EQUATIONS_SET_MULTI_COMP_TRANSPORT_ADVEC_DIFF_SUBTYPE !<Multi-component transport advection-diffusion equations set \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02448   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULT_COMP_TRANSPORT_ADVEC_DIFF_SUPG_SUBTYPE = 
02449      EQUATIONS_SET_MULTI_COMP_TRANSPORT_ADVEC_DIFF_SUPG_SUBTYPE !<Multi-component transport advection-diffusion equations set using SUPG scheme \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02450 
02451   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CELLML_REAC_SPLIT_REAC_DIFF_SUBTYPE = 
02452      EQUATIONS_SET_CELLML_REAC_SPLIT_REAC_DIFF_SUBTYPE !CellML Reaction Diffusion with order splitting \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02453   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CELLML_REAC_NO_SPLIT_REAC_DIFF_SUBTYPE = 
02454      EQUATIONS_SET_CELLML_REAC_NO_SPLIT_REAC_DIFF_SUBTYPE !CellML Reaction Diffusion without order splitting \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02455 
02456   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_CONSTANT_REAC_DIFF_SUBTYPE = 
02457      EQUATIONS_SET_CONSTANT_REAC_DIFF_SUBTYPE !Standard Reaction Diffusion without order splitting, and constant source \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02458 
02459 
02460   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MONODOMAIN_BUENOOROVIO_SUBTYPE= EQUATIONS_SET_MONODOMAIN_BUENOOROVIO_SUBTYPE !<First monodomain equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02461   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MONODOMAIN_TENTUSSCHER06_SUBTYPE= EQUATIONS_SET_MONODOMAIN_TENTUSSCHER06_SUBTYPE !<First monodomain equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02462 
02463   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FIRST_BIDOMAIN_SUBTYPE = EQUATIONS_SET_FIRST_BIDOMAIN_SUBTYPE !<First bidomain equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02464   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_SECOND_BIDOMAIN_SUBTYPE = EQUATIONS_SET_SECOND_BIDOMAIN_SUBTYPE !<Second bidomain equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02465   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STANDARD_DATA_FITTING_SUBTYPE = 
02466      EQUATIONS_SET_STANDARD_DATA_FITTING_SUBTYPE !<Standard Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02467   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_DATA_FITTING_SUBTYPE = 
02468      EQUATIONS_SET_GENERALISED_DATA_FITTING_SUBTYPE !<Generalised Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02469   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MAT_PROPERTIES_DATA_FITTING_SUBTYPE = 
02470      EQUATIONS_SET_MAT_PROPERTIES_DATA_FITTING_SUBTYPE !<Material Properties Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02471   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MAT_PROP_INRIA_MODEL_DATA_FITTING_SUBTYPE = 
02472      EQUATIONS_SET_MAT_PROPERTIES_INRIA_MODEL_DATA_FITTING_SUBTYPE !<Material Properties INRIA Model Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02473   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_VECTOR_DATA_FITTING_SUBTYPE = 
02474      EQUATIONS_SET_VECTOR_DATA_FITTING_SUBTYPE !<Standard Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02475   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIVFREE_VECTOR_DATA_FITTING_SUBTYPE = 
02476      EQUATIONS_SET_DIVFREE_VECTOR_DATA_FITTING_SUBTYPE !<Standard Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02477   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DATA_POINT_VECTOR_STATIC_FITTING_SUBTYPE = 
02478      EquationsSet_DataPointVectorStaticFittingSubtype !<Standard static Galerkin Projection using data points subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02479   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DATA_PT_VECTOR_QUASISTATIC_FITTING_SUBTYPE = 
02480      EquationsSet_DataPointVectorQuasistaticFittingSubtype !<Standard quasistatic Galerkin Projection using data points subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02481   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_VECTOR_DATA_PRE_FITTING_SUBTYPE = 
02482      EQUATIONS_SET_VECTOR_DATA_PRE_FITTING_SUBTYPE !<Standard Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02483   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIVFREE_VECTOR_DATA_PRE_FITTING_SUBTYPE = 
02484      EQUATIONS_SET_DIVFREE_VECTOR_DATA_PRE_FITTING_SUBTYPE !<Standard Galerkin Projection equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02485 
02486 
02487   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
02488   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_DIFFUSION_SUBTYPE = 
02489      EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_DIFFUSION_SUBTYPE !<Coupled source diffusion-diffusion equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02490   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STANDARD_MONODOMAIN_ELASTICITY_SUBTYPE =  
02491      EQUATIONS_SET_STANDARD_MONODOMAIN_ELASTICITY_SUBTYPE !<Standard Monodomain Elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02492   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_1D3D_MONODOMAIN_ELASTICITY_SUBTYPE =  
02493      EQUATIONS_SET_1D3D_MONODOMAIN_ELASTICITY_SUBTYPE !<Coupled 1D Monodomain 3D Elasticity equations set subtype \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02494   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MONODOMAIN_ELASTICITY_W_TITIN_SUBTYPE =  
02495      EQUATIONS_SET_MONODOMAIN_ELASTICITY_W_TITIN_SUBTYPE !<Coupled 1D Monodomain 3D Elasticity equations set subtype with titin \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02496   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MONODOMAIN_ELASTICITY_VELOCITY_SUBTYPE =  
02497      EQUATIONS_SET_MONODOMAIN_ELASTICITY_VELOCITY_SUBTYPE !<Coupled 1D Monodomain 3D Elasticity equations set subtype with force-velocity relation \see OPENCMISS_EquationsSetSubtypes,OPENCMISS
02498   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FINITE_ELASTICITY_NAVIER_STOKES_ALE_SUBTYPE = 
02499      EQUATIONS_SET_FINITE_ELASTICITY_NAVIER_STOKES_ALE_SUBTYPE !<Finite Elasticity Navier Stokes ALE equations set subtype \see OPENCMISS_EquationsSetSubtype,OPENCMISS
02500 
02501 
02506   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FEM_SOLUTION_METHOD = EQUATIONS_SET_FEM_SOLUTION_METHOD !<Finite Element Method solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
02507   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_BEM_SOLUTION_METHOD = EQUATIONS_SET_BEM_SOLUTION_METHOD !<Boundary Element Method solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
02508   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FD_SOLUTION_METHOD = EQUATIONS_SET_FD_SOLUTION_METHOD !<Finite Difference solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
02509   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FV_SOLUTION_METHOD = EQUATIONS_SET_FV_SOLUTION_METHOD !<Finite Volume solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
02510   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
02511   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GFD_SOLUTION_METHOD = EQUATIONS_SET_GFD_SOLUTION_METHOD !<Grid-based Finite Difference solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
02512   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GFV_SOLUTION_METHOD = EQUATIONS_SET_GFV_SOLUTION_METHOD !<Grid-based Finite Volume solution method. \see OPENCMISS_EquationsSetSolutionMethods,OPENCMISS
02513 
02514 
02519   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DERIVED_STRAIN = EQUATIONS_SET_DERIVED_STRAIN !<Strain tensor field output. \see OPENCMISS_EquationsSetDerivedTypes,OPENCMISS
02520   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DERIVED_STRESS = EQUATIONS_SET_DERIVED_STRESS !<Stress tensor field output. \see OPENCMISS_EquationsSetDerivedTypes,OPENCMISS
02521 
02522 
02526   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_MATRIX_STIFFNESS=EQUATIONS_MATRIX_STIFFNESS !<A stiffness matrix (multiplies displacement values)
02527   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_MATRIX_DAMPING=EQUATIONS_MATRIX_DAMPING !<A damping matrix (multiplies velocity values)
02528   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_MATRIX_MASS=EQUATIONS_MATRIX_MASS !<A mass matrix (multiplies acceleration values)
02529 
02530 
02539   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
02540   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
02541   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
02542   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
02543 
02548   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
02549 
02554   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
02555 
02560   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
02561   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_2 = EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
02562   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_3 = EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
02563   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
02564   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_2 = EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
02565   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_3 = EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
02566   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_1 = EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
02567   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_2 = EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetPoissonAnalyticFunctionTypes,OPENCMISS
02568 
02573   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_ONE_DIM_1 = EQUATIONS_SET_DIFFUSION_EQUATION_ONE_DIM_1
02574   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
02575   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_THREE_DIM_1 = EQUATIONS_SET_DIFFUSION_EQUATION_THREE_DIM_1 !<
02576   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_SOURCE_DIFFUSION_THREE_DIM_1 = 
02577      EQUATIONS_SET_LINEAR_SOURCE_DIFFUSION_EQUATION_THREE_DIM_1
02578   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_ONE_DIM_1 = 
02579      EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_EQUATION_ONE_DIM_1
02580   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_ONE_DIM_1 = 
02581      EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_EQUATION_ONE_DIM_1
02582 
02583   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_TWO_DIM = 
02584      EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_TWO_DIM !<Prescribed solution, using a source term to correct for error - 2D with 2 compartments
02585   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_THREE_DIM = 
02586      EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_THREE_DIM !<Prescribed solution, using a source term to correct for error - 3D with 2 compartments
02587   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_THREE_COMP_THREE_DIM = 
02588      EQUATIONS_SET_MULTI_COMP_DIFFUSION_THREE_COMP_THREE_DIM !<Prescribed solution, using a source term to correct for error - 3D with 3 compartments
02589   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_FOUR_COMP_THREE_DIM = 
02590      EQUATIONS_SET_MULTI_COMP_DIFFUSION_FOUR_COMP_THREE_DIM !<Prescribed solution, using a source term to correct for error - 3D with 3 compartments
02591   !>@}
02592 
02596   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_ADVECTION_DIFFUSION_EQUATION_TWO_DIM_1 = 
02597      EQUATIONS_SET_ADVECTION_DIFFUSION_EQUATION_TWO_DIM_1 !<u=exp(-kt)*sin(sqrt(k)*(x*cos(phi)+y*sin(phi))) \see OPENCMISS_EquationsSetDiffusionAnalyticFunctionTypes,OPENCMISS
02598   !> \addtogroup OPENCMISS_StokesAnalyticFunctionTypes OPENCMISS::EquationsSet::AnalyticFunctionTypes::Stokes
02599 
02602   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_1 = EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
02603   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_2 = EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
02604   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_3 = EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
02605   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_4 = EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_4 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
02606   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_5 = EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_5 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
02607   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_1 = EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
02608   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_2 = EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
02609   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_3 = EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
02610   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_4 = EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_4 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
02611   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_5 = EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_5 !<u=tbd \see OPENCMISS_EquationsSetStokesAnalyticFunctionTypes,OPENCMISS
02612 
02617   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_POISEUILLE= 
02618      EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_POISEUILLE !< fully developed 2D channel flow (parabolic) \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
02619   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_TAYLOR_GREEN= 
02620      EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_TAYLOR_GREEN !< 2D dynamic nonlinear Taylor-Green vortex decay \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
02621   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_FLOWRATE_AORTA= 
02622      EQUATIONS_SET_NAVIER_STOKES_EQUATION_FLOWRATE_AORTA !< A fourier decomposed flow waveform for boundary conditions
02623   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_SINUSOID= 
02624      EQUATIONS_SET_NAVIER_STOKES_EQUATION_SINUSOID !< A sinusoidal flow waveform
02625   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_SPLINT_FROM_FILE= 
02626      EQUATIONS_SET_NAVIER_STOKES_EQUATION_SPLINT_FROM_FILE !< Spline integration of dependent values specified in a file
02627   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
02628   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
02629   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
02630   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
02631   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
02632   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_1 = 
02633      EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
02634   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_2 = 
02635      EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
02636   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_3 = 
02637      EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
02638   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_4 = 
02639      EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_4 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
02640   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_5 = 
02641      EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_5 !<u=tbd \see OPENCMISS_EquationsSetNavierStokesAnalyticFunctionTypes,OPENCMISS
02642   !>@}
02643 
02647   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_1 = EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
02648   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_2 = EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
02649   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_3 = EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
02650   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_1 = EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
02651   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_2 = EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
02652   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_3 = EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_3 !<u=tbd \see OPENCMISS_EquationsSetDarcyAnalyticFunctionTypes,OPENCMISS
02653   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_INCOMP_ELAST_DARCY_ANALYTIC_DARCY = 
02654      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
02655   !>@}
02656 
02660   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_BURGERS_EQUATION_ONE_DIM_1 = EQUATIONS_SET_BURGERS_EQUATION_ONE_DIM_1
02661   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_1 = 
02662      EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_1
02663   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_2 = 
02664      EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_2
02665   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_STATIC_BURGERS_EQUATION_ONE_DIM_1 = 
02666      EQUATIONS_SET_STATIC_BURGERS_EQUATION_ONE_DIM_1
02667   !>@}
02668 
02673   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_ONE_DIM_1 = EQUATIONS_SET_LINEAR_ELASTICITY_ONE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
02674   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_1 = EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
02675   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_2 = EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
02676   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_1 = EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_1 !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
02677   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_2 = EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_2 !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
02678 
02683   INTEGER(INTG), PARAMETER :: CMFE_EQUATIONS_SET_FINITE_ELASTICITY_CYLINDER = EQUATIONS_SET_FINITE_ELASTICITY_CYLINDER !<u=tbd \see OPENCMISS_EquationsSetLinearElasticityAnalyticFunctionTypes,OPENCMISS
02684 
02687 
02692   INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_PIN_IDX = 
02693      FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_PIN_IDX !<Inner pressure parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
02694   INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_POUT_IDX = 
02695      FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_POUT_IDX !<Outer pressure parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
02696   INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_LAMBDA_IDX = 
02697      FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_LAMBDA_IDX !<Lambda parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
02698   INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_TSI_IDX = 
02699      FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_TSI_IDX !<Tsi parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
02700   INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_RIN_IDX = 
02701      FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_RIN_IDX !<Inner radius parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
02702   INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_ROUT_IDX = 
02703      FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_ROUT_IDX !<Outer radius parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
02704   INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C1_IDX = 
02705      FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C1_IDX !<c1 parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
02706   INTEGER(INTG), PARAMETER :: CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C2_IDX = 
02707      FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C2_IDX !<c2 parameter index \see OPENCMISS_AnalyticParamIndices,OPENCMISS
02708   !>@}
02709 
02710   !Module types
02711 
02712   !Module variables
02713 
02714   !Interfaces
02715 
02716   PUBLIC CMFE_EQUATIONS_SET_NO_CLASS,CMFE_EQUATIONS_SET_ELASTICITY_CLASS,CMFE_EQUATIONS_SET_FLUID_MECHANICS_CLASS, &
02717     & CMFE_EQUATIONS_SET_ELECTROMAGNETICS_CLASS,CMFE_EQUATIONS_SET_CLASSICAL_FIELD_CLASS,CMFE_EQUATIONS_SET_BIOELECTRICS_CLASS, &
02718     & CMFE_EQUATIONS_SET_MODAL_CLASS,CMFE_EQUATIONS_SET_FITTING_CLASS,CMFE_EQUATIONS_SET_OPTIMISATION_CLASS, &
02719     & CMFE_EQUATIONS_SET_MULTI_PHYSICS_CLASS
02720 
02721   PUBLIC CMFE_EQUATIONS_SET_NO_TYPE,CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_TYPE,CMFE_EQUATIONS_SET_FINITE_ELASTICITY_TYPE, &
02722     & CMFE_EQUATIONS_SET_STOKES_EQUATION_TYPE,CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TYPE, &
02723     & CMFE_EQUATIONS_SET_DARCY_EQUATION_TYPE, &
02724     & CMFE_EQUATIONS_SET_DARCY_PRESSURE_EQUATION_TYPE,CMFE_EQUATIONS_SET_BURGERS_EQUATION_TYPE, &
02725     & CMFE_EQUATIONS_SET_STATIC_POISEUILLE_SUBTYPE, &
02726     & CMFE_EQUATIONS_SET_DYNAMIC_POISEUILLE_SUBTYPE, &
02727     & CMFE_EQUATIONS_SET_CHARACTERISTIC_EQUATION_TYPE, &
02728     & CMFE_EQUATIONS_SET_ELECTROSTATIC_TYPE,CMFE_EQUATIONS_SET_MAGNETOSTATIC_TYPE,CMFE_EQUATIONS_SET_MAXWELLS_EQUATIONS_TYPE, &
02729     & CMFE_EQUATIONS_SET_LAPLACE_EQUATION_TYPE,CMFE_EQUATIONS_SET_POISEUILLE_EQUATION_TYPE, &
02730     & CMFE_EQUATIONS_SET_POISSON_EQUATION_TYPE, &
02731     & CMFE_EQUATIONS_SET_HELMHOLTZ_EQUATION_TYPE,CMFE_EQUATIONS_SET_WAVE_EQUATION_TYPE, &
02732     & CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_TYPE,CMFE_EQUATIONS_SET_ADVECTION_EQUATION_TYPE, &
02733     & CMFE_EQUATIONS_SET_ADVECTION_DIFFUSION_EQUATION_TYPE,CMFE_EQUATIONS_SET_REACTION_DIFFUSION_EQUATION_TYPE, &
02734     & CMFE_EQUATIONS_SET_BIHARMONIC_EQUATION_TYPE,CMFE_EQUATIONS_SET_MONODOMAIN_EQUATION_TYPE, &
02735     & CMFE_EQUATIONS_SET_BIDOMAIN_EQUATION_TYPE, &
02736     & CMFE_EQUATIONS_SET_LINEAR_ELASTIC_MODAL_TYPE,CMFE_EQUATIONS_SET_DATA_FITTING_EQUATION_TYPE, &
02737     & CMFE_EQUATIONS_SET_MONODOMAIN_STRANG_SPLITTING_EQUATION_TYPE
02738 
02739   PUBLIC CMFE_EQUATIONS_SET_FINITE_ELASTICITY_DARCY_TYPE, &
02740     & CMFE_EQUATIONS_SET_FINITE_ELASTICITY_STOKES_TYPE, CMFE_EQUATIONS_SET_FINITE_ELASTICITY_NAVIER_STOKES_TYPE, &
02741     & CMFE_EQUATIONS_SET_DIFFUSION_DIFFUSION_TYPE, CMFE_EQUATIONS_SET_DIFFUSION_ADVECTION_DIFFUSION_TYPE
02742 
02743   PUBLIC CMFE_EQUATIONS_SET_NO_SUBTYPE,CMFE_EQUATIONS_SET_THREE_DIMENSIONAL_SUBTYPE, &
02744     & CMFE_EQUATIONS_SET_TWO_DIMENSIONAL_PLANE_STRESS_SUBTYPE, &
02745     & CMFE_EQUATIONS_SET_TWO_DIMENSIONAL_PLANE_STRAIN_SUBTYPE,CMFE_EQUATIONS_SET_ONE_DIMENSIONAL_SUBTYPE, &
02746     & CMFE_EQUATIONS_SET_PLATE_SUBTYPE, &
02747     & CMFE_EQUATIONS_SET_SHELL_SUBTYPE, &
02748     & CMFE_EQUATIONS_SET_INCOMPRESSIBLE_MOONEY_RIVLIN_SUBTYPE,CMFE_EQUATIONS_SET_NEARLY_INCOMPRESSIBLE_MOONEY_RIVLIN_SUBTYPE, &
02749     & CMFE_EQUATIONS_SET_MOONEY_RIVLIN_SUBTYPE,CMFE_EQUATIONS_SET_ISOTROPIC_EXPONENTIAL_SUBTYPE, &
02750     & CMFE_EQUATIONS_SET_ACTIVECONTRACTION_SUBTYPE,CMFE_EQUATIONS_SET_MOONEY_RIVLIN_ACTIVECONTRACTION_SUBTYPE, &
02751     & CMFE_EQUATIONS_SET_COMPRESSIBLE_ACTIVECONTRACTION_SUBTYPE,CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_ACTIVE_SUBTYPE, &
02752     & CMFE_EQUATIONS_SET_TRANS_ISOTROPIC_ACTIVE_TRANSITION_SUBTYPE, &
02753     & CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_POLYNOMIAL_SUBTYPE,CMFE_EQUATIONS_SET_STVENANT_KIRCHOFF_ACTIVECONTRACTION_SUBTYPE, &
02754     & CMFE_EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_SUBTYPE,CMFE_EQUATIONS_SET_ANISOTROPIC_POLYNOMIAL_ACTIVE_SUBTYPE, &
02755     & CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_EXPONENTIAL_SUBTYPE,CMFE_EQUATIONS_SET_ORTHOTROPIC_MATERIAL_COSTA_SUBTYPE, &
02756     & CMFE_EQUATIONS_SET_COMPRESSIBLE_FINITE_ELASTICITY_SUBTYPE,CMFE_EQUATIONS_SET_INCOMPRESS_FINITE_ELASTICITY_DARCY_SUBTYPE, &
02757     & CMFE_EQUATIONS_SET_ELASTICITY_DARCY_INRIA_MODEL_SUBTYPE,CMFE_EQUATIONS_SET_ELASTICITY_MULTI_COMP_DARCY_INRIA_SUBTYPE, &
02758     & CMFE_EQUATIONS_SET_INCOMPRESS_ELASTICITY_DRIVEN_DARCY_SUBTYPE, &
02759     & CMFE_EQUATIONS_SET_INCOMPRESSIBLE_ELASTICITY_DRIVEN_MR_SUBTYPE, &
02760     & CMFE_EQUATIONS_SET_INCOMPRESS_ELAST_MULTI_COMP_DARCY_SUBTYPE,CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_GUCCIONE_SUBTYPE, &
02761     & CMFE_EQUATIONS_SET_GUCCIONE_ACTIVECONTRACTION_SUBTYPE, &
02762     & CMFE_EQUATIONS_SET_MEMBRANE_SUBTYPE, CMFE_EQUATIONS_SET_ORTHOTROPIC_HOLZAPFEL_OGDEN_SUBTYPE, &
02763     & CMFE_EQUATIONS_SET_HOLZAPFEL_OGDEN_ACTIVECONTRACTION_SUBTYPE,  &
02764     & CMFE_EQUATIONS_SET_ELASTICITY_FLUID_PRES_STATIC_INRIA_SUBTYPE, &
02765     & CMFE_EQUATIONS_SET_ELASTICITY_FLUID_PRES_HOLMES_MOW_SUBTYPE,&
02766     & CMFE_EQUATIONS_SET_TRANSVERSE_ISOTROPIC_HUMPHREY_YIN_SUBTYPE,&
02767     & CMFE_EQUATIONS_SET_STATIC_STOKES_SUBTYPE, CMFE_EQUATIONS_SET_LAPLACE_STOKES_SUBTYPE, &
02768     & CMFE_EQUATIONS_SET_TRANSIENT_STOKES_SUBTYPE,CMFE_EQUATIONS_SET_ALE_STOKES_SUBTYPE, &
02769     & CMFE_EQUATIONS_SET_ALE_NAVIER_STOKES_SUBTYPE, &
02770     & CMFE_EQUATIONS_SET_OPTIMISED_STOKES_SUBTYPE,CMFE_EQUATIONS_SET_STATIC_NAVIER_STOKES_SUBTYPE, &
02771     & CMFE_EQUATIONS_SET_LAPLACE_NAVIER_STOKES_SUBTYPE,CMFE_EQUATIONS_SET_TRANSIENT_NAVIER_STOKES_SUBTYPE, &
02772     & CMFE_EQUATIONS_SET_TRANSIENT1D_NAVIER_STOKES_SUBTYPE, CMFE_EQUATIONS_SET_TRANSIENT_RBS_NAVIER_STOKES_SUBTYPE, &
02773     & CMFE_EQUATIONS_SET_STATIC_RBS_NAVIER_STOKES_SUBTYPE, &
02774     & CMFE_EQUATIONS_SET_CHARACTERISTIC_SUBTYPE, &
02775     & CMFE_EQUATIONS_SET_TRANSIENT1D_ADV_NAVIER_STOKES_SUBTYPE, CMFE_EQUATIONS_SET_COUPLED1D0D_ADV_NAVIER_STOKES_SUBTYPE, &
02776     & CMFE_EQUATIONS_SET_STREE1D0D_SUBTYPE, CMFE_EQUATIONS_SET_STREE1D0D_ADV_SUBTYPE, &
02777     & CMFE_EQUATIONS_SET_MULTISCALE3D_NAVIER_STOKES_SUBTYPE, &
02778     & CMFE_EQUATIONS_SET_CONSTITUTIVE_MU_NAVIER_STOKES_SUBTYPE, &
02779     & CMFE_EQUATIONS_SET_COUPLED1D0D_NAVIER_STOKES_SUBTYPE, &
02780     & CMFE_EQUATIONS_SET_OPTIMISED_NAVIER_STOKES_SUBTYPE,CMFE_EQUATIONS_SET_STANDARD_DARCY_SUBTYPE, &
02781     & CMFE_EQUATIONS_SET_QUASISTATIC_DARCY_SUBTYPE,CMFE_EQUATIONS_SET_ALE_DARCY_SUBTYPE, &
02782     & CMFE_EQUATIONS_SET_TRANSIENT_DARCY_SUBTYPE, &
02783     & CMFE_EQUATIONS_SET_TRANSIENT_ALE_DARCY_SUBTYPE,CMFE_EQUATIONS_SET_MULTI_COMPARTMENT_DARCY_SUBTYPE, &
02784     & CMFE_EQUATIONS_SET_STANDARD_LAPLACE_SUBTYPE,CMFE_EQUATIONS_SET_MOVING_MESH_LAPLACE_SUBTYPE, &
02785     & CMFE_EQUATIONS_SET_GENERALISED_LAPLACE_SUBTYPE,CMFE_EQUATIONS_SET_CONSTANT_SOURCE_POISSON_SUBTYPE, &
02786     & CMFE_EQUATIONS_SET_EXTRACELLULAR_BIDOMAIN_POISSON_SUBTYPE, &
02787     & CMFE_EQUATIONS_SET_LINEAR_PRESSURE_POISSON_SUBTYPE, CMFE_EQUATIONS_SET_NONLINEAR_PRESSURE_POISSON_SUBTYPE, &
02788     & CMFE_EQUATIONS_SET_ALE_PRESSURE_POISSON_SUBTYPE, CMFE_EQUATIONS_SET_FITTED_PRESSURE_POISSON_SUBTYPE,&
02789     & CMFE_EQUATIONS_SET_LINEAR_SOURCE_POISSON_SUBTYPE,CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_POISSON_SUBTYPE, &
02790     & CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_POISSON_SUBTYPE,CMFE_EQUATIONS_SET_STANDARD_HELMHOLTZ_SUBTYPE, &
02791     & CMFE_EQUATIONS_SET_GENERALISED_HELMHOLTZ_SUBTYPE, &
02792     & CMFE_EQUATIONS_SET_NO_SOURCE_DIFFUSION_SUBTYPE,CMFE_EQUATIONS_SET_CONSTANT_SOURCE_DIFFUSION_SUBTYPE, &
02793     & CMFE_EQUATIONS_SET_LINEAR_SOURCE_DIFFUSION_SUBTYPE,CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_SUBTYPE, &
02794     & CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_SUBTYPE,CMFE_EQUATIONS_SET_MULTI_COMP_TRANSPORT_DIFFUSION_SUBTYPE, &
02795     & CMFE_EQUATIONS_SET_NO_SOURCE_ALE_DIFFUSION_SUBTYPE,CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_DIFFUSION_SUBTYPE, &
02796     & CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE,CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ALE_DIFFUSION_SUBTYPE, &
02797     & CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_ALE_DIFFUSION_SUBTYPE, &
02798     & CMFE_EQUATIONS_SET_ADVECTION_SUBTYPE, &
02799     & CMFE_EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFFUSION_SUBTYPE, &
02800     & CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFFUSION_SUBTYPE, &
02801     & CMFE_EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE, &
02802     & CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ADVEC_DIFF_SUBTYPE,CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_ADVEC_DIFF_SUBTYPE, &
02803     & CMFE_EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE, &
02804     & CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVEC_DIFF_SUBTYPE,CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVEC_DIFF_SUBTYPE, &
02805     & CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_ALE_ADVEC_DIFF_SUBTYPE,CMFE_EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE, &
02806     & CMFE_EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE, CMFE_EQUATIONS_SET_CONSTANT_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE, &
02807     & CMFE_EQUATIONS_SET_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE, &
02808     & CMFE_EQUATIONS_SET_NO_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE, CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE, &
02809     & CMFE_EQUATIONS_SET_LINEAR_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE, CMFE_EQUATIONS_SET_QUAD_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE, &
02810     & CMFE_EQUATIONS_SET_EXP_SOURCE_ADVECTION_DIFF_SUPG_SUBTYPE, &
02811     & CMFE_EQUATIONS_SET_NO_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE, &
02812     & CMFE_EQUATIONS_SET_CONSTANT_SOURCE_ALE_ADVEC_DIFF_SUPG_SUBTYPE, &
02813     & CMFE_EQUATIONS_SET_LINEAR_SOURCE_ALE_ADVEC_DIFF_SUPG_SUBTYPE, &
02814     & CMFE_EQUATIONS_SET_QUAD_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE, &
02815     & CMFE_EQUATIONS_SET_EXP_SOURCE_ALE_ADVECTION_DIFF_SUPG_SUBTYPE, &
02816     & CMFE_EQUATIONS_SET_NO_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE, &
02817     & CMFE_EQUATIONS_SET_CONST_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE, &
02818     & CMFE_EQUATIONS_SET_LIN_SOURCE_STATIC_ADVEC_DIFF_SUPG_SUBTYPE, &
02819     & CMFE_EQUATIONS_SET_MULTI_COMP_TRANSPORT_ADVEC_DIFF_SUBTYPE,CMFE_EQUATIONS_SET_MULT_COMP_TRANSPORT_ADVEC_DIFF_SUPG_SUBTYPE, &
02820     & CMFE_EQUATIONS_SET_PGM_STOKES_SUBTYPE, &
02821     & CMFE_EQUATIONS_SET_FIRST_BIDOMAIN_SUBTYPE,CMFE_EQUATIONS_SET_SECOND_BIDOMAIN_SUBTYPE, &
02822     & CMFE_EQUATIONS_SET_MONODOMAIN_BUENOOROVIO_SUBTYPE,&
02823     & CMFE_EQUATIONS_SET_MONODOMAIN_TENTUSSCHER06_SUBTYPE  ,&
02824     & CMFE_EQUATIONS_SET_STANDARD_DATA_FITTING_SUBTYPE,CMFE_EQUATIONS_SET_GENERALISED_DATA_FITTING_SUBTYPE, &
02825     & CMFE_EQUATIONS_SET_VECTOR_DATA_FITTING_SUBTYPE,CMFE_EQUATIONS_SET_DIVFREE_VECTOR_DATA_FITTING_SUBTYPE, &
02826     & CMFE_EQUATIONS_SET_VECTOR_DATA_PRE_FITTING_SUBTYPE,CMFE_EQUATIONS_SET_DIVFREE_VECTOR_DATA_PRE_FITTING_SUBTYPE, &
02827     & CMFE_EQUATIONS_SET_MAT_PROPERTIES_DATA_FITTING_SUBTYPE,CMFE_EQUATIONS_SET_MAT_PROP_INRIA_MODEL_DATA_FITTING_SUBTYPE, &
02828     & CMFE_EQUATIONS_SET_DATA_POINT_VECTOR_STATIC_FITTING_SUBTYPE, &
02829     & CMFE_EQUATIONS_SET_DATA_PT_VECTOR_QUASISTATIC_FITTING_SUBTYPE, &
02830     & CMFE_EQUATIONS_SET_PGM_NAVIER_STOKES_SUBTYPE, &
02831     & CMFE_EQUATIONS_SET_CONSTITUTIVE_LAW_IN_CELLML_EVALUATE_SUBTYPE, &
02832     & CMFE_EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_DIFFUSION_SUBTYPE, &
02833     & CMFE_EQUATIONS_SET_COUPLED_SOURCE_DIFFUSION_ADVEC_DIFF_SUBTYPE, &
02834     & CMFE_EQUATIONS_SET_BURGERS_SUBTYPE,CMFE_EQUATIONS_SET_GENERALISED_BURGERS_SUBTYPE, &
02835     & CMFE_EQUATIONS_SET_STATIC_BURGERS_SUBTYPE, &
02836     & CMFE_EQUATIONS_SET_INVISCID_BURGERS_SUBTYPE,CMFE_EQUATIONS_SET_STANDARD_MONODOMAIN_ELASTICITY_SUBTYPE, &
02837     & CMFE_EQUATIONS_SET_1D3D_MONODOMAIN_ELASTICITY_SUBTYPE,CMFE_EQUATIONS_SET_MONODOMAIN_ELASTICITY_W_TITIN_SUBTYPE, &
02838     & CMFE_EQUATIONS_SET_CONSTIT_AND_GROWTH_LAW_IN_CELLML_SUBTYPE, &
02839     & CMFE_EQUATIONS_SET_MONODOMAIN_ELASTICITY_VELOCITY_SUBTYPE, &
02840     & CMFE_EQUATIONS_SET_FINITE_ELASTICITY_NAVIER_STOKES_ALE_SUBTYPE
02841 
02842   PUBLIC CMFE_EQUATIONS_SET_CELLML_REAC_SPLIT_REAC_DIFF_SUBTYPE, CMFE_EQUATIONS_SET_CELLML_REAC_NO_SPLIT_REAC_DIFF_SUBTYPE, &
02843     & CMFE_EQUATIONS_SET_CONSTANT_REAC_DIFF_SUBTYPE
02844 
02845   PUBLIC CMFE_EQUATIONS_SET_FEM_SOLUTION_METHOD,CMFE_EQUATIONS_SET_BEM_SOLUTION_METHOD,CMFE_EQUATIONS_SET_FD_SOLUTION_METHOD, &
02846     & CMFE_EQUATIONS_SET_FV_SOLUTION_METHOD,CMFE_EQUATIONS_SET_GFEM_SOLUTION_METHOD,CMFE_EQUATIONS_SET_GFD_SOLUTION_METHOD, &
02847     & CMFE_EQUATIONS_SET_GFV_SOLUTION_METHOD
02848 
02849   PUBLIC CMFE_EQUATIONS_SET_DERIVED_STRAIN,CMFE_EQUATIONS_SET_DERIVED_STRESS
02850   PUBLIC CMFE_EQUATIONS_MATRIX_STIFFNESS,CMFE_EQUATIONS_MATRIX_DAMPING,CMFE_EQUATIONS_MATRIX_MASS
02851 
02852   PUBLIC CMFE_EQUATIONS_SET_LAPLACE_EQUATION_TWO_DIM_1,CMFE_EQUATIONS_SET_LAPLACE_EQUATION_TWO_DIM_2, &
02853     & CMFE_EQUATIONS_SET_LAPLACE_EQUATION_THREE_DIM_1,CMFE_EQUATIONS_SET_LAPLACE_EQUATION_THREE_DIM_2
02854 
02855   PUBLIC CMFE_EQUATIONS_SET_HELMHOLTZ_EQUATION_TWO_DIM_1
02856 
02857   PUBLIC CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_ONE_DIM_1,CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_1, &
02858     & CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_TWO_DIM_2,CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_1, &
02859     & CMFE_EQUATIONS_SET_LINEAR_ELASTICITY_THREE_DIM_2
02860 
02861   PUBLIC CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_ONE_DIM_1,CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_TWO_DIM_1, &
02862     & CMFE_EQUATIONS_SET_DIFFUSION_EQUATION_THREE_DIM_1, &
02863     & CMFE_EQUATIONS_SET_LINEAR_SOURCE_DIFFUSION_THREE_DIM_1,CMFE_EQUATIONS_SET_QUADRATIC_SOURCE_DIFFUSION_ONE_DIM_1, &
02864     & CMFE_EQUATIONS_SET_EXPONENTIAL_SOURCE_DIFFUSION_ONE_DIM_1,CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_TWO_DIM, &
02865     & CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_TWO_COMP_THREE_DIM,CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_THREE_COMP_THREE_DIM, &
02866     & CMFE_EQUATIONS_SET_MULTI_COMP_DIFFUSION_FOUR_COMP_THREE_DIM
02867 
02868 
02869   PUBLIC CMFE_EQUATIONS_SET_ADVECTION_DIFFUSION_EQUATION_TWO_DIM_1
02870 
02871   PUBLIC CMFE_EQUATIONS_SET_POISEUILLE_EQUATION_TWO_DIM_1
02872 
02873   PUBLIC CMFE_EQUATIONS_SET_BURGERS_EQUATION_ONE_DIM_1,CMFE_EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_1, &
02874     & CMFE_EQUATIONS_SET_GENERALISED_BURGERS_EQUATION_ONE_DIM_2, &
02875     & CMFE_EQUATIONS_SET_STATIC_BURGERS_EQUATION_ONE_DIM_1
02876 
02877   PUBLIC CMFE_EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_1,CMFE_EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_2, &
02878     & CMFE_EQUATIONS_SET_POISSON_EQUATION_TWO_DIM_3
02879   PUBLIC CMFE_EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_1,CMFE_EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_2, &
02880     & CMFE_EQUATIONS_SET_POISSON_EQUATION_THREE_DIM_3
02881   PUBLIC CMFE_EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_1, &
02882     & CMFE_EQUATIONS_SET_PRESSURE_POISSON_THREE_DIM_2
02883 
02884   PUBLIC CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_1,CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_2, &
02885     & CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_3
02886   PUBLIC CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_4,CMFE_EQUATIONS_SET_STOKES_EQUATION_TWO_DIM_5
02887   PUBLIC CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_1,CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_2, &
02888     & CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_3
02889   PUBLIC CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_4,CMFE_EQUATIONS_SET_STOKES_EQUATION_THREE_DIM_5
02890 
02891   PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_POISEUILLE, &
02892     & CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_TAYLOR_GREEN
02893   PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_FLOWRATE_AORTA, &
02894     &    CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_SINUSOID, &
02895     &    CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_SPLINT_FROM_FILE
02896   PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_1,CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_2, &
02897     & CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_3
02898   PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_4,CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_TWO_DIM_5
02899   PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_1,CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_2, &
02900     & CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_3
02901   PUBLIC CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_4,CMFE_EQUATIONS_SET_NAVIER_STOKES_EQUATION_THREE_DIM_5
02902 
02903   PUBLIC CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_1,CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_2, &
02904     & CMFE_EQUATIONS_SET_DARCY_EQUATION_TWO_DIM_3
02905   PUBLIC CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_1,CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_2, &
02906     & CMFE_EQUATIONS_SET_DARCY_EQUATION_THREE_DIM_3
02907   PUBLIC CMFE_EQUATIONS_SET_INCOMP_ELAST_DARCY_ANALYTIC_DARCY
02908 
02909   PUBLIC CMFE_EQUATIONS_SET_FINITE_ELASTICITY_CYLINDER
02910   PUBLIC CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_PIN_IDX,CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_POUT_IDX
02911   PUBLIC CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_LAMBDA_IDX,CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_TSI_IDX
02912   PUBLIC CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_RIN_IDX,CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_ROUT_IDX
02913   PUBLIC CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C1_IDX,CMFE_FINITE_ELASTICITY_ANALYTIC_CYLINDER_PARAM_C2_IDX
02914 
02915 !!==================================================================================================================================
02916 !!
02917 !! EQUATIONS_SET_ROUTINES
02918 !!
02919 !!==================================================================================================================================
02920 
02921   !Module parameters
02922 
02923   !Module types
02924 
02925   !Module variables
02926 
02927   !Interfaces
02928 
02930   INTERFACE cmfe_EquationsSet_AnalyticCreateFinish
02931     MODULE PROCEDURE cmfe_EquationsSet_AnalyticCreateFinishNumber
02932     MODULE PROCEDURE cmfe_EquationsSet_AnalyticCreateFinishObj
02933   END INTERFACE cmfe_EquationsSet_AnalyticCreateFinish
02934 
02936   INTERFACE cmfe_EquationsSet_AnalyticCreateStart
02937     MODULE PROCEDURE cmfe_EquationsSet_AnalyticCreateStartNumber
02938     MODULE PROCEDURE cmfe_EquationsSet_AnalyticCreateStartObj
02939   END INTERFACE cmfe_EquationsSet_AnalyticCreateStart
02940 
02942   INTERFACE cmfe_EquationsSet_AnalyticDestroy
02943     MODULE PROCEDURE cmfe_EquationsSet_AnalyticDestroyNumber
02944     MODULE PROCEDURE cmfe_EquationsSet_AnalyticDestroyObj
02945   END INTERFACE cmfe_EquationsSet_AnalyticDestroy
02946 
02948   INTERFACE cmfe_EquationsSet_AnalyticEvaluate
02949     MODULE PROCEDURE cmfe_EquationsSet_AnalyticEvaluateNumber
02950     MODULE PROCEDURE cmfe_EquationsSet_AnalyticEvaluateObj
02951   END INTERFACE cmfe_EquationsSet_AnalyticEvaluate
02952 
02954   INTERFACE cmfe_EquationsSet_AnalyticTimeGet
02955     MODULE PROCEDURE cmfe_EquationsSet_AnalyticTimeGetNumber
02956     MODULE PROCEDURE cmfe_EquationsSet_AnalyticTimeGetObj
02957   END INTERFACE cmfe_EquationsSet_AnalyticTimeGet
02958 
02960   INTERFACE cmfe_EquationsSet_AnalyticTimeSet
02961     MODULE PROCEDURE cmfe_EquationsSet_AnalyticTimeSetNumber
02962     MODULE PROCEDURE cmfe_EquationsSet_AnalyticTimeSetObj
02963   END INTERFACE cmfe_EquationsSet_AnalyticTimeSet
02964 
02966   INTERFACE cmfe_EquationsSet_CreateFinish
02967     MODULE PROCEDURE cmfe_EquationsSet_CreateFinishNumber
02968     MODULE PROCEDURE cmfe_EquationsSet_CreateFinishObj
02969   END INTERFACE cmfe_EquationsSet_CreateFinish
02970 
02972   INTERFACE cmfe_EquationsSet_CreateStart
02973     MODULE PROCEDURE cmfe_EquationsSet_CreateStartNumber
02974     MODULE PROCEDURE cmfe_EquationsSet_CreateStartObj
02975   END INTERFACE cmfe_EquationsSet_CreateStart
02976 
02978   INTERFACE cmfe_EquationsSet_Destroy
02979     MODULE PROCEDURE cmfe_EquationsSet_DestroyNumber
02980     MODULE PROCEDURE cmfe_EquationsSet_DestroyObj
02981   END INTERFACE cmfe_EquationsSet_Destroy
02982 
02984   INTERFACE cmfe_EquationsSet_DependentCreateFinish
02985     MODULE PROCEDURE cmfe_EquationsSet_DependentCreateFinishNumber
02986     MODULE PROCEDURE cmfe_EquationsSet_DependentCreateFinishObj
02987   END INTERFACE cmfe_EquationsSet_DependentCreateFinish
02988 
02990   INTERFACE cmfe_EquationsSet_DependentCreateStart
02991     MODULE PROCEDURE cmfe_EquationsSet_DependentCreateStartNumber
02992     MODULE PROCEDURE cmfe_EquationsSet_DependentCreateStartObj
02993   END INTERFACE cmfe_EquationsSet_DependentCreateStart
02994 
02996   INTERFACE cmfe_EquationsSet_DependentDestroy
02997     MODULE PROCEDURE cmfe_EquationsSet_DependentDestroyNumber
02998     MODULE PROCEDURE cmfe_EquationsSet_DependentDestroyObj
02999   END INTERFACE cmfe_EquationsSet_DependentDestroy
03000 
03002   INTERFACE cmfe_EquationsSet_DerivedCreateFinish
03003     MODULE PROCEDURE cmfe_EquationsSet_DerivedCreateFinishNumber
03004     MODULE PROCEDURE cmfe_EquationsSet_DerivedCreateFinishObj
03005   END INTERFACE cmfe_EquationsSet_DerivedCreateFinish
03006 
03009   INTERFACE cmfe_EquationsSet_DerivedCreateStart
03010     MODULE PROCEDURE cmfe_EquationsSet_DerivedCreateStartNumber
03011     MODULE PROCEDURE cmfe_EquationsSet_DerivedCreateStartObj
03012   END INTERFACE cmfe_EquationsSet_DerivedCreateStart
03013 
03015   INTERFACE cmfe_EquationsSet_DerivedDestroy
03016     MODULE PROCEDURE cmfe_EquationsSet_DerivedDestroyNumber
03017     MODULE PROCEDURE cmfe_EquationsSet_DerivedDestroyObj
03018   END INTERFACE cmfe_EquationsSet_DerivedDestroy
03019 
03021   INTERFACE cmfe_EquationsSet_EquationsCreateFinish
03022     MODULE PROCEDURE cmfe_EquationsSet_EquationsCreateFinishNumber
03023     MODULE PROCEDURE cmfe_EquationsSet_EquationsCreateFinishObj
03024   END INTERFACE cmfe_EquationsSet_EquationsCreateFinish
03025 
03027   INTERFACE cmfe_EquationsSet_EquationsCreateStart
03028     MODULE PROCEDURE cmfe_EquationsSet_EquationsCreateStartNumber
03029     MODULE PROCEDURE cmfe_EquationsSet_EquationsCreateStartObj
03030   END INTERFACE cmfe_EquationsSet_EquationsCreateStart
03031 
03033   INTERFACE cmfe_EquationsSet_EquationsDestroy
03034     MODULE PROCEDURE cmfe_EquationsSet_EquationsDestroyNumber
03035     MODULE PROCEDURE cmfe_EquationsSet_EquationsDestroyObj
03036   END INTERFACE cmfe_EquationsSet_EquationsDestroy
03037 
03039   INTERFACE cmfe_EquationsSet_IndependentCreateFinish
03040     MODULE PROCEDURE cmfe_EquationsSet_IndependentCreateFinishNumber
03041     MODULE PROCEDURE cmfe_EquationsSet_IndependentCreateFinishObj
03042   END INTERFACE cmfe_EquationsSet_IndependentCreateFinish
03043 
03045   INTERFACE cmfe_EquationsSet_IndependentCreateStart
03046     MODULE PROCEDURE cmfe_EquationsSet_IndependentCreateStartNumber
03047     MODULE PROCEDURE cmfe_EquationsSet_IndependentCreateStartObj
03048   END INTERFACE cmfe_EquationsSet_IndependentCreateStart
03049 
03051   INTERFACE cmfe_EquationsSet_IndependentDestroy
03052     MODULE PROCEDURE cmfe_EquationsSet_IndependentDestroyNumber
03053     MODULE PROCEDURE cmfe_EquationsSet_IndependentDestroyObj
03054   END INTERFACE cmfe_EquationsSet_IndependentDestroy
03055 
03057   INTERFACE cmfe_EquationsSet_MaterialsCreateFinish
03058     MODULE PROCEDURE cmfe_EquationsSet_MaterialsCreateFinishNumber
03059     MODULE PROCEDURE cmfe_EquationsSet_MaterialsCreateFinishObj
03060   END INTERFACE cmfe_EquationsSet_MaterialsCreateFinish
03061 
03063   INTERFACE cmfe_EquationsSet_MaterialsCreateStart
03064     MODULE PROCEDURE cmfe_EquationsSet_MaterialsCreateStartNumber
03065     MODULE PROCEDURE cmfe_EquationsSet_MaterialsCreateStartObj
03066   END INTERFACE cmfe_EquationsSet_MaterialsCreateStart
03067 
03069   INTERFACE cmfe_EquationsSet_MaterialsDestroy
03070     MODULE PROCEDURE cmfe_EquationsSet_MaterialsDestroyNumber
03071     MODULE PROCEDURE cmfe_EquationsSet_MaterialsDestroyObj
03072   END INTERFACE cmfe_EquationsSet_MaterialsDestroy
03073 
03075   INTERFACE cmfe_EquationsSet_SolutionMethodGet
03076     MODULE PROCEDURE cmfe_EquationsSet_SolutionMethodGetNumber
03077     MODULE PROCEDURE cmfe_EquationsSet_SolutionMethodGetObj
03078   END INTERFACE cmfe_EquationsSet_SolutionMethodGet
03079 
03081   INTERFACE cmfe_EquationsSet_SolutionMethodSet
03082     MODULE PROCEDURE cmfe_EquationsSet_SolutionMethodSetNumber
03083     MODULE PROCEDURE cmfe_EquationsSet_SolutionMethodSetObj
03084   END INTERFACE cmfe_EquationsSet_SolutionMethodSet
03085 
03087   INTERFACE cmfe_EquationsSet_SourceCreateFinish
03088     MODULE PROCEDURE cmfe_EquationsSet_SourceCreateFinishNumber
03089     MODULE PROCEDURE cmfe_EquationsSet_SourceCreateFinishObj
03090   END INTERFACE cmfe_EquationsSet_SourceCreateFinish
03091 
03093   INTERFACE cmfe_EquationsSet_SourceCreateStart
03094     MODULE PROCEDURE cmfe_EquationsSet_SourceCreateStartNumber
03095     MODULE PROCEDURE cmfe_EquationsSet_SourceCreateStartObj
03096   END INTERFACE cmfe_EquationsSet_SourceCreateStart
03097 
03099   INTERFACE cmfe_EquationsSet_SourceDestroy
03100     MODULE PROCEDURE cmfe_EquationsSet_SourceDestroyNumber
03101     MODULE PROCEDURE cmfe_EquationsSet_SourceDestroyObj
03102   END INTERFACE cmfe_EquationsSet_SourceDestroy
03103 
03105   INTERFACE cmfe_EquationsSet_SpecificationGet
03106     MODULE PROCEDURE cmfe_EquationsSet_SpecificationGetNumber
03107     MODULE PROCEDURE cmfe_EquationsSet_SpecificationGetObj
03108   END INTERFACE cmfe_EquationsSet_SpecificationGet
03109 
03111   INTERFACE cmfe_EquationsSet_SpecificationSizeGet
03112     MODULE PROCEDURE cmfe_EquationsSet_SpecificationSizeGetNumber
03113     MODULE PROCEDURE cmfe_EquationsSet_SpecificationSizeGetObj
03114   END INTERFACE cmfe_EquationsSet_SpecificationSizeGet
03115 
03117   INTERFACE cmfe_EquationsSet_DerivedVariableCalculate
03118     MODULE PROCEDURE cmfe_EquationsSet_DerivedVariableCalculateNumber
03119     MODULE PROCEDURE cmfe_EquationsSet_DerivedVariableCalculateObj
03120   END INTERFACE cmfe_EquationsSet_DerivedVariableCalculate
03121 
03123   INTERFACE cmfe_EquationsSet_DerivedVariableSet
03124     MODULE PROCEDURE cmfe_EquationsSet_DerivedVariableSetNumber
03125     MODULE PROCEDURE cmfe_EquationsSet_DerivedVariableSetObj
03126   END INTERFACE cmfe_EquationsSet_DerivedVariableSet
03127   
03129   INTERFACE cmfe_EquationsSet_StrainInterpolateXi
03130     MODULE PROCEDURE cmfe_EquationsSet_StrainInterpolateXiNumber
03131     MODULE PROCEDURE cmfe_EquationsSet_StrainInterpolateXiObj
03132   END INTERFACE cmfe_EquationsSet_StrainInterpolateXi
03133 
03135   INTERFACE cmfe_EquationsSet_AnalyticUserParamGet
03136     MODULE PROCEDURE cmfe_EquationsSet_AnalyticUserParamGetNumber
03137     MODULE PROCEDURE cmfe_EquationsSet_AnalyticUserParamGetObj
03138   END INTERFACE cmfe_EquationsSet_AnalyticUserParamGet
03139 
03141   INTERFACE cmfe_EquationsSet_AnalyticUserParamSet
03142     MODULE PROCEDURE cmfe_EquationsSet_AnalyticUserParamSetNumber
03143     MODULE PROCEDURE cmfe_EquationsSet_AnalyticUserParamSetObj
03144   END INTERFACE cmfe_EquationsSet_AnalyticUserParamSet
03145 
03146   PUBLIC cmfe_EquationsSet_AnalyticCreateFinish,cmfe_EquationsSet_AnalyticCreateStart
03147 
03148   PUBLIC cmfe_EquationsSet_AnalyticDestroy
03149 
03150   PUBLIC cmfe_EquationsSet_AnalyticEvaluate
03151 
03152   PUBLIC cmfe_EquationsSet_AnalyticTimeGet,cmfe_EquationsSet_AnalyticTimeSet
03153 
03154   PUBLIC cmfe_EquationsSet_CreateFinish,cmfe_EquationsSet_CreateStart
03155 
03156   PUBLIC cmfe_EquationsSet_Destroy
03157 
03158   PUBLIC cmfe_EquationsSet_DependentCreateFinish,cmfe_EquationsSet_DependentCreateStart
03159 
03160   PUBLIC cmfe_EquationsSet_DependentDestroy
03161 
03162   PUBLIC cmfe_EquationsSet_DerivedCreateFinish,cmfe_EquationsSet_DerivedCreateStart
03163 
03164   PUBLIC cmfe_EquationsSet_DerivedDestroy
03165 
03166   PUBLIC cmfe_EquationsSet_DerivedVariableCalculate,cmfe_EquationsSet_DerivedVariableSet
03167 
03168   PUBLIC cmfe_EquationsSet_EquationsCreateFinish,cmfe_EquationsSet_EquationsCreateStart
03169 
03170   PUBLIC cmfe_EquationsSet_EquationsDestroy
03171 
03172   PUBLIC cmfe_EquationsSet_IndependentCreateFinish,cmfe_EquationsSet_IndependentCreateStart
03173 
03174   PUBLIC cmfe_EquationsSet_IndependentDestroy
03175 
03176   PUBLIC cmfe_EquationsSet_MaterialsCreateFinish,cmfe_EquationsSet_MaterialsCreateStart
03177 
03178   PUBLIC cmfe_EquationsSet_MaterialsDestroy
03179 
03180   PUBLIC cmfe_EquationsSet_SolutionMethodGet,cmfe_EquationsSet_SolutionMethodSet
03181 
03182   PUBLIC cmfe_EquationsSet_SourceCreateFinish,cmfe_EquationsSet_SourceCreateStart
03183 
03184   PUBLIC cmfe_EquationsSet_SourceDestroy
03185 
03186   PUBLIC cmfe_EquationsSet_SpecificationGet,cmfe_EquationsSet_SpecificationSizeGet
03187 
03188   PUBLIC cmfe_EquationsSet_StrainInterpolateXi
03189 
03190   PUBLIC cmfe_EquationsSet_AnalyticUserParamSet,cmfe_EquationsSet_AnalyticUserParamGet
03191 
03192 !!==================================================================================================================================
03193 !!
03194 !! FIELD_ROUTINES
03195 !!
03196 !!==================================================================================================================================
03197 
03198   !Module parameters
03199 
03207   INTEGER(INTG), PARAMETER :: CMFE_FIELD_INDEPENDENT_TYPE = FIELD_INDEPENDENT_TYPE !<Independent field type \see OPENCMISS_FieldDependentTypes,OPENCMISS
03208   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DEPENDENT_TYPE = FIELD_DEPENDENT_TYPE !<Dependent field type \see OPENCMISS_FieldDependentTypes,OPENCMISS
03209 
03214   INTEGER(INTG), PARAMETER :: CMFE_FIELD_SCALAR_DIMENSION_TYPE = FIELD_SCALAR_DIMENSION_TYPE !<Scalar field \see OPENCMISS_FieldDimensionTypes,OPENCMISS
03215   INTEGER(INTG), PARAMETER :: CMFE_FIELD_VECTOR_DIMENSION_TYPE = FIELD_VECTOR_DIMENSION_TYPE !<Vector field \see OPENCMISS_FieldDimensionTypes,OPENCMISS
03216   INTEGER(INTG), PARAMETER :: CMFE_FIELD_TENSOR_DIMENSION_TYPE = FIELD_TENSOR_DIMENSION_TYPE !<Tensor field \see OPENCMISS_FieldDimensionTypes,OPENCMISS
03217 
03222   INTEGER(INTG), PARAMETER :: CMFE_FIELD_GEOMETRIC_TYPE = FIELD_GEOMETRIC_TYPE !<Geometric field \see OPENCMISS_FieldTypes,OPENCMISS
03223   INTEGER(INTG), PARAMETER :: CMFE_FIELD_FIBRE_TYPE = FIELD_FIBRE_TYPE !<Fibre field \see OPENCMISS_FieldTypes,OPENCMISS
03224   INTEGER(INTG), PARAMETER :: CMFE_FIELD_GENERAL_TYPE = FIELD_GENERAL_TYPE !<General field \see OPENCMISS_FieldTypes,OPENCMISS
03225   INTEGER(INTG), PARAMETER :: CMFE_FIELD_MATERIAL_TYPE = FIELD_MATERIAL_TYPE !<Material field \see OPENCMISS_FieldTypes,OPENCMISS
03226   INTEGER(INTG), PARAMETER :: CMFE_FIELD_GEOMETRIC_GENERAL_TYPE = FIELD_GEOMETRIC_GENERAL_TYPE !<Geometric general field \see OPENCMISS_FieldTypes,OPENCMISS
03227 
03232   INTEGER(INTG), PARAMETER :: CMFE_FIELD_CONSTANT_INTERPOLATION = FIELD_CONSTANT_INTERPOLATION !<Constant interpolation. One parameter for the field \see OPENCMISS_FieldInterpolationTypes,OPENCMISS
03233   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
03234   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
03235   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
03236   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
03237   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
03238 
03243   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
03244   INTEGER(INTG), PARAMETER :: CMFE_FIELD_U_VARIABLE_TYPE = FIELD_U_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
03245   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELUDELN_VARIABLE_TYPE = FIELD_DELUDELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
03246   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
03247   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
03248   INTEGER(INTG), PARAMETER :: CMFE_FIELD_V_VARIABLE_TYPE = FIELD_V_VARIABLE_TYPE !<Second standard variable type i.e., v \see OPENCMISS_FieldVariableTypes,OPENCMISS
03249   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
03250   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
03251   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
03252   INTEGER(INTG), PARAMETER :: CMFE_FIELD_U1_VARIABLE_TYPE = FIELD_U1_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
03253   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU1DELN_VARIABLE_TYPE = FIELD_DELU1DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
03254   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
03255   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
03256   INTEGER(INTG), PARAMETER :: CMFE_FIELD_U2_VARIABLE_TYPE = FIELD_U2_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
03257   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU2DELN_VARIABLE_TYPE = FIELD_DELU2DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
03258   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
03259   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
03260   INTEGER(INTG), PARAMETER :: CMFE_FIELD_U3_VARIABLE_TYPE = FIELD_U3_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
03261   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU3DELN_VARIABLE_TYPE = FIELD_DELU3DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
03262   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
03263   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
03264   INTEGER(INTG), PARAMETER :: CMFE_FIELD_U4_VARIABLE_TYPE = FIELD_U4_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
03265   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU4DELN_VARIABLE_TYPE = FIELD_DELU4DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
03266   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
03267   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
03268   INTEGER(INTG), PARAMETER :: CMFE_FIELD_U5_VARIABLE_TYPE = FIELD_U5_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
03269   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU5DELN_VARIABLE_TYPE = FIELD_DELU5DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
03270   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
03271   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
03272   INTEGER(INTG), PARAMETER :: CMFE_FIELD_U6_VARIABLE_TYPE = FIELD_U6_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
03273   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU6DELN_VARIABLE_TYPE = FIELD_DELU6DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
03274   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
03275   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
03276   INTEGER(INTG), PARAMETER :: CMFE_FIELD_U7_VARIABLE_TYPE = FIELD_U7_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
03277   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU7DELN_VARIABLE_TYPE = FIELD_DELU7DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
03278   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
03279   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
03280   INTEGER(INTG), PARAMETER :: CMFE_FIELD_U8_VARIABLE_TYPE = FIELD_U8_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
03281   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU8DELN_VARIABLE_TYPE = FIELD_DELU8DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
03282   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
03283   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
03284   INTEGER(INTG), PARAMETER :: CMFE_FIELD_U9_VARIABLE_TYPE = FIELD_U9_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
03285   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU9DELN_VARIABLE_TYPE = FIELD_DELU9DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
03286   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
03287   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
03288   INTEGER(INTG), PARAMETER :: CMFE_FIELD_U10_VARIABLE_TYPE = FIELD_U10_VARIABLE_TYPE !<Standard variable type i.e., u \see OPENCMISS_FieldVariableTypes,OPENCMISS
03289   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DELU10DELN_VARIABLE_TYPE = FIELD_DELU10DELN_VARIABLE_TYPE !<Normal derivative variable type i.e., du/dn \see OPENCMISS_FieldVariableTypes,OPENCMISS
03290   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
03291   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
03292 
03297   INTEGER(INTG), PARAMETER :: CMFE_FIELD_INTG_TYPE = FIELD_INTG_TYPE !<Integer field data type \see OPENCMISS_FieldDataTypes,OPENCMISS
03298   INTEGER(INTG), PARAMETER :: CMFE_FIELD_SP_TYPE = FIELD_SP_TYPE !<Single precision real field data type \see OPENCMISS_FieldDataTypes,OPENCMISS
03299   INTEGER(INTG), PARAMETER :: CMFE_FIELD_DP_TYPE = FIELD_DP_TYPE !<Double precision real field data type \see OPENCMISS_FieldDataTypes,OPENCMISS
03300   INTEGER(INTG), PARAMETER :: CMFE_FIELD_L_TYPE = FIELD_L_TYPE !<Logical field data type \see OPENCMISS_FieldDataTypes,OPENCMISS
03301 
03306   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
03307   INTEGER(INTG), PARAMETER :: CMFE_FIELD_CONTIGUOUS_COMPONENT_DOF_ORDER = FIELD_CONTIGUOUS_COMPONENT_DOF_ORDER !<Field variable component dofs are contiguous \see OPENCMISS_FieldDOFOrderTypes,OPENCMISS
03308 
03313   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
03314   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
03315   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
03316   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
03317   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
03318   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
03319   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
03320   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
03321   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
03322   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
03323   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
03324   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
03325   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
03326   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
03327   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
03328   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
03329   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
03330   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
03331   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
03332 
03337   INTEGER(INTG), PARAMETER :: CMFE_FIELD_NO_SCALING = FIELD_NO_SCALING !<The field is not scaled \see OPENCMISS_FieldScalingTypes,OPENCMISS
03338   INTEGER(INTG), PARAMETER :: CMFE_FIELD_UNIT_SCALING = FIELD_UNIT_SCALING !<The field has unit scaling \see OPENCMISS_FieldScalingTypes,OPENCMISS
03339   INTEGER(INTG), PARAMETER :: CMFE_FIELD_ARC_LENGTH_SCALING = FIELD_ARC_LENGTH_SCALING !<The field has arc length scaling \see OPENCMISS_FieldScalingTypes,OPENCMISS
03340   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
03341   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
03342   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
03343 
03345 
03346   !Module types
03347 
03348   !Module variables
03349 
03350   !Interfaces
03351 
03353   INTERFACE cmfe_Field_ComponentInterpolationGet
03354     MODULE PROCEDURE cmfe_Field_ComponentInterpolationGetNumber
03355     MODULE PROCEDURE cmfe_Field_ComponentInterpolationGetObj
03356   END INTERFACE cmfe_Field_ComponentInterpolationGet
03357 
03359   INTERFACE cmfe_Field_ComponentInterpolationSet
03360     MODULE PROCEDURE cmfe_Field_ComponentInterpolationSetNumber
03361     MODULE PROCEDURE cmfe_Field_ComponentInterpolationSetObj
03362   END INTERFACE cmfe_Field_ComponentInterpolationSet
03363 
03365   INTERFACE cmfe_Field_ComponentLabelGet
03366     MODULE PROCEDURE cmfe_Field_ComponentLabelGetCNumber
03367     MODULE PROCEDURE cmfe_Field_ComponentLabelGetCObj
03368     MODULE PROCEDURE cmfe_Field_ComponentLabelGetVSNumber
03369     MODULE PROCEDURE cmfe_Field_ComponentLabelGetVSObj
03370   END INTERFACE cmfe_Field_ComponentLabelGet
03371 
03373   INTERFACE cmfe_Field_ComponentLabelSet
03374     MODULE PROCEDURE cmfe_Field_ComponentLabelSetCNumber
03375     MODULE PROCEDURE cmfe_Field_ComponentLabelSetCObj
03376     MODULE PROCEDURE cmfe_Field_ComponentLabelSetVSNumber
03377     MODULE PROCEDURE cmfe_Field_ComponentLabelSetVSObj
03378   END INTERFACE cmfe_Field_ComponentLabelSet
03379 
03381   INTERFACE cmfe_Field_ComponentMeshComponentGet
03382     MODULE PROCEDURE cmfe_Field_ComponentMeshComponentGetNumber
03383     MODULE PROCEDURE cmfe_Field_ComponentMeshComponentGetObj
03384   END INTERFACE cmfe_Field_ComponentMeshComponentGet
03385 
03387   INTERFACE cmfe_Field_ComponentMeshComponentSet
03388     MODULE PROCEDURE cmfe_Field_ComponentMeshComponentSetNumber
03389     MODULE PROCEDURE cmfe_Field_ComponentMeshComponentSetObj
03390   END INTERFACE cmfe_Field_ComponentMeshComponentSet
03391 
03393   INTERFACE cmfe_Field_ComponentValuesInitialise
03394     MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseIntgNumber
03395     MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseIntgObj
03396     MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseSPNumber
03397     MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseSPObj
03398     MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseDPNumber
03399     MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseDPObj
03400     MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseLNumber
03401     MODULE PROCEDURE cmfe_Field_ComponentValuesInitialiseLObj
03402   END INTERFACE cmfe_Field_ComponentValuesInitialise
03403 
03405   INTERFACE cmfe_Field_DataTypeGet
03406     MODULE PROCEDURE cmfe_Field_DataTypeGetNumber
03407     MODULE PROCEDURE cmfe_Field_DataTypeGetObj
03408   END INTERFACE cmfe_Field_DataTypeGet
03409 
03411   INTERFACE cmfe_Field_DataTypeSet
03412     MODULE PROCEDURE cmfe_Field_DataTypeSetNumber
03413     MODULE PROCEDURE cmfe_Field_DataTypeSetObj
03414   END INTERFACE cmfe_Field_DataTypeSet
03415 
03417   INTERFACE cmfe_Field_DOFOrderTypeGet
03418     MODULE PROCEDURE cmfe_Field_DOFOrderTypeGetNumber
03419     MODULE PROCEDURE cmfe_Field_DOFOrderTypeGetObj
03420   END INTERFACE cmfe_Field_DOFOrderTypeGet
03421 
03423   INTERFACE cmfe_Field_DOFOrderTypeSet
03424     MODULE PROCEDURE cmfe_Field_DOFOrderTypeSetNumber
03425     MODULE PROCEDURE cmfe_Field_DOFOrderTypeSetObj
03426   END INTERFACE cmfe_Field_DOFOrderTypeSet
03427 
03429   INTERFACE cmfe_Field_CreateFinish
03430     MODULE PROCEDURE cmfe_Field_CreateFinishNumber
03431     MODULE PROCEDURE cmfe_Field_CreateFinishObj
03432   END INTERFACE cmfe_Field_CreateFinish
03433 
03435   INTERFACE cmfe_Field_CreateStart
03436     MODULE PROCEDURE cmfe_Field_CreateStartNumber
03437     MODULE PROCEDURE cmfe_Field_CreateStartInterfaceObj
03438     MODULE PROCEDURE cmfe_Field_CreateStartRegionObj
03439   END INTERFACE cmfe_Field_CreateStart
03440 
03442   INTERFACE cmfe_Field_DependentTypeGet
03443     MODULE PROCEDURE cmfe_Field_DependentTypeGetNumber
03444     MODULE PROCEDURE cmfe_Field_DependentTypeGetObj
03445   END INTERFACE cmfe_Field_DependentTypeGet
03446 
03448   INTERFACE cmfe_Field_DependentTypeSet
03449     MODULE PROCEDURE cmfe_Field_DependentTypeSetNumber
03450     MODULE PROCEDURE cmfe_Field_DependentTypeSetObj
03451   END INTERFACE cmfe_Field_DependentTypeSet
03452 
03454   INTERFACE cmfe_Field_Destroy
03455     MODULE PROCEDURE cmfe_Field_DestroyNumber
03456     MODULE PROCEDURE cmfe_Field_DestroyObj
03457   END INTERFACE cmfe_Field_Destroy
03458 
03460   INTERFACE cmfe_Field_DimensionGet
03461     MODULE PROCEDURE cmfe_Field_DimensionGetNumber
03462     MODULE PROCEDURE cmfe_Field_DimensionGetObj
03463   END INTERFACE cmfe_Field_DimensionGet
03464 
03466   INTERFACE cmfe_Field_DimensionSet
03467     MODULE PROCEDURE cmfe_Field_DimensionSetNumber
03468     MODULE PROCEDURE cmfe_Field_DimensionSetObj
03469   END INTERFACE cmfe_Field_DimensionSet
03470 
03472   INTERFACE cmfe_Field_GeometricFieldGet
03473     MODULE PROCEDURE cmfe_Field_GeometricFieldGetNumber
03474     MODULE PROCEDURE cmfe_Field_GeometricFieldGetObj
03475   END INTERFACE cmfe_Field_GeometricFieldGet
03476 
03478   INTERFACE cmfe_Field_GeometricFieldSet
03479     MODULE PROCEDURE cmfe_Field_GeometricFieldSetNumber
03480     MODULE PROCEDURE cmfe_Field_GeometricFieldSetObj
03481   END INTERFACE cmfe_Field_GeometricFieldSet
03482 
03484   INTERFACE cmfe_Field_GeometricParametersElementLineLengthGet
03485     MODULE PROCEDURE cmfe_Field_GeometricParametersElementLineLengthGetNumber
03486     MODULE PROCEDURE cmfe_Field_GeometricParametersElementLineLengthGetObj
03487   END INTERFACE cmfe_Field_GeometricParametersElementLineLengthGet
03488 
03490   INTERFACE cmfe_Field_LabelGet
03491     MODULE PROCEDURE cmfe_Field_LabelGetCNumber
03492     MODULE PROCEDURE cmfe_Field_LabelGetCObj
03493     MODULE PROCEDURE cmfe_Field_LabelGetVSNumber
03494     MODULE PROCEDURE cmfe_Field_LabelGetVSObj
03495   END INTERFACE cmfe_Field_LabelGet
03496 
03498   INTERFACE cmfe_Field_LabelSet
03499     MODULE PROCEDURE cmfe_Field_LabelSetCNumber
03500     MODULE PROCEDURE cmfe_Field_LabelSetCObj
03501     MODULE PROCEDURE cmfe_Field_LabelSetVSNumber
03502     MODULE PROCEDURE cmfe_Field_LabelSetVSObj
03503   END INTERFACE cmfe_Field_LabelSet
03504 
03505   INTERFACE cmfe_Field_PositionNormalTangentCalculateNode
03506     MODULE PROCEDURE cmfe_Field_PositionNormalTangentCalculateNodeNumber
03507     MODULE PROCEDURE cmfe_Field_PositionNormalTangentCalculateNodeObj
03508   END INTERFACE
03509 
03511   INTERFACE cmfe_Field_MeshDecompositionGet
03512     MODULE PROCEDURE cmfe_Field_MeshDecompositionGetNumber
03513     MODULE PROCEDURE cmfe_Field_MeshDecompositionGetObj
03514   END INTERFACE cmfe_Field_MeshDecompositionGet
03515 
03517   INTERFACE cmfe_Field_MeshDecompositionSet
03518     MODULE PROCEDURE cmfe_Field_MeshDecompositionSetNumber
03519     MODULE PROCEDURE cmfe_Field_MeshDecompositionSetObj
03520   END INTERFACE cmfe_Field_MeshDecompositionSet
03521 
03523   INTERFACE cmfe_Field_DataProjectionSet
03524     MODULE PROCEDURE cmfe_Field_DataProjectionSetNumber
03525     MODULE PROCEDURE cmfe_Field_DataProjectionSetObj
03526   END INTERFACE cmfe_Field_DataProjectionSet
03527 
03529   INTERFACE cmfe_Field_NumberOfComponentsGet
03530     MODULE PROCEDURE cmfe_Field_NumberOfComponentsGetNumber
03531     MODULE PROCEDURE cmfe_Field_NumberOfComponentsGetObj
03532   END INTERFACE cmfe_Field_NumberOfComponentsGet
03533 
03535   INTERFACE cmfe_Field_NumberOfComponentsSet
03536     MODULE PROCEDURE cmfe_Field_NumberOfComponentsSetNumber
03537     MODULE PROCEDURE cmfe_Field_NumberOfComponentsSetObj
03538   END INTERFACE cmfe_Field_NumberOfComponentsSet
03539 
03541   INTERFACE cmfe_Field_NumberOfVariablesGet
03542     MODULE PROCEDURE cmfe_Field_NumberOfVariablesGetNumber
03543     MODULE PROCEDURE cmfe_Field_NumberOfVariablesGetObj
03544   END INTERFACE cmfe_Field_NumberOfVariablesGet
03545 
03547   INTERFACE cmfe_Field_NumberOfVariablesSet
03548     MODULE PROCEDURE cmfe_Field_NumberOfVariablesSetNumber
03549     MODULE PROCEDURE cmfe_Field_NumberOfVariablesSetObj
03550   END INTERFACE cmfe_Field_NumberOfVariablesSet
03551 
03553   INTERFACE cmfe_Field_ParameterSetAddConstant
03554     MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantIntgNumber
03555     MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantIntgObj
03556     MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantSPNumber
03557     MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantSPObj
03558     MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantDPNumber
03559     MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantDPObj
03560     MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantLNumber
03561     MODULE PROCEDURE cmfe_Field_ParameterSetAddConstantLObj
03562   END INTERFACE cmfe_Field_ParameterSetAddConstant
03563 
03565   INTERFACE cmfe_Field_ParameterSetAddElement
03566     MODULE PROCEDURE cmfe_Field_ParameterSetAddElementIntgNumber
03567     MODULE PROCEDURE cmfe_Field_ParameterSetAddElementIntgObj
03568     MODULE PROCEDURE cmfe_Field_ParameterSetAddElementSPNumber
03569     MODULE PROCEDURE cmfe_Field_ParameterSetAddElementSPObj
03570     MODULE PROCEDURE cmfe_Field_ParameterSetAddElementDPNumber
03571     MODULE PROCEDURE cmfe_Field_ParameterSetAddElementDPObj
03572     MODULE PROCEDURE cmfe_Field_ParameterSetAddElementLNumber
03573     MODULE PROCEDURE cmfe_Field_ParameterSetAddElementLObj
03574   END INTERFACE cmfe_Field_ParameterSetAddElement
03575 
03577   INTERFACE cmfe_Field_ParameterSetAddNode
03578     MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeIntgNumber
03579     MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeIntgObj
03580     MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeSPNumber
03581     MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeSPObj
03582     MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeDPNumber
03583     MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeDPObj
03584     MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeLNumber
03585     MODULE PROCEDURE cmfe_Field_ParameterSetAddNodeLObj
03586   END INTERFACE cmfe_Field_ParameterSetAddNode
03587 
03589   INTERFACE cmfe_Field_ParameterSetCreate
03590     MODULE PROCEDURE cmfe_Field_ParameterSetCreateNumber
03591     MODULE PROCEDURE cmfe_Field_ParameterSetCreateObj
03592   END INTERFACE cmfe_Field_ParameterSetCreate
03593 
03595   INTERFACE cmfe_Field_ParameterSetDestroy
03596     MODULE PROCEDURE cmfe_Field_ParameterSetDestroyNumber
03597     MODULE PROCEDURE cmfe_Field_ParameterSetDestroyObj
03598   END INTERFACE cmfe_Field_ParameterSetDestroy
03599 
03601   INTERFACE cmfe_Field_ParameterSetDataGet
03602     MODULE PROCEDURE cmfe_Field_ParameterSetDataGetIntgNumber
03603     MODULE PROCEDURE cmfe_Field_ParameterSetDataGetIntgObj
03604     MODULE PROCEDURE cmfe_Field_ParameterSetDataGetSPNumber
03605     MODULE PROCEDURE cmfe_Field_ParameterSetDataGetSPObj
03606     MODULE PROCEDURE cmfe_Field_ParameterSetDataGetDPNumber
03607     MODULE PROCEDURE cmfe_Field_ParameterSetDataGetDPObj
03608     MODULE PROCEDURE cmfe_Field_ParameterSetDataGetLNumber
03609     MODULE PROCEDURE cmfe_Field_ParameterSetDataGetLObj
03610   END INTERFACE cmfe_Field_ParameterSetDataGet
03611 
03613   INTERFACE cmfe_Field_ParameterSetDataRestore
03614     MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreIntgNumber
03615     MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreIntgObj
03616     MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreSPNumber
03617     MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreSPObj
03618     MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreDPNumber
03619     MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreDPObj
03620     MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreLNumber
03621     MODULE PROCEDURE cmfe_Field_ParameterSetDataRestoreLObj
03622   END INTERFACE cmfe_Field_ParameterSetDataRestore
03623 
03625   INTERFACE cmfe_Field_ParameterSetGetConstant
03626     MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantIntgNumber
03627     MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantIntgObj
03628     MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantSPNumber
03629     MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantSPObj
03630     MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantDPNumber
03631     MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantDPObj
03632     MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantLNumber
03633     MODULE PROCEDURE cmfe_Field_ParameterSetGetConstantLObj
03634   END INTERFACE cmfe_Field_ParameterSetGetConstant
03635   
03637   INTERFACE cmfe_Field_ParameterSetGetDataPoint
03638     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointIntgNumberI !Interface
03639     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointIntgNumberR !Region
03640     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointIntgObj
03641     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointSPNumberI !Interface
03642     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointSPNumberR !Region
03643     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointSPObj
03644     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointDPNumberI !Interface
03645     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointDPNumberR !Region
03646     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointDPObj
03647     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointLNumberI !Interface
03648     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointLNumberR !Region
03649     MODULE PROCEDURE cmfe_Field_ParameterSetGetDataPointLObj
03650   END INTERFACE cmfe_Field_ParameterSetGetDataPoint
03651 
03653   INTERFACE cmfe_Field_ParameterSetGetElement
03654     MODULE PROCEDURE cmfe_Field_ParameterSetGetElementIntgNumber
03655     MODULE PROCEDURE cmfe_Field_ParameterSetGetElementIntgObj
03656     MODULE PROCEDURE cmfe_Field_ParameterSetGetElementSPNumber
03657     MODULE PROCEDURE cmfe_Field_ParameterSetGetElementSPObj
03658     MODULE PROCEDURE cmfe_Field_ParameterSetGetElementDPNumber
03659     MODULE PROCEDURE cmfe_Field_ParameterSetGetElementDPObj
03660     MODULE PROCEDURE cmfe_Field_ParameterSetGetElementLNumber
03661     MODULE PROCEDURE cmfe_Field_ParameterSetGetElementLObj
03662   END INTERFACE cmfe_Field_ParameterSetGetElement
03663 
03665   INTERFACE cmfe_Field_ParameterSetGetNode
03666     MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeIntgNumber
03667     MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeIntgObj
03668     MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeSPNumber
03669     MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeSPObj
03670     MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeDPNumber
03671     MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeDPObj
03672     MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeLNumber
03673     MODULE PROCEDURE cmfe_Field_ParameterSetGetNodeLObj
03674   END INTERFACE cmfe_Field_ParameterSetGetNode
03675 
03677   INTERFACE cmfe_Field_ParameterSetGetGaussPoint ! TODO: other versions
03678     MODULE PROCEDURE cmfe_Field_ParameterSetGetGaussPointDPObj
03679   END INTERFACE cmfe_Field_ParameterSetGetGaussPoint
03680 
03682   INTERFACE cmfe_Field_ParameterSetUpdateConstant
03683     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantIntgNumber
03684     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantIntgObj
03685     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantSPNumber
03686     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantSPObj
03687     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantDPNumber
03688     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantDPObj
03689     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantLNumber
03690     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateConstantLObj
03691   END INTERFACE cmfe_Field_ParameterSetUpdateConstant
03692   
03694   INTERFACE cmfe_Field_ParameterSetUpdateDataPoint
03695     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointIntgNumberI !Interface
03696     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointIntgNumberR !Region
03697     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointIntgObj
03698     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointSPNumberI !Interface
03699     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointSPNumberR !Region
03700     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointSPObj
03701     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointDPNumberI !Interface
03702     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointDPNumberR !Region
03703     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointDPObj
03704     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointLNumberI !Interface
03705     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointLNumberR !Region
03706     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateDataPointLObj
03707   END INTERFACE cmfe_Field_ParameterSetUpdateDataPoint
03708 
03710   INTERFACE cmfe_Field_ParameterSetUpdateElement
03711     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementIntgNumber
03712     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementIntgObj
03713     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementSPNumber
03714     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementSPObj
03715     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementDPNumber
03716     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementDPObj
03717     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementLNumber
03718     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementLObj
03719   END INTERFACE cmfe_Field_ParameterSetUpdateElement
03720 
03722   INTERFACE cmfe_Field_ParameterSetUpdateFinish
03723     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateFinishNumber
03724     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateFinishObj
03725   END INTERFACE cmfe_Field_ParameterSetUpdateFinish
03726 
03728   INTERFACE cmfe_Field_ParameterSetUpdateNode
03729     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeIntgNumber
03730     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeIntgObj
03731     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeSPNumber
03732     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeSPObj
03733     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeDPNumber
03734     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeDPObj
03735     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeLNumber
03736     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateNodeLObj
03737   END INTERFACE cmfe_Field_ParameterSetUpdateNode
03738 
03739   !\todo: merge the two types of routines for getting scalefactors under the same interface declaration?
03741   INTERFACE cmfe_Field_ParameterSetNodeScaleFactorGet
03742     MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorGetNumber
03743     MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorGetObj
03744   END INTERFACE cmfe_Field_ParameterSetNodeScaleFactorGet
03745 
03747   INTERFACE cmfe_Field_ParameterSetNodeScaleFactorsGet
03748     MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorsGetNumber
03749     MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorsGetObj
03750   END INTERFACE cmfe_Field_ParameterSetNodeScaleFactorsGet
03751 
03753   INTERFACE cmfe_Field_ParameterSetNodeScaleFactorSet
03754     MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorSetNumber
03755     MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorSetObj
03756   END INTERFACE cmfe_Field_ParameterSetNodeScaleFactorSet
03757 
03759   INTERFACE cmfe_Field_ParameterSetNodeScaleFactorsSet
03760     MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorsSetNumber
03761     MODULE PROCEDURE cmfe_Field_ParameterSetNodeScaleFactorsSetObj
03762   END INTERFACE cmfe_Field_ParameterSetNodeScaleFactorsSet
03763 
03765   INTERFACE cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGet
03766     MODULE PROCEDURE cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetNumber
03767     MODULE PROCEDURE cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGetObj
03768   END INTERFACE cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGet
03769 
03771   INTERFACE cmfe_Field_ParameterSetUpdateLocalDofs
03772     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateLocalDofsDPObj
03773     !\todo: add Intg/SP/L routines, both indexed by Number and Obj
03774   END INTERFACE cmfe_Field_ParameterSetUpdateLocalDofs
03775 
03777   INTERFACE cmfe_Field_ParameterSetUpdateGaussPoint
03778     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointIntgNumber
03779     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointIntgObj
03780     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointSPNumber
03781     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointSPObj
03782     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointDPNumber
03783     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointDPObj
03784     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointLNumber
03785     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateGaussPointLObj
03786   END INTERFACE cmfe_Field_ParameterSetUpdateGaussPoint
03787 
03789   INTERFACE cmfe_Field_ParameterSetInterpolateXi
03790     MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateSingleXiDPNumber
03791     MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateSingleXiDPObj
03792     MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateMultipleXiDPNumber
03793     MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateMultipleXiDPObj
03794   END INTERFACE cmfe_Field_ParameterSetInterpolateXi
03795 
03797   INTERFACE cmfe_Field_ParameterSetInterpolateGauss
03798     MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateSingleGaussDPNumber
03799     MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateSingleGaussDPObj
03800     MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateMultipleGaussDPNumber
03801     MODULE PROCEDURE cmfe_Field_ParameterSetInterpolateMultipleGaussDPObj
03802   END INTERFACE CMFE_FIELD_PARAMETERSETINTERPOLATEGAUSS
03803 
03805   INTERFACE cmfe_Field_ParameterSetUpdateElementDataPoint
03806     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateElementDataPointDPObj
03807   END INTERFACE cmfe_Field_ParameterSetUpdateElementDataPoint
03808 
03810   INTERFACE cmfe_Field_ParameterSetUpdateStart
03811     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateStartNumber
03812     MODULE PROCEDURE cmfe_Field_ParameterSetUpdateStartObj
03813   END INTERFACE cmfe_Field_ParameterSetUpdateStart
03814 
03817   INTERFACE cmfe_Field_ParametersToFieldParametersComponentCopy
03818     MODULE PROCEDURE cmfe_Field_ParametersToFieldParametersComponentCopyNumber
03819     MODULE PROCEDURE cmfe_Field_ParametersToFieldParametersComponentCopyObj
03820   END INTERFACE cmfe_Field_ParametersToFieldParametersComponentCopy
03821 
03823   INTERFACE cmfe_Field_ScalingTypeGet
03824     MODULE PROCEDURE cmfe_Field_ScalingTypeGetNumber
03825     MODULE PROCEDURE cmfe_Field_ScalingTypeGetObj
03826   END INTERFACE cmfe_Field_ScalingTypeGet
03827 
03829   INTERFACE cmfe_Field_ScalingTypeSet
03830     MODULE PROCEDURE cmfe_Field_ScalingTypeSetNumber
03831     MODULE PROCEDURE cmfe_Field_ScalingTypeSetObj
03832   END INTERFACE cmfe_Field_ScalingTypeSet
03833 
03835   INTERFACE cmfe_Field_TypeGet
03836     MODULE PROCEDURE cmfe_Field_TypeGetNumber
03837     MODULE PROCEDURE cmfe_Field_TypeGetObj
03838   END INTERFACE cmfe_Field_TypeGet
03839 
03841   INTERFACE cmfe_Field_TypeSet
03842     MODULE PROCEDURE cmfe_Field_TypeSetNumber
03843     MODULE PROCEDURE cmfe_Field_TypeSetObj
03844   END INTERFACE cmfe_Field_TypeSet
03845 
03847   INTERFACE cmfe_Field_VariableLabelGet
03848     MODULE PROCEDURE cmfe_Field_VariableLabelGetCNumber
03849     MODULE PROCEDURE cmfe_Field_VariableLabelGetCObj
03850     MODULE PROCEDURE cmfe_Field_VariableLabelGetVSNumber
03851     MODULE PROCEDURE cmfe_Field_VariableLabelGetVSObj
03852   END INTERFACE cmfe_Field_VariableLabelGet
03853 
03855   INTERFACE cmfe_Field_VariableLabelSet
03856     MODULE PROCEDURE cmfe_Field_VariableLabelSetCNumber
03857     MODULE PROCEDURE cmfe_Field_VariableLabelSetCObj
03858     MODULE PROCEDURE cmfe_Field_VariableLabelSetVSNumber
03859     MODULE PROCEDURE cmfe_Field_VariableLabelSetVSObj
03860   END INTERFACE cmfe_Field_VariableLabelSet
03861 
03863   INTERFACE cmfe_Field_VariableTypesGet
03864     MODULE PROCEDURE cmfe_Field_VariableTypesGetNumber
03865     MODULE PROCEDURE cmfe_Field_VariableTypesGetObj
03866   END INTERFACE cmfe_Field_VariableTypesGet
03867 
03869   INTERFACE cmfe_Field_VariableTypesSet
03870     MODULE PROCEDURE cmfe_Field_VariableTypesSetNumber
03871     MODULE PROCEDURE cmfe_Field_VariableTypesSetObj
03872   END INTERFACE cmfe_Field_VariableTypesSet
03873 
03874 
03875   PUBLIC CMFE_FIELD_DEPENDENT_TYPE,CMFE_FIELD_INDEPENDENT_TYPE
03876 
03877   PUBLIC CMFE_FIELD_SCALAR_DIMENSION_TYPE,CMFE_FIELD_VECTOR_DIMENSION_TYPE,CMFE_FIELD_TENSOR_DIMENSION_TYPE
03878 
03879   PUBLIC CMFE_FIELD_GEOMETRIC_TYPE,CMFE_FIELD_FIBRE_TYPE,CMFE_FIELD_GENERAL_TYPE,CMFE_FIELD_MATERIAL_TYPE, &
03880     & CMFE_FIELD_GEOMETRIC_GENERAL_TYPE
03881 
03882   PUBLIC CMFE_FIELD_CONSTANT_INTERPOLATION,CMFE_FIELD_ELEMENT_BASED_INTERPOLATION,CMFE_FIELD_NODE_BASED_INTERPOLATION, &
03883     & CMFE_FIELD_GRID_POINT_BASED_INTERPOLATION,CMFE_FIELD_GAUSS_POINT_BASED_INTERPOLATION, &
03884     & CMFE_FIELD_DATA_POINT_BASED_INTERPOLATION
03885 
03886   PUBLIC CMFE_FIELD_NUMBER_OF_VARIABLE_SUBTYPES
03887 
03888   PUBLIC CMFE_FIELD_U_VARIABLE_TYPE,CMFE_FIELD_DELUDELN_VARIABLE_TYPE,CMFE_FIELD_DELUDELT_VARIABLE_TYPE, &
03889     & CMFE_FIELD_DEL2UDELT2_VARIABLE_TYPE, &
03890     & CMFE_FIELD_V_VARIABLE_TYPE,CMFE_FIELD_DELVDELN_VARIABLE_TYPE,CMFE_FIELD_DELVDELT_VARIABLE_TYPE, &
03891     & CMFE_FIELD_DEL2VDELT2_VARIABLE_TYPE, &
03892     & CMFE_FIELD_U1_VARIABLE_TYPE,CMFE_FIELD_DELU1DELN_VARIABLE_TYPE,CMFE_FIELD_DELU1DELT_VARIABLE_TYPE, &
03893     & CMFE_FIELD_DEL2U1DELT2_VARIABLE_TYPE, &
03894     & CMFE_FIELD_U2_VARIABLE_TYPE,CMFE_FIELD_DELU2DELN_VARIABLE_TYPE,CMFE_FIELD_DELU2DELT_VARIABLE_TYPE, &
03895     & CMFE_FIELD_DEL2U2DELT2_VARIABLE_TYPE, &
03896     & CMFE_FIELD_U3_VARIABLE_TYPE,CMFE_FIELD_DELU3DELN_VARIABLE_TYPE,CMFE_FIELD_DELU3DELT_VARIABLE_TYPE, &
03897     & CMFE_FIELD_DEL2U3DELT2_VARIABLE_TYPE, &
03898     & CMFE_FIELD_U4_VARIABLE_TYPE,CMFE_FIELD_DELU4DELN_VARIABLE_TYPE,CMFE_FIELD_DELU4DELT_VARIABLE_TYPE, &
03899     & CMFE_FIELD_DEL2U4DELT2_VARIABLE_TYPE, &
03900     & CMFE_FIELD_U5_VARIABLE_TYPE,CMFE_FIELD_DELU5DELN_VARIABLE_TYPE,CMFE_FIELD_DELU5DELT_VARIABLE_TYPE, &
03901     & CMFE_FIELD_DEL2U5DELT2_VARIABLE_TYPE, &
03902     & CMFE_FIELD_U6_VARIABLE_TYPE,CMFE_FIELD_DELU6DELN_VARIABLE_TYPE,CMFE_FIELD_DELU6DELT_VARIABLE_TYPE, &
03903     & CMFE_FIELD_DEL2U6DELT2_VARIABLE_TYPE, &
03904     & CMFE_FIELD_U7_VARIABLE_TYPE,CMFE_FIELD_DELU7DELN_VARIABLE_TYPE,CMFE_FIELD_DELU7DELT_VARIABLE_TYPE, &
03905     & CMFE_FIELD_DEL2U7DELT2_VARIABLE_TYPE, &
03906     & CMFE_FIELD_U8_VARIABLE_TYPE,CMFE_FIELD_DELU8DELN_VARIABLE_TYPE,CMFE_FIELD_DELU8DELT_VARIABLE_TYPE, &
03907     & CMFE_FIELD_DEL2U8DELT2_VARIABLE_TYPE, &
03908     & CMFE_FIELD_U9_VARIABLE_TYPE,CMFE_FIELD_DELU9DELN_VARIABLE_TYPE,CMFE_FIELD_DELU9DELT_VARIABLE_TYPE, &
03909     & CMFE_FIELD_DEL2U9DELT2_VARIABLE_TYPE, &
03910     & CMFE_FIELD_U10_VARIABLE_TYPE,CMFE_FIELD_DELU10DELN_VARIABLE_TYPE,CMFE_FIELD_DELU10DELT_VARIABLE_TYPE, &
03911     & CMFE_FIELD_DEL2U10DELT2_VARIABLE_TYPE
03912 
03913   PUBLIC CMFE_FIELD_INTG_TYPE,CMFE_FIELD_SP_TYPE,CMFE_FIELD_DP_TYPE,CMFE_FIELD_L_TYPE
03914 
03915   PUBLIC CMFE_FIELD_SEPARATED_COMPONENT_DOF_ORDER,CMFE_FIELD_CONTIGUOUS_COMPONENT_DOF_ORDER
03916 
03917   PUBLIC CMFE_FIELD_VALUES_SET_TYPE,CMFE_FIELD_INITIAL_VALUES_SET_TYPE,CMFE_FIELD_INCREMENTAL_VALUES_SET_TYPE, &
03918     & CMFE_FIELD_BOUNDARY_CONDITIONS_SET_TYPE, &
03919     & CMFE_FIELD_ANALYTIC_VALUES_SET_TYPE, &
03920     & CMFE_FIELD_PREVIOUS_VALUES_SET_TYPE,CMFE_FIELD_MEAN_PREDICTED_DISPLACEMENT_SET_TYPE,CMFE_FIELD_VELOCITY_VALUES_SET_TYPE, &
03921     & CMFE_FIELD_INITIAL_VELOCITY_SET_TYPE,CMFE_FIELD_PREVIOUS_VELOCITY_SET_TYPE,CMFE_FIELD_MEAN_PREDICTED_VELOCITY_SET_TYPE, &
03922     & CMFE_FIELD_ACCELERATION_VALUES_SET_TYPE,CMFE_FIELD_INITIAL_ACCELERATION_SET_TYPE, &
03923     & CMFE_FIELD_PREVIOUS_ACCELERATION_SET_TYPE, &
03924     & CMFE_FIELD_MEAN_PREDICTED_ACCELERATION_SET_TYPE, CMFE_FIELD_PRESSURE_VALUES_SET_TYPE, &
03925     & CMFE_FIELD_PREVIOUS_PRESSURE_SET_TYPE, &
03926     & CMFE_FIELD_IMPERMEABLE_FLAG_VALUES_SET_TYPE,CMFE_FIELD_INTEGRATED_NEUMANN_SET_TYPE
03927 
03928   PUBLIC CMFE_FIELD_NO_SCALING,CMFE_FIELD_UNIT_SCALING,CMFE_FIELD_ARC_LENGTH_SCALING,CMFE_FIELD_ARITHMETIC_MEAN_SCALING, &
03929     & CMFE_FIELD_GEOMETRIC_MEAN_SCALING,CMFE_FIELD_HARMONIC_MEAN_SCALING
03930 
03931   PUBLIC cmfe_Field_ComponentInterpolationGet,cmfe_Field_ComponentInterpolationSet
03932 
03933   PUBLIC cmfe_Field_ComponentLabelGet,cmfe_Field_ComponentLabelSet
03934 
03935   PUBLIC cmfe_Field_ComponentMeshComponentGet,cmfe_Field_ComponentMeshComponentSet
03936 
03937   PUBLIC cmfe_Field_ComponentValuesInitialise
03938 
03939   PUBLIC cmfe_Field_DataTypeGet,cmfe_Field_DataTypeSet
03940 
03941   PUBLIC cmfe_Field_DOFOrderTypeGet,cmfe_Field_DOFOrderTypeSet
03942 
03943   PUBLIC cmfe_Field_CreateFinish,cmfe_Field_CreateStart
03944 
03945   PUBLIC cmfe_Field_DependentTypeGet,cmfe_Field_DependentTypeSet
03946 
03947   PUBLIC cmfe_Field_Destroy
03948 
03949   PUBLIC cmfe_Field_DimensionGet,cmfe_Field_DimensionSet
03950 
03951   PUBLIC cmfe_Field_GeometricFieldGet,cmfe_Field_GeometricFieldSet
03952 
03953   PUBLIC cmfe_Field_GeometricParametersElementLineLengthGet
03954 
03955   PUBLIC cmfe_Field_LabelGet,cmfe_Field_LabelSet
03956 
03957   PUBLIC cmfe_Field_MeshDecompositionGet,cmfe_Field_MeshDecompositionSet
03958 
03959   PUBLIC cmfe_Field_DataProjectionSet
03960 
03961   PUBLIC cmfe_Field_PositionNormalTangentCalculateNode
03962 
03963   PUBLIC cmfe_Field_NumberOfComponentsGet,cmfe_Field_NumberOfComponentsSet
03964 
03965   PUBLIC cmfe_Field_NumberOfVariablesGet,cmfe_Field_NumberOfVariablesSet
03966 
03967   PUBLIC cmfe_Field_ParameterSetAddConstant,cmfe_Field_ParameterSetAddElement,cmfe_Field_ParameterSetAddNode
03968 
03969   PUBLIC cmfe_Field_ParameterSetCreate
03970 
03971   PUBLIC cmfe_Field_ParameterSetDestroy
03972 
03973   PUBLIC cmfe_Field_ParameterSetDataGet,cmfe_Field_ParameterSetDataRestore
03974 
03975   PUBLIC cmfe_Field_ParameterSetGetConstant,cmfe_Field_ParameterSetGetElement,cmfe_Field_ParameterSetGetNode
03976   
03977   PUBLIC cmfe_Field_ParameterSetGetDataPoint,cmfe_Field_ParameterSetUpdateDataPoint
03978 
03979   PUBLIC cmfe_Field_ParameterSetUpdateConstant,cmfe_Field_ParameterSetUpdateElement,cmfe_Field_ParameterSetUpdateNode
03980 
03981   PUBLIC cmfe_Field_ParameterSetNodeScaleFactorGet,cmfe_Field_ParameterSetNodeScaleFactorSet
03982 
03983   PUBLIC cmfe_Field_ParameterSetNodeScaleFactorsGet,cmfe_Field_ParameterSetNodeScaleFactorsSet
03984 
03985   PUBLIC cmfe_Field_ParameterSetNodeNumberOfScaleFactorDofsGet
03986 
03987   PUBLIC cmfe_Field_ParameterSetUpdateLocalDofs
03988 
03989   PUBLIC cmfe_Field_ParameterSetUpdateGaussPoint,cmfe_Field_ParameterSetGetGaussPoint
03990 
03991   PUBLIC cmfe_Field_ParameterSetInterpolateXi
03992 
03993   PUBLIC cmfe_Field_ParameterSetInterpolateGauss
03994 
03995   PUBLIC cmfe_Field_ParameterSetUpdateElementDataPoint
03996 
03997   PUBLIC cmfe_Field_ParameterSetUpdateFinish,cmfe_Field_ParameterSetUpdateStart
03998 
03999   PUBLIC cmfe_Field_ParametersToFieldParametersComponentCopy
04000 
04001   PUBLIC cmfe_Field_ScalingTypeGet,cmfe_Field_ScalingTypeSet
04002 
04003   PUBLIC cmfe_Field_TypeGet,cmfe_Field_TypeSet
04004 
04005   PUBLIC cmfe_Field_VariableLabelGet,cmfe_Field_VariableLabelSet
04006 
04007   PUBLIC cmfe_Field_VariableTypesGet,cmfe_Field_VariableTypesSet
04008 
04009 !!==================================================================================================================================
04010 !!
04011 !! FIELD_IO_ROUTINES
04012 !!
04013 !!==================================================================================================================================
04014 
04015   !Module parameters
04016 
04017   !Module types
04018 
04019   !Module variables
04020 
04021   !Interfaces
04022 
04023   INTERFACE cmfe_Fields_ElementsExport
04024     MODULE PROCEDURE cmfe_Fields_ElementsExportCCObj
04025     MODULE PROCEDURE cmfe_Fields_ElementsExportVSCObj
04026     MODULE PROCEDURE cmfe_Fields_ElementsExportCVSObj
04027     MODULE PROCEDURE cmfe_Fields_ElementsExportVSVSObj
04028   END INTERFACE cmfe_Fields_ElementsExport
04029 
04030   INTERFACE cmfe_Fields_NodesExport
04031     MODULE PROCEDURE cmfe_Fields_NodesExportCCObj
04032     MODULE PROCEDURE cmfe_Fields_NodesExportVSCObj
04033     MODULE PROCEDURE cmfe_Fields_NodesExportCVSObj
04034     MODULE PROCEDURE cmfe_Fields_NodesExportVSVSObj
04035   END INTERFACE cmfe_Fields_NodesExport
04036 
04037   PUBLIC cmfe_Fields_ElementsExport,cmfe_Fields_NodesExport
04038 
04039 !!==================================================================================================================================
04040 !!
04041 !! GENERATED_MESH_ROUTINES
04042 !!
04043 !!==================================================================================================================================
04044 
04045   !Module parameters
04046 
04054   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_MESH_TYPE = GENERATED_MESH_REGULAR_MESH_TYPE !<A regular generated mesh. \see OPENCMISS_GeneratedMeshTypes,OPENCMISS
04055   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_POLAR_MESH_TYPE = GENERATED_MESH_POLAR_MESH_TYPE !<A polar generated mesh. \see OPENCMISS_GeneratedMeshTypes,OPENCMISS
04056   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
04057   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_CYLINDER_MESH_TYPE = GENERATED_MESH_CYLINDER_MESH_TYPE !<A cylinder generated mesh. \see OPENCMISS_GeneratedMeshTypes,OPENCMISS
04058   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_ELLIPSOID_MESH_TYPE = GENERATED_MESH_ELLIPSOID_MESH_TYPE !<An ellipsoid generated mesh. \see OPENCMISS_GeneratedMeshTypes,OPENCMISS
04059 
04061 
04069   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_CYLINDER_INNER_SURFACE = GENERATED_MESH_CYLINDER_INNER_SURFACE !<Cylinder inner surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04070   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_CYLINDER_OUTER_SURFACE = GENERATED_MESH_CYLINDER_OUTER_SURFACE !<Cylinder outer surface. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04071   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_CYLINDER_TOP_SURFACE = GENERATED_MESH_CYLINDER_TOP_SURFACE !<Cylinder top surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04072   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_CYLINDER_BOTTOM_SURFACE = GENERATED_MESH_CYLINDER_BOTTOM_SURFACE !<Cylinder bottom surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04073   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_ELLIPSOID_INNER_SURFACE = GENERATED_MESH_ELLIPSOID_INNER_SURFACE !<Ellipsoid inner surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04074   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_ELLIPSOID_OUTER_SURFACE = GENERATED_MESH_ELLIPSOID_OUTER_SURFACE !<Ellipsoid outer surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04075   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_ELLIPSOID_TOP_SURFACE = GENERATED_MESH_ELLIPSOID_TOP_SURFACE !<Ellipsoid top surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04076   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_LEFT_SURFACE = GENERATED_MESH_REGULAR_LEFT_SURFACE !<Regular left surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04077   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_RIGHT_SURFACE = GENERATED_MESH_REGULAR_RIGHT_SURFACE !<Regular right surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04078   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_TOP_SURFACE = GENERATED_MESH_REGULAR_TOP_SURFACE !<Regular top surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04079   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_BOTTOM_SURFACE = GENERATED_MESH_REGULAR_BOTTOM_SURFACE !<Regular bottom surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04080   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_FRONT_SURFACE = GENERATED_MESH_REGULAR_FRONT_SURFACE !<Regular front surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04081   INTEGER(INTG), PARAMETER :: CMFE_GENERATED_MESH_REGULAR_BACK_SURFACE = GENERATED_MESH_REGULAR_BACK_SURFACE !<Regular back surface constant. \see OPENCMISS_GeneratedMeshSurfaceTypes,OPENCMISS
04082 
04084 
04085   !Module types
04086 
04087   !Module variables
04088 
04089   !Interfaces
04090 
04092   INTERFACE cmfe_GeneratedMesh_BasisGet
04093     MODULE PROCEDURE cmfe_GeneratedMesh_BasisGetNumber
04094     MODULE PROCEDURE cmfe_GeneratedMesh_BasisGetObj
04095   END INTERFACE cmfe_GeneratedMesh_BasisGet
04096 
04098   INTERFACE cmfe_GeneratedMesh_BasisSet
04099     MODULE PROCEDURE cmfe_GeneratedMesh_BasisSetNumber0
04100     MODULE PROCEDURE cmfe_GeneratedMesh_BasisSetNumber1
04101     MODULE PROCEDURE cmfe_GeneratedMesh_BasisSetObj0
04102     MODULE PROCEDURE cmfe_GeneratedMesh_BasisSetObj1
04103   END INTERFACE cmfe_GeneratedMesh_BasisSet
04104 
04106   INTERFACE cmfe_GeneratedMesh_BaseVectorsSet
04107     MODULE PROCEDURE cmfe_GeneratedMesh_BaseVectorsSetNumber
04108     MODULE PROCEDURE cmfe_GeneratedMesh_BaseVectorsSetObj
04109   END INTERFACE cmfe_GeneratedMesh_BaseVectorsSet
04110 
04112   INTERFACE cmfe_GeneratedMesh_CreateFinish
04113     MODULE PROCEDURE cmfe_GeneratedMesh_CreateFinishNumber
04114     MODULE PROCEDURE cmfe_GeneratedMesh_CreateFinishObj
04115   END INTERFACE cmfe_GeneratedMesh_CreateFinish
04116 
04118   INTERFACE cmfe_GeneratedMesh_CreateStart
04119     MODULE PROCEDURE cmfe_GeneratedMesh_CreateStartNumber
04120     MODULE PROCEDURE cmfe_GeneratedMesh_CreateStartInterfaceObj
04121     MODULE PROCEDURE cmfe_GeneratedMesh_CreateStartRegionObj
04122   END INTERFACE cmfe_GeneratedMesh_CreateStart
04123 
04125   INTERFACE cmfe_GeneratedMesh_Destroy
04126     MODULE PROCEDURE cmfe_GeneratedMesh_DestroyNumber
04127     MODULE PROCEDURE cmfe_GeneratedMesh_DestroyObj
04128   END INTERFACE cmfe_GeneratedMesh_Destroy
04129 
04131   INTERFACE cmfe_GeneratedMesh_ExtentGet
04132     MODULE PROCEDURE cmfe_GeneratedMesh_ExtentGetNumber
04133     MODULE PROCEDURE cmfe_GeneratedMesh_ExtentGetObj
04134   END INTERFACE cmfe_GeneratedMesh_ExtentGet
04135 
04137   INTERFACE cmfe_GeneratedMesh_ExtentSet
04138     MODULE PROCEDURE cmfe_GeneratedMesh_ExtentSetNumber
04139     MODULE PROCEDURE cmfe_GeneratedMesh_ExtentSetObj
04140   END INTERFACE cmfe_GeneratedMesh_ExtentSet
04141 
04143   INTERFACE cmfe_GeneratedMesh_NumberOfElementsGet
04144     MODULE PROCEDURE cmfe_GeneratedMesh_NumberOfElementsGetNumber
04145     MODULE PROCEDURE cmfe_GeneratedMesh_NumberOfElementsGetObj
04146   END INTERFACE cmfe_GeneratedMesh_NumberOfElementsGet
04147 
04149   INTERFACE cmfe_GeneratedMesh_NumberOfElementsSet
04150     MODULE PROCEDURE cmfe_GeneratedMesh_NumberOfElementsSetNumber
04151     MODULE PROCEDURE cmfe_GeneratedMesh_NumberOfElementsSetObj
04152   END INTERFACE cmfe_GeneratedMesh_NumberOfElementsSet
04153 
04155   INTERFACE cmfe_GeneratedMesh_OriginGet
04156     MODULE PROCEDURE cmfe_GeneratedMesh_OriginGetNumber
04157     MODULE PROCEDURE cmfe_GeneratedMesh_OriginGetObj
04158   END INTERFACE cmfe_GeneratedMesh_OriginGet
04159 
04161   INTERFACE cmfe_GeneratedMesh_OriginSet
04162     MODULE PROCEDURE cmfe_GeneratedMesh_OriginSetNumber
04163     MODULE PROCEDURE cmfe_GeneratedMesh_OriginSetObj
04164   END INTERFACE cmfe_GeneratedMesh_OriginSet
04165 
04167   INTERFACE cmfe_GeneratedMesh_TypeGet
04168     MODULE PROCEDURE cmfe_GeneratedMesh_TypeGetNumber
04169     MODULE PROCEDURE cmfe_GeneratedMesh_TypeGetObj
04170   END INTERFACE cmfe_GeneratedMesh_TypeGet
04171 
04173   INTERFACE cmfe_GeneratedMesh_TypeSet
04174     MODULE PROCEDURE cmfe_GeneratedMesh_TypeSetNumber
04175     MODULE PROCEDURE cmfe_GeneratedMesh_TypeSetObj
04176   END INTERFACE cmfe_GeneratedMesh_TypeSet
04177 
04179   INTERFACE cmfe_GeneratedMesh_GeometricParametersCalculate
04180     MODULE PROCEDURE cmfe_GeneratedMesh_GeometricParametersCalculateNumber
04181     MODULE PROCEDURE cmfe_GeneratedMesh_GeometricParametersCalculateObj
04182   END INTERFACE cmfe_GeneratedMesh_GeometricParametersCalculate
04183 
04185   INTERFACE cmfe_GeneratedMesh_SurfaceGet
04186     MODULE PROCEDURE cmfe_GeneratedMesh_SurfaceGetNumber0
04187     MODULE PROCEDURE cmfe_GeneratedMesh_SurfaceGetNumber1
04188     MODULE PROCEDURE cmfe_GeneratedMesh_SurfaceGetObj0
04189     MODULE PROCEDURE cmfe_GeneratedMesh_SurfaceGetObj1
04190   END INTERFACE
04191 
04192 
04194   INTERFACE cmfe_MeshEmbedding_Create
04195     MODULE PROCEDURE cmfe_MeshEmbedding_CreateNumber
04196     MODULE PROCEDURE cmfe_MeshEmbedding_CreateObj
04197   END INTERFACE
04198 
04200   INTERFACE cmfe_MeshEmbedding_SetChildNodePosition
04201     MODULE PROCEDURE cmfe_MeshEmbedding_SetChildNodePositionObj
04202   END INTERFACE
04203 
04204 
04206   INTERFACE cmfe_MeshEmbedding_PushData
04207     MODULE PROCEDURE cmfe_MeshEmbedding_PushDataObj
04208   END INTERFACE
04209 
04210   INTERFACE cmfe_MeshEmbedding_SetGaussPointData
04211    MODULE PROCEDURE cmfe_MeshEmbedding_SetGaussPointDataObj
04212   END INTERFACE
04213 
04214   INTERFACE cmfe_MeshEmbedding_PullGaussPointData
04215    MODULE PROCEDURE cmfe_MeshEmbedding_PullGaussPointDataObj
04216   END INTERFACE
04217 
04218    INTERFACE cmfe_MeshEmbedding_GetGaussPointCoord
04219     MODULE PROCEDURE cmfe_Field_ParameterSetGetGaussPointCoordObj
04220    END INTERFACE
04221 
04222   PUBLIC cmfe_MeshEmbedding_Create,cmfe_MeshEmbedding_SetChildNodePosition, cmfe_MeshEmbeddingType
04223 
04224   PUBLIC cmfe_MeshEmbedding_Initialise,cmfe_MeshEmbedding_SetGaussPointData
04225 
04226   PUBLIC cmfe_MeshEmbedding_PushData,cmfe_MeshEmbedding_PullGaussPointData
04227 
04228   PUBLIC cmfe_MeshEmbedding_GetGaussPointCoord
04229 
04230   PUBLIC CMFE_GENERATED_MESH_REGULAR_MESH_TYPE,CMFE_GENERATED_MESH_POLAR_MESH_TYPE,CMFE_GENERATED_MESH_FRACTAL_TREE_MESH_TYPE
04231 
04232   PUBLIC CMFE_GENERATED_MESH_CYLINDER_MESH_TYPE, CMFE_GENERATED_MESH_ELLIPSOID_MESH_TYPE
04233 
04234   PUBLIC CMFE_GENERATED_MESH_CYLINDER_INNER_SURFACE,CMFE_GENERATED_MESH_CYLINDER_OUTER_SURFACE
04235 
04236   PUBLIC CMFE_GENERATED_MESH_CYLINDER_TOP_SURFACE, CMFE_GENERATED_MESH_CYLINDER_BOTTOM_SURFACE
04237 
04238   PUBLIC CMFE_GENERATED_MESH_ELLIPSOID_INNER_SURFACE, CMFE_GENERATED_MESH_ELLIPSOID_OUTER_SURFACE
04239 
04240   PUBLIC CMFE_GENERATED_MESH_ELLIPSOID_TOP_SURFACE
04241 
04242   PUBLIC CMFE_GENERATED_MESH_REGULAR_LEFT_SURFACE, CMFE_GENERATED_MESH_REGULAR_RIGHT_SURFACE, &
04243     & CMFE_GENERATED_MESH_REGULAR_TOP_SURFACE
04244 
04245   PUBLIC CMFE_GENERATED_MESH_REGULAR_BOTTOM_SURFACE, CMFE_GENERATED_MESH_REGULAR_FRONT_SURFACE, &
04246     & CMFE_GENERATED_MESH_REGULAR_BACK_SURFACE
04247 
04248   PUBLIC cmfe_GeneratedMesh_BasisGet,cmfe_GeneratedMesh_BasisSet
04249 
04250   PUBLIC cmfe_GeneratedMesh_BaseVectorsSet
04251 
04252   PUBLIC cmfe_GeneratedMesh_CreateFinish,cmfe_GeneratedMesh_CreateStart
04253 
04254   PUBLIC cmfe_GeneratedMesh_Destroy
04255 
04256   PUBLIC cmfe_GeneratedMesh_ExtentGet,cmfe_GeneratedMesh_ExtentSet
04257 
04258   PUBLIC cmfe_GeneratedMesh_NumberOfElementsGet,cmfe_GeneratedMesh_NumberOfElementsSet
04259 
04260   PUBLIC cmfe_GeneratedMesh_OriginGet,cmfe_GeneratedMesh_OriginSet
04261 
04262   PUBLIC cmfe_GeneratedMesh_TypeGet,cmfe_GeneratedMesh_TypeSet
04263 
04264   PUBLIC cmfe_GeneratedMesh_GeometricParametersCalculate
04265 
04266   PUBLIC cmfe_GeneratedMesh_SurfaceGet
04267 
04268 
04269 !!==================================================================================================================================
04270 !!
04271 !! INTERFACE_ROUTINES
04272 !!
04273 !!==================================================================================================================================
04274 
04275   !Module parameters
04276 
04277   !Module types
04278 
04279   !Module variables
04280 
04281   !Interfaces
04282 
04284   INTERFACE cmfe_Interface_MeshAdd
04285     MODULE PROCEDURE cmfe_Interface_MeshAddNumber
04286     MODULE PROCEDURE cmfe_Interface_MeshAddObj
04287   END INTERFACE cmfe_Interface_MeshAdd
04288 
04290   INTERFACE cmfe_Interface_CreateFinish
04291     MODULE PROCEDURE cmfe_Interface_CreateFinishNumber
04292     MODULE PROCEDURE cmfe_Interface_CreateFinishObj
04293   END INTERFACE cmfe_Interface_CreateFinish
04294 
04296   INTERFACE cmfe_Interface_CreateStart
04297     MODULE PROCEDURE cmfe_Interface_CreateStartNumber
04298     MODULE PROCEDURE cmfe_Interface_CreateStartObj
04299   END INTERFACE cmfe_Interface_CreateStart
04300   
04302   INTERFACE cmfe_Interface_CoordinateSystemSet
04303     MODULE PROCEDURE cmfe_Interface_CoordinateSystemSetNumber
04304     MODULE PROCEDURE cmfe_Interface_CoordinateSystemSetObj
04305   END INTERFACE cmfe_Interface_CoordinateSystemSet
04306   
04308   INTERFACE cmfe_Interface_CoordinateSystemGet
04309     MODULE PROCEDURE cmfe_Interface_CoordinateSystemGetNumber
04310     MODULE PROCEDURE cmfe_Interface_CoordinateSystemGetObj
04311   END INTERFACE cmfe_Interface_CoordinateSystemGet
04312 
04314   INTERFACE cmfe_Interface_Destroy
04315     MODULE PROCEDURE cmfe_Interface_DestroyNumber
04316     MODULE PROCEDURE cmfe_Interface_DestroyObj
04317   END INTERFACE cmfe_Interface_Destroy
04318 
04320   INTERFACE cmfe_Interface_LabelGet
04321     MODULE PROCEDURE cmfe_Interface_LabelGetCNumber
04322     MODULE PROCEDURE cmfe_Interface_LabelGetCObj
04323     MODULE PROCEDURE cmfe_Interface_LabelGetVSNumber
04324     MODULE PROCEDURE cmfe_Interface_LabelGetVSObj
04325   END INTERFACE cmfe_Interface_LabelGet
04326 
04328   INTERFACE cmfe_Interface_LabelSet
04329     MODULE PROCEDURE cmfe_Interface_LabelSetCNumber
04330     MODULE PROCEDURE cmfe_Interface_LabelSetCObj
04331     MODULE PROCEDURE cmfe_Interface_LabelSetVSNumber
04332     MODULE PROCEDURE cmfe_Interface_LabelSetVSObj
04333   END INTERFACE cmfe_Interface_LabelSet
04334 
04336   INTERFACE cmfe_Interface_NodesGet
04337     MODULE PROCEDURE cmfe_Interface_NodesGetObj
04338   END INTERFACE cmfe_Interface_NodesGet
04339 
04341   INTERFACE cmfe_InterfaceMeshConnectivity_CreateFinish
04342     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_CreateFinishNumber
04343     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_CreateFinishObj
04344   END INTERFACE cmfe_InterfaceMeshConnectivity_CreateFinish
04345 
04347   INTERFACE cmfe_InterfaceMeshConnectivity_CreateStart
04348     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_CreateStartNumber
04349     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_CreateStartObj
04350   END INTERFACE cmfe_InterfaceMeshConnectivity_CreateStart
04351 
04353   INTERFACE cmfe_InterfaceMeshConnectivity_ElementXiSet
04354     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_ElementXiSetNumber
04355     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_ElementXiSetObj
04356   END INTERFACE cmfe_InterfaceMeshConnectivity_ElementXiSet
04357 
04359   INTERFACE cmfe_InterfaceMeshConnectivity_ElementNumberSet
04360     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_ElementNumberSetNumber
04361     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_ElementNumberSetObj
04362   END INTERFACE cmfe_InterfaceMeshConnectivity_ElementNumberSet
04363 
04365   INTERFACE cmfe_InterfaceMeshConnectivity_NodeNumberSet
04366     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_NodeNumberSetNumber
04367     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_NodeNumberSetObj
04368   END INTERFACE cmfe_InterfaceMeshConnectivity_NodeNumberSet
04369 
04371   INTERFACE cmfe_InterfaceMeshConnectivity_BasisSet
04372     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_BasisSetNumber
04373     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_BasisSetObj
04374   END INTERFACE cmfe_InterfaceMeshConnectivity_BasisSet
04375 
04377   INTERFACE cmfe_InterfaceMeshConnectivity_Destroy
04378     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_DestroyNumber
04379     MODULE PROCEDURE cmfe_InterfaceMeshConnectivity_DestroyObj
04380   END INTERFACE cmfe_InterfaceMeshConnectivity_Destroy
04381   
04383   INTERFACE cmfe_InterfacePointsConnectivity_CreateFinish
04384     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_CreateFinishNumber
04385     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_CreateFinishObj
04386   END INTERFACE cmfe_InterfacePointsConnectivity_CreateFinish
04387   
04389   INTERFACE cmfe_InterfacePointsConnectivity_CreateStart
04390     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_CreateStartNumber
04391     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_CreateStartObj
04392   END INTERFACE cmfe_InterfacePointsConnectivity_CreateStart
04393   
04395   INTERFACE cmfe_InterfacePointsConnectivity_Destroy
04396     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_DestroyNumber
04397     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_DestroyObj
04398   END INTERFACE cmfe_InterfacePointsConnectivity_Destroy
04399   
04401   INTERFACE cmfe_InterfacePointsConnectivity_ElementNumberGet
04402     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_ElementNumberGetNumber
04403     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_ElementNumberGetObj
04404   END INTERFACE cmfe_InterfacePointsConnectivity_ElementNumberGet
04405   
04407   INTERFACE cmfe_InterfacePointsConnectivity_PointXiGet
04408     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_PointXiGetNumber
04409     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_PointXiGetObj
04410   END INTERFACE cmfe_InterfacePointsConnectivity_PointXiGet
04411   
04413   INTERFACE cmfe_InterfacePointsConnectivity_ElementNumberSet
04414     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_ElementNumberSetNumber
04415     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_ElementNumberSetObj
04416   END INTERFACE cmfe_InterfacePointsConnectivity_ElementNumberSet
04417   
04419   INTERFACE cmfe_InterfacePointsConnectivity_PointXiSet
04420     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_PointXiSetNumber
04421     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_PointXiSetObj
04422   END INTERFACE cmfe_InterfacePointsConnectivity_PointXiSet
04423   
04425   INTERFACE cmfe_InterfacePointsConnectivity_UpdateFromProjection
04426     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_UpdateFromProjectionRNumber
04427     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_UpdateFromProjectionINumber
04428     MODULE PROCEDURE cmfe_InterfacePointsConnectivity_UpdateFromProjectionObj
04429   END INTERFACE cmfe_InterfacePointsConnectivity_UpdateFromProjection
04430 
04431   PUBLIC cmfe_Interface_MeshAdd
04432 
04433   PUBLIC cmfe_Interface_CreateFinish,cmfe_Interface_CreateStart
04434   
04435   PUBLIC cmfe_Interface_CoordinateSystemSet,cmfe_Interface_CoordinateSystemGet
04436 
04437   PUBLIC cmfe_Interface_Destroy
04438 
04439   PUBLIC cmfe_Interface_LabelGet,cmfe_Interface_LabelSet
04440 
04441   PUBLIC cmfe_Interface_NodesGet
04442 
04443   PUBLIC cmfe_InterfaceMeshConnectivity_CreateFinish,cmfe_InterfaceMeshConnectivity_CreateStart
04444 
04445   PUBLIC cmfe_InterfaceMeshConnectivity_Destroy,cmfe_InterfaceMeshConnectivity_BasisSet
04446 
04447   PUBLIC cmfe_InterfaceMeshConnectivity_ElementNumberSet,cmfe_InterfaceMeshConnectivity_ElementXiSet
04448 
04449   PUBLIC cmfe_InterfaceMeshConnectivity_NodeNumberSet
04450 
04451   PUBLIC cmfe_InterfacePointsConnectivity_CreateFinish,cmfe_InterfacePointsConnectivity_CreateStart
04452 
04453   PUBLIC cmfe_InterfacePointsConnectivity_Destroy
04454   
04455   PUBLIC cmfe_InterfacePointsConnectivity_ElementNumberGet,cmfe_InterfacePointsConnectivity_PointXiGet
04456   
04457   PUBLIC cmfe_InterfacePointsConnectivity_ElementNumberSet,cmfe_InterfacePointsConnectivity_PointXiSet
04458   
04459   PUBLIC cmfe_InterfacePointsConnectivity_UpdateFromProjection
04460 
04461 !!==================================================================================================================================
04462 !!
04463 !! INTERFACE_CONDITION_ROUTINES
04464 !!
04465 !!==================================================================================================================================
04466 
04467   !Module parameters
04468 
04476   INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_LAGRANGE_MULTIPLIERS_METHOD = 
04477      INTERFACE_CONDITION_LAGRANGE_MULTIPLIERS_METHOD !<Lagrange multipliers interface condition method. \see OPENCMISS_InterfaceConditionMethods,OPENCMISS
04478   INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_AUGMENTED_LAGRANGE_METHOD = INTERFACE_CONDITION_AUGMENTED_LAGRANGE_METHOD !<Augmented Lagrange multiplers interface condition method. \see OPENCMISS_InterfaceConditionMethods,OPENCMISS
04479   INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_PENALTY_METHOD = INTERFACE_CONDITION_PENALTY_METHOD !<Penalty interface condition method. \see OPENCMISS_InterfaceConditionMethods,OPENCMISS
04480   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
04481 
04486   INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_FIELD_CONTINUITY_OPERATOR = 
04487      INTERFACE_CONDITION_FIELD_CONTINUITY_OPERATOR !<Continuous field operator, i.e., lambda.(u1_gauss-u2_gauss). \see OPENCMISS_InterfaceConditionOperators,OPENCMISS
04488   INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_FIELD_NORMAL_CONTINUITY_OPERATOR = 
04489      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
04490   INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_FLS_CONTACT_OPERATOR= 
04491      INTERFACE_CONDITION_FLS_CONTACT_OPERATOR !<Frictionless contact operator, i.e., lambda.(x_1.n-x_2.n). \see OPENCMISS_InterfaceConditionOperators,OPENCMISS
04492   INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_FLS_CONTACT_REPROJECT_OPERATOR= 
04493      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
04494   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
04495   INTEGER(INTG), PARAMETER :: CMFE_INTERFACE_CONDITION_SOLID_FLUID_NORMAL_OPERATOR = 
04496      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
04497   !>@}
04498 
04502   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
04503   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
04504 
04506 
04507   !Module types
04508 
04509   !Module variables
04510 
04511   !Interfaces
04512 
04514   INTERFACE cmfe_InterfaceCondition_CreateFinish
04515     MODULE PROCEDURE cmfe_InterfaceCondition_CreateFinishNumber
04516     MODULE PROCEDURE cmfe_InterfaceCondition_CreateFinishObj
04517   END INTERFACE cmfe_InterfaceCondition_CreateFinish
04518 
04520   INTERFACE cmfe_InterfaceCondition_CreateStart
04521     MODULE PROCEDURE cmfe_InterfaceCondition_CreateStartNumber
04522     MODULE PROCEDURE cmfe_InterfaceCondition_CreateStartObj
04523   END INTERFACE cmfe_InterfaceCondition_CreateStart
04524 
04526   INTERFACE cmfe_InterfaceCondition_DependentVariableAdd
04527     MODULE PROCEDURE cmfe_InterfaceCondition_DependentVariableAddNumber
04528     MODULE PROCEDURE cmfe_InterfaceCondition_DependentVariableAddObj
04529   END INTERFACE cmfe_InterfaceCondition_DependentVariableAdd
04530 
04532   INTERFACE cmfe_InterfaceCondition_Destroy
04533     MODULE PROCEDURE cmfe_InterfaceCondition_DestroyNumber
04534     MODULE PROCEDURE cmfe_InterfaceCondition_DestroyObj
04535   END INTERFACE cmfe_InterfaceCondition_Destroy
04536 
04538   INTERFACE cmfe_InterfaceCondition_EquationsCreateFinish
04539     MODULE PROCEDURE cmfe_InterfaceCondition_EquationsCreateFinishNumber
04540     MODULE PROCEDURE cmfe_InterfaceCondition_EquationsCreateFinishObj
04541   END INTERFACE cmfe_InterfaceCondition_EquationsCreateFinish
04542 
04544   INTERFACE cmfe_InterfaceCondition_EquationsCreateStart
04545     MODULE PROCEDURE cmfe_InterfaceCondition_EquationsCreateStartNumber
04546     MODULE PROCEDURE cmfe_InterfaceCondition_EquationsCreateStartObj
04547   END INTERFACE cmfe_InterfaceCondition_EquationsCreateStart
04548 
04550   INTERFACE cmfe_InterfaceCondition_EquationsDestroy
04551     MODULE PROCEDURE cmfe_InterfaceCondition_EquationsDestroyNumber
04552     MODULE PROCEDURE cmfe_InterfaceCondition_EquationsDestroyObj
04553   END INTERFACE cmfe_InterfaceCondition_EquationsDestroy
04554   
04556   INTERFACE cmfe_InterfaceCondition_IntegrationTypeGet
04557     MODULE PROCEDURE cmfe_InterfaceCondition_IntegrationTypeGetNumber
04558     MODULE PROCEDURE cmfe_InterfaceCondition_IntegrationTypeGetObj
04559   END INTERFACE cmfe_InterfaceCondition_IntegrationTypeGet
04560   
04562   INTERFACE cmfe_InterfaceCondition_IntegrationTypeSet
04563     MODULE PROCEDURE cmfe_InterfaceCondition_IntegrationTypeSetNumber
04564     MODULE PROCEDURE cmfe_InterfaceCondition_IntegrationTypeSetObj
04565   END INTERFACE cmfe_InterfaceCondition_IntegrationTypeSet
04566 
04568   INTERFACE cmfe_InterfaceCondition_LagrangeFieldCreateFinish
04569     MODULE PROCEDURE cmfe_InterfaceCondition_LagrangeFieldCreateFinishNumber
04570     MODULE PROCEDURE cmfe_InterfaceCondition_LagrangeFieldCreateFinishObj
04571   END INTERFACE cmfe_InterfaceCondition_LagrangeFieldCreateFinish
04572 
04574   INTERFACE cmfe_InterfaceCondition_LagrangeFieldCreateStart
04575     MODULE PROCEDURE cmfe_InterfaceCondition_LagrangeFieldCreateStartNumber
04576     MODULE PROCEDURE cmfe_InterfaceCondition_LagrangeFieldCreateStartObj
04577   END INTERFACE cmfe_InterfaceCondition_LagrangeFieldCreateStart
04578 
04580   INTERFACE cmfe_InterfaceCondition_PenaltyFieldCreateFinish
04581     MODULE PROCEDURE cmfe_InterfaceCondition_PenaltyFieldCreateFinishNumber
04582     MODULE PROCEDURE cmfe_InterfaceCondition_PenaltyFieldCreateFinishObj
04583   END INTERFACE cmfe_InterfaceCondition_PenaltyFieldCreateFinish
04584 
04586   INTERFACE cmfe_InterfaceCondition_PenaltyFieldCreateStart
04587     MODULE PROCEDURE cmfe_InterfaceCondition_PenaltyFieldCreateStartNumber
04588     MODULE PROCEDURE cmfe_InterfaceCondition_PenaltyFieldCreateStartObj
04589   END INTERFACE cmfe_InterfaceCondition_PenaltyFieldCreateStart
04590 
04592   INTERFACE cmfe_InterfaceCondition_MethodGet
04593     MODULE PROCEDURE cmfe_InterfaceCondition_MethodGetNumber
04594     MODULE PROCEDURE cmfe_InterfaceCondition_MethodGetObj
04595   END INTERFACE cmfe_InterfaceCondition_MethodGet
04596 
04598   INTERFACE cmfe_InterfaceCondition_MethodSet
04599     MODULE PROCEDURE cmfe_InterfaceCondition_MethodSetNumber
04600     MODULE PROCEDURE cmfe_InterfaceCondition_MethodSetObj
04601   END INTERFACE cmfe_InterfaceCondition_MethodSet
04602 
04604   INTERFACE cmfe_InterfaceCondition_OperatorGet
04605     MODULE PROCEDURE cmfe_InterfaceCondition_OperatorGetNumber
04606     MODULE PROCEDURE cmfe_InterfaceCondition_OperatorGetObj
04607   END INTERFACE cmfe_InterfaceCondition_OperatorGet
04608 
04610   INTERFACE cmfe_InterfaceCondition_OperatorSet
04611     MODULE PROCEDURE cmfe_InterfaceCondition_OperatorSetNumber
04612     MODULE PROCEDURE cmfe_InterfaceCondition_OperatorSetObj
04613   END INTERFACE cmfe_InterfaceCondition_OperatorSet
04614 
04616   INTERFACE cmfe_InterfaceEquations_SparsityGet
04617     MODULE PROCEDURE cmfe_InterfaceEquations_SparsityGetNumber
04618     MODULE PROCEDURE cmfe_InterfaceEquations_SparsityGetObj
04619   END INTERFACE cmfe_InterfaceEquations_SparsityGet
04620 
04622   INTERFACE cmfe_InterfaceEquations_SparsitySet
04623     MODULE PROCEDURE cmfe_InterfaceEquations_SparsitySetNumber
04624     MODULE PROCEDURE cmfe_InterfaceEquations_SparsitySetObj
04625   END INTERFACE cmfe_InterfaceEquations_SparsitySet
04626 
04628   INTERFACE cmfe_InterfaceEquations_OutputTypeGet
04629     MODULE PROCEDURE cmfe_InterfaceEquations_OutputTypeGetNumber
04630     MODULE PROCEDURE cmfe_InterfaceEquations_OutputTypeGetObj
04631   END INTERFACE cmfe_InterfaceEquations_OutputTypeGet
04632 
04634   INTERFACE cmfe_InterfaceEquations_OutputTypeSet
04635     MODULE PROCEDURE cmfe_InterfaceEquations_OutputTypeSetNumber
04636     MODULE PROCEDURE cmfe_InterfaceEquations_OutputTypeSetObj
04637   END INTERFACE cmfe_InterfaceEquations_OutputTypeSet
04638 
04639   PUBLIC CMFE_INTERFACE_CONDITION_LAGRANGE_MULTIPLIERS_METHOD,CMFE_INTERFACE_CONDITION_AUGMENTED_LAGRANGE_METHOD, &
04640     & CMFE_INTERFACE_CONDITION_PENALTY_METHOD,CMFE_INTERFACE_CONDITION_POINT_TO_POINT_METHOD
04641 
04642   PUBLIC CMFE_INTERFACE_CONDITION_FIELD_CONTINUITY_OPERATOR,CMFE_INTERFACE_CONDITION_FIELD_NORMAL_CONTINUITY_OPERATOR, &
04643     & CMFE_INTERFACE_CONDITION_FLS_CONTACT_OPERATOR,CMFE_INTERFACE_CONDITION_FLS_CONTACT_REPROJECT_OPERATOR, &
04644     & CMFE_INTERFACE_CONDITION_SOLID_FLUID_OPERATOR,CMFE_INTERFACE_CONDITION_SOLID_FLUID_NORMAL_OPERATOR
04645     
04646   PUBLIC CMFE_INTERFACE_CONDITION_GAUSS_INTEGRATION,CMFE_INTERFACE_CONDITION_DATA_POINTS_INTEGRATION
04647 
04648   PUBLIC cmfe_InterfaceCondition_CreateFinish,cmfe_InterfaceCondition_CreateStart
04649 
04650   PUBLIC cmfe_InterfaceCondition_DependentVariableAdd
04651 
04652   PUBLIC cmfe_InterfaceCondition_Destroy
04653 
04654   PUBLIC cmfe_InterfaceCondition_EquationsCreateFinish,cmfe_InterfaceCondition_EquationsCreateStart
04655 
04656   PUBLIC cmfe_InterfaceCondition_EquationsDestroy
04657   
04658   PUBLIC cmfe_InterfaceCondition_IntegrationTypeGet,cmfe_InterfaceCondition_IntegrationTypeSet
04659 
04660   PUBLIC cmfe_InterfaceCondition_LagrangeFieldCreateFinish,cmfe_InterfaceCondition_LagrangeFieldCreateStart
04661 
04662   PUBLIC cmfe_InterfaceCondition_PenaltyFieldCreateFinish,cmfe_InterfaceCondition_PenaltyFieldCreateStart
04663 
04664   PUBLIC cmfe_InterfaceCondition_MethodGet,cmfe_InterfaceCondition_MethodSet
04665 
04666   PUBLIC cmfe_InterfaceCondition_OperatorGet,cmfe_InterfaceCondition_OperatorSet
04667 
04668   PUBLIC cmfe_InterfaceEquations_SparsityGet,cmfe_InterfaceEquations_SparsitySet
04669 
04670   PUBLIC cmfe_InterfaceEquations_OutputTypeGet,cmfe_InterfaceEquations_OutputTypeSet
04671 
04672 !!==================================================================================================================================
04673 !!
04674 !! INTERFACE MATRICES ROUTINES
04675 !!
04676 !!==================================================================================================================================
04677 
04678   !Module parameters
04679 
04683   INTEGER, PARAMETER :: CMFE_NUMBER_OF_INTERFACE_MATRIX_TYPES=NUMBER_OF_INTERFACE_MATRIX_TYPES
04684   INTEGER, PARAMETER :: CMFE_INTERFACE_MATRIX_STATIC=INTERFACE_MATRIX_STATIC !<Interface matrix is of static type \see INTERFACE_MATRICES_ROUTINES_InterfaceMatricesTimeDependenceTypes,INTERFACE_MATRICES_ROUTINES
04685   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
04686   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
04687   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
04688 
04689 
04690   !Module types
04691 
04692   !Module variables
04693 
04694   !Interfaces
04695   PUBLIC CMFE_NUMBER_OF_INTERFACE_MATRIX_TYPES,CMFE_INTERFACE_MATRIX_STATIC,CMFE_INTERFACE_MATRIX_QUASI_STATIC, &
04696     & CMFE_INTERFACE_MATRIX_FIRST_ORDER_DYNAMIC,CMFE_INTERFACE_MATRIX_SECOND_ORDER_DYNAMIC
04697 
04698   PUBLIC cmfe_InterfaceMatrices_TimeDependenceTypeSet,cmfe_InterfaceMatrices_TimeDependenceTypeGet
04699 
04700 !!==================================================================================================================================
04701 !!
04702 !! MESH_ROUTINES
04703 !!
04704 !!==================================================================================================================================
04705 
04706   !Module parameters
04707 
04715   INTEGER(INTG), PARAMETER :: CMFE_DECOMPOSITION_ALL_TYPE = DECOMPOSITION_ALL_TYPE !<The decomposition contains all elements. \see OPENCMISS_DecompositionTypes,OPENCMISS
04716   INTEGER(INTG), PARAMETER :: CMFE_DECOMPOSITION_CALCULATED_TYPE = DECOMPOSITION_CALCULATED_TYPE !<The element decomposition is calculated by graph partitioning. \see OPENCMISS_DecompositionTypes,OPENCMISS
04717   INTEGER(INTG), PARAMETER :: CMFE_DECOMPOSITION_USER_DEFINED_TYPE = DECOMPOSITION_USER_DEFINED_TYPE !<The user will set the element decomposition. \see OPENCMISS_DecompositionTypes,OPENCMISS
04718 
04720 
04721   !Module types
04722 
04723   !Module variables
04724 
04725   !Interfaces
04726 
04728   INTERFACE cmfe_Decomposition_CreateFinish
04729     MODULE PROCEDURE cmfe_Decomposition_CreateFinishNumber
04730     MODULE PROCEDURE cmfe_Decomposition_CreateFinishObj
04731   END INTERFACE cmfe_Decomposition_CreateFinish
04732 
04734   INTERFACE cmfe_Decomposition_CreateStart
04735     MODULE PROCEDURE cmfe_Decomposition_CreateStartNumber
04736     MODULE PROCEDURE cmfe_Decomposition_CreateStartObj
04737   END INTERFACE cmfe_Decomposition_CreateStart
04738 
04740   INTERFACE cmfe_Decomposition_Destroy
04741     MODULE PROCEDURE cmfe_Decomposition_DestroyNumber
04742     MODULE PROCEDURE cmfe_Decomposition_DestroyObj
04743   END INTERFACE cmfe_Decomposition_Destroy
04744 
04746   INTERFACE cmfe_Decomposition_ElementDomainCalculate
04747     MODULE PROCEDURE cmfe_Decomposition_ElementDomainCalculateNumber
04748     MODULE PROCEDURE cmfe_Decomposition_ElementDomainCalculateObj
04749   END INTERFACE cmfe_Decomposition_ElementDomainCalculate
04750 
04752   INTERFACE cmfe_Decomposition_ElementDomainGet
04753     MODULE PROCEDURE cmfe_Decomposition_ElementDomainGetNumber
04754     MODULE PROCEDURE cmfe_Decomposition_ElementDomainGetObj
04755   END INTERFACE cmfe_Decomposition_ElementDomainGet
04756 
04758   INTERFACE cmfe_Decomposition_ElementDomainSet
04759     MODULE PROCEDURE cmfe_Decomposition_ElementDomainSetNumber
04760     MODULE PROCEDURE cmfe_Decomposition_ElementDomainSetObj
04761   END INTERFACE cmfe_Decomposition_ElementDomainSet
04762 
04764   INTERFACE cmfe_Decomposition_MeshComponentGet
04765     MODULE PROCEDURE cmfe_Decomposition_MeshComponentGetNumber
04766     MODULE PROCEDURE cmfe_Decomposition_MeshComponentGetObj
04767   END INTERFACE cmfe_Decomposition_MeshComponentGet
04768 
04770   INTERFACE cmfe_Decomposition_MeshComponentSet
04771     MODULE PROCEDURE cmfe_Decomposition_MeshComponentSetNumber
04772     MODULE PROCEDURE cmfe_Decomposition_MeshComponentSetObj
04773   END INTERFACE cmfe_Decomposition_MeshComponentSet
04774 
04776   INTERFACE cmfe_Decomposition_NumberOfDomainsGet
04777     MODULE PROCEDURE cmfe_Decomposition_NumberOfDomainsGetNumber
04778     MODULE PROCEDURE cmfe_Decomposition_NumberOfDomainsGetObj
04779   END INTERFACE cmfe_Decomposition_NumberOfDomainsGet
04780 
04782   INTERFACE cmfe_Decomposition_NumberOfDomainsSet
04783     MODULE PROCEDURE cmfe_Decomposition_NumberOfDomainsSetNumber
04784     MODULE PROCEDURE cmfe_Decomposition_NumberOfDomainsSetObj
04785   END INTERFACE cmfe_Decomposition_NumberOfDomainsSet
04786 
04788   INTERFACE cmfe_Decomposition_TypeGet
04789     MODULE PROCEDURE cmfe_Decomposition_TypeGetNumber
04790     MODULE PROCEDURE cmfe_Decomposition_TypeGetObj
04791   END INTERFACE cmfe_Decomposition_TypeGet
04792 
04794   INTERFACE cmfe_Decomposition_TypeSet
04795     MODULE PROCEDURE cmfe_Decomposition_TypeSetNumber
04796     MODULE PROCEDURE cmfe_Decomposition_TypeSetObj
04797   END INTERFACE cmfe_Decomposition_TypeSet
04798 
04800   INTERFACE cmfe_Decomposition_CalculateLinesSet
04801     MODULE PROCEDURE cmfe_Decomposition_CalculateLinesSetNumber
04802     MODULE PROCEDURE cmfe_Decomposition_CalculateLinesSetObj
04803   END INTERFACE cmfe_Decomposition_CalculateLinesSet
04804 
04806   INTERFACE cmfe_Decomposition_CalculateFacesSet
04807     MODULE PROCEDURE cmfe_Decomposition_CalculateFacesSetNumber
04808     MODULE PROCEDURE cmfe_Decomposition_CalculateFacesSetObj
04809   END INTERFACE cmfe_Decomposition_CalculateFacesSet
04810 
04812   INTERFACE cmfe_Mesh_CreateFinish
04813     MODULE PROCEDURE cmfe_Mesh_CreateFinishNumber
04814     MODULE PROCEDURE cmfe_Mesh_CreateFinishObj
04815   END INTERFACE cmfe_Mesh_CreateFinish
04816 
04818   INTERFACE cmfe_Mesh_CreateStart
04819     MODULE PROCEDURE cmfe_Mesh_CreateStartNumber
04820     MODULE PROCEDURE cmfe_Mesh_CreateStartObj
04821     MODULE PROCEDURE cmfe_Mesh_CreateStartInterfaceObj
04822   END INTERFACE cmfe_Mesh_CreateStart
04823 
04825   INTERFACE cmfe_Mesh_Destroy
04826     MODULE PROCEDURE cmfe_Mesh_DestroyNumber
04827     MODULE PROCEDURE cmfe_Mesh_DestroyObj
04828   END INTERFACE cmfe_Mesh_Destroy
04829 
04831   INTERFACE cmfe_Mesh_NumberOfComponentsGet
04832     MODULE PROCEDURE cmfe_Mesh_NumberOfComponentsGetNumber
04833     MODULE PROCEDURE cmfe_Mesh_NumberOfComponentsGetObj
04834   END INTERFACE cmfe_Mesh_NumberOfComponentsGet
04835 
04837   INTERFACE cmfe_Mesh_NumberOfComponentsSet
04838     MODULE PROCEDURE cmfe_Mesh_NumberOfComponentsSetNumber
04839     MODULE PROCEDURE cmfe_Mesh_NumberOfComponentsSetObj
04840   END INTERFACE cmfe_Mesh_NumberOfComponentsSet
04841 
04843   INTERFACE cmfe_Mesh_NumberOfElementsGet
04844     MODULE PROCEDURE cmfe_Mesh_NumberOfElementsGetNumber
04845     MODULE PROCEDURE cmfe_Mesh_NumberOfElementsGetObj
04846   END INTERFACE cmfe_Mesh_NumberOfElementsGet
04847 
04849   INTERFACE cmfe_Mesh_NumberOfElementsSet
04850     MODULE PROCEDURE cmfe_Mesh_NumberOfElementsSetNumber
04851     MODULE PROCEDURE cmfe_Mesh_NumberOfElementsSetObj
04852   END INTERFACE cmfe_Mesh_NumberOfElementsSet
04853 
04855   INTERFACE cmfe_Mesh_SurroundingElementsCalculateSet
04856     MODULE PROCEDURE cmfe_Mesh_SurroundingElementsCalculateSetNumber
04857     MODULE PROCEDURE cmfe_Mesh_SurroundingElementsCalculateSetObj
04858   END INTERFACE cmfe_Mesh_SurroundingElementsCalculateSet
04859   
04861   INTERFACE cmfe_Mesh_TopologyDataPointsCalculateProjection
04862     MODULE PROCEDURE cmfe_Mesh_TopologyDataPointsCalculateProjectionInterfaceNumber
04863     MODULE PROCEDURE cmfe_Mesh_TopologyDataPointsCalculateProjectionRegionNumber
04864     MODULE PROCEDURE cmfe_Mesh_TopologyDataPointsCalculateProjectionObj
04865   END INTERFACE cmfe_Mesh_TopologyDataPointsCalculateProjection
04866 
04868   INTERFACE cmfe_MeshElements_BasisGet
04869     MODULE PROCEDURE cmfe_MeshElements_BasisGetNumber
04870     MODULE PROCEDURE cmfe_MeshElements_BasisGetObj
04871   END INTERFACE cmfe_MeshElements_BasisGet
04872 
04874   INTERFACE cmfe_MeshElements_BasisSet
04875     MODULE PROCEDURE cmfe_MeshElements_BasisSetNumber
04876     MODULE PROCEDURE cmfe_MeshElements_BasisSetObj
04877   END INTERFACE cmfe_MeshElements_BasisSet
04878 
04880   INTERFACE cmfe_MeshElements_AdjacentElementGet
04881     MODULE PROCEDURE cmfe_MeshElements_AdjacentElementGetNumber
04882     MODULE PROCEDURE cmfe_MeshElements_AdjacentElementGetObj
04883   END INTERFACE cmfe_MeshElements_AdjacentElementGet
04884 
04886   INTERFACE cmfe_MeshElements_CreateFinish
04887     MODULE PROCEDURE cmfe_MeshElements_CreateFinishNumber
04888     MODULE PROCEDURE cmfe_MeshElements_CreateFinishObj
04889   END INTERFACE cmfe_MeshElements_CreateFinish
04890 
04892   INTERFACE cmfe_MeshElements_CreateStart
04893     MODULE PROCEDURE cmfe_MeshElements_CreateStartNumber
04894     MODULE PROCEDURE cmfe_MeshElements_CreateStartObj
04895   END INTERFACE cmfe_MeshElements_CreateStart
04896 
04898   INTERFACE cmfe_Mesh_ElementsGet
04899     MODULE PROCEDURE cmfe_Mesh_ElementsGetNumber
04900     MODULE PROCEDURE cmfe_Mesh_ElementsGetObj
04901   END INTERFACE cmfe_Mesh_ElementsGet
04902 
04904   INTERFACE cmfe_MeshElements_NodesGet
04905     MODULE PROCEDURE cmfe_MeshElements_NodesGetNumber
04906     MODULE PROCEDURE cmfe_MeshElements_NodesGetObj
04907   END INTERFACE cmfe_MeshElements_NodesGet
04908 
04910   INTERFACE cmfe_MeshElements_NodesSet
04911     MODULE PROCEDURE cmfe_MeshElements_NodesSetNumber
04912     MODULE PROCEDURE cmfe_MeshElements_NodesSetObj
04913   END INTERFACE cmfe_MeshElements_NodesSet
04914 
04916   INTERFACE cmfe_MeshElements_UserNodeVersionSet
04917     MODULE PROCEDURE cmfe_MeshElements_UserNodeVersionSetNumber
04918     MODULE PROCEDURE cmfe_MeshElements_UserNodeVersionSetObj
04919   END INTERFACE cmfe_MeshElements_UserNodeVersionSet
04920 
04922   INTERFACE cmfe_MeshElements_LocalElementNodeVersionSet
04923     MODULE PROCEDURE cmfe_MeshElements_LocalElementNodeVersionSetNumber
04924     MODULE PROCEDURE cmfe_MeshElements_LocalElementNodeVersionSetObj
04925   END INTERFACE cmfe_MeshElements_LocalElementNodeVersionSet
04926 
04928   INTERFACE cmfe_MeshElements_UserNumberGet
04929     MODULE PROCEDURE cmfe_MeshElements_UserNumberGetNumber
04930     MODULE PROCEDURE cmfe_MeshElements_UserNumberGetObj
04931   END INTERFACE cmfe_MeshElements_UserNumberGet
04932 
04934   INTERFACE cmfe_MeshElements_UserNumberSet
04935     MODULE PROCEDURE cmfe_MeshElements_UserNumberSetNumber
04936     MODULE PROCEDURE cmfe_MeshElements_UserNumberSetObj
04937   END INTERFACE cmfe_MeshElements_UserNumberSet
04938 
04940   INTERFACE cmfe_MeshElements_UserNumbersAllSet
04941     MODULE PROCEDURE cmfe_MeshElements_UserNumbersAllSetNumber
04942     MODULE PROCEDURE cmfe_MeshElements_UserNumbersAllSetObj
04943   END INTERFACE cmfe_MeshElements_UserNumbersAllSet
04944 
04946   INTERFACE cmfe_Mesh_NodeExists
04947     MODULE PROCEDURE cmfe_Mesh_NodeExistsNumber
04948     MODULE PROCEDURE cmfe_Mesh_NodeExistsObj
04949   END INTERFACE cmfe_Mesh_NodeExists
04950 
04952   INTERFACE cmfe_Mesh_ElementExists
04953     MODULE PROCEDURE cmfe_Mesh_ElementExistsNumber
04954     MODULE PROCEDURE cmfe_Mesh_ElementExistsObj
04955   END INTERFACE cmfe_Mesh_ElementExists
04956 
04958   INTERFACE cmfe_Mesh_NodesGet
04959     MODULE PROCEDURE cmfe_Mesh_NodesGetNumber
04960     MODULE PROCEDURE cmfe_Mesh_NodesGetObj
04961   END INTERFACE cmfe_Mesh_NodesGet
04962 
04964   INTERFACE cmfe_MeshNodes_NumberOfDerivativesGet
04965     MODULE PROCEDURE cmfe_MeshNodes_NumberOfDerivativesGetNumber
04966     MODULE PROCEDURE cmfe_MeshNodes_NumberOfDerivativesGetObj
04967   END INTERFACE cmfe_MeshNodes_NumberOfDerivativesGet
04968 
04970   INTERFACE cmfe_MeshNodes_DerivativesGet
04971     MODULE PROCEDURE cmfe_MeshNodes_DerivativesGetNumber
04972     MODULE PROCEDURE cmfe_MeshNodes_DerivativesGetObj
04973   END INTERFACE cmfe_MeshNodes_DerivativesGet
04974 
04976   INTERFACE cmfe_MeshNodes_NumberOfVersionsGet
04977     MODULE PROCEDURE cmfe_MeshNodes_NumberOfVersionsGetNumber
04978     MODULE PROCEDURE cmfe_MeshNodes_NumberOfVersionsGetObj
04979   END INTERFACE cmfe_MeshNodes_NumberOfVersionsGet
04980 
04982   INTERFACE cmfe_MeshNodes_NumberOfNodesGet
04983     MODULE PROCEDURE cmfe_MeshNodes_NumberOfNodesGetNumber
04984     MODULE PROCEDURE cmfe_MeshNodes_NumberOfNodesGetObj
04985   END INTERFACE cmfe_MeshNodes_NumberOfNodesGet
04986 
04988   INTERFACE cmfe_Decomposition_NodeDomainGet
04989     MODULE PROCEDURE cmfe_Decomposition_NodeDomainGetNumber
04990     MODULE PROCEDURE cmfe_Decomposition_NodeDomainGetObj
04991   END INTERFACE cmfe_Decomposition_NodeDomainGet
04992 
04994   INTERFACE cmfe_Decomposition_TopologyDataProjectionCalculate
04995     MODULE PROCEDURE cmfe_Decomposition_TopologyDataProjectionCalculateObj
04996   END INTERFACE cmfe_Decomposition_TopologyDataProjectionCalculate
04997 
04999   INTERFACE cmfe_Decomposition_TopologyElementDataPointLocalNumberGet
05000     MODULE PROCEDURE cmfe_Decomposition_TopologyElementDataPointLocalNumberGetObj
05001   END INTERFACE cmfe_Decomposition_TopologyElementDataPointLocalNumberGet
05002 
05004   INTERFACE cmfe_Decomposition_TopologyElementDataPointUserNumberGet
05005     MODULE PROCEDURE cmfe_Decomposition_TopologyElementDataPointUserNumberGetObj
05006   END INTERFACE cmfe_Decomposition_TopologyElementDataPointUserNumberGet
05007 
05009   INTERFACE cmfe_Decomposition_TopologyNumberOfElementDataPointsGet
05010     MODULE PROCEDURE cmfe_Decomposition_TopologyNumberOfElementDataPointsGetObj
05011   END INTERFACE cmfe_Decomposition_TopologyNumberOfElementDataPointsGet
05012 
05013   PUBLIC CMFE_DECOMPOSITION_ALL_TYPE,CMFE_DECOMPOSITION_CALCULATED_TYPE,CMFE_DECOMPOSITION_USER_DEFINED_TYPE
05014 
05015   PUBLIC cmfe_Decomposition_CreateFinish,cmfe_Decomposition_CreateStart
05016 
05017   PUBLIC cmfe_Decomposition_TopologyDataProjectionCalculate
05018 
05019   PUBLIC cmfe_Decomposition_TopologyElementDataPointLocalNumberGet
05020 
05021   PUBLIC cmfe_Decomposition_TopologyElementDataPointUserNumberGet
05022 
05023   PUBLIC cmfe_Decomposition_TopologyNumberOfElementDataPointsGet
05024 
05025   PUBLIC cmfe_Decomposition_Destroy
05026 
05027   PUBLIC cmfe_Decomposition_ElementDomainCalculate
05028 
05029   PUBLIC cmfe_Decomposition_ElementDomainGet,cmfe_Decomposition_ElementDomainSet
05030 
05031   PUBLIC cmfe_Decomposition_MeshComponentGet,cmfe_Decomposition_MeshComponentSet
05032 
05033   PUBLIC cmfe_Decomposition_NumberOfDomainsGet,cmfe_Decomposition_NumberOfDomainsSet
05034 
05035   PUBLIC cmfe_Decomposition_TypeGet,cmfe_Decomposition_TypeSet
05036 
05037   PUBLIC cmfe_Decomposition_NodeDomainGet
05038 
05039   PUBLIC cmfe_Mesh_CreateFinish,cmfe_Mesh_CreateStart
05040 
05041   PUBLIC cmfe_Mesh_Destroy
05042 
05043   PUBLIC cmfe_Mesh_NumberOfComponentsGet,cmfe_Mesh_NumberOfComponentsSet
05044 
05045   PUBLIC cmfe_Mesh_NumberOfElementsGet,cmfe_Mesh_NumberOfElementsSet
05046 
05047   PUBLIC cmfe_MeshElements_BasisGet,cmfe_MeshElements_BasisSet
05048 
05049   PUBLIC cmfe_MeshElements_AdjacentElementGet
05050 
05051   PUBLIC cmfe_MeshElements_UserNodeVersionSet,cmfe_MeshElements_LocalElementNodeVersionSet
05052 
05053   PUBLIC cmfe_MeshElements_CreateFinish,cmfe_MeshElements_CreateStart
05054 
05055   PUBLIC cmfe_MeshElements_NodesGet,cmfe_MeshElements_NodesSet
05056 
05057   PUBLIC cmfe_MeshElements_UserNumberGet,cmfe_MeshElements_UserNumberSet
05058 
05059   PUBLIC cmfe_MeshElements_UserNumbersAllSet
05060  
05061   PUBLIC cmfe_MeshNodes_NumberOfDerivativesGet,cmfe_MeshNodes_DerivativesGet
05062 
05063   PUBLIC cmfe_MeshNodes_NumberOfVersionsGet
05064 
05065   PUBLIC cmfe_MeshNodes_NumberOfNodesGet
05066 
05067   PUBLIC cmfe_Mesh_ElementsGet
05068 
05069   PUBLIC cmfe_Mesh_NodesGet
05070 
05071   PUBLIC cmfe_Mesh_NodeExists,cmfe_Mesh_ElementExists
05072 
05073   PUBLIC cmfe_Mesh_SurroundingElementsCalculateSet
05074 
05075   PUBLIC cmfe_Mesh_TopologyDataPointsCalculateProjection
05076 
05077 !!==================================================================================================================================
05078 !!
05079 !! DISTRIBUTED_MATRIX_VECTOR
05080 !!
05081 !!==================================================================================================================================
05082 
05090   INTEGER(INTG), PARAMETER :: CMFE_MATRIX_BLOCK_STORAGE_TYPE=DISTRIBUTED_MATRIX_BLOCK_STORAGE_TYPE !<Distributed matrix block storage type \see OPENCMISS_MatrixStorageTypes,OPENCMISS
05091   INTEGER(INTG), PARAMETER :: CMFE_MATRIX_DIAGONAL_STORAGE_TYPE=DISTRIBUTED_MATRIX_DIAGONAL_STORAGE_TYPE !<Distributed matrix diagonal storage type \see OPENCMISS_MatrixStorageTypes,OPENCMISS
05092   INTEGER(INTG), PARAMETER :: CMFE_MATRIX_COLUMN_MAJOR_STORAGE_TYPE=DISTRIBUTED_MATRIX_COLUMN_MAJOR_STORAGE_TYPE !<Distributed matrix column major storage type \see OPENCMISS_MatrixStorageTypes,OPENCMISS
05093   INTEGER(INTG), PARAMETER :: CMFE_MATRIX_ROW_MAJOR_STORAGE_TYPE=DISTRIBUTED_MATRIX_ROW_MAJOR_STORAGE_TYPE !<Distributed matrix row major storage type \see OPENCMISS_MatrixStorageTypes,OPENCMISS
05094   INTEGER(INTG), PARAMETER :: CMFE_MATRIX_COMPRESSED_ROW_STORAGE_TYPE=DISTRIBUTED_MATRIX_COMPRESSED_ROW_STORAGE_TYPE !<Distributed matrix compressed row storage type \see OPENCMISS_MatrixStorageTypes,OPENCMISS
05095   INTEGER(INTG), PARAMETER :: CMFE_MATRIX_COMPRESSED_COLUMN_STORAGE_TYPE=DISTRIBUTED_MATRIX_COMPRESSED_COLUMN_STORAGE_TYPE !<Distributed matrix compressed column storage type \see OPENCMISS_MatrixStorageTypes,OPENCMISS
05096   INTEGER(INTG), PARAMETER :: CMFE_MATRIX_ROW_COLUMN_STORAGE_TYPE=DISTRIBUTED_MATRIX_ROW_COLUMN_STORAGE_TYPE !<Distributed matrix row-column storage type \see OPENCMISS_MatrixStorageTypes,OPENCMISS
05097 
05102   INTEGER(INTG), PARAMETER :: CMFE_MATRIX_VECTOR_INTG_TYPE=DISTRIBUTED_MATRIX_VECTOR_INTG_TYPE
05103   INTEGER(INTG), PARAMETER :: CMFE_MATRIX_VECTOR_SP_TYPE=DISTRIBUTED_MATRIX_VECTOR_SP_TYPE !<Single precision real distributed matrix-vector data type \see OPENCMISS_MatrixVectorDataTypes,OPENCMISS
05104   INTEGER(INTG), PARAMETER :: CMFE_MATRIX_VECTOR_DP_TYPE=DISTRIBUTED_MATRIX_VECTOR_DP_TYPE !<Double precision real distributed matrix-vector data type \see OPENCMISS_MatrixVectorDataTypes,OPENCMISS
05105   INTEGER(INTG), PARAMETER :: CMFE_MATRIX_VECTOR_L_TYPE=DISTRIBUTED_MATRIX_VECTOR_L_TYPE !<Logical distributed matrix-vector data type \see OPENCMISS_MatrixVectorDataTypes,OPENCMISS
05106 
05108 
05109   PUBLIC CMFE_MATRIX_BLOCK_STORAGE_TYPE,CMFE_MATRIX_DIAGONAL_STORAGE_TYPE,CMFE_MATRIX_COLUMN_MAJOR_STORAGE_TYPE, &
05110     & CMFE_MATRIX_ROW_MAJOR_STORAGE_TYPE,CMFE_MATRIX_COMPRESSED_ROW_STORAGE_TYPE,CMFE_MATRIX_COMPRESSED_COLUMN_STORAGE_TYPE, &
05111     & CMFE_MATRIX_ROW_COLUMN_STORAGE_TYPE
05112 
05113   PUBLIC CMFE_MATRIX_VECTOR_INTG_TYPE,CMFE_MATRIX_VECTOR_SP_TYPE,CMFE_MATRIX_VECTOR_DP_TYPE,CMFE_MATRIX_VECTOR_L_TYPE
05114 
05115   !Note that currently we don't have any user number based routines for distributed matrices
05116   !as if we can't use a pointer to a CMISS object, a pointer to matrix data isn't going to
05117   !be much use either. It's also more awkward when matrices and vectors themselves don't have
05118   !user numbers and there are multiple ways to access them through user numbers, eg. solver equations
05119   !matrices or equations set matrices
05120 
05122   INTERFACE cmfe_DistributedMatrix_StorageTypeGet
05123     MODULE PROCEDURE cmfe_DistributedMatrix_StorageTypeGetObj
05124   END INTERFACE cmfe_DistributedMatrix_StorageTypeGet
05125 
05127   INTERFACE cmfe_DistributedMatrix_DataTypeGet
05128     MODULE PROCEDURE cmfe_DistributedMatrix_DataTypeGetObj
05129   END INTERFACE cmfe_DistributedMatrix_DataTypeGet
05130 
05132   INTERFACE cmfe_DistributedMatrix_DimensionsGet
05133     MODULE PROCEDURE cmfe_DistributedMatrix_DimensionsGetObj
05134   END INTERFACE cmfe_DistributedMatrix_DimensionsGet
05135 
05137   INTERFACE cmfe_DistributedMatrix_StorageLocationsGet
05138     MODULE PROCEDURE cmfe_DistributedMatrix_StorageLocationsGetObj
05139   END INTERFACE cmfe_DistributedMatrix_StorageLocationsGet
05140 
05142   INTERFACE cmfe_DistributedMatrix_DataGet
05143     MODULE PROCEDURE cmfe_DistributedMatrix_DataGetIntgObj
05144     MODULE PROCEDURE cmfe_DistributedMatrix_DataGetDPObj
05145     MODULE PROCEDURE cmfe_DistributedMatrix_DataGetSPObj
05146     MODULE PROCEDURE cmfe_DistributedMatrix_DataGetLObj
05147   END INTERFACE cmfe_DistributedMatrix_DataGet
05148 
05150   INTERFACE cmfe_DistributedMatrix_DataRestore
05151     MODULE PROCEDURE cmfe_DistributedMatrix_DataRestoreIntgObj
05152     MODULE PROCEDURE cmfe_DistributedMatrix_DataRestoreDPObj
05153     MODULE PROCEDURE cmfe_DistributedMatrix_DataRestoreSPObj
05154     MODULE PROCEDURE cmfe_DistributedMatrix_DataRestoreLObj
05155   END INTERFACE cmfe_DistributedMatrix_DataRestore
05156 
05158   INTERFACE cmfe_DistributedVector_DataTypeGet
05159     MODULE PROCEDURE cmfe_DistributedVector_DataTypeGetObj
05160   END INTERFACE cmfe_DistributedVector_DataTypeGet
05161 
05163   INTERFACE cmfe_DistributedVector_DataGet
05164     MODULE PROCEDURE cmfe_DistributedVector_DataGetIntgObj
05165     MODULE PROCEDURE cmfe_DistributedVector_DataGetDPObj
05166     MODULE PROCEDURE cmfe_DistributedVector_DataGetSPObj
05167     MODULE PROCEDURE cmfe_DistributedVector_DataGetLObj
05168   END INTERFACE cmfe_DistributedVector_DataGet
05169 
05171   INTERFACE cmfe_DistributedVector_DataRestore
05172     MODULE PROCEDURE cmfe_DistributedVector_DataRestoreIntgObj
05173     MODULE PROCEDURE cmfe_DistributedVector_DataRestoreDPObj
05174     MODULE PROCEDURE cmfe_DistributedVector_DataRestoreSPObj
05175     MODULE PROCEDURE cmfe_DistributedVector_DataRestoreLObj
05176   END INTERFACE cmfe_DistributedVector_DataRestore
05177 
05178   PUBLIC cmfe_DistributedMatrix_StorageTypeGet,cmfe_DistributedMatrix_StorageLocationsGet
05179   PUBLIC cmfe_DistributedMatrix_DataTypeGet,cmfe_DistributedMatrix_DimensionsGet
05180   PUBLIC cmfe_DistributedMatrix_DataGet,cmfe_DistributedMatrix_DataRestore
05181   PUBLIC cmfe_DistributedVector_DataTypeGet
05182   PUBLIC cmfe_DistributedVector_DataGet,cmfe_DistributedVector_DataRestore
05183 
05184 !!==================================================================================================================================
05185 !!
05186 !! NODE_ROUTINES
05187 !!
05188 !!==================================================================================================================================
05189 
05190   !Module parameters
05191 
05192   !Module types
05193 
05194   !Module variables
05195 
05196   !Interfaces
05197 
05199   INTERFACE cmfe_Nodes_CreateFinish
05200     MODULE PROCEDURE cmfe_Nodes_CreateFinishNumber
05201     MODULE PROCEDURE cmfe_Nodes_CreateFinishObj
05202   END INTERFACE cmfe_Nodes_CreateFinish
05203 
05205   INTERFACE cmfe_Nodes_CreateStart
05206     MODULE PROCEDURE cmfe_Nodes_CreateStartNumber
05207     MODULE PROCEDURE cmfe_Nodes_CreateStartObj
05208     MODULE PROCEDURE cmfe_Nodes_CreateStartInterfaceObj
05209   END INTERFACE cmfe_Nodes_CreateStart
05210 
05212   INTERFACE cmfe_Nodes_Destroy
05213     MODULE PROCEDURE cmfe_Nodes_DestroyNumber
05214     MODULE PROCEDURE cmfe_Nodes_DestroyObj
05215   END INTERFACE cmfe_Nodes_Destroy
05216 
05218   INTERFACE cmfe_Nodes_NumberOfNodesGet
05219     MODULE PROCEDURE cmfe_Nodes_NumberOfNodesGetNumber
05220     MODULE PROCEDURE cmfe_Nodes_NumberOfNodesGetObj
05221   END INTERFACE cmfe_Nodes_NumberOfNodesGet
05222 
05224   INTERFACE cmfe_Nodes_LabelGet
05225     MODULE PROCEDURE cmfe_Nodes_LabelGetCNumber
05226     MODULE PROCEDURE cmfe_Nodes_LabelGetCObj
05227     MODULE PROCEDURE cmfe_Nodes_LabelGetVSNumber
05228     MODULE PROCEDURE cmfe_Nodes_LabelGetVSObj
05229   END INTERFACE cmfe_Nodes_LabelGet
05230 
05232   INTERFACE cmfe_Nodes_LabelSet
05233     MODULE PROCEDURE cmfe_Nodes_LabelSetCNumber
05234     MODULE PROCEDURE cmfe_Nodes_LabelSetCObj
05235     MODULE PROCEDURE cmfe_Nodes_LabelSetVSNumber
05236     MODULE PROCEDURE cmfe_Nodes_LabelSetVSObj
05237   END INTERFACE cmfe_Nodes_LabelSet
05238 
05240   INTERFACE cmfe_Nodes_UserNumberGet
05241     MODULE PROCEDURE cmfe_Nodes_UserNumberGetNumber
05242     MODULE PROCEDURE cmfe_Nodes_UserNumberGetObj
05243   END INTERFACE cmfe_Nodes_UserNumberGet
05244 
05246   INTERFACE cmfe_Nodes_UserNumberSet
05247     MODULE PROCEDURE cmfe_Nodes_UserNumberSetNumber
05248     MODULE PROCEDURE cmfe_Nodes_UserNumberSetObj
05249   END INTERFACE cmfe_Nodes_UserNumberSet
05250   
05252   INTERFACE cmfe_Nodes_UserNumbersAllSet
05253     MODULE PROCEDURE cmfe_Nodes_UserNumbersAllSetNumber
05254     MODULE PROCEDURE cmfe_Nodes_UserNumbersAllSetObj
05255   END INTERFACE cmfe_Nodes_UserNumbersAllSet
05256 
05257   PUBLIC cmfe_Nodes_CreateFinish,cmfe_Nodes_CreateStart
05258 
05259   PUBLIC cmfe_Nodes_Destroy
05260 
05261   PUBLIC cmfe_Nodes_NumberOfNodesGet
05262 
05263   PUBLIC cmfe_Nodes_LabelGet,cmfe_Nodes_LabelSet
05264 
05265   PUBLIC cmfe_Nodes_UserNumberGet,cmfe_Nodes_UserNumberSet,cmfe_Nodes_UserNumbersAllSet
05266 
05267 !!==================================================================================================================================
05268 !!
05269 !! PROBLEM_CONSTANTS_ROUTINES
05270 !!
05271 !!==================================================================================================================================
05272 
05273   !Module parameters
05274 
05282   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NO_CLASS = PROBLEM_NO_CLASS !<No problem class \see OPENCMISS_ProblemClasses,OPENCMISS
05283   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_ELASTICITY_CLASS = PROBLEM_ELASTICITY_CLASS !<Elasticity problem class \see OPENCMISS_ProblemClasses,OPENCMISS
05284   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FLUID_MECHANICS_CLASS = PROBLEM_FLUID_MECHANICS_CLASS !<Fluid mechanics problem class \see OPENCMISS_ProblemClasses,OPENCMISS
05285   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_ELECTROMAGNETICS_CLASS = PROBLEM_ELECTROMAGNETICS_CLASS !<Electromagnetics problem class \see OPENCMISS_ProblemClasses,OPENCMISS
05286   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_CLASSICAL_FIELD_CLASS = PROBLEM_CLASSICAL_FIELD_CLASS !<Classical field problem class \see OPENCMISS_ProblemClasses,OPENCMISS
05287   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_BIOELECTRICS_CLASS = PROBLEM_BIOELECTRICS_CLASS !<Bioelectrics problem class \see OPENCMISS_ProblemClasses,OPENCMISS
05288   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MODAL_CLASS = PROBLEM_MODAL_CLASS !<Modal problem class \see OPENCMISS_ProblemClasses,OPENCMISS
05289   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FITTING_CLASS = PROBLEM_FITTING_CLASS !<Fitting problem class \see OPENCMISS_ProblemClasses,OPENCMISS
05290   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_OPTIMISATION_CLASS = PROBLEM_OPTIMISATION_CLASS !<Optimisation problem class \see OPENCMISS_ProblemClasses,OPENCMISS
05291   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MULTI_PHYSICS_CLASS = PROBLEM_MULTI_PHYSICS_CLASS !<Multi physics problem class \see OPENCMISS_ProblemClasses,OPENCMISS
05292 
05297   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NO_TYPE = PROBLEM_NO_TYPE !<No problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05298   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LINEAR_ELASTICITY_TYPE = PROBLEM_LINEAR_ELASTICITY_TYPE !<Linear elasticity problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05299   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FINITE_ELASTICITY_TYPE = PROBLEM_FINITE_ELASTICITY_TYPE !<Finite elasticity problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05300   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LINEAR_ELASTICITY_CONTACT_TYPE = PROBLEM_LINEAR_ELASTICITY_CONTACT_TYPE !<Linear elasticity problem subject to contact contstraint type \see OPENCMISS_ProblemTypes,OPENCMISS
05301   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FINITE_ELASTICITY_CONTACT_TYPE = PROBLEM_FINITE_ELASTICITY_CONTACT_TYPE !<Finite elasticity problem subject to contact constraint type \see OPENCMISS_ProblemTypes,OPENCMISS
05302   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STOKES_EQUATION_TYPE = PROBLEM_STOKES_EQUATION_TYPE !<Stokes equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05303   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NAVIER_STOKES_EQUATION_TYPE = PROBLEM_NAVIER_STOKES_EQUATION_TYPE !<Navier-Stokes problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05304   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_DARCY_EQUATION_TYPE = PROBLEM_DARCY_EQUATION_TYPE !<Darcy equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05305   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_POISEUILLE_EQUATION_TYPE = PROBLEM_POISEUILLE_EQUATION_TYPE !<Poiseuille equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05306   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_BURGERS_EQUATION_TYPE = PROBLEM_BURGERS_EQUATION_TYPE !<Burgers equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05307   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_ELECTROSTATIC_TYPE = PROBLEM_ELECTROSTATIC_TYPE !<Electrostatic problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05308   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MAGNETOSTATIC_TYPE = PROBLEM_MAGNETOSTATIC_TYPE !<Magnetostatic problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05309   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MAXWELLS_EQUATIONS_TYPE = PROBLEM_MAXWELLS_EQUATIONS_TYPE !<Maxwell's equations problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05310   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LAPLACE_EQUATION_TYPE = PROBLEM_LAPLACE_EQUATION_TYPE !<Laplace problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05311   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_POISSON_EQUATION_TYPE = PROBLEM_POISSON_EQUATION_TYPE !<Poisson problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05312   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_HELMHOLTZ_EQUATION_TYPE = PROBLEM_HELMHOLTZ_EQUATION_TYPE !<Helmholtz problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05313   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_WAVE_EQUATION_TYPE = PROBLEM_WAVE_EQUATION_TYPE !<Wave equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05314   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_DIFFUSION_EQUATION_TYPE = PROBLEM_DIFFUSION_EQUATION_TYPE !<Diffusion equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05315   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_ADVECTION_DIFFUSION_EQUATION_TYPE = PROBLEM_ADVECTION_DIFFUSION_EQUATION_TYPE !<Advection-Diffusion equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05316   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_REACTION_DIFFUSION_EQUATION_TYPE = PROBLEM_REACTION_DIFFUSION_EQUATION_TYPE !<Reaction-Diffusion equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05317   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_BIHARMONIC_EQUATION_TYPE = PROBLEM_BIHARMONIC_EQUATION_TYPE !<Bi-harmonic equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05318   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MONODOMAIN_EQUATION_TYPE = PROBLEM_MONODOMAIN_EQUATION_TYPE !<Monodomain equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05319   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_BIDOMAIN_EQUATION_TYPE = PROBLEM_BIDOMAIN_EQUATION_TYPE !<Bidomain equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05320   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LINEAR_ELASTIC_MODAL_TYPE = PROBLEM_LINEAR_ELASTIC_MODAL_TYPE !<Linear elastic modal problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05321   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_DATA_FITTING_TYPE = PROBLEM_DATA_FITTING_TYPE !<Galerkin projection problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05322   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FINITE_ELASTICITY_DARCY_TYPE = PROBLEM_FINITE_ELASTICITY_DARCY_TYPE !<Finite Elasticity Darcy problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05323   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FINITE_ELASTICITY_STOKES_TYPE = PROBLEM_FINITE_ELASTICITY_STOKES_TYPE !<Finite Elasticity Stokes problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05324   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FINITE_ELASTICITY_NAVIER_STOKES_TYPE = PROBLEM_FINITE_ELASTICITY_NAVIER_STOKES_TYPE !<Finite Elasticity NavierStokes problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05325   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_DIFFUSION_DIFFUSION_TYPE = PROBLEM_DIFFUSION_DIFFUSION_TYPE !<Diffusion Diffusion problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05326   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_DIFFUSION_ADVECTION_DIFFUSION_TYPE = PROBLEM_DIFFUSION_ADVECTION_DIFFUSION_TYPE !<Diffusion Advection Diffusion problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05327   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MULTI_COMPARTMENT_TRANSPORT_TYPE = PROBLEM_MULTI_COMPARTMENT_TRANSPORT_TYPE !<Multi-compartment transport problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05328   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FINITE_ELASTICITY_FLUID_PRESSURE_TYPE = PROBLEM_FINITE_ELASTICITY_FLUID_PRESSURE_TYPE !<Finite elasticity fluid pressure problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05329   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_BIOELECTRIC_FINITE_ELASTICITY_TYPE = PROBLEM_BIOELECTRIC_FINITE_ELASTICITY_TYPE !<Monodomain finite elasticity problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05330 
05331   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MONODOMAIN_STRANG_SPLITTING_EQUATION_TYPE = 
05332      PROBLEM_MONODOMAIN_STRANG_SPLITTING_EQUATION_TYPE !<Monodomain equation problem type \see OPENCMISS_ProblemTypes,OPENCMISS
05333   !>@}
05334 
05338   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NO_SUBTYPE = PROBLEM_NO_SUBTYPE !<No problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05339   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STATIC_STOKES_SUBTYPE = PROBLEM_STATIC_STOKES_SUBTYPE !<Static Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05340   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LAPLACE_STOKES_SUBTYPE = PROBLEM_LAPLACE_STOKES_SUBTYPE !<Laplace type Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05341   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_TRANSIENT_STOKES_SUBTYPE = PROBLEM_TRANSIENT_STOKES_SUBTYPE !<Transient Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05342   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_ALE_STOKES_SUBTYPE = PROBLEM_ALE_STOKES_SUBTYPE !<ALE Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05343   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_PGM_STOKES_SUBTYPE = PROBLEM_PGM_STOKES_SUBTYPE !<PGM Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05344   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_OPTIMISED_STOKES_SUBTYPE = PROBLEM_OPTIMISED_STOKES_SUBTYPE !<Optimised Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05345   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STATIC_NAVIER_STOKES_SUBTYPE = PROBLEM_STATIC_NAVIER_STOKES_SUBTYPE !<Static Navier-Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05346   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LAPLACE_NAVIER_STOKES_SUBTYPE = PROBLEM_LAPLACE_NAVIER_STOKES_SUBTYPE !<Laplace type Navier-Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05347   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_TRANSIENT_NAVIER_STOKES_SUBTYPE = PROBLEM_TRANSIENT_NAVIER_STOKES_SUBTYPE !<Transient Navier-Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05348   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_TRANSIENT_RBS_NAVIER_STOKES_SUBTYPE = PROBLEM_TRANSIENT_RBS_NAVIER_STOKES_SUBTYPE !<Transient stabilised Navier-Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05349   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MULTISCALE_NAVIER_STOKES_SUBTYPE = 
05350      PROBLEM_MULTISCALE_NAVIER_STOKES_SUBTYPE !<Transient stabilised Navier-Stokes problem with multiscale boundary coupling subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05351   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_TRANSIENT1D_NAVIER_STOKES_SUBTYPE = PROBLEM_TRANSIENT1D_NAVIER_STOKES_SUBTYPE !<TRANSIENT1D Navier-Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05352   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_COUPLED1D0D_NAVIER_STOKES_SUBTYPE = PROBLEM_COUPLED1D0D_NAVIER_STOKES_SUBTYPE !<Coupled 1D-DAE Navier-Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05353   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_TRANSIENT1D_ADV_NAVIER_STOKES_SUBTYPE = PROBLEM_TRANSIENT1D_ADV_NAVIER_STOKES_SUBTYPE !<TRANSIENT1D Navier-Stokes problem subtype with Advection \see OPENCMISS_ProblemSubtypes,OPENCMISS
05354   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_COUPLED1D0D_ADV_NAVIER_STOKES_SUBTYPE = PROBLEM_COUPLED1D0D_ADV_NAVIER_STOKES_SUBTYPE !<Coupled 1D-DAE Navier-Stokes problem subtype with Advection \see OPENCMISS_ProblemSubtypes,OPENCMISS
05355   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STREE1D0D_SUBTYPE = PROBLEM_COUPLED1D0D_ADV_NAVIER_STOKES_SUBTYPE !<Coupled 1D-DAE Navier-Stokes problem subtype with Advection \see OPENCMISS_ProblemSubtypes,OPENCMISS
05356   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STREE1D0D_ADV_SUBTYPE = PROBLEM_COUPLED1D0D_ADV_NAVIER_STOKES_SUBTYPE !<Coupled 1D-DAE Navier-Stokes problem subtype with Advection \see OPENCMISS_ProblemSubtypes,OPENCMISS
05357   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_ALE_NAVIER_STOKES_SUBTYPE = PROBLEM_ALE_NAVIER_STOKES_SUBTYPE !<ALE Navier-Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05358   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_PGM_NAVIER_STOKES_SUBTYPE = PROBLEM_PGM_NAVIER_STOKES_SUBTYPE !<PGM Navier-Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05359   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_OPTIMISED_NAVIER_STOKES_SUBTYPE = PROBLEM_OPTIMISED_NAVIER_STOKES_SUBTYPE !<Optimised Navier-Stokes problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05360   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STANDARD_DARCY_SUBTYPE = PROBLEM_STANDARD_DARCY_SUBTYPE !<Standard Darcy problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05361   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_QUASISTATIC_DARCY_SUBTYPE = PROBLEM_QUASISTATIC_DARCY_SUBTYPE !<Quasistatic Darcy problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05362   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_ALE_DARCY_SUBTYPE = PROBLEM_ALE_DARCY_SUBTYPE !<ALE Darcy problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05363   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_TRANSIENT_DARCY_SUBTYPE = PROBLEM_TRANSIENT_DARCY_SUBTYPE !<Transient Darcy problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05364   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_PGM_DARCY_SUBTYPE = PROBLEM_PGM_DARCY_SUBTYPE !<PGM Darcy problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05365   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_PGM_TRANSIENT_DARCY_SUBTYPE = PROBLEM_PGM_TRANSIENT_DARCY_SUBTYPE !<PGM Transient Darcy problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05366   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STANDARD_LAPLACE_SUBTYPE = PROBLEM_STANDARD_LAPLACE_SUBTYPE !<Standard Laplace problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05367   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_GENERALISED_LAPLACE_SUBTYPE = PROBLEM_GENERALISED_LAPLACE_SUBTYPE !<Generalised Laplace problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05368   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STATIC_POISEUILLE_SUBTYPE = PROBLEM_STATIC_POISEUILLE_SUBTYPE !<Static Poiseuille problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05369   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_DYNAMIC_POISEUILLE_SUBTYPE = PROBLEM_DYNAMIC_POISEUILLE_SUBTYPE !<Static Poiseuille problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05370   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_EXTRACELLULAR_BIDOMAIN_POISSON_SUBTYPE = PROBLEM_EXTRACELLULAR_BIDOMAIN_POISSON_SUBTYPE !<Linear source Poisson problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS 
05371   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LINEAR_SOURCE_POISSON_SUBTYPE = PROBLEM_LINEAR_SOURCE_POISSON_SUBTYPE !<Linear source Poisson problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05372   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LINEAR_PRESSURE_POISSON_SUBTYPE = PROBLEM_LINEAR_PRESSURE_POISSON_SUBTYPE !<Vector source Poisson problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05373   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NONLINEAR_PRESSURE_POISSON_SUBTYPE = PROBLEM_NONLINEAR_PRESSURE_POISSON_SUBTYPE !<Vector source Poisson problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05374   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_ALE_PRESSURE_POISSON_SUBTYPE = PROBLEM_ALE_PRESSURE_POISSON_SUBTYPE !<Vector source Poisson problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05375   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FITTED_PRESSURE_POISSON_SUBTYPE = PROBLEM_FITTED_PRESSURE_POISSON_SUBTYPE !<Vector source Poisson problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05376   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NONLINEAR_SOURCE_POISSON_SUBTYPE = PROBLEM_NONLINEAR_SOURCE_POISSON_SUBTYPE !<Nonlinear source Poisson problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05377   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STANDARD_HELMHOLTZ_SUBTYPE = PROBLEM_STANDARD_HELMHOLTZ_SUBTYPE !<No source Helmholtz problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05378   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_GENERALISED_HELMHOLTZ_SUBTYPE = PROBLEM_GENERALISED_HELMHOLTZ_SUBTYPE !<No source Helmholtz problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05379   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NO_SOURCE_DIFFUSION_SUBTYPE = PROBLEM_NO_SOURCE_DIFFUSION_SUBTYPE !<No source Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05380   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LINEAR_SOURCE_DIFFUSION_SUBTYPE = PROBLEM_LINEAR_SOURCE_DIFFUSION_SUBTYPE !<Linear source Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05381   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NONLINEAR_SOURCE_DIFFUSION_SUBTYPE = PROBLEM_NONLINEAR_SOURCE_DIFFUSION_SUBTYPE !<Nonlinear source Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05382   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NO_SOURCE_ALE_DIFFUSION_SUBTYPE = PROBLEM_NO_SOURCE_ALE_DIFFUSION_SUBTYPE !<No source Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05383   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE = PROBLEM_LINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE !<Linear source Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05384   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NONLINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE = 
05385      PROBLEM_NONLINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE !<Nonlinear source Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05386   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NO_SOURCE_ADVECTION_DIFFUSION_SUBTYPE = 
05387      PROBLEM_NO_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<No source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05388   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE = 
05389      PROBLEM_LINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<Linear source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05390   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NONLINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE = 
05391      PROBLEM_NONLINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE !<Nonlinear source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05392   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NO_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE = 
05393      PROBLEM_NO_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<No source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05394   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LINEAR_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE = 
05395      PROBLEM_LINEAR_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<Linear source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05396   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NONLINEAR_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE = 
05397      PROBLEM_NONLINEAR_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE !<Nonlinear source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05398 
05399   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NO_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE = PROBLEM_NO_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE !<No source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05400   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE = 
05401      PROBLEM_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE !<Linear source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05402   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_NONLINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE = 
05403      PROBLEM_NONLINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE !<Nonlinear source advection-Diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05404   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STATIC_BURGERS_SUBTYPE = PROBLEM_STATIC_BURGERS_SUBTYPE !<static Burgers problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05405   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_DYNAMIC_BURGERS_SUBTYPE = PROBLEM_DYNAMIC_BURGERS_SUBTYPE !<dynamic Burgers problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05406   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_CELLML_REAC_INTEG_REAC_DIFF_STRANG_SPLIT_SUBTYPE = 
05407      PROBLEM_CELLML_REAC_INTEG_REAC_DIFF_STRANG_SPLIT_SUBTYPE !CellML reaction integrated strang-split subtype of reaction diffusion \see OPENCMISS_ProblemSubtypes,OPENCMISS
05408   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_CELLML_REAC_EVAL_REAC_DIFF_NO_SPLIT_SUBTYPE = 
05409      PROBLEM_CELLML_REAC_EVAL_REAC_DIFF_NO_SPLIT_SUBTYPE !CellML reaction evaluated no-split subtype of reaction diffusion \see OPENCMISS_ProblemSubtypes,OPENCMISS
05410   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_CONSTANT_REAC_DIFF_NO_SPLIT_SUBTYPE = 
05411      PROBLEM_CONSTANT_REAC_DIFF_NO_SPLIT_SUBTYPE !Standard constant reaction reaction diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05412 
05413   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STANDARD_DATA_FITTING_SUBTYPE = 
05414      PROBLEM_STANDARD_DATA_FITTING_SUBTYPE !<Standard Galerkin projection problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05415   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_VECTOR_DATA_FITTING_SUBTYPE = 
05416      PROBLEM_VECTOR_DATA_FITTING_SUBTYPE !<Standard Galerkin projection problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05417   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_DIV_FREE_VECTOR_DATA_FITTING_SUBTYPE = 
05418      PROBLEM_DIV_FREE_VECTOR_DATA_FITTING_SUBTYPE !<Standard Galerkin projection problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05419   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_DATA_POINT_VECTOR_STATIC_FITTING_SUBTYPE = 
05420      Problem_DataPointVectorStaticFittingSubtype !<Standard static Galerkin projection problem using data points subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05421   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_DATA_PT_VECTOR_QUASISTATIC_FITTING_SUBTYPE = 
05422      Problem_DataPointVectorQuasistaticFittingSubtype !<Standard quasistatic Galerkin projection problem using data points subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05423   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_VECTOR_DATA_PRE_FITTING_SUBTYPE = 
05424      PROBLEM_VECTOR_DATA_PRE_FITTING_SUBTYPE !<Standard Galerkin projection problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05425   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_DIV_FREE_VECTOR_DATA_PRE_FITTING_SUBTYPE = 
05426      PROBLEM_DIV_FREE_VECTOR_DATA_PRE_FITTING_SUBTYPE !<Standard Galerkin projection problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05427   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_GENERALISED_DATA_FITTING_SUBTYPE = 
05428      PROBLEM_GENERALISED_DATA_FITTING_SUBTYPE !<Generalised Galerkin projection problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05429   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MAT_PROPERTIES_DATA_FITTING_SUBTYPE = 
05430      PROBLEM_MAT_PROPERTIES_DATA_FITTING_SUBTYPE !<Material Properties Galerkin projection problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05431 
05432   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STANDARD_ELASTICITY_DARCY_SUBTYPE = PROBLEM_STANDARD_ELASTICITY_DARCY_SUBTYPE !<Standard Elasticity Darcy problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05433   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_PGM_ELASTICITY_DARCY_SUBTYPE = PROBLEM_PGM_ELASTICITY_DARCY_SUBTYPE !<PGM Elasticity Darcy problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05434   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_QUASISTATIC_ELASTICITY_TRANSIENT_DARCY_SUBTYPE = 
05435      PROBLEM_QUASISTATIC_ELASTICITY_TRANSIENT_DARCY_SUBTYPE !<Quasistatic Elasticity Transient Darcy problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05436   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_QUASISTATIC_ELAST_TRANS_DARCY_MAT_SOLVE_SUBTYPE = 
05437      PROBLEM_QUASISTATIC_ELAST_TRANS_DARCY_MAT_SOLVE_SUBTYPE !<Quasistatic Elasticity Transient Darcy Material Solve problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05438   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_COUPLED_SOURCE_DIFFUSION_DIFFUSION_SUBTYPE = 
05439      PROBLEM_COUPLED_SOURCE_DIFFUSION_DIFFUSION_SUBTYPE !<Coupled source diffusion-diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05440   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_COUPLED_SOURCE_DIFFUSION_ADVEC_DIFFUSION_SUBTYPE = 
05441      PROBLEM_COUPLED_SOURCE_DIFFUSION_ADVEC_DIFFUSION_SUBTYPE !<Coupled source diffusion & advection-diffusion problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05442   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STANDARD_MULTI_COMPARTMENT_TRANSPORT_SUBTYPE = 
05443      PROBLEM_STANDARD_MULTI_COMPARTMENT_TRANSPORT_SUBTYPE !<Standard multi-compartment transport problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05444   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_STANDARD_ELASTICITY_FLUID_PRESSURE_SUBTYPE = 
05445      PROBLEM_STANDARD_ELASTICITY_FLUID_PRESSURE_SUBTYPE !<Standard elasticity fluid pressure problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05446   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_GUDUNOV_MONODOMAIN_SIMPLE_ELASTICITY_SUBTYPE = 
05447      PROBLEM_GUDUNOV_MONODOMAIN_SIMPLE_ELASTICITY_SUBTYPE !<Transient monodomain simple elasticity problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05448   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_GUDUNOV_MONODOMAIN_1D3D_ELASTICITY_SUBTYPE =  
05449      PROBLEM_GUDUNOV_MONODOMAIN_1D3D_ELASTICITY_SUBTYPE !<Transient monodomain simple elasticity problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05450   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MONODOMAIN_ELASTICITY_W_TITIN_SUBTYPE =  
05451      PROBLEM_MONODOMAIN_ELASTICITY_W_TITIN_SUBTYPE !<Transient monodomain simple elasticity problem subtype with titin \see OPENCMISS_ProblemSubtypes,OPENCMISS
05452   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MONODOMAIN_ELASTICITY_VELOCITY_SUBTYPE =  
05453      PROBLEM_MONODOMAIN_ELASTICITY_VELOCITY_SUBTYPE !<Transient monodomain simple elasticity problem subtype with force-velocity relation \see OPENCMISS_ProblemSubtypes,OPENCMISS
05454   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FINITE_ELASTICITY_NAVIER_STOKES_ALE_SUBTYPE = 
05455      PROBLEM_FINITE_ELASTICITY_NAVIER_STOKES_ALE_SUBTYPE !<Coupled Finite Elasticity Navier Stokes moving mesh subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05456 
05457   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_QUASISTATIC_FINITE_ELASTICITY_SUBTYPE = PROBLEM_QUASISTATIC_FINITE_ELASTICITY_SUBTYPE !<Quasistatic finite elasticity subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05458   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FINITE_ELASTICITY_CELLML_SUBTYPE = PROBLEM_FINITE_ELASTICITY_CELLML_SUBTYPE !<Quasistatic finite elasticity subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05459   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FINITE_ELASTICITY_WITH_GROWTH_CELLML_SUBTYPE =  
05460      PROBLEM_FINITE_ELASTICITY_WITH_GROWTH_CELLML_SUBTYPE !<Quasistatic finite elasticity subtype \see OPENCMISS_QProblemSubtypes,OPENCMISS
05461 
05462   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MONODOMAIN_GUDUNOV_SPLIT_SUBTYPE = PROBLEM_MONODOMAIN_GUDUNOV_SPLIT_SUBTYPE !<Monodomain Gudunov split problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05463   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MONODOMAIN_STRANG_SPLIT_SUBTYPE = PROBLEM_MONODOMAIN_STRANG_SPLIT_SUBTYPE !<Monodomain Gudunov split problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05464   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_BIDOMAIN_GUDUNOV_SPLIT_SUBTYPE = PROBLEM_BIDOMAIN_GUDUNOV_SPLIT_SUBTYPE !<Bidomain Gudunov split problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05465   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_BIDOMAIN_STRANG_SPLIT_SUBTYPE = PROBLEM_BIDOMAIN_STRANG_SPLIT_SUBTYPE !<Bidomain Gudunov split problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05466   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MONODOMAIN_BUENOOROVIO_SUBTYPE = PROBLEM_MONODOMAIN_BUENOOROVIO_SUBTYPE !<Generalised Laplace problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05467   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_MONODOMAIN_TENTUSSCHER06_SUBTYPE = PROBLEM_MONODOMAIN_TENTUSSCHER06_SUBTYPE !<Generalised Laplace problem subtype \see OPENCMISS_ProblemSubtypes,OPENCMISS
05468 
05469   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LE_CONTACT_TRANSFORM_REPROJECT_SUBTYPE=PROBLEM_LE_CONTACT_TRANSFORM_REPROJECT_SUBTYPE !<linear elasticity problem subject to contact constraint, transform field at load increments and reproject at Newton iterations \see OPENCMISS_ProblemSubtypes,OPENCMISS
05470   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LE_CONTACT_TRANSFORM_SUBTYPE=PROBLEM_LE_CONTACT_TRANSFORM_SUBTYPE !<linear elasticity problem subject to contact constraint, transform field at load increments \see OPENCMISS_ProblemSubtypes,OPENCMISS
05471   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_LE_CONTACT_REPROJECT_SUBTYPE=PROBLEM_LE_CONTACT_REPROJECT_SUBTYPE !<linear elasticity problem subject to contact constraint, reproject at Newton iterations \see OPENCMISS_ProblemSubtypes,OPENCMISS
05472     
05473   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FE_CONTACT_TRANSFORM_REPROJECT_SUBTYPE=PROBLEM_FE_CONTACT_TRANSFORM_REPROJECT_SUBTYPE !<linear elasticity problem subject to contact constraint, transform field at load increments and reproject at Newton iterations \see OPENCMISS_ProblemSubtypes,OPENCMISS
05474   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FE_CONTACT_TRANSFORM_SUBTYPE=PROBLEM_FE_CONTACT_TRANSFORM_SUBTYPE !<finear elasticity problem subject to contact constraint, transform field at load increments \see OPENCMISS_ProblemSubtypes,OPENCMISS
05475   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_FE_CONTACT_REPROJECT_SUBTYPE=PROBLEM_FE_CONTACT_REPROJECT_SUBTYPE !<finear elasticity problem subject to contact constraint, reproject at Newton iterations \see OPENCMISS_ProblemSubtypes,OPENCMISS
05476 
05482   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_CONTROL_SIMPLE_TYPE = PROBLEM_CONTROL_SIMPLE_TYPE !<Simple, one iteration control loop. \see OPENCMISS_ProblemControlLoopTypes,OPENCMISS
05483   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_CONTROL_FIXED_LOOP_TYPE = PROBLEM_CONTROL_FIXED_LOOP_TYPE !<Fixed iteration control loop. \see OPENCMISS_ProblemControlLoopTypes,OPENCMISS
05484   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_CONTROL_TIME_LOOP_TYPE = PROBLEM_CONTROL_TIME_LOOP_TYPE !<Time control loop. \see OPENCMISS_ProblemControlLoopTypes,OPENCMISS
05485   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_CONTROL_WHILE_LOOP_TYPE = PROBLEM_CONTROL_WHILE_LOOP_TYPE !<While control loop. \see OPENCMISS_ProblemControlLoopTypes,OPENCMISS
05486   INTEGER(INTG), PARAMETER :: CMFE_PROBLEM_CONTROL_LOAD_INCREMENT_LOOP_TYPE = PROBLEM_CONTROL_LOAD_INCREMENT_LOOP_TYPE !<Load increment control loop. \see OPENCMISS_ProblemControlLoopTypes,OPENCMISS
05487 
05489 
05490   !Module types
05491 
05492   !Module variables
05493 
05494   !Interfaces
05495 
05496   PUBLIC CMFE_PROBLEM_NO_CLASS,CMFE_PROBLEM_ELASTICITY_CLASS,CMFE_PROBLEM_FLUID_MECHANICS_CLASS, &
05497     & CMFE_PROBLEM_ELECTROMAGNETICS_CLASS, &
05498     & CMFE_PROBLEM_CLASSICAL_FIELD_CLASS,CMFE_PROBLEM_BIOELECTRICS_CLASS,CMFE_PROBLEM_MODAL_CLASS,CMFE_PROBLEM_FITTING_CLASS, &
05499     & CMFE_PROBLEM_OPTIMISATION_CLASS,CMFE_PROBLEM_MULTI_PHYSICS_CLASS
05500 
05501   PUBLIC CMFE_PROBLEM_NO_TYPE
05502 
05503   PUBLIC CMFE_PROBLEM_LINEAR_ELASTICITY_TYPE,CMFE_PROBLEM_FINITE_ELASTICITY_TYPE
05504   
05505   PUBLIC CMFE_PROBLEM_LINEAR_ELASTICITY_CONTACT_TYPE, CMFE_PROBLEM_FINITE_ELASTICITY_CONTACT_TYPE
05506 
05507   PUBLIC CMFE_PROBLEM_STOKES_EQUATION_TYPE,CMFE_PROBLEM_NAVIER_STOKES_EQUATION_TYPE,CMFE_PROBLEM_DARCY_EQUATION_TYPE, &
05508     & CMFE_PROBLEM_POISEUILLE_EQUATION_TYPE,CMFE_PROBLEM_BURGERS_EQUATION_TYPE
05509 
05510   PUBLIC CMFE_PROBLEM_ELECTROSTATIC_TYPE,CMFE_PROBLEM_MAGNETOSTATIC_TYPE,CMFE_PROBLEM_MAXWELLS_EQUATIONS_TYPE
05511 
05512   PUBLIC CMFE_PROBLEM_LAPLACE_EQUATION_TYPE,CMFE_PROBLEM_POISSON_EQUATION_TYPE,CMFE_PROBLEM_HELMHOLTZ_EQUATION_TYPE, &
05513     & CMFE_PROBLEM_WAVE_EQUATION_TYPE,CMFE_PROBLEM_DIFFUSION_EQUATION_TYPE,CMFE_PROBLEM_ADVECTION_DIFFUSION_EQUATION_TYPE, &
05514     & CMFE_PROBLEM_REACTION_DIFFUSION_EQUATION_TYPE,CMFE_PROBLEM_BIHARMONIC_EQUATION_TYPE
05515 
05516   PUBLIC CMFE_PROBLEM_MONODOMAIN_EQUATION_TYPE,CMFE_PROBLEM_BIDOMAIN_EQUATION_TYPE
05517 
05518   PUBLIC CMFE_PROBLEM_LINEAR_ELASTIC_MODAL_TYPE
05519 
05520   PUBLIC CMFE_PROBLEM_DATA_FITTING_TYPE
05521 
05522   PUBLIC CMFE_PROBLEM_FINITE_ELASTICITY_DARCY_TYPE, &
05523     & CMFE_PROBLEM_FINITE_ELASTICITY_STOKES_TYPE, CMFE_PROBLEM_FINITE_ELASTICITY_NAVIER_STOKES_TYPE, &
05524     & CMFE_PROBLEM_DIFFUSION_DIFFUSION_TYPE, CMFE_PROBLEM_DIFFUSION_ADVECTION_DIFFUSION_TYPE, &
05525     & CMFE_PROBLEM_MULTI_COMPARTMENT_TRANSPORT_TYPE,CMFE_PROBLEM_FINITE_ELASTICITY_FLUID_PRESSURE_TYPE, &
05526     & CMFE_PROBLEM_BIOELECTRIC_FINITE_ELASTICITY_TYPE
05527 
05528   PUBLIC CMFE_PROBLEM_NO_SUBTYPE
05529   
05530   PUBLIC CMFE_PROBLEM_LE_CONTACT_TRANSFORM_REPROJECT_SUBTYPE, CMFE_PROBLEM_LE_CONTACT_TRANSFORM_SUBTYPE, &
05531     & CMFE_PROBLEM_LE_CONTACT_REPROJECT_SUBTYPE
05532     
05533   PUBLIC CMFE_PROBLEM_FE_CONTACT_TRANSFORM_REPROJECT_SUBTYPE, CMFE_PROBLEM_FE_CONTACT_TRANSFORM_SUBTYPE, &
05534     & CMFE_PROBLEM_FE_CONTACT_REPROJECT_SUBTYPE
05535 
05536   PUBLIC CMFE_PROBLEM_STATIC_STOKES_SUBTYPE,CMFE_PROBLEM_LAPLACE_STOKES_SUBTYPE,CMFE_PROBLEM_TRANSIENT_STOKES_SUBTYPE, &
05537     & CMFE_PROBLEM_OPTIMISED_STOKES_SUBTYPE,CMFE_PROBLEM_ALE_STOKES_SUBTYPE,CMFE_PROBLEM_PGM_STOKES_SUBTYPE
05538 
05539   PUBLIC CMFE_PROBLEM_STATIC_NAVIER_STOKES_SUBTYPE,CMFE_PROBLEM_LAPLACE_NAVIER_STOKES_SUBTYPE, &
05540     & CMFE_PROBLEM_TRANSIENT_NAVIER_STOKES_SUBTYPE,CMFE_PROBLEM_TRANSIENT_RBS_NAVIER_STOKES_SUBTYPE, &
05541     & CMFE_PROBLEM_PGM_NAVIER_STOKES_SUBTYPE,CMFE_PROBLEM_OPTIMISED_NAVIER_STOKES_SUBTYPE, &
05542     & CMFE_PROBLEM_TRANSIENT1D_NAVIER_STOKES_SUBTYPE,CMFE_PROBLEM_COUPLED1D0D_NAVIER_STOKES_SUBTYPE, &
05543     & CMFE_PROBLEM_TRANSIENT1D_ADV_NAVIER_STOKES_SUBTYPE,CMFE_PROBLEM_COUPLED1D0D_ADV_NAVIER_STOKES_SUBTYPE, &
05544     & CMFE_PROBLEM_STREE1D0D_ADV_SUBTYPE,CMFE_PROBLEM_STREE1D0D_SUBTYPE, &
05545     & CMFE_PROBLEM_ALE_NAVIER_STOKES_SUBTYPE,CMFE_PROBLEM_MULTISCALE_NAVIER_STOKES_SUBTYPE
05546 
05547   PUBLIC CMFE_PROBLEM_STANDARD_DARCY_SUBTYPE,CMFE_PROBLEM_QUASISTATIC_DARCY_SUBTYPE,CMFE_PROBLEM_ALE_DARCY_SUBTYPE, &
05548     & CMFE_PROBLEM_TRANSIENT_DARCY_SUBTYPE,CMFE_PROBLEM_PGM_DARCY_SUBTYPE,CMFE_PROBLEM_PGM_TRANSIENT_DARCY_SUBTYPE
05549 
05550   PUBLIC CMFE_PROBLEM_STATIC_POISEUILLE_SUBTYPE,CMFE_PROBLEM_DYNAMIC_POISEUILLE_SUBTYPE
05551 
05552   PUBLIC CMFE_PROBLEM_STATIC_BURGERS_SUBTYPE,CMFE_PROBLEM_DYNAMIC_BURGERS_SUBTYPE
05553 
05554   PUBLIC CMFE_PROBLEM_STANDARD_LAPLACE_SUBTYPE,CMFE_PROBLEM_GENERALISED_LAPLACE_SUBTYPE, &
05555     & CMFE_PROBLEM_MONODOMAIN_STRANG_SPLITTING_EQUATION_TYPE
05556 
05557   PUBLIC CMFE_PROBLEM_LINEAR_SOURCE_POISSON_SUBTYPE,CMFE_PROBLEM_NONLINEAR_SOURCE_POISSON_SUBTYPE, &
05558     & CMFE_PROBLEM_LINEAR_PRESSURE_POISSON_SUBTYPE,CMFE_PROBLEM_NONLINEAR_PRESSURE_POISSON_SUBTYPE, &
05559     & CMFE_PROBLEM_ALE_PRESSURE_POISSON_SUBTYPE, CMFE_PROBLEM_FITTED_PRESSURE_POISSON_SUBTYPE, &
05560     & CMFE_PROBLEM_EXTRACELLULAR_BIDOMAIN_POISSON_SUBTYPE
05561 
05562   PUBLIC CMFE_PROBLEM_STANDARD_HELMHOLTZ_SUBTYPE,CMFE_PROBLEM_GENERALISED_HELMHOLTZ_SUBTYPE
05563 
05564   PUBLIC CMFE_PROBLEM_NO_SOURCE_DIFFUSION_SUBTYPE,CMFE_PROBLEM_LINEAR_SOURCE_DIFFUSION_SUBTYPE, &
05565     & CMFE_PROBLEM_NONLINEAR_SOURCE_DIFFUSION_SUBTYPE
05566 
05567   PUBLIC CMFE_PROBLEM_NO_SOURCE_ALE_DIFFUSION_SUBTYPE,CMFE_PROBLEM_LINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE, &
05568     & CMFE_PROBLEM_NONLINEAR_SOURCE_ALE_DIFFUSION_SUBTYPE
05569 
05570   PUBLIC CMFE_PROBLEM_NO_SOURCE_ADVECTION_DIFFUSION_SUBTYPE,CMFE_PROBLEM_LINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE, &
05571     & CMFE_PROBLEM_NONLINEAR_SOURCE_ADVECTION_DIFFUSION_SUBTYPE
05572 
05573   PUBLIC CMFE_PROBLEM_NO_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE,CMFE_PROBLEM_LINEAR_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE, &
05574     & CMFE_PROBLEM_NONLINEAR_SOURCE_ALE_ADVECTION_DIFFUSION_SUBTYPE
05575 
05576   PUBLIC CMFE_PROBLEM_NO_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE,CMFE_PROBLEM_LINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE, &
05577     & CMFE_PROBLEM_NONLINEAR_SOURCE_STATIC_ADVEC_DIFF_SUBTYPE
05578 
05579   PUBLIC CMFE_PROBLEM_CELLML_REAC_INTEG_REAC_DIFF_STRANG_SPLIT_SUBTYPE, &
05580     & CMFE_PROBLEM_CELLML_REAC_EVAL_REAC_DIFF_NO_SPLIT_SUBTYPE, &
05581     & CMFE_PROBLEM_CONSTANT_REAC_DIFF_NO_SPLIT_SUBTYPE
05582 
05583 
05584   PUBLIC CMFE_PROBLEM_STANDARD_DATA_FITTING_SUBTYPE,CMFE_PROBLEM_GENERALISED_DATA_FITTING_SUBTYPE, &
05585     & CMFE_PROBLEM_VECTOR_DATA_FITTING_SUBTYPE,CMFE_PROBLEM_DIV_FREE_VECTOR_DATA_FITTING_SUBTYPE, &
05586     & CMFE_PROBLEM_VECTOR_DATA_PRE_FITTING_SUBTYPE,CMFE_PROBLEM_DIV_FREE_VECTOR_DATA_PRE_FITTING_SUBTYPE, &
05587     & CMFE_PROBLEM_MAT_PROPERTIES_DATA_FITTING_SUBTYPE,CMFE_PROBLEM_DATA_POINT_VECTOR_STATIC_FITTING_SUBTYPE, &
05588     & CMFE_PROBLEM_DATA_PT_VECTOR_QUASISTATIC_FITTING_SUBTYPE
05589 
05590   PUBLIC CMFE_PROBLEM_MONODOMAIN_GUDUNOV_SPLIT_SUBTYPE,CMFE_PROBLEM_MONODOMAIN_STRANG_SPLIT_SUBTYPE, &
05591     & CMFE_PROBLEM_BIDOMAIN_GUDUNOV_SPLIT_SUBTYPE,CMFE_PROBLEM_BIDOMAIN_STRANG_SPLIT_SUBTYPE
05592 
05593   PUBLIC CMFE_PROBLEM_MONODOMAIN_BUENOOROVIO_SUBTYPE, CMFE_PROBLEM_MONODOMAIN_TENTUSSCHER06_SUBTYPE
05594 
05595   PUBLIC CMFE_PROBLEM_CONTROL_SIMPLE_TYPE,CMFE_PROBLEM_CONTROL_FIXED_LOOP_TYPE,CMFE_PROBLEM_CONTROL_TIME_LOOP_TYPE, &
05596     & CMFE_PROBLEM_CONTROL_WHILE_LOOP_TYPE,CMFE_PROBLEM_CONTROL_LOAD_INCREMENT_LOOP_TYPE
05597 
05598   PUBLIC CMFE_PROBLEM_STANDARD_ELASTICITY_DARCY_SUBTYPE, CMFE_PROBLEM_PGM_ELASTICITY_DARCY_SUBTYPE, &
05599    & CMFE_PROBLEM_QUASISTATIC_ELASTICITY_TRANSIENT_DARCY_SUBTYPE,CMFE_PROBLEM_QUASISTATIC_ELAST_TRANS_DARCY_MAT_SOLVE_SUBTYPE, &
05600    & CMFE_PROBLEM_COUPLED_SOURCE_DIFFUSION_DIFFUSION_SUBTYPE, CMFE_PROBLEM_COUPLED_SOURCE_DIFFUSION_ADVEC_DIFFUSION_SUBTYPE, &
05601    & CMFE_PROBLEM_STANDARD_MULTI_COMPARTMENT_TRANSPORT_SUBTYPE,CMFE_PROBLEM_STANDARD_ELASTICITY_FLUID_PRESSURE_SUBTYPE, &
05602    & CMFE_PROBLEM_GUDUNOV_MONODOMAIN_SIMPLE_ELASTICITY_SUBTYPE,CMFE_PROBLEM_GUDUNOV_MONODOMAIN_1D3D_ELASTICITY_SUBTYPE, &
05603    & CMFE_PROBLEM_MONODOMAIN_ELASTICITY_W_TITIN_SUBTYPE,CMFE_PROBLEM_MONODOMAIN_ELASTICITY_VELOCITY_SUBTYPE, &
05604    & CMFE_PROBLEM_FINITE_ELASTICITY_NAVIER_STOKES_ALE_SUBTYPE
05605 
05606   PUBLIC CMFE_PROBLEM_QUASISTATIC_FINITE_ELASTICITY_SUBTYPE,CMFE_PROBLEM_FINITE_ELASTICITY_CELLML_SUBTYPE, &
05607     & CMFE_PROBLEM_FINITE_ELASTICITY_WITH_GROWTH_CELLML_SUBTYPE
05608   
05609 !!==================================================================================================================================
05610 !!
05611 !! PROBLEM_ROUTINES
05612 !!
05613 !!==================================================================================================================================
05614 
05615   !Module parameters
05616 
05617   !Module types
05618 
05619   !Module variables
05620 
05621   !Interfaces
05622 
05624   INTERFACE cmfe_Problem_CellMLEquationsCreateFinish
05625     MODULE PROCEDURE cmfe_Problem_CellMLEquationsCreateFinishNumber
05626     MODULE PROCEDURE cmfe_Problem_CellMLEquationsCreateFinishObj
05627   END INTERFACE cmfe_Problem_CellMLEquationsCreateFinish
05628 
05630   INTERFACE cmfe_Problem_CellMLEquationsCreateStart
05631     MODULE PROCEDURE cmfe_Problem_CellMLEquationsCreateStartNumber
05632     MODULE PROCEDURE cmfe_Problem_CellMLEquationsCreateStartObj
05633   END INTERFACE cmfe_Problem_CellMLEquationsCreateStart
05634 
05636   INTERFACE cmfe_Problem_CellMLEquationsGet
05637     MODULE PROCEDURE cmfe_Problem_CellMLEquationsGetNumber0
05638     MODULE PROCEDURE cmfe_Problem_CellMLEquationsGetNumber1
05639     MODULE PROCEDURE cmfe_Problem_CellMLEquationsGetObj0
05640     MODULE PROCEDURE cmfe_Problem_CellMLEquationsGetObj1
05641   END INTERFACE cmfe_Problem_CellMLEquationsGet
05642 
05644   INTERFACE cmfe_Problem_CreateFinish
05645     MODULE PROCEDURE cmfe_Problem_CreateFinishNumber
05646     MODULE PROCEDURE cmfe_Problem_CreateFinishObj
05647   END INTERFACE cmfe_Problem_CreateFinish
05648 
05650   INTERFACE cmfe_Problem_CreateStart
05651     MODULE PROCEDURE cmfe_Problem_CreateStartNumber
05652     MODULE PROCEDURE cmfe_Problem_CreateStartObj
05653   END INTERFACE cmfe_Problem_CreateStart
05654 
05656   INTERFACE cmfe_Problem_ControlLoopCreateFinish
05657     MODULE PROCEDURE cmfe_Problem_ControlLoopCreateFinishNumber
05658     MODULE PROCEDURE cmfe_Problem_ControlLoopCreateFinishObj
05659   END INTERFACE cmfe_Problem_ControlLoopCreateFinish
05660 
05662   INTERFACE cmfe_Problem_ControlLoopCreateStart
05663     MODULE PROCEDURE cmfe_Problem_ControlLoopCreateStartNumber
05664     MODULE PROCEDURE cmfe_Problem_ControlLoopCreateStartObj
05665   END INTERFACE cmfe_Problem_ControlLoopCreateStart
05666 
05668   INTERFACE cmfe_Problem_ControlLoopDestroy
05669     MODULE PROCEDURE cmfe_Problem_ControlLoopDestroyNumber
05670     MODULE PROCEDURE cmfe_Problem_ControlLoopDestroyObj
05671   END INTERFACE cmfe_Problem_ControlLoopDestroy
05672 
05674   INTERFACE cmfe_Problem_ControlLoopGet
05675     MODULE PROCEDURE cmfe_Problem_ControlLoopGetNumber0
05676     MODULE PROCEDURE cmfe_Problem_ControlLoopGetNumber1
05677     MODULE PROCEDURE cmfe_Problem_ControlLoopGetObj0
05678     MODULE PROCEDURE cmfe_Problem_ControlLoopGetObj1
05679   END INTERFACE cmfe_Problem_ControlLoopGet
05680 
05682   INTERFACE cmfe_Problem_Destroy
05683     MODULE PROCEDURE cmfe_Problem_DestroyNumber
05684     MODULE PROCEDURE cmfe_Problem_DestroyObj
05685   END INTERFACE cmfe_Problem_Destroy
05686 
05688   INTERFACE cmfe_Problem_Solve
05689     MODULE PROCEDURE cmfe_Problem_SolveNumber
05690     MODULE PROCEDURE cmfe_Problem_SolveObj
05691   END INTERFACE cmfe_Problem_Solve
05692 
05694   INTERFACE cmfe_Problem_SolverGet
05695     MODULE PROCEDURE cmfe_Problem_SolverGetNumber0
05696     MODULE PROCEDURE cmfe_Problem_SolverGetNumber1
05697     MODULE PROCEDURE cmfe_Problem_SolverGetObj0
05698     MODULE PROCEDURE cmfe_Problem_SolverGetObj1
05699   END INTERFACE cmfe_Problem_SolverGet
05700 
05702   INTERFACE cmfe_SolverEquations_BoundaryConditionsAnalytic
05703     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsAnalyticNumber0
05704     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsAnalyticNumber1
05705     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsAnalyticObj
05706   END INTERFACE cmfe_SolverEquations_BoundaryConditionsAnalytic
05707 
05709   INTERFACE cmfe_Problem_SolverEquationsCreateFinish
05710     MODULE PROCEDURE cmfe_Problem_SolverEquationsCreateFinishNumber
05711     MODULE PROCEDURE cmfe_Problem_SolverEquationsCreateFinishObj
05712   END INTERFACE cmfe_Problem_SolverEquationsCreateFinish
05713 
05715   INTERFACE cmfe_Problem_SolverEquationsCreateStart
05716     MODULE PROCEDURE cmfe_Problem_SolverEquationsCreateStartNumber
05717     MODULE PROCEDURE cmfe_Problem_SolverEquationsCreateStartObj
05718   END INTERFACE cmfe_Problem_SolverEquationsCreateStart
05719 
05721   INTERFACE cmfe_Problem_SolverEquationsDestroy
05722     MODULE PROCEDURE cmfe_Problem_SolverEquationsDestroyNumber
05723     MODULE PROCEDURE cmfe_Problem_SolverEquationsDestroyObj
05724   END INTERFACE cmfe_Problem_SolverEquationsDestroy
05725 
05727   INTERFACE cmfe_Problem_SolverEquationsGet
05728     MODULE PROCEDURE cmfe_Problem_SolverEquationsGetNumber0
05729     MODULE PROCEDURE cmfe_Problem_SolverEquationsGetNumber1
05730     MODULE PROCEDURE cmfe_Problem_SolverEquationsGetObj0
05731     MODULE PROCEDURE cmfe_Problem_SolverEquationsGetObj1
05732   END INTERFACE cmfe_Problem_SolverEquationsGet
05733 
05735   INTERFACE cmfe_Problem_SolversCreateFinish
05736     MODULE PROCEDURE cmfe_Problem_SolversCreateFinishNumber
05737     MODULE PROCEDURE cmfe_Problem_SolversCreateFinishObj
05738   END INTERFACE cmfe_Problem_SolversCreateFinish
05739 
05741   INTERFACE cmfe_Problem_SolversCreateStart
05742     MODULE PROCEDURE cmfe_Problem_SolversCreateStartNumber
05743     MODULE PROCEDURE cmfe_Problem_SolversCreateStartObj
05744   END INTERFACE cmfe_Problem_SolversCreateStart
05745 
05747   INTERFACE cmfe_Problem_SolversDestroy
05748     MODULE PROCEDURE cmfe_Problem_SolversDestroyNumber
05749     MODULE PROCEDURE cmfe_Problem_SolversDestroyObj
05750   END INTERFACE cmfe_Problem_SolversDestroy
05751 
05753   INTERFACE cmfe_Problem_SpecificationGet
05754     MODULE PROCEDURE cmfe_Problem_SpecificationGetNumber
05755     MODULE PROCEDURE cmfe_Problem_SpecificationGetObj
05756   END INTERFACE cmfe_Problem_SpecificationGet
05757 
05759   INTERFACE cmfe_Problem_SpecificationSizeGet
05760     MODULE PROCEDURE cmfe_Problem_SpecificationSizeGetNumber
05761     MODULE PROCEDURE cmfe_Problem_SpecificationSizeGetObj
05762   END INTERFACE cmfe_Problem_SpecificationSizeGet 
05763 
05764   PUBLIC cmfe_Problem_CellMLEquationsCreateFinish,cmfe_Problem_CellMLEquationsCreateStart
05765 
05766   PUBLIC cmfe_Problem_CellMLEquationsGet
05767 
05768   PUBLIC cmfe_Problem_CreateFinish,cmfe_Problem_CreateStart
05769 
05770   PUBLIC cmfe_Problem_ControlLoopCreateFinish,cmfe_Problem_ControlLoopCreateStart
05771 
05772   PUBLIC cmfe_Problem_ControlLoopDestroy
05773 
05774   PUBLIC cmfe_Problem_ControlLoopGet
05775 
05776   PUBLIC cmfe_Problem_Destroy
05777 
05778   PUBLIC cmfe_Problem_Solve
05779 
05780   PUBLIC cmfe_Problem_SolverGet
05781 
05782   PUBLIC cmfe_SolverEquations_BoundaryConditionsAnalytic
05783 
05784   PUBLIC cmfe_Problem_SolverEquationsCreateFinish,cmfe_Problem_SolverEquationsCreateStart
05785 
05786   PUBLIC cmfe_Problem_SolverEquationsDestroy
05787 
05788   PUBLIC cmfe_Problem_SolverEquationsGet
05789 
05790   PUBLIC cmfe_Problem_SolversCreateFinish,cmfe_Problem_SolversCreateStart
05791 
05792   PUBLIC cmfe_Problem_SolversDestroy
05793 
05794   PUBLIC cmfe_Problem_SpecificationGet,cmfe_Problem_SpecificationSizeGet
05795 
05796 !!==================================================================================================================================
05797 !!
05798 !! REGION_ROUTINES
05799 !!
05800 !!==================================================================================================================================
05801 
05802   !Module parameters
05803 
05804   !Module types
05805 
05806   !Module variables
05807 
05808   !Interfaces
05809 
05811   INTERFACE cmfe_Region_CoordinateSystemGet
05812     MODULE PROCEDURE cmfe_Region_CoordinateSystemGetNumber
05813     MODULE PROCEDURE cmfe_Region_CoordinateSystemGetObj
05814   END INTERFACE cmfe_Region_CoordinateSystemGet
05815 
05817   INTERFACE cmfe_Region_CoordinateSystemSet
05818     MODULE PROCEDURE cmfe_Region_CoordinateSystemSetNumber
05819     MODULE PROCEDURE cmfe_Region_CoordinateSystemSetObj
05820   END INTERFACE cmfe_Region_CoordinateSystemSet
05821 
05823   INTERFACE cmfe_Region_CreateFinish
05824     MODULE PROCEDURE cmfe_Region_CreateFinishNumber
05825     MODULE PROCEDURE cmfe_Region_CreateFinishObj
05826   END INTERFACE cmfe_Region_CreateFinish
05827 
05829   INTERFACE cmfe_Region_CreateStart
05830     MODULE PROCEDURE cmfe_Region_CreateStartNumber
05831     MODULE PROCEDURE cmfe_Region_CreateStartObj
05832   END INTERFACE cmfe_Region_CreateStart
05833 
05835   INTERFACE cmfe_Region_DataPointsGet
05836     MODULE PROCEDURE cmfe_Region_DataPointsGetObj
05837   END INTERFACE cmfe_Region_DataPointsGet
05838 
05840   INTERFACE cmfe_Region_Destroy
05841     MODULE PROCEDURE cmfe_Region_DestroyNumber
05842     MODULE PROCEDURE cmfe_Region_DestroyObj
05843   END INTERFACE cmfe_Region_Destroy
05844 
05846   INTERFACE cmfe_Region_LabelGet
05847     MODULE PROCEDURE cmfe_Region_LabelGetCNumber
05848     MODULE PROCEDURE cmfe_Region_LabelGetCObj
05849     MODULE PROCEDURE cmfe_Region_LabelGetVSNumber
05850     MODULE PROCEDURE cmfe_Region_LabelGetVSObj
05851   END INTERFACE cmfe_Region_LabelGet
05852 
05854   INTERFACE cmfe_Region_LabelSet
05855     MODULE PROCEDURE cmfe_Region_LabelSetCNumber
05856     MODULE PROCEDURE cmfe_Region_LabelSetCObj
05857     MODULE PROCEDURE cmfe_Region_LabelSetVSNumber
05858     MODULE PROCEDURE cmfe_Region_LabelSetVSObj
05859   END INTERFACE cmfe_Region_LabelSet
05860 
05862   INTERFACE cmfe_Region_NodesGet
05863     MODULE PROCEDURE cmfe_Region_NodesGetObj
05864   END INTERFACE cmfe_Region_NodesGet
05865 
05866   PUBLIC cmfe_Region_CoordinateSystemGet,cmfe_Region_CoordinateSystemSet
05867 
05868   PUBLIC cmfe_Region_CreateFinish,cmfe_Region_CreateStart
05869 
05870   PUBLIC cmfe_Region_DataPointsGet
05871 
05872   PUBLIC cmfe_Region_Destroy
05873 
05874   PUBLIC cmfe_Region_LabelGet,cmfe_Region_LabelSet
05875 
05876   PUBLIC cmfe_Region_NodesGet
05877 
05878 !!==================================================================================================================================
05879 !!
05880 !! SOLVER_ROUTINES
05881 !!
05882 !!==================================================================================================================================
05883 
05884   !Module parameters
05885 
05893   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_LINEAR_TYPE = SOLVER_LINEAR_TYPE !<A linear solver. \see OPENCMISS_SolverTypes,OPENCMISS
05894   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NONLINEAR_TYPE = SOLVER_NONLINEAR_TYPE !<A nonlinear solver. \see OPENCMISS_SolverTypes,OPENCMISS
05895   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_TYPE = SOLVER_DYNAMIC_TYPE !<A dynamic solver. \see  OPENCMISS_SolverTypes,OPENCMISS
05896   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_TYPE = SOLVER_DAE_TYPE !<A differential-algebraic equation solver. \see OPENCMISS_SolverTypes,OPENCMISS
05897   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_EIGENPROBLEM_TYPE = SOLVER_EIGENPROBLEM_TYPE !<A eigenproblem solver. \see OPENCMISS_SolverTypes,OPENCMISS
05898   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_OPTIMISER_TYPE = SOLVER_OPTIMISER_TYPE !<An optimiser solver. \see OPENCMISS_SolverTypes,OPENCMISS
05899   INTEGER(INTG), PARAMETER :: cmfe_SolverCellMLEvaluatorType = SOLVER_CELLML_EVALUATOR_TYPE !<A CellML evaluator solver. \see OPENCMISS_SolverTypes,OPENCMISS
05900 
05905   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_CMISS_LIBRARY = SOLVER_CMISS_LIBRARY !<CMISS (internal) solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05906   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_PETSC_LIBRARY = SOLVER_PETSC_LIBRARY !<PETSc solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05907   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_MUMPS_LIBRARY = SOLVER_MUMPS_LIBRARY !<MUMPS solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05908   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_SUPERLU_LIBRARY = SOLVER_SUPERLU_LIBRARY !<SuperLU solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05909   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_SPOOLES_LIBRARY = SOLVER_SPOOLES_LIBRARY !<SPOOLES solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05910   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_UMFPACK_LIBRARY = SOLVER_UMFPACK_LIBRARY !<UMFPACK solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05911   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_LUSOL_LIBRARY = SOLVER_LUSOL_LIBRARY !<LUSOL solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05912   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ESSL_LIBRARY = SOLVER_ESSL_LIBRARY !<ESSL solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05913   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_LAPACK_LIBRARY = SOLVER_LAPACK_LIBRARY !<LAPACK solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05914   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_TAO_LIBRARY = SOLVER_TAO_LIBRARY !<TAO solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05915   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_HYPRE_LIBRARY = SOLVER_HYPRE_LIBRARY !<Hypre solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05916   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_PASTIX_LIBRARY = SOLVER_PASTIX_LIBRARY !<PaStiX solver library. \see OPENCMISS_SolverLibraries,OPENCMISS
05917 
05922   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_LINEAR_DIRECT_SOLVE_TYPE = SOLVER_LINEAR_DIRECT_SOLVE_TYPE !<Direct linear solver type. \see OPENCMISS_LinearSolverTypes,OPENCMISS
05923   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_LINEAR_ITERATIVE_SOLVE_TYPE = SOLVER_LINEAR_ITERATIVE_SOLVE_TYPE !<Iterative linear solver type. \see OPENCMISS_LinearSolverTypes,OPENCMISS
05924 
05929   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DIRECT_LU = SOLVER_DIRECT_LU !<LU direct linear solver. \see OPENCMISS_DirectLinearSolverTypes,OPENCMISS
05930   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DIRECT_CHOLESKY = SOLVER_DIRECT_CHOLESKY !<Cholesky direct linear solver. \see OPENCMISS_DirectLinearSolverTypes,OPENCMISS
05931   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DIRECT_SVD = SOLVER_DIRECT_SVD !<SVD direct linear solver. \see OPENCMISS_DirectLinearSolverTypes,OPENCMISS
05932 
05937   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_RICHARDSON = SOLVER_ITERATIVE_RICHARDSON !<Richardson iterative solver type. \see  OPENCMISS_IterativeLinearSolverTypes,OPENCMISS
05938   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_CHEBYSHEV = SOLVER_ITERATIVE_CHEBYSHEV !<Chebychev iterative solver type. \see OPENCMISS_IterativeLinearSolverTypes,OPENCMISS
05939   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_CONJUGATE_GRADIENT = SOLVER_ITERATIVE_CONJUGATE_GRADIENT !<Conjugate gradient iterative solver type. \see OPENCMISS_IterativeLinearSolverTypes,OPENCMISS
05940   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_BICONJUGATE_GRADIENT = SOLVER_ITERATIVE_BICONJUGATE_GRADIENT !<Bi-conjugate gradient iterative solver type. \see OPENCMISS_IterativeLinearSolverTypes,OPENCMISS
05941   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_GMRES = SOLVER_ITERATIVE_GMRES !<Generalised minimum residual iterative solver type. \see OPENCMISS_IterativeLinearSolverTypes,OPENCMISS
05942   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_BiCGSTAB = SOLVER_ITERATIVE_BiCGSTAB !<Stabalised bi-conjugate gradient iterative solver type. \see OPENCMISS_IterativeLinearSolverTypes,OPENCMISS
05943   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_CONJGRAD_SQUARED = SOLVER_ITERATIVE_CONJGRAD_SQUARED !<Conjugate gradient squared iterative solver type. \see OPENCMISS_IterativeLinearSolverTypes,OPENCMISS
05944 
05949   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_NO_PRECONDITIONER = SOLVER_ITERATIVE_NO_PRECONDITIONER !<No preconditioner type. \see OPENCMISS_IterativePreconditionerTypes,OPENCMISS
05950   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_JACOBI_PRECONDITIONER = SOLVER_ITERATIVE_JACOBI_PRECONDITIONER !<Jacobi preconditioner type. \see OPENCMISS_IterativePreconditionerTypes,OPENCMISS
05951   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_BLOCK_JACOBI_PRECONDITIONER = SOLVER_ITERATIVE_BLOCK_JACOBI_PRECONDITIONER !<Iterative block Jacobi preconditioner type. \see OPENCMISS_IterativePreconditionerTypes,OPENCMISS
05952   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_SOR_PRECONDITIONER = SOLVER_ITERATIVE_SOR_PRECONDITIONER !<Successive over relaxation preconditioner type. \see OPENCMISS_IterativePreconditionerTypes,OPENCMISS
05953   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_INCOMPLETE_CHOLESKY_PRECONDITIONER = 
05954      SOLVER_ITERATIVE_INCOMPLETE_CHOLESKY_PRECONDITIONER !<Incomplete Cholesky preconditioner type. \see OPENCMISS_IterativePreconditionerTypes,OPENCMISS
05955   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_INCOMPLETE_LU_PRECONDITIONER = SOLVER_ITERATIVE_INCOMPLETE_LU_PRECONDITIONER !<Incomplete LU preconditioner type. \see OPENCMISS_IterativePreconditionerTypes,OPENCMISS
05956   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_ITERATIVE_ADDITIVE_SCHWARZ_PRECONDITIONER =  
05957      SOLVER_ITERATIVE_ADDITIVE_SCHWARZ_PRECONDITIONER !<Additive Schwrz preconditioner type. \see OPENCMISS_IterativePreconditionerTypes,OPENCMISS
05958   !>@}
05959 
05963   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NONLINEAR_NEWTON = SOLVER_NONLINEAR_NEWTON !<Newton nonlinear solver type. \see OPENCMISS_NonlinearSolverTypes,OPENCMISS
05964   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NONLINEAR_BFGS_INVERSE = SOLVER_NONLINEAR_BFGS_INVERSE !<BFGS inverse nonlinear solver type. \see OPENCMISS_NonlinearSolverTypes,OPENCMISS
05965   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NONLINEAR_SQP = SOLVER_NONLINEAR_SQP !<Sequential Quadratic Program nonlinear solver type. \see OPENCMISS_NonlinearSolverTypes,OPENCMISS
05966   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NONLINEAR_QUASI_NEWTON = SOLVER_NONLINEAR_QUASI_NEWTON !<Quasi-Newton nonlinear solver type. \see OPENCMISS_NonlinearSolverTypes,OPENCMISS
05967 
05972   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_LINESEARCH=SOLVER_QUASI_NEWTON_LINESEARCH !<Quasi-Newton line search nonlinear solver type \see OPENCMISS_QuasiNewtonSolverTypes,OPENCMISS
05973   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_TRUSTREGION=SOLVER_QUASI_NEWTON_TRUSTREGION !<Quasi-Newton trust region nonlinear solver type \see OPENCMISS_QuasiNewtonSolverTypes,OPENCMISS
05974 
05979   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_LBFGS=SOLVER_QUASI_NEWTON_LBFGS !<LBFGS Quasi-Newton type \see OPENCMISS_QuasiNewtonTypes,OPENCMISS
05980   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_GOODBROYDEN=SOLVER_QUASI_NEWTON_GOODBROYDEN !<"Good" Broyden Quasi-Newton type \see OPENCMISS_QuasiNewtonTypes,OPENCMISS
05981   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_BADBROYDEN=SOLVER_QUASI_NEWTON_BADBROYDEN !<"Bad" Broyden Quasi-Newton type \see OPENCMISS_QuasiNewtonTypes,OPENCMISS
05982 
05987   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_LINESEARCH_BASIC=SOLVER_QUASI_NEWTON_LINESEARCH_BASIC !<Simple damping line search. \see OPENCMISS_QuasiNewtonLineSearchTypes,OPENCMISS
05988   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_LINESEARCH_L2=SOLVER_QUASI_NEWTON_LINESEARCH_L2 !<Secant line search over the L2 norm of the function \see OPENCMISS_QuasiNewtonLineSearchTypes,OPENCMISS
05989   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_LINESEARCH_CP=SOLVER_QUASI_NEWTON_LINESEARCH_CP !<Critical point secant line search \see OPENCMISS_QuasiNewtonLineSearchTypes,OPENCMISS
05990 
05995   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_RESTART_NONE=SOLVER_QUASI_NEWTON_RESTART_NONE !<Never restart \see OPENCMISS_QuasiNewtonRestartTypes,OPENCMISS
05996   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_RESTART_POWELL=SOLVER_QUASI_NEWTON_RESTART_POWELL !<Restart based upon descent criteria \see OPENCMISS_QuasiNewtonRestartTypes,OPENCMISS
05997   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_RESTART_PERIODIC=SOLVER_QUASI_NEWTON_RESTART_PERIODIC !<Restart after a fixed number of iterations \see OPENCMISS_QuasiNewtonRestartTypes,OPENCMISS
05998 
06003   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_SCALE_NONE=SOLVER_QUASI_NEWTON_SCALE_NONE !<Don't scale the problem \see OPENCMISS_QuasiNewtonScaleTypes,OPENCMISS
06004   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_SCALE_SHANNO=SOLVER_QUASI_NEWTON_SCALE_SHANNO !<Use Shanno scaling \see OPENCMISS_QuasiNewtonScaleTypes,OPENCMISS
06005   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_SCALE_LINESEARCH=SOLVER_QUASI_NEWTON_SCALE_LINESEARCH !<Scale based upon line search lambda \see OPENCMISS_QuasiNewtonScaleTypes,OPENCMISS
06006   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_QUASI_NEWTON_SCALE_JACOBIAN=SOLVER_QUASI_NEWTON_SCALE_JACOBIAN !<Scale by inverting a previously computed Jacobian \see OPENCMISS_QuasiNewtonScaleTypes,OPENCMISS
06007 
06012   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NEWTON_LINESEARCH = SOLVER_NEWTON_LINESEARCH !<Newton line search nonlinear solver type. \see OPENCMISS_NewtonSolverTypes,OPENCMISS
06013   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NEWTON_TRUSTREGION = SOLVER_NEWTON_TRUSTREGION !<Newton trust region nonlinear solver type. \see OPENCMISS_NewtonSolverTypes,OPENCMISS
06014 
06019   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NEWTON_LINESEARCH_LINEAR = SOLVER_NEWTON_LINESEARCH_LINEAR !<Linear line search for Newton line search nonlinear solves \see OPENCMISS_NewtonLineSearchTypes,OPENCMISS
06020   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NEWTON_LINESEARCH_QUADRATIC = SOLVER_NEWTON_LINESEARCH_QUADRATIC !<Quadratic search for Newton line search nonlinear solves \see OPENCMISS_NewtonLineSearchTypes,OPENCMISS
06021   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NEWTON_LINESEARCH_CUBIC = SOLVER_NEWTON_LINESEARCH_CUBIC !<Cubic search for Newton line search nonlinear solves \see OPENCMISS_NewtonLineSearchTypes,OPENCMISS
06022 
06027   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NEWTON_JACOBIAN_NOT_CALCULATED = SOLVER_NEWTON_JACOBIAN_NOT_CALCULATED !<The Jacobian values will not be calculated for the nonlinear equations set. \see OPENCMISS_JacobianCalculationTypes,OPENCMISS
06028   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NEWTON_JACOBIAN_EQUATIONS_CALCULATED = SOLVER_NEWTON_JACOBIAN_EQUATIONS_CALCULATED !<The Jacobian values will be calculated analytically for the nonlinear equations set. \see OPENCMISS_JacobianCalculationTypes,OPENCMISS
06029   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NEWTON_JACOBIAN_FD_CALCULATED = SOLVER_NEWTON_JACOBIAN_FD_CALCULATED !<The Jacobian values will be calcualted using finite differences for the nonlinear equations set. \see OPENCMISS_JacobianCalculationTypes,OPENCMISS
06030 
06035   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NEWTON_CONVERGENCE_PETSC_DEFAULT = SOLVER_NEWTON_CONVERGENCE_PETSC_DEFAULT !<Newton solver Petsc default convergence test type. \see OPENCMISS_NewtonConvergenceTypes,OPENCMISS
06036   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NEWTON_CONVERGENCE_ENERGY_NORM = SOLVER_NEWTON_CONVERGENCE_ENERGY_NORM !<Newton solver energy norm convergence test type. \see OPENCMISS_NewtonConvergenceTypes,OPENCMISS 
06037   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NEWTON_CONVERGENCE_DIFFERENTIATED_RATIO = SOLVER_NEWTON_CONVERGENCE_DIFFERENTIATED_RATIO !<Newton solver Sum of differentiated ratios of unconstrained to constrained residuals convergence test type. \see OPENCMISS_NewtonConvergenceTypes,OPENCMISS 
06038 
06043   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_FIRST_ORDER = SOLVER_DYNAMIC_FIRST_ORDER !<Dynamic solver has first order terms. \see OPENCMISS_DynamicOrderTypes,OPENCMISS
06044   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_SECOND_ORDER = SOLVER_DYNAMIC_SECOND_ORDER !<Dynamic solver has second order terms. \see OPENCMISS_DynamicOrderTypes,OPENCMISS
06045 
06050   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_LINEAR = SOLVER_DYNAMIC_LINEAR !<Dynamic solver has linear terms. \see OPENCMISS_DynamicLinearityTypes,OPENCMISS
06051   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_NONLINEAR = SOLVER_DYNAMIC_NONLINEAR !<Dynamic solver has nonlinear terms. \see OPENCMISS_DynamicLinearityTypes,OPENCMISS
06052 
06057   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_FIRST_DEGREE = SOLVER_DYNAMIC_FIRST_DEGREE !<Dynamic solver uses a first degree polynomial for time interpolation. \see OPENCMISS_DynamicDegreeTypes,OPENCMISS
06058   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_SECOND_DEGREE = SOLVER_DYNAMIC_SECOND_DEGREE !<Dynamic solver uses a second degree polynomial for time interpolation. \see OPENCMISS_DynamicDegreeTypes,OPENCMISS
06059   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_THIRD_DEGREE = SOLVER_DYNAMIC_THIRD_DEGREE !<Dynamic solver uses a third degree polynomial for time interpolation. \see OPENCMISS_DynamicDegreeTypes,OPENCMISS
06060 
06065   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_EULER_SCHEME = SOLVER_DYNAMIC_EULER_SCHEME !<Euler (explicit) dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06066   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_BACKWARD_EULER_SCHEME = SOLVER_DYNAMIC_BACKWARD_EULER_SCHEME !<Backward Euler (implicit) dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06067   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_CRANK_NICOLSON_SCHEME = SOLVER_DYNAMIC_CRANK_NICOLSON_SCHEME !<Crank-Nicolson dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06068   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_GALERKIN_SCHEME = SOLVER_DYNAMIC_GALERKIN_SCHEME !<Galerkin dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06069   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_ZLAMAL_SCHEME = SOLVER_DYNAMIC_ZLAMAL_SCHEME !<Zlamal dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06070   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_SECOND_DEGREE_GEAR_SCHEME = SOLVER_DYNAMIC_SECOND_DEGREE_GEAR_SCHEME !<2nd degree Gear dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06071   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_SECOND_DEGREE_LINIGER1_SCHEME = SOLVER_DYNAMIC_SECOND_DEGREE_LINIGER1_SCHEME !<1st 2nd degree Liniger dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06072   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_SECOND_DEGREE_LINIGER2_SCHEME = SOLVER_DYNAMIC_SECOND_DEGREE_LINIGER2_SCHEME !<2nd 2nd degree Liniger dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06073   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_NEWMARK1_SCHEME = SOLVER_DYNAMIC_NEWMARK1_SCHEME !<1st Newmark dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06074   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_NEWMARK2_SCHEME = SOLVER_DYNAMIC_NEWMARK2_SCHEME !<2nd Newmark dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06075   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_NEWMARK3_SCHEME = SOLVER_DYNAMIC_NEWMARK3_SCHEME !<3rd Newmark dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06076   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_THIRD_DEGREE_GEAR_SCHEME = SOLVER_DYNAMIC_THIRD_DEGREE_GEAR_SCHEME !<3rd degree Gear dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06077   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_THIRD_DEGREE_LINIGER1_SCHEME = SOLVER_DYNAMIC_THIRD_DEGREE_LINIGER1_SCHEME !<1st 3rd degree Liniger dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06078   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_THIRD_DEGREE_LINIGER2_SCHEME = SOLVER_DYNAMIC_THIRD_DEGREE_LINIGER2_SCHEME !<2nd 3rd degree Liniger dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06079   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_HOUBOLT_SCHEME = SOLVER_DYNAMIC_HOUBOLT_SCHEME !<Houbolt dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06080   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_WILSON_SCHEME = SOLVER_DYNAMIC_WILSON_SCHEME !<Wilson dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06081   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_BOSSAK_NEWMARK1_SCHEME = SOLVER_DYNAMIC_BOSSAK_NEWMARK1_SCHEME !<1st Bossak-Newmark dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06082   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_BOSSAK_NEWMARK2_SCHEME = SOLVER_DYNAMIC_BOSSAK_NEWMARK2_SCHEME !<2nd Bossak-Newmark dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06083   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_HILBERT_HUGHES_TAYLOR1_SCHEME = SOLVER_DYNAMIC_HILBERT_HUGHES_TAYLOR1_SCHEME !<1st Hilbert-Hughes-Taylor dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06084   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_HILBERT_HUGHES_TAYLOR2_SCHEME = SOLVER_DYNAMIC_HILBERT_HUGHES_TAYLOR2_SCHEME !<1st Hilbert-Hughes-Taylor dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06085   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DYNAMIC_USER_DEFINED_SCHEME = SOLVER_DYNAMIC_USER_DEFINED_SCHEME !<User specified degree and theta dynamic solver. \see OPENCMISS_DynamicSchemeTypes,OPENCMISS
06086 
06091   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_DIFFERENTIAL_ONLY = SOLVER_DAE_DIFFERENTIAL_ONLY !<Differential equations only. \see OPENCMISS_DAETypes,OPENCMISS
06092   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_INDEX_1 = SOLVER_DAE_INDEX_1 !<Index 1 differential-algebraic equation. \see OPENCMISS_DAETypes,OPENCMISS
06093   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_INDEX_2 = SOLVER_DAE_INDEX_2 !<Index 2 differential-algebraic equation. \see OPENCMISS_DAETypes,OPENCMISS
06094   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_INDEX_3 = SOLVER_DAE_INDEX_3 !<Index 3 differential-algebraic equation. \see OPENCMISS_DAETypes,OPENCMISS
06095 
06100   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_EULER = SOLVER_DAE_EULER !<Euler differential-algebraic equation solver. \see
06101   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_CRANK_NICOLSON = SOLVER_DAE_CRANK_NICOLSON !<Crank-Nicolson differential-algebraic equation solver. \see
06102   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_RUNGE_KUTTA = SOLVER_DAE_RUNGE_KUTTA !<Runge-Kutta differential-algebraic equation solver. \see
06103   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_ADAMS_MOULTON = SOLVER_DAE_ADAMS_MOULTON !<Adams-Moulton differential-algebraic equation solver. \see
06104   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_BDF = SOLVER_DAE_BDF !<General BDF differential-algebraic equation solver. \see
06105   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_RUSH_LARSON = SOLVER_DAE_RUSH_LARSON !<Rush-Larson differential-algebraic equation solver. \see
06106   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_EXTERNAL = SOLVER_DAE_EXTERNAL !<External (e.g., CellML generated) differential-algebraic equation solver. \see
06107 
06112   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_EULER_FORWARD = SOLVER_DAE_EULER_FORWARD !<Forward Euler differential equation solver. \see OPENCMISS_EulerDAESolverTypes,OPENCMISS
06113   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_EULER_BACKWARD = SOLVER_DAE_EULER_BACKWARD !<Backward Euler differential equation solver. \see OPENCMISS_EulerDAESolverTypes,OPENCMISS
06114   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_DAE_EULER_IMPROVED = SOLVER_DAE_EULER_IMPROVED !<Improved Euler differential equation solver. \see OPENCMISS_EulerDAESolverTypes,OPENCMISS
06115 
06120   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_SOLUTION_INITIALISE_ZERO = SOLVER_SOLUTION_INITIALISE_ZERO !<Initialise the solution by zeroing it before a solve. \see OPENCMISS_SolutionInitialiseTypes,OPENCMISS
06121   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_SOLUTION_INITIALISE_CURRENT_FIELD = SOLVER_SOLUTION_INITIALISE_CURRENT_FIELD !<Initialise the solution by copying in the current dependent field values. \see OPENCMISS_SolutionInitialiseTypes,OPENCMISS
06122   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_SOLUTION_INITIALISE_NO_CHANGE = SOLVER_SOLUTION_INITIALISE_NO_CHANGE !<Do not change the solution before a solve. \see OPENCMISS_SolutionInitialiseTypes,OPENCMISS
06123 
06128   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_NO_OUTPUT = SOLVER_NO_OUTPUT !<No output from the solver routines. \see OPENCMISS_SolverOutputTypes,OPENCMISS
06129   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_PROGRESS_OUTPUT = SOLVER_PROGRESS_OUTPUT !<Progress output from solver routines. \see OPENCMISS_SolverOutputTypes,OPENCMISS
06130   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_TIMING_OUTPUT = SOLVER_TIMING_OUTPUT !<Timing output from the solver routines plus below. \see OPENCMISS_SolverOutputTypes,OPENCMISS
06131   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_SOLVER_OUTPUT = SOLVER_SOLVER_OUTPUT !<Solver specific output from the solver routines plus below. \see OPENCMISS_SolverOutputTypes,OPENCMISS
06132   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_MATRIX_OUTPUT = SOLVER_MATRIX_OUTPUT !<Solver matrices output from the solver routines plus below. \see OPENCMISS_SolverOutputTypes,OPENCMISS
06133 
06138   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_SPARSE_MATRICES = SOLVER_SPARSE_MATRICES !<Use sparse solver matrices. \see OPENCMISS_SolverEquationsSparsityTypes,OPENCMISS
06139   INTEGER(INTG), PARAMETER :: CMFE_SOLVER_FULL_MATRICES = SOLVER_FULL_MATRICES !<Use fully populated solver matrices. \see OPENCMISS_SolverEquationsSparsityTypes,OPENCMISS
06140 
06142 
06143   !Module types
06144 
06145   !Module variables
06146 
06147   !Interfaces
06148 
06150   INTERFACE cmfe_Solver_CellMLEquationsGet
06151     MODULE PROCEDURE cmfe_Solver_CellMLEquationsGetNumber0
06152     MODULE PROCEDURE cmfe_Solver_CellMLEquationsGetNumber1
06153     MODULE PROCEDURE cmfe_Solver_CellMLEquationsGetObj
06154   END INTERFACE cmfe_Solver_CellMLEquationsGet
06155 
06157   INTERFACE cmfe_CellMLEquations_CellMLAdd
06158     MODULE PROCEDURE cmfe_CellMLEquations_CellMLAddNumber0
06159     MODULE PROCEDURE cmfe_CellMLEquations_CellMLAddNumber1
06160     MODULE PROCEDURE cmfe_CellMLEquations_CellMLAddObj
06161   END INTERFACE cmfe_CellMLEquations_CellMLAdd
06162 
06164   INTERFACE cmfe_Solver_DAEEulerSolverTypeGet
06165     MODULE PROCEDURE cmfe_Solver_DAEEulerSolverTypeGetNumber0
06166     MODULE PROCEDURE cmfe_Solver_DAEEulerSolverTypeGetNumber1
06167     MODULE PROCEDURE cmfe_Solver_DAEEulerSolverTypeGetObj
06168   END INTERFACE cmfe_Solver_DAEEulerSolverTypeGet
06169 
06171   INTERFACE cmfe_Solver_DAEEulerSolverTypeSet
06172     MODULE PROCEDURE cmfe_Solver_DAEEulerSolverTypeSetNumber0
06173     MODULE PROCEDURE cmfe_Solver_DAEEulerSolverTypeSetNumber1
06174     MODULE PROCEDURE cmfe_Solver_DAEEulerSolverTypeSetObj
06175   END INTERFACE cmfe_Solver_DAEEulerSolverTypeSet
06176 
06178   INTERFACE cmfe_Solver_DAESolverTypeGet
06179     MODULE PROCEDURE cmfe_Solver_DAESolverTypeGetNumber0
06180     MODULE PROCEDURE cmfe_Solver_DAESolverTypeGetNumber1
06181     MODULE PROCEDURE cmfe_Solver_DAESolverTypeGetObj
06182   END INTERFACE cmfe_Solver_DAESolverTypeGet
06183 
06185   INTERFACE cmfe_Solver_DAESolverTypeSet
06186     MODULE PROCEDURE cmfe_Solver_DAESolverTypeSetNumber0
06187     MODULE PROCEDURE cmfe_Solver_DAESolverTypeSetNumber1
06188     MODULE PROCEDURE cmfe_Solver_DAESolverTypeSetObj
06189   END INTERFACE cmfe_Solver_DAESolverTypeSet
06190 
06192   INTERFACE cmfe_Solver_DAETimesSet
06193     MODULE PROCEDURE cmfe_Solver_DAETimesSetNumber0
06194     MODULE PROCEDURE cmfe_Solver_DAETimesSetNumber1
06195     MODULE PROCEDURE cmfe_Solver_DAETimesSetObj
06196   END INTERFACE cmfe_Solver_DAETimesSet
06197 
06199   INTERFACE cmfe_Solver_DAETimeStepSet
06200     MODULE PROCEDURE cmfe_Solver_DAETimeStepSetNumber0
06201     MODULE PROCEDURE cmfe_Solver_DAETimeStepSetNumber1
06202     MODULE PROCEDURE cmfe_Solver_DAETimeStepSetObj
06203   END INTERFACE cmfe_Solver_DAETimeStepSet
06204 
06206   INTERFACE cmfe_Solver_DynamicDegreeGet
06207     MODULE PROCEDURE cmfe_Solver_DynamicDegreeGetNumber0
06208     MODULE PROCEDURE cmfe_Solver_DynamicDegreeGetNumber1
06209     MODULE PROCEDURE cmfe_Solver_DynamicDegreeGetObj
06210   END INTERFACE cmfe_Solver_DynamicDegreeGet
06211 
06213   INTERFACE cmfe_Solver_DynamicDegreeSet
06214     MODULE PROCEDURE cmfe_Solver_DynamicDegreeSetNumber0
06215     MODULE PROCEDURE cmfe_Solver_DynamicDegreeSetNumber1
06216     MODULE PROCEDURE cmfe_Solver_DynamicDegreeSetObj
06217   END INTERFACE cmfe_Solver_DynamicDegreeSet
06218 
06220   INTERFACE cmfe_Solver_DynamicLinearityTypeGet
06221     MODULE PROCEDURE cmfe_Solver_DynamicLinearityTypeGetNumber0
06222     MODULE PROCEDURE cmfe_Solver_DynamicLinearityTypeGetNumber1
06223     MODULE PROCEDURE cmfe_Solver_DynamicLinearityTypeGetObj
06224   END INTERFACE cmfe_Solver_DynamicLinearityTypeGet
06225 
06227   INTERFACE cmfe_Solver_DynamicLinearSolverGet
06228     MODULE PROCEDURE cmfe_Solver_DynamicLinearSolverGetNumber0
06229     MODULE PROCEDURE cmfe_Solver_DynamicLinearSolverGetNumber1
06230     MODULE PROCEDURE cmfe_Solver_DynamicLinearSolverGetObj
06231   END INTERFACE cmfe_Solver_DynamicLinearSolverGet
06232 
06234   INTERFACE cmfe_Solver_DynamicNonlinearSolverGet
06235     MODULE PROCEDURE cmfe_Solver_DynamicNonlinearSolverGetNumber0
06236     MODULE PROCEDURE cmfe_Solver_DynamicNonlinearSolverGetNumber1
06237     MODULE PROCEDURE cmfe_Solver_DynamicNonlinearSolverGetObj
06238   END INTERFACE cmfe_Solver_DynamicNonlinearSolverGet
06239 
06241   INTERFACE cmfe_Solver_DynamicSchemeSet
06242     MODULE PROCEDURE cmfe_Solver_DynamicSchemeSetNumber0
06243     MODULE PROCEDURE cmfe_Solver_DynamicSchemeSetNumber1
06244     MODULE PROCEDURE cmfe_Solver_DynamicSchemeSetObj
06245   END INTERFACE cmfe_Solver_DynamicSchemeSet
06246 
06248   INTERFACE cmfe_Solver_DynamicThetaSet
06249     MODULE PROCEDURE cmfe_Solver_DynamicThetaSetNumber00
06250     MODULE PROCEDURE cmfe_Solver_DynamicThetaSetNumber01
06251     MODULE PROCEDURE cmfe_Solver_DynamicThetaSetNumber10
06252     MODULE PROCEDURE cmfe_Solver_DynamicThetaSetNumber11
06253     MODULE PROCEDURE cmfe_Solver_DynamicThetaSetObj0
06254     MODULE PROCEDURE cmfe_Solver_DynamicThetaSetObj1
06255   END INTERFACE cmfe_Solver_DynamicThetaSet
06256 
06258   INTERFACE cmfe_Solver_DynamicTimesSet
06259     MODULE PROCEDURE cmfe_Solver_DynamicTimesSetNumber0
06260     MODULE PROCEDURE cmfe_Solver_DynamicTimesSetNumber1
06261     MODULE PROCEDURE cmfe_Solver_DynamicTimesSetObj
06262   END INTERFACE cmfe_Solver_DynamicTimesSet
06263   
06264   !Sets the arbitrary path logical for the transformation
06265   INTERFACE cmfe_Solver_GeometricTransformationArbitraryPathSet
06266     MODULE PROCEDURE cmfe_Solver_GeometricTransformationArbitraryPathSetNumber
06267     MODULE PROCEDURE cmfe_Solver_GeometricTransformationArbitraryPathSetObj
06268   END INTERFACE cmfe_Solver_GeometricTransformationArbitraryPathSet
06269   
06270   !Clear transformation for a geometric transformation solver
06271   INTERFACE cmfe_Solver_GeometricTransformationClear
06272     MODULE PROCEDURE cmfe_Solver_GeometricTransformationClearNumber
06273     MODULE PROCEDURE cmfe_Solver_GeometricTransformationClearObj
06274   END INTERFACE cmfe_Solver_GeometricTransformationClear
06275   
06276   !Sets the field to transform
06277   INTERFACE cmfe_Solver_GeometricTransformationFieldSet
06278     MODULE PROCEDURE cmfe_Solver_GeometricTransformationFieldSetNumber
06279     MODULE PROCEDURE cmfe_Solver_GeometricTransformationFieldSetObj
06280   END INTERFACE cmfe_Solver_GeometricTransformationFieldSet
06281   
06282   !Sets the full transformation matrix for a geometric transformation
06283   INTERFACE cmfe_Solver_GeometricTransformationMatrixSet
06284     MODULE PROCEDURE cmfe_Solver_GeometricTransformationMatrixSetNumber0
06285     MODULE PROCEDURE cmfe_Solver_GeometricTransformationMatrixSetObj0
06286     MODULE PROCEDURE cmfe_Solver_GeometricTransformationMatrixSetNumber1
06287     MODULE PROCEDURE cmfe_Solver_GeometricTransformationMatrixSetObj1
06288   END INTERFACE cmfe_Solver_GeometricTransformationMatrixSet
06289   
06290   !Sets number of load increments for the transformation
06291   INTERFACE cmfe_Solver_GeometricTransformationNumberOfLoadIncrementsSet
06292     MODULE PROCEDURE cmfe_Solver_GeometricTransformationNoLoadIncrementsSetNumber
06293     MODULE PROCEDURE cmfe_Solver_GeometricTransformationNoLoadIncrementsSetObj
06294   END INTERFACE cmfe_Solver_GeometricTransformationNumberOfLoadIncrementsSet
06295   
06296   !Sets the rotation for a geometric transformation
06297   INTERFACE cmfe_Solver_GeometricTransformationRotationSet
06298     MODULE PROCEDURE cmfe_Solver_GeometricTransformationRotationSetNumber0
06299     MODULE PROCEDURE cmfe_Solver_GeometricTransformationRotationSetObj0
06300     MODULE PROCEDURE cmfe_Solver_GeometricTransformationRotationSetNumber1
06301     MODULE PROCEDURE cmfe_Solver_GeometricTransformationRotationSetObj1
06302   END INTERFACE cmfe_Solver_GeometricTransformationRotationSet
06303   
06304   !Sets the scalings for a uni-directional geometric transformation
06305   INTERFACE cmfe_Solver_GeometricTransformationScalingsSet
06306     MODULE PROCEDURE cmfe_Solver_GeometricTransformationScalingsSetNumber
06307     MODULE PROCEDURE cmfe_Solver_GeometricTransformationScalingsSetObj
06308   END INTERFACE cmfe_Solver_GeometricTransformationScalingsSet
06309   
06310   !Sets the translation for a geometric transformation
06311   INTERFACE cmfe_Solver_GeometricTransformationTranslationSet
06312     MODULE PROCEDURE cmfe_Solver_GeometricTransformationTranslationSetNumber0
06313     MODULE PROCEDURE cmfe_Solver_GeometricTransformationTranslationSetObj0
06314     MODULE PROCEDURE cmfe_Solver_GeometricTransformationTranslationSetNumber1
06315     MODULE PROCEDURE cmfe_Solver_GeometricTransformationTranslationSetObj1
06316   END INTERFACE cmfe_Solver_GeometricTransformationTranslationSet
06317 
06319   INTERFACE cmfe_Solver_LabelGet
06320     MODULE PROCEDURE cmfe_Solver_LabelGetCNumber0
06321     MODULE PROCEDURE cmfe_Solver_LabelGetCNumber1
06322     MODULE PROCEDURE cmfe_Solver_LabelGetCObj
06323     MODULE PROCEDURE cmfe_Solver_LabelGetVSNumber0
06324     MODULE PROCEDURE cmfe_Solver_LabelGetVSNumber1
06325     MODULE PROCEDURE cmfe_Solver_LabelGetVSObj
06326   END INTERFACE cmfe_Solver_LabelGet
06327 
06329   INTERFACE cmfe_Solver_LabelSet
06330     MODULE PROCEDURE cmfe_Solver_LabelSetCNumber0
06331     MODULE PROCEDURE cmfe_Solver_LabelSetCNumber1
06332     MODULE PROCEDURE cmfe_Solver_LabelSetCObj
06333     MODULE PROCEDURE cmfe_Solver_LabelSetVSNumber0
06334     MODULE PROCEDURE cmfe_Solver_LabelSetVSNumber1
06335     MODULE PROCEDURE cmfe_Solver_LabelSetVSObj
06336   END INTERFACE cmfe_Solver_LabelSet
06337 
06339   INTERFACE cmfe_Solver_LibraryTypeGet
06340     MODULE PROCEDURE cmfe_Solver_LibraryTypeGetNumber0
06341     MODULE PROCEDURE cmfe_Solver_LibraryTypeGetNumber1
06342     MODULE PROCEDURE cmfe_Solver_LibraryTypeGetObj
06343   END INTERFACE cmfe_Solver_LibraryTypeGet
06344 
06346   INTERFACE cmfe_Solver_LibraryTypeSet
06347     MODULE PROCEDURE cmfe_Solver_LibraryTypeSetNumber0
06348     MODULE PROCEDURE cmfe_Solver_LibraryTypeSetNumber1
06349     MODULE PROCEDURE cmfe_Solver_LibraryTypeSetObj
06350   END INTERFACE cmfe_Solver_LibraryTypeSet
06351 
06353   INTERFACE cmfe_Solver_LinearDirectTypeSet
06354     MODULE PROCEDURE cmfe_Solver_LinearDirectTypeSetNumber0
06355     MODULE PROCEDURE cmfe_Solver_LinearDirectTypeSetNumber1
06356     MODULE PROCEDURE cmfe_Solver_LinearDirectTypeSetObj
06357   END INTERFACE cmfe_Solver_LinearDirectTypeSet
06358 
06360   INTERFACE cmfe_Solver_LinearIterativeAbsoluteToleranceSet
06361     MODULE PROCEDURE cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber0
06362     MODULE PROCEDURE cmfe_Solver_LinearIterativeAbsoluteToleranceSetNumber1
06363     MODULE PROCEDURE cmfe_Solver_LinearIterativeAbsoluteToleranceSetObj
06364   END INTERFACE cmfe_Solver_LinearIterativeAbsoluteToleranceSet
06365 
06367   INTERFACE cmfe_Solver_LinearIterativeDivergenceToleranceSet
06368     MODULE PROCEDURE cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber0
06369     MODULE PROCEDURE cmfe_Solver_LinearIterativeDivergenceToleranceSetNumber1
06370     MODULE PROCEDURE cmfe_Solver_LinearIterativeDivergenceToleranceSetObj
06371   END INTERFACE cmfe_Solver_LinearIterativeDivergenceToleranceSet
06372 
06374   INTERFACE cmfe_Solver_LinearIterativeGMRESRestartSet
06375     MODULE PROCEDURE cmfe_Solver_LinearIterativeGMRESRestartSetNumber0
06376     MODULE PROCEDURE cmfe_Solver_LinearIterativeGMRESRestartSetNumber1
06377     MODULE PROCEDURE cmfe_Solver_LinearIterativeGMRESRestartSetObj
06378   END INTERFACE cmfe_Solver_LinearIterativeGMRESRestartSet
06379 
06381   INTERFACE cmfe_Solver_LinearIterativeMaximumIterationsSet
06382     MODULE PROCEDURE cmfe_Solver_LinearIterativeMaximumIterationsSetNumber0
06383     MODULE PROCEDURE cmfe_Solver_LinearIterativeMaximumIterationsSetNumber1
06384     MODULE PROCEDURE cmfe_Solver_LinearIterativeMaximumIterationsSetObj
06385   END INTERFACE cmfe_Solver_LinearIterativeMaximumIterationsSet
06386 
06388   INTERFACE cmfe_Solver_LinearIterativePreconditionerTypeSet
06389     MODULE PROCEDURE cmfe_Solver_LinearIterativePreconditionerTypeSetNumber0
06390     MODULE PROCEDURE cmfe_Solver_LinearIterativePreconditionerTypeSetNumber1
06391     MODULE PROCEDURE cmfe_Solver_LinearIterativePreconditionerTypeSetObj
06392   END INTERFACE cmfe_Solver_LinearIterativePreconditionerTypeSet
06393 
06395   INTERFACE cmfe_Solver_LinearIterativeRelativeToleranceSet
06396     MODULE PROCEDURE cmfe_Solver_LinearIterativeRelativeToleranceSetNumber0
06397     MODULE PROCEDURE cmfe_Solver_LinearIterativeRelativeToleranceSetNumber1
06398     MODULE PROCEDURE cmfe_Solver_LinearIterativeRelativeToleranceSetObj
06399   END INTERFACE cmfe_Solver_LinearIterativeRelativeToleranceSet
06400 
06402   INTERFACE cmfe_Solver_LinearIterativeTypeSet
06403     MODULE PROCEDURE cmfe_Solver_LinearIterativeTypeSetNumber0
06404     MODULE PROCEDURE cmfe_Solver_LinearIterativeTypeSetNumber1
06405     MODULE PROCEDURE cmfe_Solver_LinearIterativeTypeSetObj
06406   END INTERFACE cmfe_Solver_LinearIterativeTypeSet
06407 
06409   INTERFACE cmfe_Solver_LinearTypeSet
06410     MODULE PROCEDURE cmfe_Solver_LinearTypeSetNumber0
06411     MODULE PROCEDURE cmfe_Solver_LinearTypeSetNumber1
06412     MODULE PROCEDURE cmfe_Solver_LinearTypeSetObj
06413   END INTERFACE cmfe_Solver_LinearTypeSet
06414 
06416   INTERFACE cmfe_Solver_QuasiNewtonAbsoluteToleranceSet
06417     MODULE PROCEDURE cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber0
06418     MODULE PROCEDURE cmfe_Solver_QuasiNewtonAbsoluteToleranceSetNumber1
06419     MODULE PROCEDURE cmfe_Solver_QuasiNewtonAbsoluteToleranceSetObj
06420   END INTERFACE cmfe_Solver_QuasiNewtonAbsoluteToleranceSet
06421 
06423   INTERFACE cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSet
06424     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber0
06425     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetNumber1
06426     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSetObj
06427   END INTERFACE cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSet
06428 
06430   INTERFACE cmfe_Solver_QuasiNewtonJacobianCalculationTypeSet
06431     MODULE PROCEDURE cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber0
06432     MODULE PROCEDURE cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetNumber1
06433     MODULE PROCEDURE cmfe_Solver_QuasiNewtonJacobianCalculationTypeSetObj
06434   END INTERFACE cmfe_Solver_QuasiNewtonJacobianCalculationTypeSet
06435 
06437   INTERFACE cmfe_Solver_QuasiNewtonLinearSolverGet
06438     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLinearSolverGetNumber0
06439     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLinearSolverGetNumber1
06440     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLinearSolverGetObj
06441   END INTERFACE cmfe_Solver_QuasiNewtonLinearSolverGet
06442 
06444   INTERFACE cmfe_Solver_QuasiNewtonCellMLSolverGet
06445     MODULE PROCEDURE cmfe_Solver_QuasiNewtonCellMLSolverGetNumber0
06446     MODULE PROCEDURE cmfe_Solver_QuasiNewtonCellMLSolverGetNumber1
06447     MODULE PROCEDURE cmfe_Solver_QuasiNewtonCellMLSolverGetObj
06448   END INTERFACE cmfe_Solver_QuasiNewtonCellMLSolverGet
06449 
06451   INTERFACE cmfe_Solver_QuasiNewtonConvergenceTestTypeSet
06452     MODULE PROCEDURE cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber0
06453     MODULE PROCEDURE cmfe_Solver_QuasiNewtonConvergenceTestTypeSetNumber1
06454     MODULE PROCEDURE cmfe_Solver_QuasiNewtonConvergenceTestTypeSetObj
06455   END INTERFACE cmfe_Solver_QuasiNewtonConvergenceTestTypeSet
06456 
06458   INTERFACE cmfe_Solver_QuasiNewtonLineSearchMaxStepSet
06459     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber0
06460     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchMaxStepSetNumber1
06461     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchMaxStepSetObj
06462   END INTERFACE cmfe_Solver_QuasiNewtonLineSearchMaxStepSet
06463 
06465   INTERFACE cmfe_Solver_QuasiNewtonLineSearchStepTolSet
06466     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber0
06467     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchStepTolSetNumber1
06468     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchStepTolSetObj
06469   END INTERFACE cmfe_Solver_QuasiNewtonLineSearchStepTolSet
06470 
06472   INTERFACE cmfe_Solver_QuasiNewtonLineSearchTypeSet
06473     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber0
06474     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchTypeSetNumber1
06475     MODULE PROCEDURE cmfe_Solver_QuasiNewtonLineSearchTypeSetObj
06476   END INTERFACE cmfe_Solver_QuasiNewtonLineSearchTypeSet
06477 
06479   INTERFACE cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSet
06480     MODULE PROCEDURE cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber0
06481     MODULE PROCEDURE cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetNumber1
06482     MODULE PROCEDURE cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSetObj
06483   END INTERFACE cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSet
06484 
06486   INTERFACE cmfe_Solver_QuasiNewtonMaximumIterationsSet
06487     MODULE PROCEDURE cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber0
06488     MODULE PROCEDURE cmfe_Solver_QuasiNewtonMaximumIterationsSetNumber1
06489     MODULE PROCEDURE cmfe_Solver_QuasiNewtonMaximumIterationsSetObj
06490   END INTERFACE cmfe_Solver_QuasiNewtonMaximumIterationsSet
06491 
06493   INTERFACE cmfe_Solver_QuasiNewtonRelativeToleranceSet
06494     MODULE PROCEDURE cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber0
06495     MODULE PROCEDURE cmfe_Solver_QuasiNewtonRelativeToleranceSetNumber1
06496     MODULE PROCEDURE cmfe_Solver_QuasiNewtonRelativeToleranceSetObj
06497   END INTERFACE cmfe_Solver_QuasiNewtonRelativeToleranceSet
06498 
06500   INTERFACE cmfe_Solver_QuasiNewtonSolutionToleranceSet
06501     MODULE PROCEDURE cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber0
06502     MODULE PROCEDURE cmfe_Solver_QuasiNewtonSolutionToleranceSetNumber1
06503     MODULE PROCEDURE cmfe_Solver_QuasiNewtonSolutionToleranceSetObj
06504   END INTERFACE cmfe_Solver_QuasiNewtonSolutionToleranceSet
06505 
06507   INTERFACE cmfe_Solver_QuasiNewtonTrustRegionDelta0Set
06508     MODULE PROCEDURE cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber0
06509     MODULE PROCEDURE cmfe_Solver_QuasiNewtonTrustRegionDelta0SetNumber1
06510     MODULE PROCEDURE cmfe_Solver_QuasiNewtonTrustRegionDelta0SetObj
06511   END INTERFACE cmfe_Solver_QuasiNewtonTrustRegionDelta0Set
06512 
06514   INTERFACE cmfe_Solver_QuasiNewtonTrustRegionToleranceSet
06515     MODULE PROCEDURE cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber0
06516     MODULE PROCEDURE cmfe_Solver_QuasiNewtonTrustRegionToleranceSetNumber1
06517     MODULE PROCEDURE cmfe_Solver_QuasiNewtonTrustRegionToleranceSetObj
06518   END INTERFACE cmfe_Solver_QuasiNewtonTrustRegionToleranceSet
06519 
06521   INTERFACE cmfe_Solver_QuasiNewtonRestartSet
06522     MODULE PROCEDURE cmfe_Solver_QuasiNewtonRestartSetNumber0
06523     MODULE PROCEDURE cmfe_Solver_QuasiNewtonRestartSetNumber1
06524     MODULE PROCEDURE cmfe_Solver_QuasiNewtonRestartSetObj
06525   END INTERFACE cmfe_Solver_QuasiNewtonRestartSet
06526 
06528   INTERFACE cmfe_Solver_QuasiNewtonRestartTypeSet
06529     MODULE PROCEDURE cmfe_Solver_QuasiNewtonRestartTypeSetNumber0
06530     MODULE PROCEDURE cmfe_Solver_QuasiNewtonRestartTypeSetNumber1
06531     MODULE PROCEDURE cmfe_Solver_QuasiNewtonRestartTypeSetObj
06532   END INTERFACE cmfe_Solver_QuasiNewtonRestartTypeSet
06533 
06535   INTERFACE cmfe_Solver_QuasiNewtonScaleTypeSet
06536     MODULE PROCEDURE cmfe_Solver_QuasiNewtonScaleTypeSetNumber0
06537     MODULE PROCEDURE cmfe_Solver_QuasiNewtonScaleTypeSetNumber1
06538     MODULE PROCEDURE cmfe_Solver_QuasiNewtonScaleTypeSetObj
06539   END INTERFACE cmfe_Solver_QuasiNewtonScaleTypeSet
06540 
06542   INTERFACE cmfe_Solver_QuasiNewtonSolveTypeSet
06543     MODULE PROCEDURE cmfe_Solver_QuasiNewtonSolveTypeSetNumber0
06544     MODULE PROCEDURE cmfe_Solver_QuasiNewtonSolveTypeSetNumber1
06545     MODULE PROCEDURE cmfe_Solver_QuasiNewtonSolveTypeSetObj
06546   END INTERFACE cmfe_Solver_QuasiNewtonSolveTypeSet
06547 
06549   INTERFACE cmfe_Solver_QuasiNewtonTypeSet
06550     MODULE PROCEDURE cmfe_Solver_QuasiNewtonTypeSetNumber0
06551     MODULE PROCEDURE cmfe_Solver_QuasiNewtonTypeSetNumber1
06552     MODULE PROCEDURE cmfe_Solver_QuasiNewtonTypeSetObj
06553   END INTERFACE cmfe_Solver_QuasiNewtonTypeSet
06554 
06556   INTERFACE cmfe_Solver_NewtonAbsoluteToleranceSet
06557     MODULE PROCEDURE cmfe_Solver_NewtonAbsoluteToleranceSetNumber0
06558     MODULE PROCEDURE cmfe_Solver_NewtonAbsoluteToleranceSetNumber1
06559     MODULE PROCEDURE cmfe_Solver_NewtonAbsoluteToleranceSetObj
06560   END INTERFACE cmfe_Solver_NewtonAbsoluteToleranceSet
06561 
06563   INTERFACE cmfe_Solver_NewtonLineSearchMonitorOutputSet
06564     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber0
06565     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchMonitorOutputSetNumber1
06566     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchMonitorOutputSetObj
06567   END INTERFACE cmfe_Solver_NewtonLineSearchMonitorOutputSet
06568 
06570   INTERFACE cmfe_Solver_NewtonJacobianCalculationTypeSet
06571     MODULE PROCEDURE cmfe_Solver_NewtonJacobianCalculationTypeSetNumber0
06572     MODULE PROCEDURE cmfe_Solver_NewtonJacobianCalculationTypeSetNumber1
06573     MODULE PROCEDURE cmfe_Solver_NewtonJacobianCalculationTypeSetObj
06574   END INTERFACE cmfe_Solver_NewtonJacobianCalculationTypeSet
06575 
06577   INTERFACE cmfe_Solver_NewtonLinearSolverGet
06578     MODULE PROCEDURE cmfe_Solver_NewtonLinearSolverGetNumber0
06579     MODULE PROCEDURE cmfe_Solver_NewtonLinearSolverGetNumber1
06580     MODULE PROCEDURE cmfe_Solver_NewtonLinearSolverGetObj
06581   END INTERFACE cmfe_Solver_NewtonLinearSolverGet
06582 
06584   INTERFACE cmfe_Solver_NewtonCellMLSolverGet
06585     MODULE PROCEDURE cmfe_Solver_NewtonCellMLSolverGetNumber0
06586     MODULE PROCEDURE cmfe_Solver_NewtonCellMLSolverGetNumber1
06587     MODULE PROCEDURE cmfe_Solver_NewtonCellMLSolverGetObj
06588   END INTERFACE cmfe_Solver_NewtonCellMLSolverGet
06589 
06591   INTERFACE cmfe_Solver_NewtonConvergenceTestTypeSet
06592     MODULE PROCEDURE cmfe_Solver_NewtonConvergenceTestTypeSetNumber0
06593     MODULE PROCEDURE cmfe_Solver_NewtonConvergenceTestTypeSetNumber1
06594     MODULE PROCEDURE cmfe_Solver_NewtonConvergenceTestTypeSetObj
06595   END INTERFACE cmfe_Solver_NewtonConvergenceTestTypeSet
06596 
06598   INTERFACE cmfe_Solver_NewtonLineSearchAlphaSet
06599     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchAlphaSetNumber0
06600     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchAlphaSetNumber1
06601     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchAlphaSetObj
06602   END INTERFACE cmfe_Solver_NewtonLineSearchAlphaSet
06603 
06605   INTERFACE cmfe_Solver_NewtonLineSearchMaxStepSet
06606     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchMaxStepSetNumber0
06607     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchMaxStepSetNumber1
06608     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchMaxStepSetObj
06609   END INTERFACE cmfe_Solver_NewtonLineSearchMaxStepSet
06610 
06612   INTERFACE cmfe_Solver_NewtonLineSearchStepTolSet
06613     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchStepTolSetNumber0
06614     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchStepTolSetNumber1
06615     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchStepTolSetObj
06616   END INTERFACE cmfe_Solver_NewtonLineSearchStepTolSet
06617 
06619   INTERFACE cmfe_Solver_NewtonLineSearchTypeSet
06620     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchTypeSetNumber0
06621     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchTypeSetNumber1
06622     MODULE PROCEDURE cmfe_Solver_NewtonLineSearchTypeSetObj
06623   END INTERFACE cmfe_Solver_NewtonLineSearchTypeSet
06624 
06626   INTERFACE cmfe_Solver_NewtonMaximumFunctionEvaluationsSet
06627     MODULE PROCEDURE cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber0
06628     MODULE PROCEDURE cmfe_Solver_NewtonMaximumFunctionEvaluationsSetNumber1
06629     MODULE PROCEDURE cmfe_Solver_NewtonMaximumFunctionEvaluationsSetObj
06630   END INTERFACE cmfe_Solver_NewtonMaximumFunctionEvaluationsSet
06631 
06633   INTERFACE cmfe_Solver_NewtonMaximumIterationsSet
06634     MODULE PROCEDURE cmfe_Solver_NewtonMaximumIterationsSetNumber0
06635     MODULE PROCEDURE cmfe_Solver_NewtonMaximumIterationsSetNumber1
06636     MODULE PROCEDURE cmfe_Solver_NewtonMaximumIterationsSetObj
06637   END INTERFACE cmfe_Solver_NewtonMaximumIterationsSet
06638 
06640   INTERFACE cmfe_Solver_NewtonRelativeToleranceSet
06641     MODULE PROCEDURE cmfe_Solver_NewtonRelativeToleranceSetNumber0
06642     MODULE PROCEDURE cmfe_Solver_NewtonRelativeToleranceSetNumber1
06643     MODULE PROCEDURE cmfe_Solver_NewtonRelativeToleranceSetObj
06644   END INTERFACE cmfe_Solver_NewtonRelativeToleranceSet
06645 
06647   INTERFACE cmfe_Solver_NewtonSolutionToleranceSet
06648     MODULE PROCEDURE cmfe_Solver_NewtonSolutionToleranceSetNumber0
06649     MODULE PROCEDURE cmfe_Solver_NewtonSolutionToleranceSetNumber1
06650     MODULE PROCEDURE cmfe_Solver_NewtonSolutionToleranceSetObj
06651   END INTERFACE cmfe_Solver_NewtonSolutionToleranceSet
06652 
06654   INTERFACE cmfe_Solver_NewtonTrustRegionDelta0Set
06655     MODULE PROCEDURE cmfe_Solver_NewtonTrustRegionDelta0SetNumber0
06656     MODULE PROCEDURE cmfe_Solver_NewtonTrustRegionDelta0SetNumber1
06657     MODULE PROCEDURE cmfe_Solver_NewtonTrustRegionDelta0SetObj
06658   END INTERFACE cmfe_Solver_NewtonTrustRegionDelta0Set
06659 
06661   INTERFACE cmfe_Solver_NewtonTrustRegionToleranceSet
06662     MODULE PROCEDURE cmfe_Solver_NewtonTrustRegionToleranceSetNumber0
06663     MODULE PROCEDURE cmfe_Solver_NewtonTrustRegionToleranceSetNumber1
06664     MODULE PROCEDURE cmfe_Solver_NewtonTrustRegionToleranceSetObj
06665   END INTERFACE cmfe_Solver_NewtonTrustRegionToleranceSet
06666 
06668   INTERFACE cmfe_Solver_NewtonTypeSet
06669     MODULE PROCEDURE cmfe_Solver_NewtonTypeSetNumber0
06670     MODULE PROCEDURE cmfe_Solver_NewtonTypeSetNumber1
06671     MODULE PROCEDURE cmfe_Solver_NewtonTypeSetObj
06672   END INTERFACE cmfe_Solver_NewtonTypeSet
06673 
06675   INTERFACE cmfe_Solver_NonlinearTypeSet
06676     MODULE PROCEDURE cmfe_Solver_NonlinearTypeSetNumber0
06677     MODULE PROCEDURE cmfe_Solver_NonlinearTypeSetNumber1
06678     MODULE PROCEDURE cmfe_Solver_NonlinearTypeSetObj
06679   END INTERFACE cmfe_Solver_NonlinearTypeSet
06680 
06682   INTERFACE cmfe_Solver_OutputTypeSet
06683     MODULE PROCEDURE cmfe_Solver_OutputTypeSetNumber0
06684     MODULE PROCEDURE cmfe_Solver_OutputTypeSetNumber1
06685     MODULE PROCEDURE cmfe_Solver_OutputTypeSetObj
06686   END INTERFACE cmfe_Solver_OutputTypeSet
06687 
06689   INTERFACE cmfe_Solver_SolverEquationsGet
06690     MODULE PROCEDURE cmfe_Solver_SolverEquationsGetNumber0
06691     MODULE PROCEDURE cmfe_Solver_SolverEquationsGetNumber1
06692     MODULE PROCEDURE cmfe_Solver_SolverEquationsGetObj
06693   END INTERFACE cmfe_Solver_SolverEquationsGet
06694 
06696   INTERFACE cmfe_SolverEquations_EquationsSetAdd
06697     MODULE PROCEDURE cmfe_SolverEquations_EquationsSetAddNumber0
06698     MODULE PROCEDURE cmfe_SolverEquations_EquationsSetAddNumber1
06699     MODULE PROCEDURE cmfe_SolverEquations_EquationsSetAddObj
06700   END INTERFACE cmfe_SolverEquations_EquationsSetAdd
06701 
06703   INTERFACE cmfe_SolverEquations_InterfaceConditionAdd
06704     MODULE PROCEDURE cmfe_SolverEquations_InterfaceConditionAddNumber0
06705     MODULE PROCEDURE cmfe_SolverEquations_InterfaceConditionAddNumber1
06706     MODULE PROCEDURE cmfe_SolverEquations_InterfaceConditionAddObj
06707   END INTERFACE cmfe_SolverEquations_InterfaceConditionAdd
06708 
06710   INTERFACE cmfe_SolverEquations_SparsityTypeSet
06711     MODULE PROCEDURE cmfe_SolverEquations_SparsityTypeSetNumber0
06712     MODULE PROCEDURE cmfe_SolverEquations_SparsityTypeSetNumber1
06713     MODULE PROCEDURE cmfe_SolverEquations_SparsityTypeSetObj
06714   END INTERFACE cmfe_SolverEquations_SparsityTypeSet
06715 
06717   INTERFACE cmfe_SolverEquations_BoundaryConditionsCreateFinish
06718     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber0
06719     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsCreateFinishNumber1
06720     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsCreateFinishObj
06721   END INTERFACE cmfe_SolverEquations_BoundaryConditionsCreateFinish
06722 
06724   INTERFACE cmfe_SolverEquations_BoundaryConditionsCreateStart
06725     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsCreateStartNumber0
06726     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsCreateStartNumber1
06727     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsCreateStartObj
06728   END INTERFACE cmfe_SolverEquations_BoundaryConditionsCreateStart
06729 
06731   INTERFACE cmfe_SolverEquations_BoundaryConditionsGet
06732     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsGetNumber0
06733     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsGetNumber1
06734     MODULE PROCEDURE cmfe_SolverEquations_BoundaryConditionsGetObj
06735   END INTERFACE cmfe_SolverEquations_BoundaryConditionsGet
06736 
06737   PUBLIC CMFE_SOLVER_LINEAR_TYPE,CMFE_SOLVER_NONLINEAR_TYPE,CMFE_SOLVER_DYNAMIC_TYPE,CMFE_SOLVER_DAE_TYPE, &
06738     & CMFE_SOLVER_EIGENPROBLEM_TYPE, &
06739     & CMFE_SOLVER_OPTIMISER_TYPE
06740 
06741   PUBLIC CMFE_SOLVER_CMISS_LIBRARY,CMFE_SOLVER_PETSC_LIBRARY,CMFE_SOLVER_MUMPS_LIBRARY,CMFE_SOLVER_SUPERLU_LIBRARY, &
06742     & CMFE_SOLVER_SPOOLES_LIBRARY,CMFE_SOLVER_UMFPACK_LIBRARY,CMFE_SOLVER_LUSOL_LIBRARY,CMFE_SOLVER_ESSL_LIBRARY, &
06743     & CMFE_SOLVER_LAPACK_LIBRARY,CMFE_SOLVER_TAO_LIBRARY,CMFE_SOLVER_HYPRE_LIBRARY,CMFE_SOLVER_PASTIX_LIBRARY
06744 
06745   PUBLIC CMFE_SOLVER_LINEAR_DIRECT_SOLVE_TYPE,CMFE_SOLVER_LINEAR_ITERATIVE_SOLVE_TYPE
06746 
06747   PUBLIC CMFE_SOLVER_DIRECT_LU,CMFE_SOLVER_DIRECT_CHOLESKY,CMFE_SOLVER_DIRECT_SVD
06748 
06749    PUBLIC CMFE_SOLVER_ITERATIVE_RICHARDSON,CMFE_SOLVER_ITERATIVE_CONJUGATE_GRADIENT,CMFE_SOLVER_ITERATIVE_CHEBYSHEV, &
06750     & CMFE_SOLVER_ITERATIVE_BICONJUGATE_GRADIENT,CMFE_SOLVER_ITERATIVE_GMRES,CMFE_SOLVER_ITERATIVE_BiCGSTAB, &
06751     & CMFE_SOLVER_ITERATIVE_CONJGRAD_SQUARED
06752 
06753   PUBLIC CMFE_SOLVER_ITERATIVE_NO_PRECONDITIONER,CMFE_SOLVER_ITERATIVE_JACOBI_PRECONDITIONER, &
06754     & CMFE_SOLVER_ITERATIVE_BLOCK_JACOBI_PRECONDITIONER,CMFE_SOLVER_ITERATIVE_SOR_PRECONDITIONER, &
06755     & CMFE_SOLVER_ITERATIVE_INCOMPLETE_CHOLESKY_PRECONDITIONER,CMFE_SOLVER_ITERATIVE_INCOMPLETE_LU_PRECONDITIONER, &
06756     & CMFE_SOLVER_ITERATIVE_ADDITIVE_SCHWARZ_PRECONDITIONER
06757 
06758   PUBLIC CMFE_SOLVER_NONLINEAR_NEWTON,CMFE_SOLVER_NONLINEAR_BFGS_INVERSE,CMFE_SOLVER_NONLINEAR_SQP
06759   
06760   PUBLIC CMFE_SOLVER_NONLINEAR_QUASI_NEWTON
06761 
06762   PUBLIC CMFE_SOLVER_QUASI_NEWTON_LINESEARCH,CMFE_SOLVER_QUASI_NEWTON_TRUSTREGION
06763 
06764   PUBLIC CMFE_SOLVER_QUASI_NEWTON_LBFGS,CMFE_SOLVER_QUASI_NEWTON_GOODBROYDEN,CMFE_SOLVER_QUASI_NEWTON_BADBROYDEN
06765 
06766   PUBLIC CMFE_SOLVER_QUASI_NEWTON_LINESEARCH_BASIC,CMFE_SOLVER_QUASI_NEWTON_LINESEARCH_L2, &
06767     & CMFE_SOLVER_QUASI_NEWTON_LINESEARCH_CP
06768 
06769   PUBLIC CMFE_SOLVER_QUASI_NEWTON_RESTART_NONE,CMFE_SOLVER_QUASI_NEWTON_RESTART_POWELL, &
06770     & CMFE_SOLVER_QUASI_NEWTON_RESTART_PERIODIC
06771 
06772   PUBLIC CMFE_SOLVER_QUASI_NEWTON_SCALE_NONE,CMFE_SOLVER_QUASI_NEWTON_SCALE_SHANNO, &
06773     & CMFE_SOLVER_QUASI_NEWTON_SCALE_LINESEARCH,CMFE_SOLVER_QUASI_NEWTON_SCALE_JACOBIAN
06774   
06775   PUBLIC CMFE_SOLVER_NEWTON_LINESEARCH,CMFE_SOLVER_NEWTON_TRUSTREGION
06776 
06777   PUBLIC CMFE_SOLVER_NEWTON_LINESEARCH_LINEAR,CMFE_SOLVER_NEWTON_LINESEARCH_QUADRATIC,CMFE_SOLVER_NEWTON_LINESEARCH_CUBIC
06778  
06779   PUBLIC CMFE_SOLVER_NEWTON_JACOBIAN_NOT_CALCULATED,CMFE_SOLVER_NEWTON_JACOBIAN_EQUATIONS_CALCULATED, &
06780     & CMFE_SOLVER_NEWTON_JACOBIAN_FD_CALCULATED
06781 
06782   PUBLIC CMFE_SOLVER_NEWTON_CONVERGENCE_PETSC_DEFAULT,CMFE_SOLVER_NEWTON_CONVERGENCE_ENERGY_NORM, &
06783     & CMFE_SOLVER_NEWTON_CONVERGENCE_DIFFERENTIATED_RATIO
06784 
06785   PUBLIC CMFE_SOLVER_DYNAMIC_FIRST_ORDER,CMFE_SOLVER_DYNAMIC_SECOND_ORDER
06786 
06787   PUBLIC CMFE_SOLVER_DYNAMIC_LINEAR,CMFE_SOLVER_DYNAMIC_NONLINEAR
06788 
06789   PUBLIC CMFE_SOLVER_DYNAMIC_FIRST_DEGREE,CMFE_SOLVER_DYNAMIC_SECOND_DEGREE,CMFE_SOLVER_DYNAMIC_THIRD_DEGREE
06790 
06791   PUBLIC CMFE_SOLVER_DYNAMIC_EULER_SCHEME,CMFE_SOLVER_DYNAMIC_BACKWARD_EULER_SCHEME,CMFE_SOLVER_DYNAMIC_CRANK_NICOLSON_SCHEME, &
06792     & CMFE_SOLVER_DYNAMIC_GALERKIN_SCHEME,CMFE_SOLVER_DYNAMIC_ZLAMAL_SCHEME,CMFE_SOLVER_DYNAMIC_SECOND_DEGREE_GEAR_SCHEME, &
06793     & CMFE_SOLVER_DYNAMIC_SECOND_DEGREE_LINIGER1_SCHEME,CMFE_SOLVER_DYNAMIC_SECOND_DEGREE_LINIGER2_SCHEME, &
06794     & CMFE_SOLVER_DYNAMIC_NEWMARK1_SCHEME,CMFE_SOLVER_DYNAMIC_NEWMARK2_SCHEME,CMFE_SOLVER_DYNAMIC_NEWMARK3_SCHEME, &
06795     & CMFE_SOLVER_DYNAMIC_THIRD_DEGREE_GEAR_SCHEME,CMFE_SOLVER_DYNAMIC_THIRD_DEGREE_LINIGER1_SCHEME, &
06796     & CMFE_SOLVER_DYNAMIC_THIRD_DEGREE_LINIGER2_SCHEME,CMFE_SOLVER_DYNAMIC_HOUBOLT_SCHEME,CMFE_SOLVER_DYNAMIC_WILSON_SCHEME, &
06797     & CMFE_SOLVER_DYNAMIC_BOSSAK_NEWMARK1_SCHEME,CMFE_SOLVER_DYNAMIC_BOSSAK_NEWMARK2_SCHEME, &
06798     & CMFE_SOLVER_DYNAMIC_HILBERT_HUGHES_TAYLOR1_SCHEME, &
06799     & CMFE_SOLVER_DYNAMIC_HILBERT_HUGHES_TAYLOR2_SCHEME,CMFE_SOLVER_DYNAMIC_USER_DEFINED_SCHEME
06800 
06801   PUBLIC CMFE_SOLVER_DAE_DIFFERENTIAL_ONLY,CMFE_SOLVER_DAE_INDEX_1,CMFE_SOLVER_DAE_INDEX_2,CMFE_SOLVER_DAE_INDEX_3
06802 
06803   PUBLIC CMFE_SOLVER_DAE_EULER,CMFE_SOLVER_DAE_CRANK_NICOLSON,CMFE_SOLVER_DAE_RUNGE_KUTTA,CMFE_SOLVER_DAE_ADAMS_MOULTON, &
06804     & CMFE_SOLVER_DAE_BDF, &
06805     & CMFE_SOLVER_DAE_RUSH_LARSON,CMFE_SOLVER_DAE_EXTERNAL
06806 
06807   PUBLIC CMFE_SOLVER_DAE_EULER_FORWARD,CMFE_SOLVER_DAE_EULER_BACKWARD,CMFE_SOLVER_DAE_EULER_IMPROVED
06808 
06809   PUBLIC CMFE_SOLVER_SOLUTION_INITIALISE_ZERO,CMFE_SOLVER_SOLUTION_INITIALISE_CURRENT_FIELD, &
06810     & CMFE_SOLVER_SOLUTION_INITIALISE_NO_CHANGE
06811 
06812   PUBLIC CMFE_SOLVER_NO_OUTPUT,CMFE_SOLVER_PROGRESS_OUTPUT,CMFE_SOLVER_TIMING_OUTPUT,CMFE_SOLVER_SOLVER_OUTPUT, &
06813     & CMFE_SOLVER_MATRIX_OUTPUT
06814 
06815   PUBLIC CMFE_SOLVER_SPARSE_MATRICES,CMFE_SOLVER_FULL_MATRICES
06816 
06817   PUBLIC cmfe_Solver_CellMLEquationsGet
06818 
06819   PUBLIC cmfe_CellMLEquations_CellMLAdd
06820 
06821   PUBLIC cmfe_Solver_DAEEulerSolverTypeGet,cmfe_Solver_DAEEulerSolverTypeSet
06822 
06823   PUBLIC cmfe_Solver_DAESolverTypeGet,cmfe_Solver_DAESolverTypeSet
06824 
06825   PUBLIC cmfe_Solver_DAETimesSet,cmfe_Solver_DAETimeStepSet
06826 
06827   PUBLIC cmfe_Solver_DynamicDegreeGet,cmfe_Solver_DynamicDegreeSet
06828 
06829   PUBLIC cmfe_Solver_DynamicLinearityTypeGet
06830 
06831   PUBLIC cmfe_Solver_DynamicLinearSolverGet,cmfe_Solver_DynamicNonlinearSolverGet
06832 
06833   PUBLIC cmfe_Solver_DynamicSchemeSet
06834 
06835   PUBLIC cmfe_Solver_DynamicThetaSet
06836 
06837   PUBLIC cmfe_Solver_DynamicTimesSet
06838   
06839   PUBLIC cmfe_Solver_GeometricTransformationArbitraryPathSet,cmfe_Solver_GeometricTransformationClear
06840   
06841   PUBLIC cmfe_Solver_GeometricTransformationNumberOfLoadIncrementsSet
06842   
06843   PUBLIC cmfe_Solver_GeometricTransformationScalingsSet
06844   
06845   PUBLIC cmfe_Solver_GeometricTransformationFieldSet
06846   
06847   PUBLIC cmfe_Solver_GeometricTransformationMatrixSet
06848   
06849   PUBLIC cmfe_Solver_GeometricTransformationRotationSet,cmfe_Solver_GeometricTransformationTranslationSet
06850 
06851   PUBLIC cmfe_Solver_LabelGet,cmfe_Solver_LabelSet
06852 
06853   PUBLIC cmfe_Solver_LibraryTypeGet,cmfe_Solver_LibraryTypeSet
06854 
06855   PUBLIC cmfe_Solver_LinearDirectTypeSet
06856 
06857   PUBLIC cmfe_Solver_MumpsSetIcntl,cmfe_Solver_MumpsSetCntl
06858 
06859   PUBLIC cmfe_Solver_LinearIterativeAbsoluteToleranceSet
06860 
06861   PUBLIC cmfe_Solver_LinearIterativeDivergenceToleranceSet
06862 
06863   PUBLIC cmfe_Solver_LinearIterativeGMRESRestartSet
06864 
06865   PUBLIC cmfe_Solver_LinearIterativeMaximumIterationsSet
06866 
06867   PUBLIC cmfe_Solver_LinearIterativePreconditionerTypeSet
06868 
06869   PUBLIC cmfe_Solver_LinearIterativeRelativeToleranceSet
06870 
06871   PUBLIC cmfe_Solver_LinearIterativeTypeSet
06872 
06873   PUBLIC cmfe_Solver_LinearTypeSet
06874 
06875   PUBLIC cmfe_Solver_NewtonAbsoluteToleranceSet
06876 
06877   PUBLIC cmfe_Solver_NewtonLineSearchMonitorOutputSet
06878 
06879   PUBLIC cmfe_Solver_NewtonJacobianCalculationTypeSet
06880 
06881   PUBLIC cmfe_Solver_NewtonLinearSolverGet
06882 
06883   PUBLIC cmfe_Solver_NewtonCellMLSolverGet
06884 
06885   PUBLIC cmfe_Solver_NewtonConvergenceTestTypeSet
06886 
06887   PUBLIC cmfe_Solver_NewtonLineSearchAlphaSet
06888 
06889   PUBLIC cmfe_Solver_NewtonLineSearchMaxStepSet
06890 
06891   PUBLIC cmfe_Solver_NewtonLineSearchStepTolSet
06892 
06893   PUBLIC cmfe_Solver_NewtonLineSearchTypeSet
06894 
06895   PUBLIC cmfe_Solver_NewtonMaximumFunctionEvaluationsSet
06896 
06897   PUBLIC cmfe_Solver_NewtonMaximumIterationsSet
06898 
06899   PUBLIC cmfe_Solver_NewtonRelativeToleranceSet
06900 
06901   PUBLIC cmfe_Solver_NewtonSolutionToleranceSet
06902 
06903   PUBLIC cmfe_Solver_NewtonTrustRegionDelta0Set
06904 
06905   PUBLIC cmfe_Solver_NewtonTrustRegionToleranceSet
06906 
06907   PUBLIC cmfe_Solver_NewtonTypeSet
06908 
06909   PUBLIC cmfe_Solver_QuasiNewtonAbsoluteToleranceSet
06910   
06911   PUBLIC cmfe_Solver_QuasiNewtonLineSearchMonitorOutputSet
06912   
06913   PUBLIC cmfe_Solver_QuasiNewtonJacobianCalculationTypeSet
06914   
06915   PUBLIC cmfe_Solver_QuasiNewtonLinearSolverGet
06916   
06917   PUBLIC cmfe_Solver_QuasiNewtonCellMLSolverGet
06918   
06919   PUBLIC cmfe_Solver_QuasiNewtonConvergenceTestTypeSet
06920   
06921   PUBLIC cmfe_Solver_QuasiNewtonLineSearchMaxStepSet
06922   
06923   PUBLIC cmfe_Solver_QuasiNewtonLineSearchStepTolSet
06924   
06925   PUBLIC cmfe_Solver_QuasiNewtonLineSearchTypeSet
06926   
06927   PUBLIC cmfe_Solver_QuasiNewtonMaximumFunctionEvaluationsSet
06928   
06929   PUBLIC cmfe_Solver_QuasiNewtonMaximumIterationsSet
06930   
06931   PUBLIC cmfe_Solver_QuasiNewtonRelativeToleranceSet
06932   
06933   PUBLIC cmfe_Solver_QuasiNewtonSolutionToleranceSet
06934   
06935   PUBLIC cmfe_Solver_QuasiNewtonTrustRegionDelta0Set
06936   
06937   PUBLIC cmfe_Solver_QuasiNewtonTrustRegionToleranceSet
06938   
06939   PUBLIC cmfe_Solver_QuasiNewtonRestartSet
06940   
06941   PUBLIC cmfe_Solver_QuasiNewtonRestartTypeSet
06942   
06943   PUBLIC cmfe_Solver_QuasiNewtonScaleTypeSet
06944   
06945   PUBLIC cmfe_Solver_QuasiNewtonSolveTypeSet
06946   
06947   PUBLIC cmfe_Solver_QuasiNewtonTypeSet
06948 
06949   PUBLIC cmfe_Solver_NonlinearTypeSet
06950 
06951   PUBLIC cmfe_Solver_OutputTypeSet
06952 
06953   PUBLIC cmfe_Solver_SolverEquationsGet
06954 
06955   PUBLIC cmfe_SolverEquations_EquationsSetAdd
06956 
06957   PUBLIC cmfe_SolverEquations_InterfaceConditionAdd
06958 
06959   PUBLIC cmfe_SolverEquations_SparsityTypeSet
06960 
06961   PUBLIC cmfe_SolverEquations_BoundaryConditionsCreateFinish,cmfe_SolverEquations_BoundaryConditionsCreateStart
06962 
06963   PUBLIC cmfe_SolverEquations_BoundaryConditionsGet
06964 
06965   PUBLIC cmfe_SolverEquations_NumberOfMatricesGet
06966 
06967   PUBLIC cmfe_SolverEquations_MatrixGet
06968 
06969   PUBLIC cmfe_SolverEquations_JacobianMatrixGet
06970 
06971   PUBLIC cmfe_SolverEquations_VectorGet
06972 
06973   PUBLIC cmfe_SolverEquations_ResidualVectorGet
06974 
06975   PUBLIC cmfe_SolverEquations_RhsVectorGet
06976 
06977   PUBLIC cmfe_BioelectricsFiniteElasticity_UpdateGeometricField
06978   
06979 !!==================================================================================================================================
06980 !!
06981 !! FieldML routines
06982 !!
06983 !!==================================================================================================================================
06984 
06986   TYPE cmfe_FieldMLIOType
06987     PRIVATE
06988 #ifdef USEFIELDML
06989     TYPE(FIELDML_IO_TYPE), POINTER :: fieldmlInfo
06990 #endif
06991   END TYPE cmfe_FieldMLIOType
06992 
06994   INTERFACE cmfe_FieldML_InputCreateMeshComponent
06995     MODULE PROCEDURE cmfe_FieldML_InputCreateMeshComponentObjVS
06996     MODULE PROCEDURE cmfe_FieldML_InputCreateMeshComponentNumberVS
06997     MODULE PROCEDURE cmfe_FieldML_InputCreateMeshComponentObjC
06998     MODULE PROCEDURE cmfe_FieldML_InputCreateMeshComponentNumberC
06999   END INTERFACE cmfe_FieldML_InputCreateMeshComponent
07000 
07002   INTERFACE cmfe_FieldML_InputFieldCreateStart
07003     MODULE PROCEDURE cmfe_FieldML_InputFieldCreateStartObjVS
07004     MODULE PROCEDURE cmfe_FieldML_InputFieldCreateStartNumberVS
07005     MODULE PROCEDURE cmfe_FieldML_InputFieldCreateStartObjC
07006     MODULE PROCEDURE cmfe_FieldML_InputFieldCreateStartNumberC
07007   END INTERFACE cmfe_FieldML_InputFieldCreateStart
07008 
07010   INTERFACE cmfe_FieldML_InputFieldParametersUpdate
07011     MODULE PROCEDURE cmfe_FieldML_InputFieldParametersUpdateObjVS
07012     MODULE PROCEDURE cmfe_FieldML_InputFieldParametersUpdateNumberVS
07013     MODULE PROCEDURE cmfe_FieldML_InputFieldParametersUpdateObjC
07014     MODULE PROCEDURE cmfe_FieldML_InputFieldParametersUpdateNumberC
07015   END INTERFACE cmfe_FieldML_InputFieldParametersUpdate
07016 
07018   INTERFACE cmfe_FieldML_InputBasisCreateStart
07019     MODULE PROCEDURE cmfe_FieldML_InputBasisCreateStartObjVS
07020     MODULE PROCEDURE cmfe_FieldML_InputBasisCreateStartNumberVS
07021     MODULE PROCEDURE cmfe_FieldML_InputBasisCreateStartObjC
07022     MODULE PROCEDURE cmfe_FieldML_InputBasisCreateStartNumberC
07023   END INTERFACE cmfe_FieldML_InputBasisCreateStart
07024 
07026   INTERFACE cmfe_FieldML_InputNodesCreateStart
07027     MODULE PROCEDURE cmfe_FieldML_InputNodesCreateStartObjVS
07028     MODULE PROCEDURE cmfe_FieldML_InputNodesCreateStartNumberVS
07029     MODULE PROCEDURE cmfe_FieldML_InputNodesCreateStartObjC
07030     MODULE PROCEDURE cmfe_FieldML_InputNodesCreateStartNumberC
07031   END INTERFACE cmfe_FieldML_InputNodesCreateStart
07032 
07034   INTERFACE cmfe_FieldML_InputCoordinateSystemCreateStart
07035     MODULE PROCEDURE cmfe_FieldML_InputCoordinateSystemCreateStartObjVS
07036     MODULE PROCEDURE cmfe_FieldML_InputCoordinateSystemCreateStartNumberVS
07037     MODULE PROCEDURE cmfe_FieldML_InputCoordinateSystemCreateStartObjC
07038     MODULE PROCEDURE cmfe_FieldML_InputCoordinateSystemCreateStartNumberC
07039   END INTERFACE cmfe_FieldML_InputCoordinateSystemCreateStart
07040 
07042   INTERFACE cmfe_FieldML_InputMeshCreateStart
07043     MODULE PROCEDURE cmfe_FieldML_InputMeshCreateStartObjVS
07044     MODULE PROCEDURE cmfe_FieldML_InputMeshCreateStartNumberVS
07045     MODULE PROCEDURE cmfe_FieldML_InputMeshCreateStartObjC
07046     MODULE PROCEDURE cmfe_FieldML_InputMeshCreateStartNumberC
07047   END INTERFACE cmfe_FieldML_InputMeshCreateStart
07048 
07050   INTERFACE cmfe_FieldML_InputCreateFromFile
07051     MODULE PROCEDURE cmfe_FieldML_InputCreateFromFileVS
07052     MODULE PROCEDURE cmfe_FieldML_InputCreateFromFileC
07053   END INTERFACE cmfe_FieldML_InputCreateFromFile
07054 
07055   PUBLIC :: cmfe_FieldML_InputCreateFromFile,cmfe_FieldML_InputMeshCreateStart, &
07056     & cmfe_FieldML_InputCoordinateSystemCreateStart,cmfe_FieldML_InputCreateMeshComponent, &
07057     & cmfe_FieldML_InputFieldCreateStart,cmfe_FieldML_InputBasisCreateStart,cmfe_FieldML_InputNodesCreateStart, &
07058     & cmfe_FieldML_InputFieldParametersUpdate
07059 
07060   PUBLIC :: cmfe_FieldMLIO_Finalise,cmfe_FieldMLIO_Initialise,cmfe_FieldMLIO_GetSession
07061 
07063   INTERFACE cmfe_FieldML_OutputAddField
07064     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldNoTypeObjVS
07065     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldNoTypeNumberVS
07066     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldWithTypeObjVS
07067     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldWithTypeNumberVS
07068     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldNoTypeObjC
07069     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldNoTypeNumberC
07070     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldWithTypeObjC
07071     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldWithTypeNumberC
07072   END INTERFACE cmfe_FieldML_OutputAddField
07073 
07075   INTERFACE cmfe_FieldML_OutputCreate
07076     MODULE PROCEDURE cmfe_FieldML_OutputCreateObjVS
07077     MODULE PROCEDURE cmfe_FieldML_OutputCreateNumberVS
07078     MODULE PROCEDURE cmfe_FieldML_OutputCreateObjC
07079     MODULE PROCEDURE cmfe_FieldML_OutputCreateNumberC
07080   END INTERFACE cmfe_FieldML_OutputCreate
07081 
07083   INTERFACE cmfe_FieldML_OutputAddFieldComponents
07084     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldComponentsObjVS
07085     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldComponentsNumberVS
07086     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldComponentsObjC
07087     MODULE PROCEDURE cmfe_FieldML_OutputAddFieldComponentsNumberC
07088   END INTERFACE cmfe_FieldML_OutputAddFieldComponents
07089 
07091   INTERFACE cmfe_FieldML_OutputWrite
07092     MODULE PROCEDURE cmfe_FieldML_OutputWriteVS
07093     MODULE PROCEDURE cmfe_FieldML_OutputWriteC
07094   END INTERFACE cmfe_FieldML_OutputWrite
07095 
07096   PUBLIC :: cmfe_FieldMLIOType
07097 
07098   PUBLIC :: cmfe_FieldML_OutputWrite,cmfe_FieldML_OutputAddField,cmfe_FieldML_OutputCreate, &
07099     & cmfe_FieldML_OutputAddFieldComponents, &
07100     & cmfe_FieldML_OutputAddImport
07101 
07102 !!==================================================================================================================================
07103 !!
07104 !! GENERAL_ROUTINES
07105 !!
07106 !!==================================================================================================================================
07107 
07109   INTERFACE cmfe_UserNumberGet
07110     MODULE PROCEDURE cmfe_UserNumberGetRegion
07111     MODULE PROCEDURE cmfe_UserNumberGetMesh
07112     MODULE PROCEDURE cmfe_UserNumberGetBasis
07113   END INTERFACE cmfe_UserNumberGet
07114 
07115   PUBLIC cmfe_UserNumberGet
07116 
07117 !!
07118 !!==================================================================================================================================
07119 !!
07120 
07121 CONTAINS
07122 
07123   !
07124   !================================================================================================================================
07125   !
07126 
07128   SUBROUTINE cmfe_Finalise(err)
07129 
07130     !Argument variables
07131     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07132     !Local variables
07133 
07134     CALL cmfe_Finalise_(err,error,*999)
07135 
07136 #ifdef TAUPROF
07137     CALL TAU_STATIC_PHASE_STOP('OpenCMISS World Phase')
07138 #endif
07139 
07140     RETURN
07141 999 CALL cmfe_HandleError(err,error)
07142     RETURN
07143 
07144   END SUBROUTINE cmfe_Finalise
07145 
07146   !
07147   !================================================================================================================================
07148   !
07149 
07151   SUBROUTINE cmfe_InitialiseNumber(worldCoordinateSystemUserNumber,worldRegionUserNumber,err)
07152 
07153     !Argument variables
07154     INTEGER(INTG), INTENT(OUT) :: worldCoordinateSystemUserNumber !<On return, the world coordinate system user number.
07155     INTEGER(INTG), INTENT(OUT) :: worldRegionUserNumber !<On return, the world region user number.
07156     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07157     !Local variables
07158     TYPE(COORDINATE_SYSTEM_TYPE), POINTER :: WORLD_COORDINATE_SYSTEM
07159     TYPE(REGION_TYPE), POINTER :: WORLD_REGION
07160 
07161 #ifdef TAUPROF
07162     CALL TAU_STATIC_PHASE_START('OpenCMISS World Phase')
07163 #endif
07164 
07165     NULLIFY(WORLD_COORDINATE_SYSTEM)
07166     NULLIFY(WORLD_REGION)
07167     CALL cmfe_Initialise_(WORLD_REGION,err,error,*999)
07168     worldCoordinateSystemUserNumber=0
07169     worldRegionUserNumber=WORLD_REGION%USER_NUMBER
07170 
07171     RETURN
07172 999 CALL cmfe_HandleError(err,error)
07173     RETURN
07174 
07175   END SUBROUTINE cmfe_InitialiseNumber
07176 
07177   !
07178   !================================================================================================================================
07179   !
07180 
07182   SUBROUTINE cmfe_InitialiseObj(worldCoordinateSystem,worldRegion,err)
07183 
07184     !Argument variables
07185     TYPE(cmfe_CoordinateSystemType), INTENT(INOUT) :: worldCoordinateSystem !<On return, the world coordinate system.
07186     TYPE(cmfe_RegionType), INTENT(INOUT) :: worldRegion !<On return, the world region.
07187     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07188     !Local variables
07189 
07190 #ifdef TAUPROF
07191     CALL TAU_STATIC_PHASE_START('OpenCMISS World Phase')
07192 #endif
07193 
07194     CALL cmfe_CoordinateSystem_Initialise(worldCoordinateSystem,err)
07195     CALL cmfe_Region_Initialise(worldRegion,err)
07196     CALL cmfe_Initialise_(worldRegion%region,err,error,*999)
07197 
07198     RETURN
07199 999 CALL cmfe_HandleError(err,error)
07200     RETURN
07201 
07202   END SUBROUTINE cmfe_InitialiseObj
07203 
07204   !
07205   !================================================================================================================================
07206   !
07207 
07209   SUBROUTINE cmfe_BasisTypesCopy(bases,basesSize,basesPtr,err)
07210 
07211     !Argument variables
07212     TYPE(cmfe_BasisType), INTENT(INOUT) :: bases(:) !<On return, the array of cmfe_BasisTypes
07213     INTEGER(C_INT), INTENT(IN) :: basesSize !<The length of the C array of pointers to cmfe_BasisTypes
07214     TYPE(C_PTR), INTENT(IN) :: basesPtr !<The pointer to the first cmfe_BasisType pointer
07215     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07216     !Local variables
07217     INTEGER(INTG) :: basis_idx
07218     TYPE(C_PTR), POINTER :: BasesCPtrs(:)
07219     TYPE(cmfe_BasisType), POINTER :: Basis
07220 
07221     ENTERS("cmfe_BasisTypesCopy",err,error,*999)
07222 
07223     IF(C_ASSOCIATED(basesPtr)) THEN
07224       CALL C_F_POINTER(basesPtr,BasesCPtrs,[basesSize])
07225       IF(ASSOCIATED(BasesCPtrs)) THEN
07226         DO basis_idx=1,basesSize
07227           CALL C_F_POINTER(BasesCPtrs(basis_idx),Basis)
07228           IF(ASSOCIATED(BasesCPtrs)) THEN
07229             bases(basis_idx)%basis => Basis%basis
07230           ELSE
07231             CALL FlagError("error converting C pointer.",ERR,error,*999)
07232           END IF
07233         END DO
07234       ELSE
07235         CALL FlagError("error converting C pointer.",ERR,error,*999)
07236       END IF
07237     ELSE
07238       CALL FlagError("bases C pointer is not associated.",ERR,error,*999)
07239     END IF
07240 
07241     EXITS("cmfe_BasisTypesCopy")
07242     RETURN
07243 999 ERRORSEXITS("cmfe_BasisTypesCopy",err,error)
07244     CALL cmfe_HandleError(err,error)
07245     RETURN
07246 
07247   END SUBROUTINE cmfe_BasisTypesCopy
07248 
07249   !
07250   !================================================================================================================================
07251   !
07252 
07254   SUBROUTINE cmfe_Basis_Finalise(cmfe_Basis,err)
07255 
07256     !Argument variables
07257     TYPE(cmfe_BasisType), INTENT(OUT) :: cmfe_Basis !<The cmfe_BasisType object to finalise.
07258     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07259     !Local variables
07260 
07261     ENTERS("cmfe_Basis_Finalise",err,error,*999)
07262 
07263     IF(ASSOCIATED(cmfe_Basis%basis)) CALL Basis_Destroy(cmfe_Basis%basis,err,error,*999)
07264 
07265     EXITS("cmfe_Basis_Finalise")
07266     RETURN
07267 999 ERRORSEXITS("cmfe_Basis_Finalise",err,error)
07268     CALL cmfe_HandleError(err,error)
07269     RETURN
07270 
07271   END SUBROUTINE cmfe_Basis_Finalise
07272 
07273   !
07274   !================================================================================================================================
07275   !
07276 
07278   SUBROUTINE cmfe_Basis_Initialise(cmfe_Basis,err)
07279 
07280     !Argument variables
07281     TYPE(cmfe_BasisType), INTENT(OUT) :: cmfe_Basis !<The cmfe_BasisType object to initialise.
07282     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07283     !Local variables
07284 
07285     ENTERS("cmfe_Basis_Initialise",err,error,*999)
07286 
07287     NULLIFY(cmfe_Basis%basis)
07288 
07289     EXITS("cmfe_Basis_Initialise")
07290     RETURN
07291 999 ERRORSEXITS("cmfe_Basis_Initialise",err,error)
07292     CALL cmfe_HandleError(err,error)
07293     RETURN
07294 
07295   END SUBROUTINE cmfe_Basis_Initialise
07296 
07297   !
07298   !================================================================================================================================
07299   !
07300 
07302   SUBROUTINE cmfe_BoundaryConditions_Finalise(cmfe_BoundaryConditions,err)
07303 
07304     !Argument variables
07305     TYPE(cmfe_BoundaryConditionsType), INTENT(OUT) :: cmfe_BoundaryConditions !<The cmfe_BoundaryConditionsType object to finalise.
07306     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07307     !Local variables
07308 
07309     ENTERS("cmfe_BoundaryConditions_Finalise",err,error,*999)
07310 
07311     IF(ASSOCIATED(cmfe_BoundaryConditions%boundaryConditions))  &
07312       & CALL BOUNDARY_CONDITIONS_DESTROY(cmfe_BoundaryConditions%boundaryConditions,err,error,*999)
07313 
07314     EXITS("cmfe_BoundaryConditions_Finalise")
07315     RETURN
07316 999 ERRORSEXITS("cmfe_BoundaryConditions_Finalise",err,error)
07317     CALL cmfe_HandleError(err,error)
07318     RETURN
07319 
07320   END SUBROUTINE cmfe_BoundaryConditions_Finalise
07321   !
07322   !================================================================================================================================
07323   !
07324 
07326   SUBROUTINE cmfe_BoundaryConditions_Initialise(cmfe_BoundaryConditions,err)
07327 
07328     !Argument variables
07329     TYPE(cmfe_BoundaryConditionsType), INTENT(OUT) :: cmfe_BoundaryConditions !<The cmfe_BoundaryConditionsType object to initialise.
07330     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07331     !Local variables
07332 
07333     ENTERS("cmfe_BoundaryConditions_Initialise",err,error,*999)
07334 
07335     NULLIFY(cmfe_BoundaryConditions%boundaryConditions)
07336 
07337     EXITS("cmfe_BoundaryConditions_Initialise")
07338     RETURN
07339 999 ERRORSEXITS("cmfe_BoundaryConditions_Initialise",err,error)
07340     CALL cmfe_HandleError(err,error)
07341     RETURN
07342 
07343   END SUBROUTINE cmfe_BoundaryConditions_Initialise
07344 
07345   !
07346   !================================================================================================================================
07347   !
07348 
07350   SUBROUTINE cmfe_CellML_Finalise(cmfe_CellML,err)
07351 
07352     !Argument variables
07353     TYPE(cmfe_CellMLType), INTENT(OUT) :: cmfe_CellML !<The cmfe_CellMLType object to finalise.
07354     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07355     !Local variables
07356 
07357     ENTERS("cmfe_CellML_Finalise",err,error,*999)
07358 
07359     IF(ASSOCIATED(cmfe_CellML%cellml)) CALL Cellml_Destroy(cmfe_CellML%cellml,err,error,*999)
07360 
07361     EXITS("cmfe_CellML_Finalise")
07362     RETURN
07363 999 ERRORSEXITS("cmfe_CellML_Finalise",err,error)
07364     CALL cmfe_HandleError(err,error)
07365     RETURN
07366 
07367   END SUBROUTINE cmfe_CellML_Finalise
07368   !
07369   !================================================================================================================================
07370   !
07371 
07373   SUBROUTINE cmfe_CellML_Initialise(cmfe_CellML,err)
07374 
07375     !Argument variables
07376     TYPE(cmfe_CellMLType), INTENT(OUT) :: cmfe_CellML !<The cmfe_CellMLType object to initialise.
07377     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07378     !Local variables
07379 
07380     ENTERS("cmfe_CellML_Initialise",err,error,*999)
07381 
07382     NULLIFY(cmfe_CellML%cellml)
07383 
07384     EXITS("cmfe_CellML_Initialise")
07385     RETURN
07386 999 ERRORSEXITS("cmfe_CellML_Initialise",err,error)
07387     CALL cmfe_HandleError(err,error)
07388     RETURN
07389 
07390   END SUBROUTINE cmfe_CellML_Initialise
07391 
07392   !
07393   !================================================================================================================================
07394   !
07395 
07397   SUBROUTINE cmfe_CellMLEquations_Finalise(cmfe_CellMLEquations,err)
07398 
07399     !Argument variables
07400     TYPE(cmfe_CellMLEquationsType), INTENT(OUT) :: cmfe_CellMLEquations !<The cmfe_CellMLEquationsType object to finalise.
07401     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07402     !Local variables
07403 
07404     ENTERS("cmfe_CellMLEquations_Finalise",err,error,*999)
07405 
07406     IF(ASSOCIATED(cmfe_CellMLEquations%cellmlEquations))  &
07407       & CALL CELLML_EQUATIONS_DESTROY(cmfe_CellMLEquations%cellmlEquations,err,error,*999)
07408 
07409     EXITS("cmfe_CellMLEquations_Finalise")
07410     RETURN
07411 999 ERRORSEXITS("cmfe_CellMLEquations_Finalise",err,error)
07412     CALL cmfe_HandleError(err,error)
07413     RETURN
07414 
07415   END SUBROUTINE cmfe_CellMLEquations_Finalise
07416 
07417   !
07418   !================================================================================================================================
07419   !
07420 
07422   SUBROUTINE cmfe_CellMLEquations_Initialise(cmfe_CellMLEquations,err)
07423 
07424     !Argument variables
07425     TYPE(cmfe_CellMLEquationsType), INTENT(OUT) :: cmfe_CellMLEquations !<The cmfe_CellMLEquationsType object to initialise.
07426     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07427     !Local variables
07428 
07429     ENTERS("cmfe_CellMLEquations_Initialise",err,error,*999)
07430 
07431     NULLIFY(cmfe_CellMLEquations%cellmlEquations)
07432 
07433     EXITS("cmfe_CellMLEquations_Initialise")
07434     RETURN
07435 999 ERRORSEXITS("cmfe_CellMLEquations_Initialise",err,error)
07436     CALL cmfe_HandleError(err,error)
07437     RETURN
07438 
07439   END SUBROUTINE cmfe_CellMLEquations_Initialise
07440 
07441   !
07442   !================================================================================================================================
07443   !
07444 
07446   SUBROUTINE cmfe_ComputationalWorkGroup_Initialise(cmfe_ComputationalWorkGroup,err)
07447 
07448     !Argument variables
07449     TYPE(cmfe_ComputationalWorkGroupType), INTENT(OUT) :: cmfe_ComputationalWorkGroup !<The cmfe_ComputationalWorkGroupType object to initialise.
07450     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07451     !Local variables
07452 
07453     ENTERS("cmfe_ComputationalWorkGroup_Initialise",err,error,*999)
07454 
07455     NULLIFY(cmfe_ComputationalWorkGroup%computationalWorkGroup)
07456 
07457     EXITS("cmfe_ComputationalWorkGroup_Initialise")
07458     RETURN
07459 999 ERRORSEXITS("cmfe_ComputationalWorkGroup_Initialise",err,error)
07460     CALL cmfe_HandleError(err,error)
07461     RETURN
07462 
07463   END SUBROUTINE cmfe_ComputationalWorkGroup_Initialise
07464 
07465   !
07466   !================================================================================================================================
07467   !
07468 
07470   SUBROUTINE cmfe_ControlLoop_Finalise(cmfe_ControlLoop,err)
07471 
07472     !Argument variables
07473     TYPE(cmfe_ControlLoopType), INTENT(OUT) :: cmfe_ControlLoop !<The cmfe_ControlLoopType object to finalise.
07474     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07475     !Local variables
07476 
07477     ENTERS("cmfe_ControlLoop_Finalise",err,error,*999)
07478 
07479     IF(ASSOCIATED(cmfe_ControlLoop%controlLoop))  &
07480       & CALL CONTROL_LOOP_DESTROY(cmfe_ControlLoop%controlLoop,err,error,*999)
07481 
07482     EXITS("cmfe_ControlLoop_Finalise")
07483     RETURN
07484 999 ERRORSEXITS("cmfe_ControlLoop_Finalise",err,error)
07485     CALL cmfe_HandleError(err,error)
07486     RETURN
07487 
07488   END SUBROUTINE cmfe_ControlLoop_Finalise
07489   !
07490   !================================================================================================================================
07491   !
07492 
07494   SUBROUTINE cmfe_ControlLoop_Initialise(cmfe_ControlLoop,err)
07495 
07496     !Argument variables
07497     TYPE(cmfe_ControlLoopType), INTENT(OUT) :: cmfe_ControlLoop !<The cmfe_ControlLoopType object to initialise.
07498     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07499     !Local variables
07500 
07501     ENTERS("cmfe_ControlLoop_Initialise",err,error,*999)
07502 
07503     NULLIFY(cmfe_ControlLoop%controlLoop)
07504 
07505     EXITS("cmfe_ControlLoop_Initialise")
07506     RETURN
07507 999 ERRORSEXITS("cmfe_ControlLoop_Initialise",err,error)
07508     CALL cmfe_HandleError(err,error)
07509     RETURN
07510 
07511   END SUBROUTINE cmfe_ControlLoop_Initialise
07512 
07513   !
07514   !================================================================================================================================
07515   !
07516 
07518   SUBROUTINE cmfe_CoordinateSystem_Finalise(cmfe_CoordinateSystem,err)
07519 
07520     !Argument variables
07521     TYPE(cmfe_CoordinateSystemType), INTENT(OUT) :: cmfe_CoordinateSystem !<The cmfe_CoordinateSystemType object to finalise.
07522     INTEGER(INTG), INTENT(OUT) :: err !<The error code.
07523     !Local variables
07524 
07525     ENTERS("cmfe_CoordinateSystem_Finalise",err,error,*999)
07526 
07527     IF(ASSOCIATED(cmfe_CoordinateSystem%coordinateSystem))  &
07528       & CALL COORDINATE_SYSTEM_DESTROY(cmfe_CoordinateSystem%coordinateSystem,err,error,*999)
07529 
07530     EXITS("cmfe_CoordinateSystem_Finalise")
07531     RETURN
07532 999 ERRORSEXITS("cmfe_CoordinateSystem_Finalise",err,error)
07533     CALL cmfe_HandleError(err,error)
07534     RETURN
07535 
07536   END SUBROUTINE cmfe_CoordinateSystem_Finalise
07537   !
07538   !================================================================================================================================
07539   !
07540 
07542   SUBROUTINE cmfe_CoordinateSystem_Initialise(cmfe_CoordinateSystem,err)
07543 
07544     !Argument variables
07545     TYPE(cmfe_CoordinateSystemType),