| /dports/math/slatec/ |
| H A D | blachk.f | 24 DOUBLE PRECISION DFAC,DQFAC
27 DATA SFAC,SDFAC,DFAC,DQFAC / .625E-1, .50, .625D-1, 0.625D-1/
54 10 CALL CHECK0(SFAC,DFAC,KPRINT)
57 11 CALL CHECK1(SFAC,DFAC,KPRINT)
60 12 CALL CHECK2(SFAC,SDFAC,DFAC,DQFAC,KPRINT)
|
| H A D | check0.f | 2 SUBROUTINE CHECK0 (SFAC, DFAC, KPRINT) argument
29 DOUBLE PRECISION DA,DATRUE(8),DBTRUE(8),DZERO,DFAC,DB
114 CALL DTEST(1,DA,DATRUE(K),DATRUE(K),DFAC,KPRINT)
115 CALL DTEST(1,DB,DBTRUE(K),DBTRUE(K),DFAC,KPRINT)
116 CALL DTEST(1,DC,DC1(K),DC1(K),DFAC,KPRINT)
117 CALL DTEST(1,DS,DS1(K),DS1(K),DFAC,KPRINT)
140 CALL DTEST(9,DTEMP,DTRUE(1,K),DTRUE(1,K),DFAC,KPRINT)
|
| H A D | dtest.f | 2 SUBROUTINE DTEST (LEN, DCOMP, DTRUE, DSIZE, DFAC, KPRINT) argument
28 DOUBLE PRECISION DCOMP(*), DTRUE(*), DSIZE(*), DFAC, DD,
38 IF (DFAC*DD .GT. ABS(DSIZE(I))*RELEPS) THEN
|
| H A D | check1.f | 2 SUBROUTINE CHECK1 (SFAC, DFAC, KPRINT) argument
34 DOUBLE PRECISION DFAC
143 270 CALL DTEST(1,DNRM2(N,DX,INCX),DTRUE1(NP1),DTRUE1(NP1),DFAC,
155 300 CALL DTEST(1,DASUM(N,DX,INCX),DTRUE3(NP1),DTRUE3(NP1),DFAC,
171 1 DFAC,KPRINT)
|
| /dports/math/cmlib/cmlib-3.0_8/doc/fnlib/ |
| H A D | dfac | 2 DOUBLE PRECISION FUNCTION DFAC(N)
3 C***BEGIN PROLOGUE DFAC
12 C DFAC(N) calculates the double precision factorial for integer
16 C***END PROLOGUE DFAC
|
| /dports/science/libecpint/libecpint-1.0.7/src/lib/ |
| H A D | mathutil.cpp | 31 double DFAC[MAX_DFAC]; variable
61 DFAC[0] = 1.0; in initFactorials()
62 DFAC[1] = 1.0; in initFactorials()
65 for (int i = 2; i < MAX_DFAC; i++) DFAC[i] = double(i) * DFAC[i-2]; in initFactorials()
87 Plm[m][m] = ox2m * DFAC[2*m-1]; in realSphericalHarmonics()
|
| /dports/math/cmlib/cmlib-3.0_8/src/nl2sn/ |
| H A D | dupdu.f | 22 INTEGER DFAC, DTOL, DTYPE, NITER
24 DATA DFAC/41/, DTOL/59/, DTYPE/16/, NITER/31/
37 VDFAC = V(DFAC)
|
| H A D | dupd2.f | 33 INTEGER DFAC, DTYPE, JCN, JTOL, NITER, S
37 PARAMETER (DFAC=41, DTYPE=16, JCN=66, JTOL=59, NITER=31, S=62)
64 VDFAC = V(DFAC)
|
| H A D | lmstep.f | 133 REAL DFAC, EIGHT, HALF, NEGONE, ONE, P001, THREE,
166 PARAMETER (DFAC=256.E+0, EIGHT=8.E+0, HALF=0.5E+0, NEGONE=-1.E+0,
201 DTOL = ONE/DFAC
202 DFACSQ = DFAC*DFAC
343 WL = WL/DFAC
347 W(K) = W(K)/DFAC
390 250 STEP(K) = STEP(K)/DFAC
|
| H A D | vdflt.f | 18 INTEGER AFCTOL, BIAS, COSMIN, DECFAC, DELTA0, DFAC, DINIT, DLTFDC,
34 1 DFAC/41/, DINIT/38/, DLTFDC/42/, DLTFDJ/43/, DTINIT/39/,
57 V(DFAC) = 0.6E+0
|
| /dports/math/cmlib/cmlib-3.0_8/src/dnl2sn/ |
| H A D | ddupdu.f | 22 INTEGER DFAC, DTOL, DTYPE, NITER
24 DATA DFAC/41/, DTOL/59/, DTYPE/16/, NITER/31/
37 VDFAC = V(DFAC)
|
| H A D | ddupd2.f | 33 INTEGER DFAC, DTYPE, JCN, JTOL, NITER, S
35 DATA DFAC/41/, DTYPE/16/, JCN/66/, JTOL/59/, NITER/31/, S/62/
64 VDFAC = V(DFAC)
|
| H A D | dlmstp.f | 133 DOUBLE PRECISION DFAC, EIGHT, HALF, NEGONE, ONE, P001, THREE,
162 DATA DFAC/256.D+0/, EIGHT/8.D+0/, HALF/0.5D+0/, NEGONE/-1.D+0/,
201 DTOL = ONE/DFAC
202 DFACSQ = DFAC*DFAC
343 WL = WL/DFAC
347 W(K) = W(K)/DFAC
390 250 STEP(K) = STEP(K)/DFAC
|
| H A D | dvdflt.f | 19 INTEGER AFCTOL, BIAS, COSMIN, DECFAC, DELTA0, DFAC, DINIT, DLTFDC,
35 1 DFAC/41/, DINIT/38/, DLTFDC/42/, DLTFDJ/43/, DTINIT/39/,
58 V(DFAC) = 0.6D+0
|
| /dports/math/cmlib/cmlib-3.0_8/src/fnlib/ |
| H A D | dfac.f | 1 DOUBLE PRECISION FUNCTION DFAC(N) function
58 IF (N.LE.30) DFAC = FACN(N+1)
65 DFAC = DEXP ((X-0.5D0)*DLOG(X) - X + SQ2PIL + D9LGMC(X) )
|
| H A D | dpoch.f | 23 1 SGNGA, SGNGAX, DFAC, DLNREL, D9LGMC, DGAMMA, DGAMR, DCOT, DINT
42 DPOCH = (-1.0D0)**N * DFAC(-IA)/DFAC(-IA-N)
|
| /dports/science/afni/afni-AFNI_21.3.16/src/ |
| H A D | mri_3dalign.c | 21 #define DFAC (PI/180.0) macro
380 delta = sinit * 0.5 * DFAC / delta ; in mri_3dalign_setup()
404 delta = sinit * 0.5 * DFAC / delta ; in mri_3dalign_setup()
428 delta = sinit * 0.5 * DFAC / delta ; in mri_3dalign_setup()
611 ax1,fit[1]*DFAC , ax2,fit[2]*DFAC , ax3,fit[3]*DFAC , in mri_3dalign_one()
643 ASSIF(th1,fit[1]*DFAC) ; /* convert to radians */ in mri_3dalign_one()
644 ASSIF(th2,fit[2]*DFAC) ; in mri_3dalign_one()
645 ASSIF(th3,fit[3]*DFAC) ; in mri_3dalign_one()
666 ax1,fit[1]*DFAC, ax2,fit[2]*DFAC, ax3,fit[3]*DFAC, in mri_3dalign_one()
669 ax1,fit[1]*DFAC, ax2,fit[2]*DFAC, ax3,fit[3]*DFAC, in mri_3dalign_one()
[all …]
|
| H A D | mri_2dalign.c | 19 #define DFAC (PI/180.0) macro
119 tar[ii+joff] = DFAC * ( (ii-hnx) * yar[ii+joff] in mri_2dalign_setup()
150 tar[ii+joff] = DFAC * ( (ii-hnx) * yar[ii+joff] in mri_2dalign_setup()
223 tim = MRI_ROTA_COARSE( im2 , fit[1] , fit[2] , fit[3]*DFAC ) ; in mri_2dalign_one()
244 tim = MRI_ROTA_FINE( im2 , fit[1] , fit[2] , fit[3]*DFAC ) ; in mri_2dalign_one()
265 if( phi!= NULL ) *phi= fit[3]*DFAC ; in mri_2dalign_one()
269 tim = MRI_ROTA_REG( im2 , fit[1],fit[2],fit[3]*DFAC ) ; in mri_2dalign_one()
|
| H A D | mri_align.c | 19 #define DFAC (PI/180.0) macro
158 tar[ii+joff] = DFAC * ( (ii-hnx) * yar[ii+joff] in mri_align_dfspace()
192 tar[ii+joff] = DFAC * ( (ii-hnx) * yar[ii+joff] in mri_align_dfspace()
244 tim = MRI_ROTA_COARSE( im2 , fit[1] , fit[2] , fit[3]*DFAC ) ; in mri_align_dfspace()
275 tim = MRI_ROTA_FINE( im2 , fit[1] , fit[2] , fit[3]*DFAC ) ; in mri_align_dfspace()
303 phi[kim] = fit[3]*DFAC ; in mri_align_dfspace()
403 ref[0] = dx[kim] ; ref[1] = dy[kim] ; ref[2] = phi[kim] / DFAC ; in mri_align_dftime()
458 + fitar[1][ii] * dy[kim] + fitar[2][ii] * phi[kim] / DFAC ) ; in mri_align_dftime()
465 + fitar[1][ii] * dy[kim] + fitar[2][ii] * phi[kim] / DFAC ) ; in mri_align_dftime()
|
| /dports/math/slatec/src/ |
| H A D | dfac.f | 2 DOUBLE PRECISION FUNCTION DFAC (N)
67 IF (N.LE.30) DFAC = FACN(N+1)
74 DFAC = EXP ((X-0.5D0)*LOG(X) - X + SQ2PIL + D9LGMC(X) )
|
| H A D | dpoch.f | 31 1 SGNGA, SGNGAX, DFAC, DLNREL, D9LGMC, DGAMMA, DGAMR, DCOT
52 DPOCH = (-1.0D0)**N * DFAC(-IA)/DFAC(-IA-N)
|
| /dports/math/cmlib/cmlib-3.0_8/test/ |
| H A D | blas.f | 68 DOUBLE PRECISION DFAC,DQFAC local
101 10 CALL CHECK0(SFAC,DFAC,KPRINT)
104 11 CALL CHECK1(SFAC,DFAC,KPRINT)
140 SUBROUTINE CHECK0(SFAC,DFAC,KPRINT) argument
238 CALL DTEST(1,DC,DC1(K),DC1(K),DFAC,KPRINT)
239 CALL DTEST(1,DS,DS1(K),DS1(K),DFAC,KPRINT)
268 SUBROUTINE CHECK1(SFAC,DFAC,KPRINT) argument
285 DOUBLE PRECISION DFAC local
422 1 DFAC,KPRINT)
876 * DSIZE1(KN),DFAC,KPRINT)
[all …]
|
| /dports/science/libecpint/libecpint-1.0.7/doc/sphinx/source/api/ |
| H A D | variable_namespacelibecpint_1a4ecb557cc8bf8d94cfa80855985007bf.rst | 3 Variable libecpint::DFAC
13 .. doxygenvariable:: libecpint::DFAC
|
| /dports/math/cmlib/cmlib-3.0_8/doc/nl2sn/ |
| H A D | humsl | 43 C DESCRIBED BELOW WITH V(DFAC). DEFAULT = 0.
44 C V(DFAC)..... V(41) AND THE DTOL AND D0 ARRAYS (SEE V(DTINIT) AND
48 C D1(I) = MAX(SQRT(ABS(H(I,I))), V(DFAC)*D(I)),
58 C OF THE DTOL ARRAY (SEE V(DFAC)) ARE INITIALIZED. IF
63 C OF THE D0 VECTOR (SEE V(DFAC)) ARE INITIALIZED. IF
64 C V(DFAC) = 0, THEN IT IS ASSUMED THAT THE CALLER HAS
|
| /dports/math/cmlib/cmlib-3.0_8/doc/dnl2sn/ |
| H A D | dhumsl | 43 C DESCRIBED BELOW WITH V(DFAC). DEFAULT = 0.
44 C V(DFAC)..... V(41) AND THE DTOL AND D0 ARRAYS (SEE V(DTINIT) AND
48 C D1(I) = MAX(SQRT(ABS(H(I,I))), V(DFAC)*D(I)),
58 C OF THE DTOL ARRAY (SEE V(DFAC)) ARE INITIALIZED. IF
63 C OF THE D0 VECTOR (SEE V(DFAC)) ARE INITIALIZED. IF
64 C V(DFAC) = 0, THEN IT IS ASSUMED THAT THE CALLER HAS
|