w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 21:02:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

fix up file names written by msk144sim

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6732 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-06-05 17:58:04 +00:00
parent 6c50362ccc
commit ee40202a1c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/msk144sim.f90
View File

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