w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-06-18 05:38:38 -04:00
Code Issues Packages Projects Releases Wiki Activity

Make packjt77 into a module; move all its routines into file packjt77.f90.

Browse Source
This commit is contained in:
Joe Taylor
2018-07-05 14:07:17 -04:00
parent 0462008e15
commit e5e81e01fb
25 changed files with 1128 additions and 1134 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/77bit/encode77.f90
+2 -13
View File
@@ -1,5 +1,7 @@
program encode77
use packjt77
character*80 msg0
character msg*37,cerr*1
character*77 c77
@@ -36,16 +38,3 @@ program encode77
999 end program encode77
include '../chkcall.f90'
include 'pack77.f90'
include 'unpack77.f90'
include 'pack28.f90'
include 'unpack28.f90'
include 'split77.f90'
include 'pack77_01.f90'
include 'pack77_02.f90'
include 'pack77_03.f90'
include 'pack77_1.f90'
include 'pack77_3.f90'
include 'pack77_4.f90'
include 'packtext77.f90'
include 'unpacktext77.f90'