2024-01-02 16:04:03 -05:00
|
|
|
subroutine chkstat(dd,nhsym,pdb)
|
2023-12-16 11:48:06 -05:00
|
|
|
|
|
|
|
|
real dd(2,5760000)
|
2024-01-02 16:04:03 -05:00
|
|
|
real pdb(4)
|
|
|
|
|
integer ia(4),ib(4)
|
|
|
|
|
logical*1 btx0,btx1
|
2023-12-16 11:48:06 -05:00
|
|
|
|
2024-01-02 16:04:03 -05:00
|
|
|
btx0=.false.
|
|
|
|
|
btx1=.false.
|
|
|
|
|
ia(1)=23*96000+1
|
|
|
|
|
ib(1)=24*96000
|
|
|
|
|
ia(2)=27*96000+1
|
|
|
|
|
ib(2)=28*96000
|
|
|
|
|
ia(3)=53*96000+1
|
|
|
|
|
ib(3)=54*96000
|
|
|
|
|
ia(4)=57*96000+1
|
|
|
|
|
ib(4)=58*96000
|
|
|
|
|
|
|
|
|
|
do j=1,4
|
2023-12-16 11:48:06 -05:00
|
|
|
sq=0.
|
2024-01-02 16:04:03 -05:00
|
|
|
do i=ia(j),ib(j)
|
|
|
|
|
sq=sq + dd(1,i)*dd(1,i) + dd(2,i)*dd(2,i)
|
|
|
|
|
enddo
|
|
|
|
|
pdb(j)=db(1.0 + sq/(2.0*96000.0))
|
2023-12-16 11:48:06 -05:00
|
|
|
enddo
|
2024-01-01 15:48:24 -05:00
|
|
|
|
2023-12-16 11:48:06 -05:00
|
|
|
return
|
|
|
|
|
end subroutine chkstat
|
