27 lines
1021 B
Fortran
27 lines
1021 B
Fortran
|
module jt4
|
||
|
|
parameter (MAXAVE=64)
|
||
|
|
integer iutc(MAXAVE)
|
||
|
|
integer nfsave(MAXAVE)
|
||
|
|
integer listutc(10)
|
||
|
|
real ppsave(207,7,MAXAVE) !Accumulated data for message averaging
|
||
|
|
real rsymbol(207,7)
|
||
|
|
real dtsave(MAXAVE)
|
||
|
|
real syncsave(MAXAVE)
|
||
|
|
real flipsave(MAXAVE)
|
||
|
|
real zz(1260,65,7)
|
||
|
|
|
||
|
|
integer nsave,nlist,ich1,ich2
|
||
|
|
integer nch(7)
|
||
|
|
integer npr(207)
|
||
|
|
data rsymbol/1449*0.0/
|
||
|
|
data nch/1,2,4,9,18,36,72/
|
||
|
|
data npr/ &
|
||
|
|
0,0,0,0,1,1,0,0,0,1,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,0,1,1,0,0, &
|
||
|
|
0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,1,1,0,1,0,1,1,1,1,1,0,1,0,0,0, &
|
||
|
|
1,0,0,1,0,0,1,1,1,1,1,0,0,0,1,0,1,0,0,0,1,1,1,1,0,1,1,0,0,1, &
|
||
|
|
0,0,0,1,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1,0,1,0,1,1,0,1,0,1, &
|
||
|
|
0,1,1,1,0,0,1,0,1,1,0,1,1,1,1,0,0,0,0,1,1,0,1,1,0,0,0,1,1,1, &
|
||
|
|
0,1,1,1,0,1,1,1,0,0,1,0,0,0,1,1,0,1,1,0,0,1,0,0,0,1,1,1,1,1, &
|
||
|
|
1,0,0,1,1,0,0,0,0,1,1,0,0,0,1,0,1,1,0,1,1,1,1,0,1,0,1/
|
||
|
|
end module jt4
|