Restored ft8apset

This commit is contained in:
Jordan Sherer
2018-08-10 10:58:50 +03:00
parent 917e4f0771
commit c779bf4ca0
2 changed files with 14 additions and 14 deletions
+1 -1
View File
@@ -62,7 +62,7 @@ contains
write(datetime,1001) nutc !### TEMPORARY ###
1001 format("000000_",i6.6)
!call ft8apset(mycall12,mygrid6,hiscall12,hisgrid6,bcontest,apsym,iaptype)
call ft8apset(mycall12,mygrid6,hiscall12,hisgrid6,bcontest,apsym,iaptype)
dd=iwave
ndecodes=0