mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-23 04:38:37 -05:00
bfcbce34a7
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3296 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
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
|