Update src/passf5.f90

Fix `tr12` value.

Author: zoziha

src/passf5.f90

@@ -12,7 +12,7 @@ subroutine passf5(Ido,l1,Cc,Ch,Wa1,Wa2,Wa3,Wa4)
       real(rk),parameter :: pi = acos(-1.0_rk)
       real(rk),parameter :: tr11 =  cos(2.0_rk * pi / 5.0_rk)
       real(rk),parameter :: ti11 = -sin(2.0_rk * pi / 5.0_rk)
-      real(rk),parameter :: tr12 = -cos(4.0_rk * pi / 5.0_rk)
+      real(rk),parameter :: tr12 =  cos(4.0_rk * pi / 5.0_rk)
       real(rk),parameter :: ti12 = -sin(4.0_rk * pi / 5.0_rk)
       if ( Ido/=2 ) then
          do k = 1 , l1