WSJT-X/qmap/libqmap/chkstat.f90

subroutine chkstat(dd,nhsym,dbdiff)

  real dd(2,5760000)

  sq0=0.
  sq1=0.
  k=0
  do i=1,60
     sq=0.
     do j=1,96000
        k=k+1
        sq=sq + dd(1,k)*dd(1,k) + dd(2,k)*dd(2,k)
     enddo 
     if(i.ge.12 .and. i.le.24) sq0=sq0+sq
     if(i.ge.42 .and. i.le.54) sq1=sq1+sq
  enddo
  db0=db(1.0+sq0)
  db1=db(1.0+sq1)
  dbdiff=db0-db1
  
  return
end subroutine chkstat
Optimize calling the QMAP decoder for different sub-sequence tasks. 2024-01-01 15:48:24 -05:00			`subroutine chkstat(dd,nhsym,dbdiff)`
Skip useless calls to QMAP's decode0(), depending on 30 s transmissions. 2023-12-16 11:48:06 -05:00
			`real dd(2,5760000)`

Optimize calling the QMAP decoder for different sub-sequence tasks. 2024-01-01 15:48:24 -05:00			`sq0=0.`
			`sq1=0.`
Skip useless calls to QMAP's decode0(), depending on 30 s transmissions. 2023-12-16 11:48:06 -05:00			`k=0`
			`do i=1,60`
			`sq=0.`
			`do j=1,96000`
			`k=k+1`
			`sq=sq + dd(1,k)dd(1,k) + dd(2,k)dd(2,k)`
Optimize calling the QMAP decoder for different sub-sequence tasks. 2024-01-01 15:48:24 -05:00			`enddo`
			`if(i.ge.12 .and. i.le.24) sq0=sq0+sq`
			`if(i.ge.42 .and. i.le.54) sq1=sq1+sq`
Skip useless calls to QMAP's decode0(), depending on 30 s transmissions. 2023-12-16 11:48:06 -05:00			`enddo`
Optimize calling the QMAP decoder for different sub-sequence tasks. 2024-01-01 15:48:24 -05:00			`db0=db(1.0+sq0)`
			`db1=db(1.0+sq1)`
			`dbdiff=db0-db1`

Skip useless calls to QMAP's decode0(), depending on 30 s transmissions. 2023-12-16 11:48:06 -05:00			`return`
			`end subroutine chkstat`