/dports/comms/wsjtz/wsjtx/lib/ |
H A D | bpdecode144.f90 | 2 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 D | pltanh.f90 | 2 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 D | platanh.f90 | 2 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 D | four2a.f90 | 42 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 D | write_paw_recon.f90 | 20 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 D | fft_scalar.SX6.f90 | 43 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 D | fft_scalar.ESSL.f90 | 57 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 D | fft_scalar.FFTW.f90 | 56 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 D | fft_scalar.DFTI.f90 | 52 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 D | fft_scalar.FFTW3.f90 | 61 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 D | rational_factorization.cc | 177 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 D | s6findfac.c | 56 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 D | confp3.c | 108 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 D | FourierTransform.cpp | 71 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 D | four2a.f90 | 42 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 D | argos_pme_fft.F | 9 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 D | argos_pme_fft.F | 9 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 D | four2a.f90 | 58 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 D | nwfft3d.F | 22 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 D | nwfft3d.F | 22 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 D | dalcip.F | 81 $ 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 D | icint.F | 24 isign = +1 26 isign = +1 29 isign = -1 47 drdy_icint = drdy_icint * isign
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/drdy/ |
H A D | icint.F | 24 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 D | vnl_fft.cxx | 22 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 D | vnl_fft.cxx | 30 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()
|