From c6b7310c4a6d9fd1fa5888c918542acc24fa5692 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Thu, 18 Jun 2009 16:01:28 +0000
Subject: [PATCH] typo

---
 scanfile.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scanfile.f90 b/scanfile.f90
index 77bf477a..941fd4b4 100644
--- a/scanfile.f90
+++ b/scanfile.f90
@@ -51,7 +51,7 @@ call mpi_comm_rank (mpi_comm_world,iproc,ierr)
  
 ires=0
 open (7,file=fnme(1:len_trim(fnme)),status='old',iostat=ios) 
-if (ios/=0) write(*,*) 'pb opening <',fname,'> in iscanfile'
+if (ios/=0) write(*,*) 'pb opening <',fnme(1:len_trim(fnme)),'> in iscanfile'
 
 111 continue
 
-- 
GitLab