Skip to content
Snippets Groups Projects
Commit 9b9910b5 authored by Dave Whipp's avatar Dave Whipp
Browse files

Fixed typo

parent c470b89d
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 5 additions and 2 deletions
src/read_input_file.f90
+ 5
− 2
View file @ 9b9910b5
......@@ -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=' '
!==============================================================================
!==============================================================================
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment