mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-11-03 21:40:52 -05:00
22 lines
794 B
Fortran
22 lines
794 B
Fortran
|
program call_to_c28
|
||
|
|
parameter (NTOKENS=2063592,MAX22=4194304)
|
||
|
|
character*6 call_std
|
||
|
|
character a1*37,a2*36,a3*10,a4*27
|
||
|
|
data a1/' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
|
||
|
|
data a2/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
|
||
|
|
data a3/'0123456789'/
|
||
|
|
data a4/' ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
|
||
|
|
! call_std must be right adjusted, length 6
|
||
|
|
call_std=' K1ABC' !Redefine as needed
|
||
|
|
i1=index(a1,call_std(1:1))-1
|
||
|
|
i2=index(a2,call_std(2:2))-1
|
||
|
|
i3=index(a3,call_std(3:3))-1
|
||
|
|
i4=index(a4,call_std(4:4))-1
|
||
|
|
i5=index(a4,call_std(5:5))-1
|
||
|
|
i6=index(a4,call_std(6:6))-1
|
||
|
|
n28=NTOKENS + MAX22 + 36*10*27*27*27*i1 + 10*27*27*27*i2 + &
|
||
|
|
27*27*27*i3 + 27*27*i4 + 27*i5 + i6
|
||
|
|
write(*,1000) call_std,n28
|
||
|
|
1000 format('Callsign: ',a6,2x,'c28 as decimal integer:',i10)
|
||
|
|
end program call_to_c28
|