From e4de1a65be87f0709f3e3d4c9d95c2015aa57e9d Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 5 May 2021 11:21:25 -0400 Subject: [PATCH] Use hhmm rather than hhmmss for generated mapsim file names. --- map65/libm65/mapsim.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/map65/libm65/mapsim.f90 b/map65/libm65/mapsim.f90 index 6b76331fa..f47708322 100644 --- a/map65/libm65/mapsim.f90 +++ b/map65/libm65/mapsim.f90 @@ -10,7 +10,7 @@ program mapsim complex z,zx,zy real*8 fcenter,fsample,samfac,f,dt,twopi,phi,dphi logical bq65 - character msg0*22,message*22,msgsent*22,arg*8,fname*13,mode*2 + character msg0*22,message*22,msgsent*22,arg*8,fname*11,mode*2 character*16 msg_list(60) data ilist/0/,msg_list/ & 'W1AAA K2BBB EM00','W2CCC K3DDD EM01','W3EEE K4FFF EM02', & @@ -94,7 +94,7 @@ program mapsim nmin=ifile-1 if(mode(2:2).eq.' ') nmin=2*nmin write(fname,1002) nmin !Create the output filenames -1002 format('000000_',i4.4,'00') +1002 format('000000_',i4.4) open(10,file=fname//'.iq',access='stream',status='unknown') open(11,file=fname//'.tf2',access='stream',status='unknown')