mirror of https://github.com/saitohirga/WSJT-X.git
Fix some typos, two of which were found by Cristo, lz2hv.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7048 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
89dec1abfa
commit
76ca91c363
|
@ -1,5 +1,6 @@
|
||||||
subroutine pltanh(x,y)
|
subroutine pltanh(x,y)
|
||||||
isign=+1
|
isign=+1
|
||||||
|
z=x
|
||||||
if( x.lt.0 ) then
|
if( x.lt.0 ) then
|
||||||
isign=-1
|
isign=-1
|
||||||
z=abs(x)
|
z=abs(x)
|
||||||
|
@ -24,6 +25,7 @@ end subroutine pltanh
|
||||||
|
|
||||||
subroutine platanh(x,y)
|
subroutine platanh(x,y)
|
||||||
isign=+1
|
isign=+1
|
||||||
|
z=x
|
||||||
if( x.lt.0 ) then
|
if( x.lt.0 ) then
|
||||||
isign=-1
|
isign=-1
|
||||||
z=abs(x)
|
z=abs(x)
|
||||||
|
|
|
@ -136,9 +136,9 @@ do iter=0,maxiterations
|
||||||
do j=1,N
|
do j=1,N
|
||||||
do i=1,ncw
|
do i=1,ncw
|
||||||
ichk=Mn(i,j) ! Mn(:,j) are the checks that include bit j
|
ichk=Mn(i,j) ! Mn(:,j) are the checks that include bit j
|
||||||
Tmn=product(tanhtoc(1:nrw(i),ichk),mask=Nm(1:nrw(i),ichk).ne.j)
|
Tmn=product(tanhtoc(1:nrw(ichk),ichk),mask=Nm(1:nrw(ichk),ichk).ne.j)
|
||||||
call platanh(-Tmn,y)
|
call platanh(-Tmn,y)
|
||||||
tov(i,j)=y
|
tov(i,j)=2*y
|
||||||
enddo
|
enddo
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue