diff --git a/src/problem.F90 b/src/problem.F90
index 3653184..51f9f7d 100644
--- a/src/problem.F90
+++ b/src/problem.F90
@@ -65,32 +65,32 @@ module problem
 !
 !===============================================================================
 !
-  subroutine init_problem(pblock)
+  subroutine init_problem(pdata)
 
     use blocks, only : block_data
     use config, only : problem
 
 ! input arguments
 !
-    type(block_data), pointer, intent(inout) :: pblock
+    type(block_data), pointer, intent(inout) :: pdata
 !
 !-------------------------------------------------------------------------------
 !
     select case(trim(problem))
     case("blast")
-      call init_blast(pblock)
+      call init_blast(pdata)
     case("implosion")
-      call init_implosion(pblock)
+      call init_implosion(pdata)
     case("binaries")
-      call init_binaries(pblock)
+      call init_binaries(pdata)
     case("reconnection")
-      call init_reconnection(pblock)
+      call init_reconnection(pdata)
     case("multi_current_sheet")
-      call init_multi_current_sheet(pblock)
+      call init_multi_current_sheet(pdata)
     case("turbulence")
-      call init_turbulence(pblock)
+      call init_turbulence(pdata)
     case("orszag_tang")
-      call init_orszag_tang(pblock)
+      call init_orszag_tang(pdata)
     end select
 
 !-------------------------------------------------------------------------------