1subroutine packprop(k,muf,ccur,cxp,n1)
2
3! Pack propagation indicators into a 21-bit number.
4
5! k      k-index, 0-9; 10="N/A"
6! muf    muf, 2-60 MHz; 0=N/A, 1="none", 61=">60 MHz"
7! ccur   up to two current events, each indicated by single
8!        or double letter.
9! cxp    zero or one expected event, indicated by single or
10!        double letter
11
12  character ccur*4,cxp*2
13
14  j=ichar(ccur(1:1))-64
15  if(j.lt.0) j=0
16  n1=j
17  do i=2,4
18     if(ccur(i:i).eq.' ') go to 10
19     if(ccur(i:i).eq.ccur(i-1:i-1)) then
20        n1=n1+26
21     else
22        j=ichar(ccur(i:i))-64
23        if(j.lt.0) j=0
24        n1=53*n1 + j
25     endif
26  enddo
27
2810 j=ichar(cxp(1:1))-64
29  if(j.lt.0) j=0
30  if(cxp(2:2).eq.cxp(1:1)) j=j+26
31  n1=53*n1 + j
32  n1=11*n1 + k
33  n1=62*n1 + muf
34
35  return
36end subroutine packprop
37