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