mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-08-21 05:56:34 -04:00
46 lines
1008 B
Fortran
46 lines
1008 B
Fortran
|
subroutine write_char(c, iunit)
|
||
|
character c
|
||
|
integer iunit
|
||
|
write(iunit,1000) c
|
||
|
1000 format(a,$)
|
||
|
end subroutine write_char
|
||
|
|
||
|
subroutine export_wisdom_to_file(iunit)
|
||
|
integer iunit
|
||
|
external write_char
|
||
|
! call dfftw_export_wisdom(write_char, iunit)
|
||
|
call sfftw_export_wisdom(write_char, iunit)
|
||
|
end subroutine export_wisdom_to_file
|
||
|
|
||
|
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 read_char
|
||
|
|
||
|
subroutine import_wisdom_from_file(isuccess, iunit)
|
||
|
integer isuccess
|
||
|
integer iunit
|
||
|
external read_char
|
||
|
! call dfftw_import_wisdom(isuccess, read_char, iunit)
|
||
|
call sfftw_import_wisdom(isuccess, read_char, iunit)
|
||
|
end subroutine import_wisdom_from_file
|