/dports/comms/wsjtz/wsjtx/lib/fst4/ |
H A D | gen_fst4wave.f90 | 17 save first,twopi,dt,tsym,nsps0,ctab,lshape 20 twopi=8.0*atan(1.0) 22 phi=i*twopi/NTAB 46 dphi_peak=twopi*hmod/real(nsps) 56 dphi = dphi + twopi*(f0-1.5*hmod/tsym)*dt !Shift frequency up by f0 62 i=phi*float(NTAB)/twopi 70 if(phi.gt.twopi) phi=phi-twopi 77 (1.0-cos(twopi*(/(i,i=0,nsps/4-1)/)/real(nsps/2)))/2.0 80 (1.0+cos(twopi*(/(i,i=0,nsps/4)/)/real(nsps/2)))/2.0 85 (1.0-cos(twopi*(/(i,i=0,nsps/4-1)/)/real(nsps/2)))/2.0 [all …]
|
/dports/comms/wsjtz/wsjtx/lib/ft8/ |
H A D | gen_ft8wave.f90 | 13 save pulse,twopi,dt,hmod,ibt0,ctab 17 twopi=8.0*atan(1.0) 27 phi=i*twopi/NTAB 34 dphi_peak=twopi*hmod/real(nsps) 47 dphi = dphi + twopi*f0*dt !Shift frequency up by f0 58 i=phi*float(NTAB)/twopi 61 phi=mod(phi+dphi(j),twopi) 69 (1.0-cos(twopi*(/(i,i=0,nramp-1)/)/(2.0*nramp)))/2.0 72 (1.0+cos(twopi*(/(i,i=0,nramp-1)/)/(2.0*nramp)))/2.0 75 (1.0-cos(twopi*(/(i,i=0,nramp-1)/)/(2.0*nramp)))/2.0 [all …]
|
H A D | genft8refsig.f90 | 5 real twopi,phi,dphi,dt,xnsps local 6 data twopi/0.d0/ 7 save twopi 8 if( twopi .lt. 0.1 ) twopi=8.d0*atan(1.d0) 15 dphi=twopi*(f0*dt+itone(i)/xnsps) 18 phi=mod(phi+dphi,twopi)
|
/dports/comms/wsjtz/wsjtx/lib/ |
H A D | addit.f90 | 5 real*8 f,dt,twopi,phi,dphi,baud,fsample,freq,tsym,t local 11 twopi=8.d0*atan(1.d0) 26 dphi=twopi*freq*dt 30 if(phi.gt.twopi) phi=phi-twopi 46 real*8 dt,twopi,phi,dphi,fsample,tdit,t local 53 twopi=8.d0*atan(1.d0) 54 dphi=twopi*ifreq*dt 65 if(phi.gt.twopi) phi=phi-twopi
|
H A D | genwave.f90 | 8 real*8 dt,phi,dphi,twopi,freq,baud local 11 twopi=8.d0*atan(1.d0) 21 dphi=twopi*freq*dt 30 if(phi.gt.twopi) phi=phi-twopi 40 dphi=twopi*freq*dt 45 if(phi.gt.twopi) phi=phi-twopi
|
H A D | tweak1.f90 | 6 real*8 twopi local 9 data twopi/0.d0/ 10 save twopi 12 if(twopi.eq.0.d0) twopi=8.d0*atan(1.d0) 14 dphi=twopi*f0/12000.d0
|
/dports/science/fastjet/fastjet-3.3.4/include/fastjet/ |
H A D | RangeDefinition.hh | 64 _phimax = twopi; in RangeDefinition() 65 _total_area = 2.0*rapmax*twopi; in RangeDefinition() 74 double phimin = 0.0, double phimax = twopi) { in RangeDefinition() 78 assert ( phimin > -twopi ); in RangeDefinition() 79 assert ( phimax < 2*twopi); in RangeDefinition() 84 if (_phimax-_phimin > twopi) in RangeDefinition() 85 _total_area = (_rapmax - _rapmin)*twopi; in RangeDefinition() 134 if (dphi >= twopi) dphi -= twopi; in is_in_range() 135 if (dphi < 0) dphi += twopi; in is_in_range()
|
/dports/science/madness/madness-ebb3fd7/src/apps/hf/ |
H A D | test_coulomb.cc | 93 double twopi = 2 * WST_PI; in V_cosine1D() local 94 return -alpha*(cos(twopi*x/L)+1); in V_cosine1D() 102 double twopi = 2 * WST_PI; in V_cosine3D() local 103 return -alpha*(cos(twopi*x/L)*cos(twopi*y/L)*cos(twopi*z/L) + 1); in V_cosine3D() 111 double twopi = 2 * WST_PI; in V_cosine3D_sep() local 112 return -alpha*(cos(twopi*x/L) + cos(twopi*y/L) + cos(twopi*z/L) + 3); in V_cosine3D_sep() 138 double twopi = 2 * WST_PI; in phi_initial_guess3D() local 165 rvalx += 2 * coeffs[nx] * cos(twopi*x*(nx+1)/L); in phi_initial_guess3D() 169 rvaly += 2 * coeffs[ny] * cos(twopi*y*(ny+1)/L); in phi_initial_guess3D() 173 rvalz += 2 * coeffs[nz] * cos(twopi*z*(nz+1)/L); in phi_initial_guess3D()
|
/dports/comms/wsjtz/wsjtx/lib/ft4/ |
H A D | gen_ft4wave.f90 | 10 save pulse,first,twopi,dt,hmod 13 twopi=8.0*atan(1.0) 26 dphi_peak=twopi*hmod/real(nsps) 36 dphi = dphi + twopi*f0*dt !Shift frequency up by f0 47 phi=mod(phi+dphi(j),twopi) 53 (1.0-cos(twopi*(/(i,i=0,nsps-1)/)/(2.0*nsps)))/2.0 56 (1.0+cos(twopi*(/(i,i=0,nsps-1)/)/(2.0*nsps)))/2.0 59 (1.0-cos(twopi*(/(i,i=0,nsps-1)/)/(2.0*nsps)))/2.0 62 (1.0+cos(twopi*(/(i,i=0,nsps-1)/)/(2.0*nsps)))/2.0
|
H A D | sync4d.f90 | 19 save first,twopi,csynca,csyncb,csyncc,csyncd,fac 24 twopi=8.0*atan(1.0) 31 dphia=2*twopi*icos4a(i)/real(NSS) 32 dphib=2*twopi*icos4b(i)/real(NSS) 33 dphic=2*twopi*icos4c(i)/real(NSS) 34 dphid=2*twopi*icos4d(i)/real(NSS) 40 phia=mod(phia+dphia,twopi) 41 phib=mod(phib+dphib,twopi) 42 phic=mod(phic+dphic,twopi) 43 phid=mod(phid+dphid,twopi)
|
/dports/science/elk/elk-7.2.42/src/ |
H A D | bornechg.f90 | 69 pvl1(l)=modulo(pvl1(l),twopi) 70 pvl2(l)=modulo(pvl2(l),twopi) 72 if (abs(t1-twopi).lt.abs(t1)) then 73 pvl1(l)=pvl1(l)-twopi 74 else if (abs(t1+twopi).lt.abs(t1)) then 75 pvl1(l)=pvl1(l)+twopi 78 t1=wkptnr*occmax*dble(nkspolar*ngridk(l))/(twopi*deltaph)
|
/dports/multimedia/v4l_compat/linux-5.13-rc2/include/linux/ |
H A D | fixp-arith.h | 112 static inline s32 fixp_sin32_rad(u32 radians, u32 twopi) in fixp_sin32_rad() argument 121 BUG_ON(twopi > 1 << 18); in fixp_sin32_rad() 123 degrees = (radians * 360) / twopi; in fixp_sin32_rad() 124 tmp = radians - (degrees * twopi) / 360; in fixp_sin32_rad() 131 dx = twopi / 360; in fixp_sin32_rad() 141 #define fixp_cos32_rad(rad, twopi) \ argument 142 fixp_sin32_rad(rad + twopi / 4, twopi)
|
/dports/multimedia/libv4l/linux-5.13-rc2/include/linux/ |
H A D | fixp-arith.h | 112 static inline s32 fixp_sin32_rad(u32 radians, u32 twopi) in fixp_sin32_rad() argument 121 BUG_ON(twopi > 1 << 18); in fixp_sin32_rad() 123 degrees = (radians * 360) / twopi; in fixp_sin32_rad() 124 tmp = radians - (degrees * twopi) / 360; in fixp_sin32_rad() 131 dx = twopi / 360; in fixp_sin32_rad() 141 #define fixp_cos32_rad(rad, twopi) \ argument 142 fixp_sin32_rad(rad + twopi / 4, twopi)
|
/dports/multimedia/v4l-utils/linux-5.13-rc2/include/linux/ |
H A D | fixp-arith.h | 112 static inline s32 fixp_sin32_rad(u32 radians, u32 twopi) in fixp_sin32_rad() argument 121 BUG_ON(twopi > 1 << 18); in fixp_sin32_rad() 123 degrees = (radians * 360) / twopi; in fixp_sin32_rad() 124 tmp = radians - (degrees * twopi) / 360; in fixp_sin32_rad() 131 dx = twopi / 360; in fixp_sin32_rad() 141 #define fixp_cos32_rad(rad, twopi) \ argument 142 fixp_sin32_rad(rad + twopi / 4, twopi)
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-serial/ |
H A D | ewald_recp.f | 35 eikx(i,1)=dcmplx(dcos(twopi*rx),dsin(twopi*rx)) 36 eiky(i,1)=dcmplx(dcos(twopi*ry),dsin(twopi*ry)) 37 eikz(i,1)=dcmplx(dcos(twopi*rz),dsin(twopi*rz)) 78 rkx=twopi*rkx 79 rky=twopi*rky 80 rkz=twopi*rkz 101 force=-factor*2.0*twopi*convfct1/vol*kcoeff* 117 ewald2=twopi*ewald2*convfct1/vol
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-9-10-08/ |
H A D | ewald_recp.f | 35 eikx(i,1)=dcmplx(dcos(twopi*rx),dsin(twopi*rx)) 36 eiky(i,1)=dcmplx(dcos(twopi*ry),dsin(twopi*ry)) 37 eikz(i,1)=dcmplx(dcos(twopi*rz),dsin(twopi*rz)) 78 rkx=twopi*rkx 79 rky=twopi*rky 80 rkz=twopi*rkz 101 force=-factor*2.0*twopi*convfct1/vol*kcoeff* 117 ewald2=twopi*ewald2*convfct1/vol
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-original/ |
H A D | ewald_recp.f | 31 eikx(i,1)=dcmplx(dcos(twopi*rx),dsin(twopi*rx)) 32 eiky(i,1)=dcmplx(dcos(twopi*ry),dsin(twopi*ry)) 33 eikz(i,1)=dcmplx(dcos(twopi*rz),dsin(twopi*rz)) 74 rkx=twopi*rkx 75 rky=twopi*rky 76 rkz=twopi*rkz 97 force=-factor*2.0*twopi*convfct1/vol*kcoeff* 113 ewald2=twopi*ewald2*convfct1/vol
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-subgroups/ |
H A D | ewald_recp.f | 35 eikx(i,1)=dcmplx(dcos(twopi*rx),dsin(twopi*rx)) 36 eiky(i,1)=dcmplx(dcos(twopi*ry),dsin(twopi*ry)) 37 eikz(i,1)=dcmplx(dcos(twopi*rz),dsin(twopi*rz)) 78 rkx=twopi*rkx 79 rky=twopi*rky 80 rkz=twopi*rkz 101 force=-factor*2.0*twopi*convfct1/vol*kcoeff* 117 ewald2=twopi*ewald2*convfct1/vol
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-serial/ |
H A D | ewald_recp.f | 35 eikx(i,1)=dcmplx(dcos(twopi*rx),dsin(twopi*rx)) 36 eiky(i,1)=dcmplx(dcos(twopi*ry),dsin(twopi*ry)) 37 eikz(i,1)=dcmplx(dcos(twopi*rz),dsin(twopi*rz)) 78 rkx=twopi*rkx 79 rky=twopi*rky 80 rkz=twopi*rkz 101 force=-factor*2.0*twopi*convfct1/vol*kcoeff* 117 ewald2=twopi*ewald2*convfct1/vol
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-9-10-08/ |
H A D | ewald_recp.f | 35 eikx(i,1)=dcmplx(dcos(twopi*rx),dsin(twopi*rx)) 36 eiky(i,1)=dcmplx(dcos(twopi*ry),dsin(twopi*ry)) 37 eikz(i,1)=dcmplx(dcos(twopi*rz),dsin(twopi*rz)) 78 rkx=twopi*rkx 79 rky=twopi*rky 80 rkz=twopi*rkz 101 force=-factor*2.0*twopi*convfct1/vol*kcoeff* 117 ewald2=twopi*ewald2*convfct1/vol
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-original/ |
H A D | ewald_recp.f | 31 eikx(i,1)=dcmplx(dcos(twopi*rx),dsin(twopi*rx)) 32 eiky(i,1)=dcmplx(dcos(twopi*ry),dsin(twopi*ry)) 33 eikz(i,1)=dcmplx(dcos(twopi*rz),dsin(twopi*rz)) 74 rkx=twopi*rkx 75 rky=twopi*rky 76 rkz=twopi*rkz 97 force=-factor*2.0*twopi*convfct1/vol*kcoeff* 113 ewald2=twopi*ewald2*convfct1/vol
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-subgroups/ |
H A D | ewald_recp.f | 35 eikx(i,1)=dcmplx(dcos(twopi*rx),dsin(twopi*rx)) 36 eiky(i,1)=dcmplx(dcos(twopi*ry),dsin(twopi*ry)) 37 eikz(i,1)=dcmplx(dcos(twopi*rz),dsin(twopi*rz)) 78 rkx=twopi*rkx 79 rky=twopi*rky 80 rkz=twopi*rkz 101 force=-factor*2.0*twopi*convfct1/vol*kcoeff* 117 ewald2=twopi*ewald2*convfct1/vol
|
/dports/graphics/mypaint/mypaint-2.0.1/lib/fastapprox/ |
H A D | fasttrig.h | 107 static const float twopi = 6.2831853071795865f; in fastsinfull() local 112 return fastsin ((half + k) * twopi - x); in fastsinfull() 118 static const float twopi = 6.2831853071795865f; in fastersinfull() local 123 return fastersin ((half + k) * twopi - x); in fastersinfull() 179 static const float twopi = 6.2831853071795865f; in fasttanfull() local 184 float xnew = x - (half + k) * twopi; in fasttanfull() 192 static const float twopi = 6.2831853071795865f; in fastertanfull() local 197 float xnew = x - (half + k) * twopi; in fastertanfull() 249 const v4sf twopi = v4sfl (6.2831853071795865f); in vfastsinfull() local 264 const v4sf twopi = v4sfl (6.2831853071795865f); in vfastersinfull() local [all …]
|
/dports/math/vtk9/VTK-9.1.0/Rendering/OpenGL2/Testing/Cxx/ |
H A D | TestUserShader2.cxx | 52 double twopi = 2.0*vtkMath::Pi(); in Execute() 54 inputHSV[0] = sin(twopi*fmod(theTime,3.0)/3.0)/4.0 + 0.25; in Execute() 55 inputHSV[1] = sin(twopi*fmod(theTime,4.0)/4.0)/2.0 + 0.5; in Execute() 56 inputHSV[2] = 0.7*(sin(twopi*fmod(theTime,19.0)/19.0)/2.0 + 0.5); in Execute() 62 inputHSV[0] = sin(twopi*fmod(theTime,5.0)/5.0)/4.0 + 0.75; in Execute() 63 inputHSV[1] = sin(twopi*fmod(theTime,7.0)/7.0)/2.0 + 0.5; in Execute() 64 inputHSV[2] = 0.5*(sin(twopi*fmod(theTime,17.0)/17.0)/2.0 + 0.5); in Execute() 68 inputHSV[0] = sin(twopi*fmod(theTime,11.0)/11.0)/2.0+0.5; in Execute() 69 inputHSV[1] = sin(twopi*fmod(theTime,13.0)/13.0)/2.0 + 0.5; in Execute() 70 inputHSV[2] = 0.5*(sin(twopi*fmod(theTime,17.0)/17.0)/2.0 + 0.5); in Execute()
|
/dports/math/vtk8/VTK-8.2.0/Rendering/OpenGL2/Testing/Cxx/ |
H A D | TestUserShader2.cxx | 54 double twopi = 2.0*vtkMath::Pi(); in Execute() 56 inputHSV[0] = sin(twopi*fmod(theTime,3.0)/3.0)/4.0 + 0.25; in Execute() 57 inputHSV[1] = sin(twopi*fmod(theTime,4.0)/4.0)/2.0 + 0.5; in Execute() 58 inputHSV[2] = 0.7*(sin(twopi*fmod(theTime,19.0)/19.0)/2.0 + 0.5); in Execute() 64 inputHSV[0] = sin(twopi*fmod(theTime,5.0)/5.0)/4.0 + 0.75; in Execute() 65 inputHSV[1] = sin(twopi*fmod(theTime,7.0)/7.0)/2.0 + 0.5; in Execute() 66 inputHSV[2] = 0.5*(sin(twopi*fmod(theTime,17.0)/17.0)/2.0 + 0.5); in Execute() 70 inputHSV[0] = sin(twopi*fmod(theTime,11.0)/11.0)/2.0+0.5; in Execute() 71 inputHSV[1] = sin(twopi*fmod(theTime,13.0)/13.0)/2.0 + 0.5; in Execute() 72 inputHSV[2] = 0.5*(sin(twopi*fmod(theTime,17.0)/17.0)/2.0 + 0.5); in Execute()
|