From ee40202a1c96b77b086ca52bc5bc45552384ebe6 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sun, 5 Jun 2016 17:58:04 +0000
Subject: [PATCH] fix up file names written by msk144sim

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6732 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/msk144sim.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/msk144sim.f90 b/lib/msk144sim.f90
index 3aeb1b942..62a353959 100644
--- a/lib/msk144sim.f90
+++ b/lib/msk144sim.f90
@@ -66,8 +66,8 @@ program msk144sim
 
   do ifile=1,nfiles                  !Loop over requested number of files
      write(fname,1002) ifile         !Output filename
-1002 format('000000_',i4.4)
-     open(10,file=fname(1:11)//'.wav',access='stream',status='unknown')
+1002 format('000000_',i6.6)
+     open(10,file=fname(1:13)//'.wav',access='stream',status='unknown')
 
      fac=sqrt(6000.0/2500.0)
      j=-1