comicsansg
/
ft8d
mirror of https://github.com/pavel-demin/ft8d.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix subtractft8

This commit is contained in:
Pavel Demin 2018-04-01 18:16:26 +02:00
parent 66095d9a37
commit e9551b7f10
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
subtractft8.f90
View File

@ -20,8 +20,13 @@ subroutine subtractft8(dd,itone,f0,dt)
common/heap8/cref(NFRAME),camp(NMAX),cfilt(NMAX),cw(NMAX)
save first
if(f0.lt.3000.0) then
f=f0+3000.0
else
f=f0-3000.0
endif
nstart=dt*6000+1
call genft8refsig(itone,cref,f0)
call genft8refsig(itone,cref,f)
camp=0.
do i=1,nframe
id=nstart-1+i