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
|