/dports/comms/wsjtz/wsjtx/lib/ |
H A D | allsim.f90 | 32 isig=0 54 if(isig.eq.0 .or. isig.eq.1) then 58 if(isig.eq.0 .or. isig.eq.2) then 63 if(isig.eq.0 .or. isig.eq.3) then 68 if(isig.eq.0 .or. isig.eq.4) then !4 FST4-60 76 if(isig.eq.0 .or. isig.eq.5) then 81 if(isig.eq.0 .or. isig.eq.6) then 86 if(isig.eq.0 .or. isig.eq.7) then 95 if(isig.eq.0 .or. isig.eq.8) then 108 if(isig.eq.0 .or. isig.eq.9) then [all …]
|
H A D | jt65sim.f90 | 164 do isig=1,nsigs !Generate requested number of sigs 165 if(mod(nsigs,2).eq.0) f0=bf0 + dfsig*(isig-0.5-nsigs/2) 166 if(mod(nsigs,2).eq.1) f0=bf0 + dfsig*(isig-(nsigs+1)/2) 168 if(snrdb.eq.0.0) xsnr=-19 - isig 169 if(csubmode.eq.'B' .and. snrdb.eq.0.0) xsnr=-21 - isig 170 if(csubmode.eq.'C' .and. snrdb.eq.0.0) xsnr=-21 - isig 212 write(*,1020) ifile,isig,f0,csubmode,xsnr,xdt,fspread,msg
|
H A D | jt49sim.f90 | 92 do isig=1,nsigs !Generate requested number of sigs 93 if(mod(nsigs,2).eq.0) f0=1500.0 + dfsig*(isig-0.5-nsigs/2) 94 if(mod(nsigs,2).eq.1) f0=1500.0 + dfsig*(isig-(nsigs+1)/2) 98 if(snrdb.eq.0.0) xsnr=-20 - isig 106 write(*,1020) ifile,isig,f0,csubmode,xsnr,xdt,fspread,delay,message
|
H A D | jt4sim.f90 | 74 do isig=1,nsigs !Generate requested number of sigs 75 if(mod(nsigs,2).eq.0) f0=1500.0 + dfsig*(isig-0.5-nsigs/2) 76 if(mod(nsigs,2).eq.1) f0=1500.0 + dfsig*(isig-(nsigs+1)/2) 79 if(snrdb.eq.0.0) xsnr=-20 - isig 86 write(*,1020) ifile,isig,f0,csubmode,xsnr,xdt,fspread,message
|
/dports/net/freebsd-uucp/freebsd-uucp-r1_07_4/uucp/libunix/ |
H A D | signal.c | 71 ussignal (isig) in ussignal() argument 72 int isig; in ussignal() 77 (void) signal (isig, ussignal); 80 switch (isig) 116 usset_signal (isig, pfn, fforce, pfignored) in usset_signal() argument 117 int isig; in usset_signal() 175 if (sigvec (isig, &s, (struct sigvec *) NULL) != 0) 182 if (signal (isig, SIG_IGN) == SIG_IGN) 193 (void) signal (isig, pfn); 203 usysdep_signal (isig) in usysdep_signal() argument [all …]
|
H A D | cusub.c | 376 uscu_alarm (isig) in uscu_alarm() argument 377 int isig ATTRIBUTE_UNUSED; in uscu_alarm() 450 uscu_alarm_kill (isig) in uscu_alarm_kill() argument 561 uscu_child_handler (isig) in uscu_child_handler() argument 562 int isig; in uscu_child_handler() 568 iSchild_sig = isig; 648 int isig; local 655 isig = iSchild_sig; 657 if (isig != 0) 661 if (isig == SIGTERM) [all …]
|
/dports/comms/wsjtz/wsjtx/lib/wsprd/ |
H A D | wsprsim.c | 32 , double* isig, double* qsig) in add_signal_vector() argument 45 isig[ii]=isig[ii]+amp*cos(phi); in add_signal_vector() 186 double isig[45000], qsig[45000]; in main() local 187 memset(isig,0,sizeof(double)*45000); in main() 196 isig[i]=isig[i]+gaussrand(); in main() 203 add_signal_vector(f0, t0, snr, channel_symbols, isig, qsig); in main() 209 writec2file(c2filename, wsprtype, carrierfreq, isig, qsig); in main()
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/ |
H A D | elphon.f90 | 858 deg(isig) = isig * el_ph_sigma 863 dosfit(isig) = dos_ef ( ngauss1, deg(isig), effit(isig), etfit_dist, & 998 gf(ipert,jpert,isig) = gf(ipert,jpert,isig) + & 1031 gam(nu,isig) = gam(nu,isig) * pi/2.0d0 1049 lamb(nu,isig) = gam(nu,isig)/pi/w2(nu)/dosfit(isig) 1053 gam(nu,isig) = gam(nu,isig)*ry_to_ghz 1059 WRITE (6, 9005) dosfit(isig), effit(isig) * rytoev 1061 WRITE (6, 9010) nu, lamb(nu,isig), gam(nu,isig) 1076 WRITE (12, 9005) dosfit(isig), effit(isig) * rytoev 1078 WRITE (12, 9010) nu, lamb(nu,isig), gam(nu,isig) [all …]
|
H A D | write_qplot_data.f90 | 31 INTEGER :: n, i, isig, iq local 61 DO isig=1, el_ph_nsigma 62 filename = TRIM(auxdyn) // '.elph.'// int_to_char(isig) 68 WRITE(iunit,'(6f10.4)') (gamma_disp(i,isig,n), i=1,3*nat)
|
/dports/science/dynare/dynare-4.6.4/matlab/gsa/ |
H A D | log_trans_.m | 1 function [yy, xdir, isig, lam]=log_trans_(y0,xdir0,isig,lam) 27 yy = (exp(y0)-lam)*isig; 35 isig=1; 38 isig=-1; 57 isig=0; 64 isig=-1;
|
H A D | redform_map.m | 560 y1 = log(y0*isig+lam); 613 … gsa2.fs(:,j) = exp(gsa1.fs(:,j)).*mean(exp(gsa1.fit-gsa1.f(:,j)))*isig-lam*isig-gsa2.f0; 614 … gsa2.f(:,j) = exp(gsa1.f(:,j)).*mean(exp(gsa1.fit-gsa1.f(:,j)))*isig-lam*isig-gsa2.f0; 701 function gsa2 = log2level_map(gsa1, isig, lam) 706 gsa2.y = log_trans_(gsa1.y,'',isig,lam); 707 gsa2.fit = (exp(gsa1.fit)-lam)*isig; 713 gsa2.fs(:,j) = exp(gsa1.fs(:,j)).*mean(exp(gsa1.fit-gsa1.f(:,j)))*isig-lam*isig-gsa2.f0; 714 …) = exp(gsa1.fs(:,j)+gsa1.fses(:,j)).*mean(exp(gsa1.fit-gsa1.f(:,j)))*isig-lam*isig-gsa2.f0-gsa2.f… 715 gsa2.f(:,j) = exp(gsa1.f(:,j)).*mean(exp(gsa1.fit-gsa1.f(:,j)))*isig-lam*isig-gsa2.f0; 731 gsa2 = log2level_map(gsa1, isig, lam); [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/test-suite/not_epw_comp/ |
H A D | elphon.f90 | 803 deg(isig) = isig * el_ph_sigma 808 dosfit(isig) = dos_ef ( ngauss1, deg(isig), effit(isig), etfit_dist, & 940 gf(ipert,jpert,isig) = gf(ipert,jpert,isig) + & 968 gam(nu,isig) = gam(nu,isig) * pi/2.0d0 986 lamb(nu,isig) = gam(nu,isig)/pi/w2(nu)/dosfit(isig) 990 gam(nu,isig) = gam(nu,isig)*ry_to_ghz 996 WRITE (6, 9005) dosfit(isig), effit(isig) * rytoev 998 WRITE (6, 9010) nu, lamb(nu,isig), gam(nu,isig) 1013 WRITE (12, 9005) dosfit(isig), effit(isig) * rytoev 1015 WRITE (12, 9010) nu, lamb(nu,isig), gam(nu,isig) [all …]
|
/dports/devel/py-numba/numba-0.51.2/numba/np/ufunc/ |
H A D | dufunc.py | 29 isig = self.inner_sig 33 zip(args, osig.args, isig.args)] 36 types.pyobject, [types.pyobject] * len(isig.args)) 39 isig.return_type, isig.args) 46 self.builder, entry_point, isig.return_type, isig.args, 48 return self.cast(res, isig.return_type, osig.return_type)
|
/dports/net/freebsd-uucp/freebsd-uucp-r1_07_4/uucp/common_sources/ |
H A D | log.c | 268 int isig; local 271 for (isig = 0; isig < INDEXSIG_COUNT; isig++) 273 if (afLog_signal[isig]) 275 afLog_signal[isig] = FALSE; 280 if ((isig != INDEXSIG_SIGHUP && isig != INDEXSIG_SIGINT) 282 ulog (LOG_ERROR, "Got %s signal", azSignal_names[isig]);
|
/dports/comms/wsjtz/wsjtx/map65/libm65/ |
H A D | mapsim.f90 | 116 do isig=1,nsigs 130 if(npol.lt.0) pol=(isig-1)*180.0/nsigs 134 if(nsigs.gt.1) f=1000.0*(fa + (isig-1)*(fb-fa)/(nsigs-1.0)) 138 if(snrdb.eq.0.0) snrdbx=-15.0 - 15.0*(isig-1.0)/nsigs 140 write(*,1020) ifile,isig,mode,dt0,0.001*f,nint(pol),fDop,snrdbx,msgsent
|
/dports/lang/racket/racket-8.3/collects/racket/private/ |
H A D | unit-syntax.rkt | 144 (((import . isig) (export . esig) (init-depend . id) . body) 151 (((import . isig) (export . esig) . body) 157 ((import . isig) (export . esig) (init-depend) . body)))) 160 (((import . isig)) 162 (((import . isig) e . rest) 175 ((exp (import . isig) (export . esig) (init-depend . id)) 181 ((exp (import . isig) (export . esig)) 186 (exp (import . isig) (export . esig) (init-depend))))) 191 ((exp (import . isig)) 195 ((exp (import . isig) (export . esig) id) [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/racket/private/ |
H A D | unit-syntax.rkt | 144 (((import . isig) (export . esig) (init-depend . id) . body) 151 (((import . isig) (export . esig) . body) 157 ((import . isig) (export . esig) (init-depend) . body)))) 160 (((import . isig)) 162 (((import . isig) e . rest) 175 ((exp (import . isig) (export . esig) (init-depend . id)) 181 ((exp (import . isig) (export . esig)) 186 (exp (import . isig) (export . esig) (init-depend))))) 191 ((exp (import . isig)) 195 ((exp (import . isig) (export . esig) id) [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/EPW/src/ |
H A D | spectral_func.f90 | 1416 INTEGER :: isig local 1503 DO isig = 1, nsmear 1506 IF (isig < 10) THEN 1554 l = lambda_all(imode, iq, isig, itemp) 1555 IF (lambda_all(imode, iq, isig, itemp) < 0.d0) l = zero ! sanity check 1563 l_tr = lambda_v_all(imode, iq, isig, itemp) 1564 IF (lambda_v_all(imode, iq, isig, itemp) < 0.d0) l_tr = zero !sanity check 1594 IF (lambda_all(imode, iq, isig, itemp) > 0.d0 .AND. wf(imode, iq) > eps_acustic ) & 1595 lambda_tot = lambda_tot + wqf(iq) * lambda_all(imode, iq, isig, itemp) 1596 IF (lambda_v_all(imode, iq, isig, itemp) > 0.d0 .AND. wf(imode, iq) > eps_acustic) & [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/test-suite/ |
H A D | extract-epw.sh | 48 isig=`grep "Im\[Sigma\]=" $fname | awk '{print $10}'` 161 if test "$isig" != ""; then 162 echo isig 163 for x in $isig; do echo $x; done
|
/dports/cad/iverilog/verilog-11.0/ |
H A D | expr_synth.cc | 867 if (isig == 0) return 0; in synthesize() 869 if (isig->data_type() == IVL_VT_REAL) { in synthesize() 877 unsigned width = isig->vector_width(); in synthesize() 898 connect(isig->pin(0), gate->pin(1)); in synthesize() 947 if (isig == 0) return 0; in synthesize() 992 rtype, isig->vector_width()); in synthesize() 1013 if (isig == 0) return 0; in synthesize() 1017 isig = cast_to_int4(des, scope, isig, expr_width()); in synthesize() 1020 isig = cast_to_int2(des, scope, isig, expr_width()); in synthesize() 1023 isig = cast_to_real(des, scope, isig); in synthesize() [all …]
|
/dports/audio/faust/faust-2.37.3/compiler/normalize/ |
H A D | simplify.cpp | 332 Tree tbl, tbl2, id, id2, size, igen, isig, ridx, widx, wsig; in docTableConverter() local 338 faustassert(isSigGen(igen, isig)); in docTableConverter() 339 return sigDocAccessTbl(sigDocConstantTbl(size, isig), ridx); in docTableConverter() 344 faustassert(isSigGen(igen, isig)); in docTableConverter() 346 return sigDocAccessTbl(sigDocWriteTbl(size, isig, widx, wsig), ridx); in docTableConverter()
|
/dports/math/octave-forge-tsa/tsa-4.6.3/inst/ |
H A D | invfdemo.m | 25 isig=filter([1 -a],1,eeg8s); % Inverse filtering 34 plot((1:ly)/Fs,isig); 47 H=abs(fft(isig,128)/ly).^2;
|
/dports/shells/ksh2020/ast-ksh2020/src/cmd/ksh93/sh/ |
H A D | subshell.c | 447 int jmpval, isig, nsig = 0, duped = 0; in sh_subshell() local 528 for (isig = 0; isig < nsig; ++isig) { in sh_subshell() 529 savsig[isig] = shp->st.trapcom[isig] ? strdup(shp->st.trapcom[isig]) : NULL; in sh_subshell() 686 for (isig = 0; isig < nsig; ++isig) { in sh_subshell() 687 if (shp->st.trapcom[isig]) { in sh_subshell() 688 free(shp->st.trapcom[isig]); in sh_subshell()
|
/dports/sysutils/vector/vector-0.10.0/cargo-crates/krb5-src-0.2.4+1.18.2/krb5/src/util/ss/ |
H A D | listen.c | 74 struct sigaction isig, csig, nsig, osig; local 101 sigaction(SIGINT, &nsig, &isig); 160 sigaction(SIGINT, &isig, (struct sigaction *)0);
|
/dports/security/krb5/krb5-1.19.2/src/util/ss/ |
H A D | listen.c | 74 struct sigaction isig, csig, nsig, osig; local 101 sigaction(SIGINT, &nsig, &isig); 160 sigaction(SIGINT, &isig, (struct sigaction *)0);
|