mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-02-20 12:42:21 -05:00
28 lines
510 B
Fortran
28 lines
510 B
Fortran
subroutine save_echo_params(nDop,nfrit,f1,fspread,id2,idir)
|
|
|
|
integer*2 id2(10)
|
|
integer*2 id2a(10)
|
|
real*8 fspread,fspread0
|
|
equivalence (nDop0,id2a(1))
|
|
equivalence (nfrit0,id2a(3))
|
|
equivalence (f10,id2a(5))
|
|
equivalence (fspread0,id2a(7))
|
|
|
|
if(idir.gt.0) then
|
|
nDop0=nDop
|
|
nfrit0=nfrit
|
|
f10=f1
|
|
fspread0=fspread
|
|
id2=id2a
|
|
else
|
|
id2a=id2
|
|
id2(1:10)=0
|
|
nDop=nDop0
|
|
nfrit=nfrit0
|
|
f1=f10
|
|
fspread=fspread0
|
|
endif
|
|
|
|
return
|
|
end subroutine save_echo_params
|