diff --git a/src/fortran/cellml_split_reaction_diffusion_equation.F90 b/src/fortran/cellml_split_reaction_diffusion_equation.F90
index 5999e6e..8b3f0b3 100644
--- a/src/fortran/cellml_split_reaction_diffusion_equation.F90
+++ b/src/fortran/cellml_split_reaction_diffusion_equation.F90
@@ -110,8 +110,8 @@ PROGRAM CELLML_SPLIT_REACTION_DIFFUSION_EQUATION
   CALL cmfe_Initialise(WorldCoordinateSystem,WorldRegion,Err)
   CALL cmfe_ErrorHandlingModeSet(CMFE_ERRORS_TRAP_ERROR,Err)
   !Get the computational nodes information
-  CALL cmfe_ComputationalNumberOfNodesGet(NumberOfComputationalNodes,Err)
-  CALL cmfe_ComputationalNodeNumberGet(ComputationalNodeNumber,Err)
+  CALL cmfe_ComputationalNumberOfNodesGet(numberOfComputationalNodes,err)
+  CALL cmfe_ComputationalNodeNumberGet(computationalNodeNumber,err)
 
   NUMBER_GLOBAL_X_ELEMENTS=10
   NUMBER_OF_DOMAINS=NumberOfComputationalNodes