mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-26 22:28:41 -05:00
46 lines
1.0 KiB
FortranFixed
46 lines
1.0 KiB
FortranFixed
|
subroutine write_char(c, iunit)
|
||
|
|
character c
|
||
|
|
integer iunit
|
||
|
|
write(iunit,1000) c
|
||
|
|
1000 format(a,$)
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine export_wisdom_to_file(iunit)
|
||
|
|
integer iunit
|
||
|
|
external write_char
|
||
|
|
c call dfftw_export_wisdom(write_char, iunit)
|
||
|
|
call sfftw_export_wisdom(write_char, iunit)
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine read_char(ic, iunit)
|
||
|
|
integer ic
|
||
|
|
integer iunit
|
||
|
|
character*256 buf
|
||
|
|
save buf
|
||
|
|
integer ibuf
|
||
|
|
data ibuf/257/
|
||
|
|
save ibuf
|
||
|
|
if (ibuf .lt. 257) then
|
||
|
|
ic = ichar(buf(ibuf:ibuf))
|
||
|
|
ibuf = ibuf + 1
|
||
|
|
return
|
||
|
|
endif
|
||
|
|
read(iunit,1000,end=10) buf
|
||
|
|
1000 format(a256)
|
||
|
|
ic = ichar(buf(1:1))
|
||
|
|
ibuf = 2
|
||
|
|
return
|
||
|
|
10 ic = -1
|
||
|
|
ibuf = 257
|
||
|
|
rewind iunit
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine import_wisdom_from_file(isuccess, iunit)
|
||
|
|
integer isuccess
|
||
|
|
integer iunit
|
||
|
|
external read_char
|
||
|
|
c call dfftw_import_wisdom(isuccess, read_char, iunit)
|
||
|
|
call sfftw_import_wisdom(isuccess, read_char, iunit)
|
||
|
|
end
|