mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-08-21 22:06:34 -04:00
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7434 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
20 lines
359 B
Fortran
20 lines
359 B
Fortran
subroutine update_recent_calls(call,calls_hrd,nsize)
|
|
character*12 call,calls_hrd(nsize)
|
|
|
|
new=1
|
|
do ic=1,nsize
|
|
if( calls_hrd(ic).eq.call ) then
|
|
new=0
|
|
endif
|
|
enddo
|
|
|
|
if( new.eq.1 ) then
|
|
do ic=nsize-1,1,-1
|
|
calls_hrd(ic+1)(1:12)=calls_hrd(ic)(1:12)
|
|
enddo
|
|
calls_hrd(1)(1:12)=call(1:12)
|
|
endif
|
|
|
|
return
|
|
end subroutine update_recent_calls
|