subroutine hash22(n22,c13,isave) parameter (NMAX=22) character*13 c13,callsign(NMAX) integer ihash(NMAX) logical first data first/.true./ save first,ihash,callsign if(first) then ihash=-1 callsign=' ' first=.false. endif if(isave.ge.0) then do i=1,NMAX if(ihash(i).eq.n22) go to 900 !This one is already in the list enddo ihash(NMAX:2:-1)=ihash(NMAX-1:1:-1) callsign(NMAX:2:-1)=callsign(NMAX-1:1:-1) ihash(1)=n22 callsign(1)=c13 else c13='<...>' do i=1,NMAX if(ihash(i).eq.n22) then c13=callsign(i) go to 900 endif enddo endif 900 return end subroutine hash22