w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-04-01 08:58:32 -04:00
Code Issues Packages Projects Releases Wiki Activity

Ann new file getpp3.f90.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-15 14:12:45 -05:00
parent 17d9c6bf81
commit 93fd8246fb
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lib/superfox/getpp3.f90 Normal file
View File

@ -0,0 +1,22 @@
subroutine getpp3(s3,workdat,p)
use sfox_mod
real s3(NQ,NN)
integer workdat(NN)
integer a(NN)
! a(1:NN)=workdat(NN:1:-1)
a=workdat
psum=0.
do j=1,NN
i=a(j)+1
x=s3(i,j)
s3(i,j)=0.
psum=psum + x
s3(i,j)=x
enddo
p=psum/NN
return
end subroutine getpp3