diff --git a/src/read_input_file.f90 b/src/read_input_file.f90
index 5a656e6ab8f3c7fe752fa7050a40b0459abd02ed..9ae07c635fd695f51f05118a44db0f251988ae55 100644
--- a/src/read_input_file.f90
+++ b/src/read_input_file.f90
@@ -137,8 +137,9 @@ type (face),dimension(6) :: cube_faces
 !------------------------------------------------------------------------------|
 
 integer ires,i,il,ierr,iproc,nproc,j
-character(len=3) :: cm
-character(len=1) :: answer
+character(len=72) :: shift
+character(len=3)  :: cm
+character(len=1)  :: answer
 integer iran,doru
 integer flag
 
@@ -148,6 +149,8 @@ integer flag
 call mpi_comm_size (mpi_comm_world,nproc,ierr)
 call mpi_comm_rank (mpi_comm_world,iproc,ierr)
 
+shift=' '
+
 !==============================================================================
 !==============================================================================