mirror of https://github.com/saitohirga/WSJT-X.git
17 lines
368 B
Fortran
17 lines
368 B
Fortran
|
program t8
|
||
|
|
|
||
|
|
character*13 call_0,call_1
|
||
|
|
character*1 cerr
|
||
|
|
|
||
|
|
do i=1,999
|
||
|
|
read(*,'(a13)',end=999) call_0
|
||
|
|
call pack28(call_0,n28)
|
||
|
|
call unpack28(n28,call_1)
|
||
|
|
cerr=' '
|
||
|
|
if(call_0.ne.call_1) cerr='*'
|
||
|
|
write(*,1010) call_0,n28,len(trim(call_0)),len(trim(call_1)),cerr,call_1
|
||
|
|
1010 format(a13,i12,2i5,2x,a1,2x,a13a13)
|
||
|
|
enddo
|
||
|
|
|
||
|
|
999 end program t8
|