/dports/astro/pykep/pykep-2.6/src/third_party/cspice/ |
H A D | isrot_c.c | 51 SpiceDouble ntol, in isrot_c() argument 237 if ( ntol < 0.0 ) in isrot_c() 241 errdp_c ( "#", ntol ); in isrot_c() 274 normok = ( n0 == brcktd_c ( n0, 1.0 - ntol, 1.0 + ntol ) ) in isrot_c() 275 && ( n1 == brcktd_c ( n1, 1.0 - ntol, 1.0 + ntol ) ) in isrot_c() 276 && ( n2 == brcktd_c ( n2, 1.0 - ntol, 1.0 + ntol ) ); in isrot_c()
|
H A D | isrot.c | 9 logical isrot_(doublereal *m, doublereal *ntol, doublereal *dtol) in isrot_() argument 249 if (*ntol < 0.) { in isrot_() 252 errdp_("#", ntol, (ftnlen)1); in isrot_() 277 d__1 = 1. - *ntol; in isrot_() 278 d__2 = *ntol + 1.; in isrot_() 279 d__3 = 1. - *ntol; in isrot_() 280 d__4 = *ntol + 1.; in isrot_() 281 d__5 = 1. - *ntol; in isrot_() 282 d__6 = *ntol + 1.; in isrot_()
|
/dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/ |
H A D | isrot_c.c | 51 SpiceDouble ntol, in isrot_c() argument 237 if ( ntol < 0.0 ) in isrot_c() 241 errdp_c ( "#", ntol ); in isrot_c() 274 normok = ( n0 == brcktd_c ( n0, 1.0 - ntol, 1.0 + ntol ) ) in isrot_c() 275 && ( n1 == brcktd_c ( n1, 1.0 - ntol, 1.0 + ntol ) ) in isrot_c() 276 && ( n2 == brcktd_c ( n2, 1.0 - ntol, 1.0 + ntol ) ); in isrot_c()
|
H A D | isrot.c | 9 logical isrot_(doublereal *m, doublereal *ntol, doublereal *dtol) in isrot_() argument 249 if (*ntol < 0.) { in isrot_() 252 errdp_("#", ntol, (ftnlen)1); in isrot_() 277 d__1 = 1. - *ntol; in isrot_() 278 d__2 = *ntol + 1.; in isrot_() 279 d__3 = 1. - *ntol; in isrot_() 280 d__4 = *ntol + 1.; in isrot_() 281 d__5 = 1. - *ntol; in isrot_() 282 d__6 = *ntol + 1.; in isrot_()
|
/dports/comms/wsjtz/wsjtx/lib/ |
H A D | jt9.f90 | 90 ntol = 20 122 read (optarg(:arglen), *) ntol 216 ntol = min (ntol, 100) 218 ntol = 20 220 ntol = 10 222 ntol = min (ntol, 1000) 293 shared_data%params%ntol=ntol
|
H A D | jt65.f90 | 40 ntol=20 84 ntol=100 85 nlow=nfqso-ntol 86 nhigh=nfqso+ntol 127 call test(dd,nutc,nfa,nfb,nfqso,ntol,nsubmode, &
|
H A D | jt9w.f90 | 19 read(60,end=999) nutc,nfqso,ntol,ndepth,nmode,nsubmode,ss,id2 21 ntol=100 22 call decode9w(nutc,nfqso,ntol,nsubmode,ss,id2,sync,nsnr,xdt,freq,decoded)
|
H A D | jt65_decode.f90 | 39 ntol,nsubmode,minsync,nagain,n2pass,nrobust,ntrials,naggressive, & argument 53 integer, intent(in) :: npts, nutc, nf1, nf2, nfqso, ntol & local 154 if(single_decode .or. (bVHF .and. ntol.lt.1000)) then 155 nfa=max(200,nfqso-ntol) 156 nfb=min(4000,nfqso+ntol) 174 call sync65(nfa,nfb,ntol,nqsym,ca,ncand,nrob,bVHF) 215 naggressive,ndepth,ntol,mycall,hiscall,hisgrid,nQSOProgress, & 260 if(nutc.ne.nutc0 .or. abs(nfreq-nfreq0).gt.ntol) then 266 call avg65(nutc,nsave,sync1,dtx,nflip,nfreq,mode65,ntol, & 387 if(nutc.eq.iutc(i) .and. abs(nfreq-nfsave(i)).le.ntol) go to 10 [all …]
|
H A D | msk144spd.f90 | 71 ihlo=nint((nfhi-2*ntol)/df) + 1 72 ihhi=nint((nfhi+2*ntol)/df) + 1 73 illo=nint((nflo-2*ntol)/df) + 1 74 ilhi=nint((nflo+2*ntol)/df) + 1 131 if( abs(detfer(il)) .le. ntol ) then 145 if( abs(detfer(il)) .le. ntol ) then
|
H A D | jt4_decode.f90 | 73 ntol=ntol0 90 call this%wsjt4(dat,jz2,nutc,NClearAve,minsync,ntol,emedelay,dttol,mode4, & 97 subroutine wsjt4(this,dat,npts,nutc,NClearAve,minsync,ntol,emedelay,dttol, & argument 108 integer, intent(in) :: npts,nutc,minsync,ntol,mode4,minw, & local 152 call sync4(dat,npts,ntol,nfqso,4,mode4,minw+1,dtx,dfx, & 215 if(nutc.ne.nutc0 .or. abs(nfreq-nfreq0).gt.ntol) then 222 call this%avg4(nutc,sync,dtx,flip,nfreq,mode4,ntol,ndepth,neme, & 280 subroutine avg4(this,nutc,snrsync,dtxx,flip,nfreq,mode4,ntol,ndepth,neme, & argument 306 if(nutc.eq.iutc(i) .and. abs(nfreq-nfsave(i)).le.ntol) go to 10 328 if(abs(nfreq-nfsave(i)).gt.ntol) cycle !Freq must match
|
H A D | msk40spd.f90 | 71 ihlo=nint((nfhi-2*ntol)/df)+1 72 ihhi=nint((nfhi+2*ntol)/df)+1 73 illo=nint((nflo-2*ntol)/df)+1 74 ilhi=nint((nflo+2*ntol)/df)+1 131 if( abs(detfer(il)) .le. ntol ) then 145 if( abs(detfer(il)) .le. ntol ) then
|
H A D | jt65_test.f90 | 13 subroutine test (dd,nutc,nflow,nfhigh,nfqso,ntol,nsubmode,n2pass,nrobust & argument 22 integer, intent(in) :: nutc, nflow, nfhigh, nfqso, ntol, nsubmode, n2pass & local 33 nutc=nutc,nf1=nflow,nf2=nfhigh,nfqso=nfqso,ntol=ntol, &
|
H A D | qratest.f90 | 34 read(60,end=999) dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, & 40 if(ntol0.ne.-1) ntol=ntol0 42 call qra64a(dd,npts,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
|
H A D | msk144sync.f90 | 56 nfreqs=2*nint(ntol/delf) + 1 66 if1=-nint(ntol/delf) + (id-1)*nstep 68 if(id.eq.nthreads) if2=nint(ntol/delf)
|
H A D | msk40sync.f90 | 56 nfreqs=2*nint(ntol/delf) + 1 66 if1=-nint(ntol/delf) + (id-1)*nstep 68 if(id.eq.nthreads) if2=nint(ntol/delf)
|
H A D | sh65.f90 | 44 fa=-ntol 45 fb=ntol 72 if(abs(xdf).le.ntol) then
|
/dports/math/R-cran-prodlim/prodlim/R/ |
H A D | prodlimIcensSurv.R | 9 ntol <- 10^{-tol} functionVar 85 as.double(ntol), 100 "tol"=ntol, 124 …x),as.integer(N),as.integer(M),Z=as.double(Z),double(length(Z)),as.double(ntol),as.integer(maxiter… 128 …=round(surv,tol),"maxtime"=max(c(peto.intervals)),"n.iter"=fit$steps,"tol"=ntol,"model"="survival")
|
/dports/comms/wsjtz/wsjtx/map65/libm65/ |
H A D | q65b.f90 | 53 ia=nint(ifreq-ntol/df3) 54 ib=nint(ifreq+ntol/df3) 135 nfa=max(100,1000-ntol) 136 nfb=min(2500,1000+ntol) 141 call map65_mmdec(nutc,iwave,nqd,nsubmode,nfa,nfb,1000,ntol, & 162 if(nqd.eq.1 .and. abs(nq65df-mousedf).lt.ntol) then
|
H A D | map65a.f90 | 102 fa=1000.0*(fqso+0.001*mousedf) - ntol 103 fb=1000.0*(fqso+0.001*mousedf) + ntol + 4*53.8330078 169 if(nqd.eq.1 .and. ntol.le.100) thresh0=0. 185 if(abs(noffset).le.ntol) then 226 if(nqd.eq.1 .and. ntol.le.100) thresh1=0. 233 if(sync1.gt.thresh1 .and. abs(noffset).le.ntol) then 257 ndphi,nutc,ikHz,idf,ipol,ntol,sync2, & 358 if(nqd.eq.1 .and. abs(nhzdiff).gt.ntol) cycle 364 ntol,xpol,mycall,mygrid, hiscall,hisgrid,mode_q65,f0,fqso, & 375 ntol,xpol,mycall,mygrid,hiscall,hisgrid,mode_q65,f0,fqso, & [all …]
|
/dports/math/suitesparse-graphblas/SuiteSparse-5.10.1/SPQR/Source/ |
H A D | spqr_front.cpp | 287 Long ntol, // apply tol only to first ntol pivot columns in spqr_front() argument 343 ntol = MIN (ntol, npiv) ; // Note ntol can be negative, which means to in spqr_front() 424 if (k < ntol && (wk = spqr_abs (F [INDEX (g,k,m)], cc)) <= tol) in spqr_front() 598 Long ntol, // apply tol only to first ntol pivot columns 632 Long ntol, // apply tol only to first ntol pivot columns
|
/dports/math/suitesparse-ldl/SuiteSparse-5.10.1/SPQR/Source/ |
H A D | spqr_front.cpp | 287 Long ntol, // apply tol only to first ntol pivot columns in spqr_front() argument 343 ntol = MIN (ntol, npiv) ; // Note ntol can be negative, which means to in spqr_front() 424 if (k < ntol && (wk = spqr_abs (F [INDEX (g,k,m)], cc)) <= tol) in spqr_front() 598 Long ntol, // apply tol only to first ntol pivot columns 632 Long ntol, // apply tol only to first ntol pivot columns
|
/dports/math/suitesparse-colamd/SuiteSparse-5.10.1/SPQR/Source/ |
H A D | spqr_front.cpp | 287 Long ntol, // apply tol only to first ntol pivot columns in spqr_front() argument 343 ntol = MIN (ntol, npiv) ; // Note ntol can be negative, which means to in spqr_front() 424 if (k < ntol && (wk = spqr_abs (F [INDEX (g,k,m)], cc)) <= tol) in spqr_front() 598 Long ntol, // apply tol only to first ntol pivot columns 632 Long ntol, // apply tol only to first ntol pivot columns
|
/dports/math/suitesparse-config/SuiteSparse-5.10.1/SPQR/Source/ |
H A D | spqr_front.cpp | 287 Long ntol, // apply tol only to first ntol pivot columns in spqr_front() argument 343 ntol = MIN (ntol, npiv) ; // Note ntol can be negative, which means to in spqr_front() 424 if (k < ntol && (wk = spqr_abs (F [INDEX (g,k,m)], cc)) <= tol) in spqr_front() 598 Long ntol, // apply tol only to first ntol pivot columns 632 Long ntol, // apply tol only to first ntol pivot columns
|
/dports/math/suitesparse-amd/SuiteSparse-5.10.1/SPQR/Source/ |
H A D | spqr_front.cpp | 287 Long ntol, // apply tol only to first ntol pivot columns in spqr_front() argument 343 ntol = MIN (ntol, npiv) ; // Note ntol can be negative, which means to in spqr_front() 424 if (k < ntol && (wk = spqr_abs (F [INDEX (g,k,m)], cc)) <= tol) in spqr_front() 598 Long ntol, // apply tol only to first ntol pivot columns 632 Long ntol, // apply tol only to first ntol pivot columns
|
/dports/math/suitesparse-klu/SuiteSparse-5.10.1/SPQR/Source/ |
H A D | spqr_front.cpp | 287 Long ntol, // apply tol only to first ntol pivot columns in spqr_front() argument 343 ntol = MIN (ntol, npiv) ; // Note ntol can be negative, which means to in spqr_front() 424 if (k < ntol && (wk = spqr_abs (F [INDEX (g,k,m)], cc)) <= tol) in spqr_front() 598 Long ntol, // apply tol only to first ntol pivot columns 632 Long ntol, // apply tol only to first ntol pivot columns
|