2015-05-27 09:08:28 -04:00
|
|
|
subroutine hopping(nyear,month,nday,uth,mygrid,nduration,npctx,isun, &
|
|
|
|
|
iband,ntxnext)
|
|
|
|
|
|
|
|
|
|
! Determine Rx or Tx in coordinated hopping mode.
|
|
|
|
|
|
|
|
|
|
character*6 mygrid
|
|
|
|
|
integer tx(10,6) !T/R array for 2 hours: 10 bands, 6 time slots
|
|
|
|
|
real r(6) !Random numbers
|
|
|
|
|
integer ii(1)
|
|
|
|
|
data n2hr0/-999/
|
|
|
|
|
save n2hr0,tx
|
|
|
|
|
|
|
|
|
|
call grayline(nyear,month,nday,uth,mygrid,nduration,isun)
|
|
|
|
|
|
|
|
|
|
ns0=uth*3600.0
|
|
|
|
|
pctx=npctx
|
|
|
|
|
nrx=0
|
|
|
|
|
ntxnext=0
|
|
|
|
|
nsec=(ns0+10)/120 !Round up to start of next 2-min slot
|
|
|
|
|
nsec=nsec*120
|
|
|
|
|
n2hr=nsec/7200 !2-hour slot number
|
|
|
|
|
|
|
|
|
|
if(n2hr.ne.n2hr0) then
|
|
|
|
|
! Compute a new Rx/Tx pattern for this 2-hour interval
|
|
|
|
|
n2hr0=n2hr !Mark this one as done
|
|
|
|
|
tx=0 !Clear the tx array
|
|
|
|
|
do j=1,10 !Loop over all 10 bands
|
|
|
|
|
call random_number(r)
|
|
|
|
|
do i=1,6,2 !Select one each of 3 pairs of the
|
|
|
|
|
if(r(i).gt.r(i+1)) then ! 6 slots for Tx
|
|
|
|
|
tx(j,i)=1
|
|
|
|
|
r(i+1)=0.
|
|
|
|
|
else
|
|
|
|
|
tx(j,i+1)=1
|
|
|
|
|
r(i)=0.
|
|
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
if(pctx.lt.50.0) then !If pctx < 50, we may kill one Tx slot
|
|
|
|
|
ii=maxloc(r)
|
|
|
|
|
i=ii(1)
|
|
|
|
|
call random_number(rr)
|
|
|
|
|
rrtest=(50.0-pctx)/16.667
|
|
|
|
|
if(rr.lt.rrtest) then
|
|
|
|
|
tx(j,i)=0
|
|
|
|
|
r(i)=0.
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
if(pctx.lt.33.333) then !If pctx < 33, may kill another
|
|
|
|
|
ii=maxloc(r)
|
|
|
|
|
i=ii(1)
|
|
|
|
|
call random_number(rr)
|
|
|
|
|
rrtest=(33.333-pctx)/16.667
|
|
|
|
|
if(rr.lt.rrtest) then
|
|
|
|
|
tx(j,i)=0
|
|
|
|
|
r(i)=0.
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
! We now have 1 to 3 Tx periods per band in the 2-hour interval.
|
2015-05-30 19:45:22 -04:00
|
|
|
! Now go through and limit the number of successive Tx's to two.
|
|
|
|
|
icnt=0
|
|
|
|
|
isum=0
|
|
|
|
|
nkilled=0
|
|
|
|
|
do i=1,6
|
|
|
|
|
do j=1,10
|
|
|
|
|
if( tx(j,i).eq.1 ) then
|
|
|
|
|
icnt=icnt+1
|
|
|
|
|
if( icnt.gt.2 ) then
|
|
|
|
|
tx(j,i)=0
|
|
|
|
|
nkilled=nkilled+1
|
|
|
|
|
icnt=0
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
isum=isum+tx(j,i)
|
|
|
|
|
enddo
|
|
|
|
|
enddo
|
|
|
|
|
actual_pct=isum/60.0
|
|
|
|
|
write(*,*) "Actual pct = ",actual_pct," nkilled = ",nkilled
|
|
|
|
|
! Not try to put back the slots that were zero'd without causing new runs
|
|
|
|
|
nz=0
|
|
|
|
|
do i=1,6
|
|
|
|
|
do j=1,10
|
|
|
|
|
if( tx(j,i).eq.0 ) then
|
|
|
|
|
nz=nz+1
|
|
|
|
|
if( (nz.eq.3) .and. (nkilled.gt.0) ) then
|
|
|
|
|
if(j.ge.2) then
|
|
|
|
|
tx(j-1,i) = 1
|
|
|
|
|
nkilled=nkilled-1
|
|
|
|
|
elseif(i.gt.1) then
|
|
|
|
|
tx(10,i-1) = 1
|
|
|
|
|
nkilled=nkilled-1
|
|
|
|
|
endif
|
|
|
|
|
nz=0
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
isum=0
|
|
|
|
|
do i=1,6
|
|
|
|
|
do j=1,10
|
|
|
|
|
if( tx(j,i) .eq. 1 ) then
|
|
|
|
|
isum=isum+1
|
|
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
enddo
|
|
|
|
|
actual_pct=isum/60.0
|
|
|
|
|
write(*,*) "Actual pct = ",actual_pct," nkilled = ",nkilled
|
2015-05-27 09:08:28 -04:00
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
iband=mod(nsec/120,10) + 1
|
|
|
|
|
iseq=mod(nsec/1200,6) + 1
|
|
|
|
|
if(iseq.lt.1) iseq=1
|
|
|
|
|
if(tx(iband,iseq).eq.1) then
|
|
|
|
|
ntxnext=1
|
|
|
|
|
else
|
|
|
|
|
nrx=1
|
|
|
|
|
endif
|
|
|
|
|
iband=iband-1
|
|
|
|
|
|
2015-05-30 19:45:22 -04:00
|
|
|
write(*,3000) iband,iseq,nrx,ntxnext
|
|
|
|
|
3000 format('Fortran iband, iseq,nrx,ntxnext:',4i5)
|
|
|
|
|
write(*,3001) int(tx)
|
|
|
|
|
3001 format(10i2)
|
2015-05-27 09:08:28 -04:00
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine hopping
|
