/dports/math/slatec/src/ |
H A D | dcot.f | 2 DOUBLE PRECISION FUNCTION DCOT (X) 90 DCOT = 1.0D0/X 91 IF (Y.GT.XSML) DCOT = (0.5D0 + DCSEVL (32.0D0*Y*Y-1.D0, COTCS, 96 DCOT = (0.5D0 + DCSEVL (8.D0*Y*Y-1.D0, COTCS, NTERMS))/(0.5D0*Y) 97 DCOT = (DCOT*DCOT-1.D0)*0.5D0/DCOT 100 30 DCOT = (0.5D0 + DCSEVL (2.D0*Y*Y-1.D0, COTCS, NTERMS))/(.25D0*Y) 101 DCOT = (DCOT*DCOT-1.D0)*0.5D0/DCOT 102 DCOT = (DCOT*DCOT-1.D0)*0.5D0/DCOT 104 40 IF (X.NE.0.D0) DCOT = SIGN (DCOT, X) 105 IF (IFN.EQ.1) DCOT = -DCOT
|
H A D | dpsi.f | 42 1 Y, DCOT, DCSEVL, D1MACH 44 EXTERNAL DCOT 159 1 - PI*DCOT(PI*X)
|
H A D | dpoch1.f | 53 2 SQTBIG, TERM, TRIG, VAR, VAR2, D1MACH, DPSI, DEXPRL, DCOT, DPOCH 55 EXTERNAL DCOT 152 TRIG = SINPXX*DCOT(PI*B) - 2.0D0*SINPX2*(SINPX2/X)
|
H A D | dpoch.f | 31 1 SGNGA, SGNGAX, DFAC, DLNREL, D9LGMC, DGAMMA, DGAMR, DCOT 94 1 DPOCH/(COS(PI*X) + DCOT(PI*A)*SIN(PI*X) )
|
/dports/math/cmlib/cmlib-3.0_8/src/fnlib/ |
H A D | dcot.f | 1 DOUBLE PRECISION FUNCTION DCOT(X) function 77 DCOT = 1.0D0/X 78 IF (Y.GT.XSML) DCOT = (0.5D0 + DCSEVL (32.0D0*Y*Y-1.D0, COTCS, 83 DCOT = (0.5D0 + DCSEVL (8.D0*Y*Y-1.D0, COTCS, NTERMS))/(0.5D0*Y) 84 DCOT = (DCOT*DCOT-1.D0)*0.5D0/DCOT 87 30 DCOT = (0.5D0 + DCSEVL (2.D0*Y*Y-1.D0, COTCS, NTERMS))/(.25D0*Y) 88 DCOT = (DCOT*DCOT-1.D0)*0.5D0/DCOT 89 DCOT = (DCOT*DCOT-1.D0)*0.5D0/DCOT 91 40 IF (X.NE.0.D0) DCOT = DSIGN (DCOT, X) 92 IF (IFN.EQ.1) DCOT = -DCOT
|
H A D | dpoch.f | 23 1 SGNGA, SGNGAX, DFAC, DLNREL, D9LGMC, DGAMMA, DGAMR, DCOT, DINT 84 1 DPOCH/(DCOS(PI*X) + DCOT(PI*A)*DSIN(PI*X) )
|
H A D | dpoch1.f | 43 2 SQTBIG, TERM, TRIG, VAR, VAR2, D1MACH, DPSI, DEXPRL, DCOT, DPOCH 137 TRIG = SINPXX*DCOT(PI*B) - 2.0D0*SINPX2*(SINPX2/X)
|
H A D | dpsi.f | 32 1 Y, DINT, DCOT, DCSEVL, D1MACH 143 1 - PI*DCOT(PI*X)
|
/dports/math/cmlib/cmlib-3.0_8/doc/fnlib/ |
H A D | dcot | 2 DOUBLE PRECISION FUNCTION DCOT(X) 3 C***BEGIN PROLOGUE DCOT 13 C DCOT(X) calculates the double precision trigonometric cotangent 23 C***END PROLOGUE DCOT
|
H A D | dpoch | 19 C***ROUTINES CALLED D9LGMC,DCOT,DFAC,DGAMMA,DGAMR,DINT,DLGAMS,DLNREL,
|
H A D | dpsi | 30 C***ROUTINES CALLED D1MACH,DCOT,DCSEVL,DINT,INITDS,XERROR
|
H A D | dpoch1 | 40 C***ROUTINES CALLED D1MACH,DCOT,DEXPRL,DPOCH,DPSI,XERROR
|
H A D | Summary | 49 C Cotangent cot x COT(X) DCOT CCOT
|
/dports/math/slatec/ |
H A D | dfnck.f | 47 + DCOT,DDAWS,DE1,DEI,DERF,DEXPRL,DFAC,DGAMI,DGAMIC, 50 EXTERNAL DCOT, DERF, DGAMMA 179 Y( 9) = DCOT(1.D0) 180 Y( 10) = DCOT(-.5D0)
|
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
H A D | dp6.F | 5171 DOUBLE PRECISION FUNCTION DCOT (X) function 5229 DCOT=DBLE(CPUMIN) 5280 DCOT = 1.0D0/X 5281 IF (Y.GT.XSML) DCOT = (0.5D0 + DCSEVL (32.0D0*Y*Y-1.D0, COTCS, 5286 DCOT = (0.5D0 + DCSEVL (8.D0*Y*Y-1.D0, COTCS, NTERMS))/(0.5D0*Y) 5287 DCOT = (DCOT*DCOT-1.D0)*0.5D0/DCOT 5290 30 DCOT = (0.5D0 + DCSEVL (2.D0*Y*Y-1.D0, COTCS, NTERMS))/(.25D0*Y) 5291 DCOT = (DCOT*DCOT-1.D0)*0.5D0/DCOT 5292 DCOT = (DCOT*DCOT-1.D0)*0.5D0/DCOT 5294 40 IF (X.NE.0.D0) DCOT = SIGN (DCOT, X) [all …]
|
H A D | dp7.F | 4599 1 SGNGA, SGNGAX, DFAC, DLNREL, D9LGMC, DGAMMA, DGAMR, DCOT 4601 EXTERNAL DCOT 4671 1 DPOCH/(COS(PI*X) + DCOT(PI*A)*SIN(PI*X) ) 4737 2 SQTBIG, TERM, TRIG, VAR, VAR2, DPSI, DEXPRL, DCOT, DPOCH 4739 EXTERNAL DCOT 4844 TRIG = SINPXX*DCOT(PI*B) - 2.0D0*SINPX2*(SINPX2/X) 4899 1 Y, DCOT, DCSEVL 4901 EXTERNAL DCOT 5030 1 - PI*DCOT(PI*X)
|
/dports/cad/calculix/CalculiX/cgx_2.18/examples/cad/ |
H A D | halter.fbd | 16082 PNT DCOT -4.400000000000e+01 1.160000000000e+02 -4.000000000000e+00 30806 NURS N02L CONTROL 3 3 DCOT 1.000000 48065 SETA A001 p DCOT
|