WSJT-X/lib/77bit/parse77.f90

9 lines
134 B
Fortran
Raw Normal View History

subroutine parse77(msg,i3,n3)
use packjt77
character msg*37,c77*77
call pack77(msg,i3,n3,c77)
return
end subroutine parse77