Home
last modified time | relevance | path

Searched refs:isign (Results 1 – 25 of 684) sorted by relevance

12345678910>>...28

/dports/comms/wsjtz/wsjtx/lib/
H A Dbpdecode144.f902 isign=+1
5 isign=-1
12 y=isign*(0.322*z+0.4064)
15 y=isign*(0.0524*z+0.8378)
18 y=isign*(0.0012*z+0.9914)
21 y=isign*0.9998
27 isign=+1
30 isign=-1
37 y=isign*(z-0.4064)/0.322
40 y=isign*(z-0.8378)/0.0524
[all …]
H A Dpltanh.f902 isign=+1
5 isign=-1
12 y=isign*(0.322*z+0.4064)
15 y=isign*(0.0524*z+0.8378)
18 y=isign*(0.0012*z+0.9914)
21 y=isign*0.9998
H A Dplatanh.f902 isign=+1
5 isign=-1
12 y=isign*(z-0.4064)/0.322
15 y=isign*(z-0.8378)/0.0524
18 y=isign*(z-0.9914)/0.0012
21 y=isign*7.0
H A Dfour2a.f9042 if(nfft.eq.nn(i) .and. isign.eq.ns(i) .and. &
56 ns(i)=isign
75 if(isign.eq.-1 .and. iform.eq.1) then
77 else if(isign.eq.1 .and. iform.eq.1) then
79 else if(isign.eq.-1 .and. iform.eq.0) then
81 else if(isign.eq.1 .and. iform.eq.-1) then
/dports/science/quantum-espresso/q-e-qe-6.7.0/atomic/src/
H A Dwrite_paw_recon.f9020 integer :: i, j, n, m, l, ios, iae, isign local
51 isign=+1
57 isign=-1
59 isign=+1
64 write (51,'(1p4e19.11)') (isign*psi(n,1,iae) , n=1,grid%mesh )
80 isign=-1
82 isign=+1
87 write (51,'(1p4e19.11)') (isign*phits(n,i) , n=1,grid%mesh )
/dports/science/quantum-espresso/q-e-qe-6.7.0/FFTXlib/
H A Dfft_scalar.SX6.f9043 SUBROUTINE cft_1z(c, nsl, nz, ldz, isign, cout) argument
54 INTEGER, INTENT(IN) :: isign local
128 IF ( isign < 0 ) THEN
131 ELSE IF ( isign > 0 ) THEN
175 INTEGER, INTENT(IN) :: isign, ldx, ldy, nx, ny, nzl local
256 IF( isign < 0 ) THEN
280 ELSE IF ( isign > 0 ) THEN
433 -isign, iw0(1,ip), auxp(1,ip), cw2(1), err)
435 IF ( isign < 0) THEN
443 IF ( isign < 0) THEN
[all …]
H A Dfft_scalar.ESSL.f9057 SUBROUTINE cft_1z(c, nsl, nz, ldz, isign, cout) argument
68 INTEGER, INTENT(IN) :: isign local
153 IF( isign < 0 ) THEN
158 ELSE IF( isign > 0 ) THEN
301 IF( isign < 0 ) THEN
310 ELSE IF( isign > 0 ) THEN
322 IF( isign < 0 ) THEN
337 ELSE IF( isign > 0 ) THEN
439 IF ( isign < 0 ) THEN
442 ELSE IF( isign > 0 ) THEN
[all …]
H A Dfft_scalar.FFTW.f9056 INTEGER, INTENT(IN) :: isign local
106 IF (isign < 0) THEN
118 ELSE IF (isign > 0) THEN
135 IF (isign < 0) THEN
139 ELSE IF (isign > 0) THEN
262 IF( isign < 0 ) THEN
269 ELSE IF( isign > 0 ) THEN
283 IF( isign < 0 ) THEN
356 IF( isign < 0 ) THEN
494 IF( isign < 0 ) THEN
[all …]
H A Dfft_scalar.DFTI.f9052 SUBROUTINE cft_1z(c, nsl, nz, ldz, isign, cout, in_place) argument
63 INTEGER, INTENT(IN) :: isign local
125 IF (isign < 0) THEN
133 ELSE IF (isign > 0) THEN
243 SUBROUTINE cft_2xy(r, nzl, nx, ny, ldx, ldy, isign, pl2ix) argument
257 INTEGER, INTENT(IN) :: isign, ldx, ldy, nx, ny, nzl local
303 IF( isign < 0 ) THEN
311 ELSE IF( isign > 0 ) THEN
465 IF( isign < 0 ) THEN
473 ELSE IF( isign > 0 ) THEN
[all …]
H A Dfft_scalar.FFTW3.f9061 SUBROUTINE cft_1z(c, nsl, nz, ldz, isign, cout) argument
72 INTEGER, INTENT(IN) :: isign local
115 IF (isign < 0) THEN
119 ELSE IF (isign > 0) THEN
239 IF( isign < 0 ) THEN
254 ELSE IF( isign > 0 ) THEN
269 IF( isign < 0 ) THEN
273 ELSE IF( isign > 0 ) THEN
413 IF( isign < 0 ) THEN
418 ELSE IF( isign > 0 ) THEN
[all …]
/dports/math/lidia/lidia-2.3.0+latte-patches-2014-10-04/src/base/simple_classes/factorization/
H A Drational_factorization.cc177 isign = 0; in rational_factorization()
193 isign = 1; in rational_factorization()
201 isign = 1; in rational_factorization()
228 isign = 1; in rational_factorization()
256 isign = 1; in rational_factorization()
290 isign = 1; in rational_factorization()
393 isign = f.isign; in rational_factorization()
408 isign = f.isign; in operator =()
574 isign = f.isign; in assign()
866 f.isign = a.isign * b.isign; in multiply()
[all …]
/dports/math/sisl/SISL-SISL-4.6.0-44-g9114631/src/
H A Ds6findfac.c56 int idim,int isign,double *coef1,double *coef2,double *coef3,int *jstat) in s6findfac() argument
59 void s6findfac(evecu,evecv,evecw,etang,idim,isign,coef1,coef2,coef3,jstat) in s6findfac()
65 int isign;
135 tdotutang = (double)isign*s6scpr(evecu,etang,idim);
137 tdotvtang = (double)isign*s6scpr(evecv,etang,idim);
158 sdum[ki] = (double)isign*etang[ki] - *coef1*evecu[ki] - *coef2*evecv[ki];
/dports/science/cgribex/cgribex-1.9.4/src/
H A Dconfp3.c108 const int isign = (zref >= 0.0) ? 0 : 128; in confp3() local
129 *kmant = (isign == 0) ? (int)rpowref : (int)lround(rpowref + 0.5); in confp3()
153 Message("Sign = %3d, Exponent = %3d, Mantissa = %12d", isign, iexp, *kmant); in confp3()
171 *kmant = (isign == 0) ? (int)rpowref : (int)lround(rpowref + 0.5); in confp3()
185 *kexp = iexp + isign; in confp3()
/dports/science/qbox/qbox-public-rel1_73_3/src/
H A DFourierTransform.cpp71 int *n1, int *n2, int *isign,
860 int initflag = 1, inc1, inc2, isign = -1; in init_lib() local
864 isign = 1; in init_lib()
873 isign = -1; in init_lib()
876 isign = 1; scale = 1.0 / np012(); in init_lib()
909 isign = -1; in init_lib()
912 isign = 1; in init_lib()
921 isign = -1; in init_lib()
924 isign = 1; in init_lib()
933 isign = -1; in init_lib()
[all …]
/dports/comms/wsjtz/wsjtx/map65/libm65/
H A Dfour2a.f9042 if(nfft.eq.nn(i) .and. isign.eq.ns(i) .and. &
56 ns(i)=isign
75 if(isign.eq.-1 .and. iform.eq.1) then
77 else if(isign.eq.1 .and. iform.eq.1) then
79 else if(isign.eq.-1 .and. iform.eq.0) then
81 else if(isign.eq.1 .and. iform.eq.-1) then
/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/
H A Dargos_pme_fft.F9 integer nd1,nd2,nd3,isign,map1(*),map2(*),itype
38 isign=isgn
41 if(isgn.lt.-1) isign=-1
55 if(lpnode) call pdcft3(x1,x2,nd1,nd2,nd3,isign,scale,icntxt,ip)
89 call pfft3d(isign,nd1,nd2,nd3,x2,map1,map2,
102 if(isign.eq.-1) then
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/
H A Dargos_pme_fft.F9 integer nd1,nd2,nd3,isign,map1(*),map2(*),itype
38 isign=isgn
41 if(isgn.lt.-1) isign=-1
55 if(lpnode) call pdcft3(x1,x2,nd1,nd2,nd3,isign,scale,icntxt,ip)
89 call pfft3d(isign,nd1,nd2,nd3,x2,map1,map2,
102 if(isign.eq.-1) then
/dports/comms/sdr-wspr/sdr-wspr-0.1.0/libwspr/
H A Dfour2a.f9058 if(nfft.eq.nn(i) .and. isign.eq.ns(i) .and. &
65 ns(i)=isign
87 if(isign.eq.-1 .and. iform.eq.1) then
89 else if(isign.eq.1 .and. iform.eq.1) then
91 else if(isign.eq.-1 .and. iform.eq.0) then
93 else if(isign.eq.1 .and. iform.eq.-1) then
/dports/science/nwchem-data/nwchem-7.0.2-release/src/fft/pfftwrap/
H A Dnwfft3d.F22 INTEGER nd1,nd2,nd3, isign,jstatus,idir
87 isign=idir
88 if(isign.lt.-1) isign=-1
219 call pdcft3(x1,x2,nd1,nd2,nd3,isign,scale,icontext,ip)
233 call pfft3d(isign,nd1,nd2,nd3,x2,map1,map2,
236 call pfft3d(isign,nd1,nd2,nd3,x2,map1,map2,
239 if (isign.EQ.-1) then
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/fft/pfftwrap/
H A Dnwfft3d.F22 INTEGER nd1,nd2,nd3, isign,jstatus,idir
87 isign=idir
88 if(isign.lt.-1) isign=-1
219 call pdcft3(x1,x2,nd1,nd2,nd3,isign,scale,icontext,ip)
233 call pfft3d(isign,nd1,nd2,nd3,x2,map1,map2,
236 call pfft3d(isign,nd1,nd2,nd3,x2,map1,map2,
239 if (isign.EQ.-1) then
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/sirius/
H A Ddalcip.F81 $ idet,isign)
196 isign=1
199 if(istri(i).gt.istri(j))isign=-isign
204 if(jstri(i).gt.jstri(j))isign=-isign
211 $ ina,idet,isign)
296 isign=1
299 if(istri(i).gt.istri(j))isign=-isign
304 if(jstri(i).gt.jstri(j))isign=-isign
383 isign=1
386 if(istri(i).gt.istri(j))isign=-isign
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/drdy/
H A Dicint.F24 isign = +1
26 isign = +1
29 isign = -1
47 drdy_icint = drdy_icint * isign
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/drdy/
H A Dicint.F24 isign = +1
26 isign = +1
29 isign = -1
47 drdy_icint = drdy_icint * isign
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/core/vnl/algo/
H A Dvnl_fft.cxx22 long lot, long isign, long const pqr[3], long *info) in vnl_fft_gpfa() argument
24 v3p_netlib_gpfa_(a, b, triggs, &inc, &jump, &n, &lot, &isign, pqr); in vnl_fft_gpfa()
30 long lot, long isign, long const pqr[3], long *info) in vnl_fft_gpfa() argument
32 v3p_netlib_dgpfa_(a, b, triggs, &inc, &jump, &n, &lot, &isign, pqr); in vnl_fft_gpfa()
/dports/misc/vxl/vxl-3.3.2/core/vnl/algo/
H A Dvnl_fft.cxx30 long isign, in vnl_fft_gpfa() argument
34 v3p_netlib_gpfa_(a, b, triggs, &inc, &jump, &n, &lot, &isign, pqr); in vnl_fft_gpfa()
46 long isign, in vnl_fft_gpfa() argument
50 v3p_netlib_dgpfa_(a, b, triggs, &inc, &jump, &n, &lot, &isign, pqr); in vnl_fft_gpfa()

12345678910>>...28