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

43 lines
989 B
Fortran
Raw Normal View History

2018-06-26 15:20:39 -04:00
program encode77
2018-06-21 10:51:19 -04:00
2018-06-27 20:19:48 -04:00
character msg*37,msg0*37,msg1*37,cerr*1
2018-06-26 15:20:39 -04:00
character*77 c77
2018-06-21 10:51:19 -04:00
2018-06-27 16:41:58 -04:00
nargs=iargc()
2018-06-21 10:51:19 -04:00
do iline=1,999
2018-06-27 16:41:58 -04:00
if(nargs.eq.1) then
call getarg(1,msg0)
else
read(*,1002,end=999) msg0
1002 format(a37)
endif
if(msg0.eq.' ') exit
2018-06-27 20:19:48 -04:00
msg1=msg0
call pack77(msg1,i3,n3,c77)
2018-06-26 15:20:39 -04:00
call unpack77(c77,msg)
2018-06-21 10:51:19 -04:00
cerr=' '
2018-06-27 16:41:58 -04:00
if(msg.ne.msg0) cerr='*'
2018-06-27 20:19:48 -04:00
if(i3.eq.0) write(*,1004) i3,n3,cerr,msg0,msg
2018-06-26 15:20:39 -04:00
1004 format(i1,'.',i1,1x,a1,1x,a37,1x,a37)
2018-06-27 20:19:48 -04:00
if(i3.ge.1) write(*,1005) i3,cerr,msg0,msg
1005 format(i1,3x,a1,1x,a37,1x,a37)
2018-06-27 16:41:58 -04:00
if(nargs.eq.1) exit
2018-06-21 10:51:19 -04:00
enddo
2018-06-26 15:20:39 -04:00
999 end program encode77
2018-06-21 10:51:19 -04:00
include '../chkcall.f90'
2018-06-26 15:20:39 -04:00
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'
2018-06-26 15:20:39 -04:00
include 'packtext77.f90'
include 'unpacktext77.f90'