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

mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-11-13 11:43:16 -05:00
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
Now able to generate 72-bit or 77-bit messages. 2018-07-06 12:52:39 -04:00			`subroutine parse77(msg,i3,n3)`

			`use packjt77`
			`character msg37,c7777`
Initialize i3, n3 before two more calls to pack77(). 2018-09-19 13:05:32 -04:00
			`i3=-1`
			`n3=-1`
Now able to generate 72-bit or 77-bit messages. 2018-07-06 12:52:39 -04:00			`call pack77(msg,i3,n3,c77)`

			`return`
			`end subroutine parse77`