mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-22 04:11:16 -05:00
12 lines
151 B
Fortran
12 lines
151 B
Fortran
subroutine parse77(msg,i3,n3)
|
|
|
|
use packjt77
|
|
character msg*37,c77*77
|
|
|
|
i3=-1
|
|
n3=-1
|
|
call pack77(msg,i3,n3,c77)
|
|
|
|
return
|
|
end subroutine parse77
|