2024-01-04 16:51:02 -05:00
|
|
|
subroutine save_qm(fname,prog_id,mycall,mygrid,dd,ntx30a,ntx30b,fcenter, &
|
|
|
|
|
nutc,ndop00,ndop58)
|
2024-01-03 16:17:57 -05:00
|
|
|
|
|
|
|
|
parameter(NMAX=60*96000)
|
2024-01-04 10:05:46 -05:00
|
|
|
character*(*) fname,prog_id,mycall,mygrid
|
|
|
|
|
character prog_id_24*24,mycall_12*12,mygrid_6*6
|
2024-01-03 16:17:57 -05:00
|
|
|
real*4 dd(2,NMAX)
|
2024-01-04 16:03:44 -05:00
|
|
|
real*8 fcenter
|
2024-01-05 07:01:55 -05:00
|
|
|
integer nxtra(15) !For possible future additions
|
2024-01-03 16:17:57 -05:00
|
|
|
integer*1 id1(2,NMAX)
|
2024-01-04 10:05:46 -05:00
|
|
|
|
2024-01-03 16:17:57 -05:00
|
|
|
ia=1
|
|
|
|
|
ib=NMAX
|
|
|
|
|
if(ntx30a.gt.5) ia=NMAX/2+1
|
|
|
|
|
if(ntx30b.gt.5) ib=NMAX/2
|
|
|
|
|
|
|
|
|
|
sq=0.
|
|
|
|
|
do i=ia,ib
|
|
|
|
|
x=dd(1,i)
|
2024-01-03 17:36:46 -05:00
|
|
|
y=dd(2,i)
|
2024-01-03 16:17:57 -05:00
|
|
|
sq=sq + x*x + y*y
|
|
|
|
|
enddo
|
2024-01-03 17:36:46 -05:00
|
|
|
nsum=2*(ib-ia+1)
|
2024-01-03 16:17:57 -05:00
|
|
|
rms=sqrt(sq/nsum)
|
|
|
|
|
|
2024-01-04 10:05:46 -05:00
|
|
|
nbad=0
|
|
|
|
|
dmax=0.
|
2024-01-05 07:01:55 -05:00
|
|
|
fac0=10.0/rms
|
2024-01-04 10:05:46 -05:00
|
|
|
do i=ia,ib
|
2024-01-05 07:01:55 -05:00
|
|
|
x=fac0*dd(1,i)
|
|
|
|
|
y=fac0*dd(2,i)
|
2024-01-04 10:05:46 -05:00
|
|
|
ax=abs(x)
|
|
|
|
|
ay=abs(y)
|
|
|
|
|
dmax=max(dmax,ax,ay)
|
|
|
|
|
if(ax.gt.127.0) then
|
|
|
|
|
x=0.
|
|
|
|
|
nbad=nbad+1
|
|
|
|
|
endif
|
|
|
|
|
if(ay.gt.127.0) then
|
|
|
|
|
y=0.
|
|
|
|
|
nbad=nbad+1
|
|
|
|
|
endif
|
|
|
|
|
id1(1,i)=nint(x)
|
|
|
|
|
id1(2,i)=nint(y)
|
|
|
|
|
enddo
|
|
|
|
|
if(ia.gt.30*96000) id1(1:2,1:ia-1)=0
|
|
|
|
|
if(ib.eq.30*96000) id1(1:2,ib+1:60*96000)=0
|
|
|
|
|
|
2024-01-03 17:36:46 -05:00
|
|
|
jz=len(fname)
|
|
|
|
|
fname(jz-1:jz)="qm"
|
2024-01-04 16:03:44 -05:00
|
|
|
! write(*,3001) fname(jz-13:jz),rms,db(rms*rms),dmax,nbad,ia,ib, &
|
|
|
|
|
! nsum/(2*96000),ntx30a,ntx30b
|
|
|
|
|
!3001 format(a14,3f7.1,i8,2i9,3i5)
|
2024-01-04 10:05:46 -05:00
|
|
|
|
|
|
|
|
open(29,file=trim(fname),status='unknown',access='stream')
|
|
|
|
|
prog_id_24=prog_id//" "
|
|
|
|
|
mycall_12=mycall
|
|
|
|
|
mygrid_6=mygrid
|
2024-01-04 16:03:44 -05:00
|
|
|
write(29) prog_id_24,mycall_12,mygrid_6,fcenter,nutc,ntx30a,ntx30b, &
|
2024-01-05 07:01:55 -05:00
|
|
|
ndop00,ndop58,ia,ib,fac0,nxtra !Write header to disk
|
2024-01-04 16:03:44 -05:00
|
|
|
write(29) id1(1:2,ia:ib) !Write 8-bit data to disk
|
|
|
|
|
close(29)
|
2024-01-03 16:17:57 -05:00
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine save_qm
|
2024-01-04 10:05:46 -05:00
|
|
|
|
