From 9b9910b5ad69b23d4c459353768e8ddb1681e71a Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Mon, 16 May 2011 17:11:43 +0000
Subject: [PATCH] Fixed typo

---
 src/read_input_file.f90 | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/read_input_file.f90 b/src/read_input_file.f90
index 5a656e6a..9ae07c63 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=' '
+
 !==============================================================================
 !==============================================================================
 
-- 
GitLab