/dports/astro/xearth/xearth-1.2/ |
H A D | sunpos.c | 56 #define TWOPI (2*M_PI) macro 57 #define DegsToRads(x) ((x)*(TWOPI/360)) 78 #define RadsPerDay (TWOPI/365.242191) 161 N = fmod(N, TWOPI); 162 if (N < 0) N += TWOPI; 165 if (M < 0) M += TWOPI; 295 *lon = tmp * (360/TWOPI); 296 *lat = delta * (360/TWOPI); 341 alpha -= (TWOPI/24)*GST(ssue); 343 *lon = alpha * (360/TWOPI); [all …]
|
/dports/audio/audacity/audacity-Audacity-3.1.3/lib-src/libsbsms/src/ |
H A D | utils.h | 13 #define TWOPI 6.28318530717958647692528676655900576f macro 41 ph -= TWOPI * lrintf(ph * ONEOVERTWOPI); in canonPI() 42 if(ph < -PI) ph += TWOPI; in canonPI() 43 else if(ph >= PI) ph -= TWOPI; in canonPI() 49 ph -= TWOPI * lrintf(ph * ONEOVERTWOPI); in canon2PI() 50 if(ph < 0.0f) ph += TWOPI; in canon2PI() 51 if(ph >= TWOPI) ph -= TWOPI; in canon2PI()
|
/dports/science/latte/LATTE-1.2.2/src/ |
H A D | initcoulomb.F90 | 51 TWOPI = TWO*PI 72 RECIPVECS(1,1) = TWOPI*A2XA3(1)/DOT 73 RECIPVECS(1,2) = TWOPI*A2XA3(2)/DOT 74 RECIPVECS(1,3) = TWOPI*A2XA3(3)/DOT 86 RECIPVECS(2,1) = TWOPI*A3XA1(1)/DOT 87 RECIPVECS(2,2) = TWOPI*A3XA1(2)/DOT 88 RECIPVECS(2,3) = TWOPI*A3XA1(3)/DOT 100 RECIPVECS(3,1) = TWOPI*A1XA2(1)/DOT 101 RECIPVECS(3,2) = TWOPI*A1XA2(2)/DOT 102 RECIPVECS(3,3) = TWOPI*A1XA2(3)/DOT
|
/dports/math/math77/MATH77/demo/ |
H A D | drdrft1.f | 20 double precision PI, TWOPI, RTWO, ZERO, ONE, FOUR, P1, P3 variable 23 parameter (TWOPI = 2.D0 * PI) 56 F(K+1) = SIG*(SIN(TWOPI*(T+P1)) + FOUR*COS(TWOPI*(RTWO*T+P3))) 57 F(N-K+1)=SIG*(SIN(TWOPI*(TB+P1))+FOUR*COS(TWOPI*(RTWO*TB+P3))) 61 F(N2+1) = SIN(TWOPI*(T+P1)) + FOUR*COS(TWOPI*(RTWO*T+P3))
|
H A D | drsrft1.f | 20 real PI, TWOPI, RTWO, ZERO, ONE, FOUR, P1, P3 variable 23 parameter (TWOPI = 2.E0 * PI) 56 F(K+1) = SIG*(SIN(TWOPI*(T+P1)) + FOUR*COS(TWOPI*(RTWO*T+P3))) 57 F(N-K+1)=SIG*(SIN(TWOPI*(TB+P1))+FOUR*COS(TWOPI*(RTWO*TB+P3))) 61 F(N2+1) = SIN(TWOPI*(T+P1)) + FOUR*COS(TWOPI*(RTWO*T+P3))
|
/dports/astro/wmglobe/wmglobe-1.3/src/ |
H A D | sunpos.c | 64 #define TWOPI (2*PI) macro 65 #define DegsToRads(x) ((x)*(TWOPI/360)) 86 #define RadsPerDay (TWOPI/365.242191) 124 do (x) += TWOPI; while ((x) < -PI); \ 126 do (x) -= TWOPI; while ((x) > PI); \ 167 N = fmod(N, TWOPI); in mean_sun() 169 N += TWOPI; in mean_sun() 173 M += TWOPI; in mean_sun() 310 tmp = alpha - (TWOPI / 24) * GST(ssue); in sun_position() 336 L = fmod(D / SideralMonth, 1.0) * TWOPI + MoonMeanLongitude; in moon_position() [all …]
|
/dports/math/xlapack/lapack-3.10.0/TESTING/MATGEN/ |
H A D | zlarnd.f | 92 DOUBLE PRECISION TWOPI 93 PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) 127 ZLARND = SQRT( -TWO*LOG( T1 ) )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 132 ZLARND = SQRT( T1 )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 137 ZLARND = EXP( DCMPLX( ZERO, TWOPI*T2 ) )
|
H A D | clarnd.f | 92 REAL TWOPI 93 PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) 127 CLARND = SQRT( -TWO*LOG( T1 ) )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 132 CLARND = SQRT( T1 )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 137 CLARND = EXP( CMPLX( ZERO, TWOPI*T2 ) )
|
/dports/math/blas/lapack-3.10.0/TESTING/MATGEN/ |
H A D | zlarnd.f | 92 DOUBLE PRECISION TWOPI local 93 PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) 127 ZLARND = SQRT( -TWO*LOG( T1 ) )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 132 ZLARND = SQRT( T1 )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 137 ZLARND = EXP( DCMPLX( ZERO, TWOPI*T2 ) )
|
H A D | clarnd.f | 92 REAL TWOPI local 93 PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) 127 CLARND = SQRT( -TWO*LOG( T1 ) )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 132 CLARND = SQRT( T1 )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 137 CLARND = EXP( CMPLX( ZERO, TWOPI*T2 ) )
|
/dports/math/lapacke/lapack-3.10.0/TESTING/MATGEN/ |
H A D | zlarnd.f | 92 DOUBLE PRECISION TWOPI 93 PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) 127 ZLARND = SQRT( -TWO*LOG( T1 ) )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 132 ZLARND = SQRT( T1 )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 137 ZLARND = EXP( DCMPLX( ZERO, TWOPI*T2 ) )
|
H A D | clarnd.f | 92 REAL TWOPI 93 PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) 127 CLARND = SQRT( -TWO*LOG( T1 ) )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 132 CLARND = SQRT( T1 )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 137 CLARND = EXP( CMPLX( ZERO, TWOPI*T2 ) )
|
/dports/math/lapack/lapack-3.10.0/TESTING/MATGEN/ |
H A D | zlarnd.f | 92 DOUBLE PRECISION TWOPI local 93 PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) 127 ZLARND = SQRT( -TWO*LOG( T1 ) )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 132 ZLARND = SQRT( T1 )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 137 ZLARND = EXP( DCMPLX( ZERO, TWOPI*T2 ) )
|
H A D | clarnd.f | 92 REAL TWOPI local 93 PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) 127 CLARND = SQRT( -TWO*LOG( T1 ) )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 132 CLARND = SQRT( T1 )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 137 CLARND = EXP( CMPLX( ZERO, TWOPI*T2 ) )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/MATGEN/ |
H A D | zlarnd.f | 95 DOUBLE PRECISION TWOPI local 96 PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) 130 ZLARND = SQRT( -TWO*LOG( T1 ) )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 135 ZLARND = SQRT( T1 )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 140 ZLARND = EXP( DCMPLX( ZERO, TWOPI*T2 ) )
|
H A D | clarnd.f | 95 REAL TWOPI 96 PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) 130 CLARND = SQRT( -TWO*LOG( T1 ) )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 135 CLARND = SQRT( T1 )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 140 CLARND = EXP( CMPLX( ZERO, TWOPI*T2 ) )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/MATGEN/ |
H A D | zlarnd.f | 95 DOUBLE PRECISION TWOPI 96 PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) 130 ZLARND = SQRT( -TWO*LOG( T1 ) )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 135 ZLARND = SQRT( T1 )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 140 ZLARND = EXP( DCMPLX( ZERO, TWOPI*T2 ) )
|
H A D | clarnd.f | 95 REAL TWOPI 96 PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) 130 CLARND = SQRT( -TWO*LOG( T1 ) )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 135 CLARND = SQRT( T1 )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 140 CLARND = EXP( CMPLX( ZERO, TWOPI*T2 ) )
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/MATGEN/ |
H A D | zlarnd.f | 95 DOUBLE PRECISION TWOPI local 96 PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) 130 ZLARND = SQRT( -TWO*LOG( T1 ) )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 135 ZLARND = SQRT( T1 )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 140 ZLARND = EXP( DCMPLX( ZERO, TWOPI*T2 ) )
|
H A D | clarnd.f | 95 REAL TWOPI local 96 PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) 130 CLARND = SQRT( -TWO*LOG( T1 ) )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 135 CLARND = SQRT( T1 )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 140 CLARND = EXP( CMPLX( ZERO, TWOPI*T2 ) )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/MATGEN/ |
H A D | zlarnd.f | 95 DOUBLE PRECISION TWOPI 96 PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) 130 ZLARND = SQRT( -TWO*LOG( T1 ) )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 135 ZLARND = SQRT( T1 )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 140 ZLARND = EXP( DCMPLX( ZERO, TWOPI*T2 ) )
|
H A D | clarnd.f | 95 REAL TWOPI local 96 PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) 130 CLARND = SQRT( -TWO*LOG( T1 ) )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 135 CLARND = SQRT( T1 )*EXP( CMPLX( ZERO, TWOPI*T2 ) ) 140 CLARND = EXP( CMPLX( ZERO, TWOPI*T2 ) )
|
/dports/math/cblas/lapack-3.10.0/TESTING/MATGEN/ |
H A D | zlarnd.f | 92 DOUBLE PRECISION TWOPI 93 PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) 127 ZLARND = SQRT( -TWO*LOG( T1 ) )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 132 ZLARND = SQRT( T1 )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 137 ZLARND = EXP( DCMPLX( ZERO, TWOPI*T2 ) )
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/MATGEN/ |
H A D | zlarnd.f | 95 DOUBLE PRECISION TWOPI 96 PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) 130 ZLARND = SQRT( -TWO*LOG( T1 ) )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 135 ZLARND = SQRT( T1 )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 140 ZLARND = EXP( DCMPLX( ZERO, TWOPI*T2 ) )
|
/dports/math/scalapack/scalapack-2.1.0/TOOLS/LAPACK/ |
H A D | zlarnd.f | 49 DOUBLE PRECISION TWOPI 50 PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) 84 ZLARND = SQRT( -TWO*LOG( T1 ) )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 89 ZLARND = SQRT( T1 )*EXP( DCMPLX( ZERO, TWOPI*T2 ) ) 94 ZLARND = EXP( DCMPLX( ZERO, TWOPI*T2 ) )
|