From e3967c90b1057efc08cad9eb32569a7abc7a42b0 Mon Sep 17 00:00:00 2001 From: Chris Bradley Date: Tue, 10 Apr 2018 14:28:39 +1200 Subject: [PATCH] Update for new computation environment routines. --- src/fortran/active_contraction.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/fortran/active_contraction.F90 b/src/fortran/active_contraction.F90 index ccd09ae..d381f85 100644 --- a/src/fortran/active_contraction.F90 +++ b/src/fortran/active_contraction.F90 @@ -71,6 +71,7 @@ PROGRAM ActiveContractionExample !CMISS variables TYPE(cmfe_BasisType) :: QuadraticBasis, LinearBasis TYPE(cmfe_BoundaryConditionsType) :: BoundaryConditions + TYPE(cmfe_ComputationEnvironmentType) :: computationEnvironment TYPE(cmfe_CoordinateSystemType) :: CoordinateSystem, WorldCoordinateSystem TYPE(cmfe_MeshType) :: Mesh TYPE(cmfe_DecompositionType) :: Decomposition @@ -98,8 +99,9 @@ PROGRAM ActiveContractionExample !CALL cmfe_DiagnosticsSetOn(CMFE_FROM_DIAG_TYPE,[1,2,3,4,5],"Diagnostics",["PROBLEM_RESIDUAL_EVALUATE"],Err) !Get the number of computational nodes and this computational node number - CALL cmfe_ComputationalNumberOfNodesGet(NumberOfComputationalNodes,Err) - CALL cmfe_ComputationalNodeNumberGet(ComputationalNodeNumber,Err) + CALL cmfe_ComputationEnvironment_Initialise(computationEnvironment,Err) + CALL cmfe_ComputationEnvironment_NumberOfWorldNodesGet(computationEnvironment,numberOfComputationalNodes,Err) + CALL cmfe_ComputationEnvironment_WorldNodeNumberGet(computationEnvironment,computationalNodeNumber,Err) ! open(unit = 2, file = "./input/hollowcylq-221.in")