File tree Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Original file line number Diff line number Diff line change @@ -60,6 +60,7 @@ PROGRAM NONLINEAR_POISSON_EQUATION
6060
6161 TYPE (cmfe_BasisType) :: Basis
6262 TYPE (cmfe_BoundaryConditionsType) :: BoundaryConditions
63+ TYPE (cmfe_ComputationEnvironmentType) :: computationEnvironment
6364 TYPE (cmfe_CoordinateSystemType) :: CoordinateSystem,WorldCoordinateSystem
6465 TYPE (cmfe_DecompositionType) :: Decomposition
6566 TYPE (cmfe_EquationsType) :: Equations
@@ -142,8 +143,9 @@ PROGRAM NONLINEAR_POISSON_EQUATION
142143 CALL cmfe_OutputSetOn(" nonlinear_poisson_equation" ,Err)
143144
144145 ! Get the computational nodes information
145- CALL cmfe_ComputationalNumberOfNodesGet(NumberOfComputationalNodes,Err)
146- CALL cmfe_ComputationalNodeNumberGet(ComputationalNodeNumber,Err)
146+ CALL cmfe_ComputationEnvironment_Initialise(computationEnvironment,err)
147+ CALL cmfe_ComputationEnvironment_NumberOfWorldNodesGet(computationEnvironment,numberOfComputationalNodes,err)
148+ CALL cmfe_ComputationEnvironment_WorldNodeNumberGet(computationEnvironment,computationalNodeNumber,err)
147149
148150 !- ----------------------------------------------------------------------------------------------------------
149151 ! COORDINATE SYSTEM
You can’t perform that action at this time.
0 commit comments