2018-06-27 15:07:04 -04:00
|
|
|
program test28
|
2018-06-27 11:08:39 -04:00
|
|
|
|
2018-06-27 11:23:27 -04:00
|
|
|
character*13 call_0,call_1,base_call_1
|
2018-06-27 11:08:39 -04:00
|
|
|
character*1 cerr
|
|
|
|
|
|
2018-06-27 11:23:27 -04:00
|
|
|
do iline=1,999
|
2018-06-27 11:08:39 -04:00
|
|
|
read(*,'(a13)',end=999) call_0
|
|
|
|
|
call pack28(call_0,n28)
|
|
|
|
|
call unpack28(n28,call_1)
|
|
|
|
|
cerr=' '
|
|
|
|
|
if(call_0.ne.call_1) cerr='*'
|
2018-06-27 11:23:27 -04:00
|
|
|
if(call_1(1:1).eq.'<') then
|
|
|
|
|
i=index(call_1,'>')
|
|
|
|
|
base_call_1=call_1(2:i-1)//' '
|
|
|
|
|
endif
|
|
|
|
|
if(call_0.eq.base_call_1) cerr=' '
|
2018-06-27 15:07:04 -04:00
|
|
|
write(*,1010) call_0,n28,cerr,call_1
|
|
|
|
|
1010 format(a13,i12,2x,a1,2x,a13a13)
|
2018-06-27 11:08:39 -04:00
|
|
|
enddo
|
|
|
|
|
|
2018-06-27 15:07:04 -04:00
|
|
|
999 end program test28
|
