Home
last modified time | relevance | path

Searched refs:DEL2 (Results 1 – 25 of 162) sorted by relevance

1234567

/dports/math/octave/octave-6.4.0/liboctave/external/slatec-fn/
H A Ddpchim.f180 DEL2 = (F(1,3) - F(1,2))/H2
188 D(1,1) = W1*DEL1 + W2*DEL2
205 DEL1 = DEL2
206 DEL2 = (F(1,I+1) - F(1,I))/H2
219 IF (DEL2 .EQ. ZERO) GO TO 50
221 DSAVE = DEL2
226 DSAVE = DEL2
235 DMAX = MAX( ABS(DEL1), ABS(DEL2) )
238 DRAT2 = DEL2/DMAX
248 D(1,N) = W1*DEL1 + W2*DEL2
[all …]
H A Dpchim.f177 DEL2 = (F(1,3) - F(1,2))/H2
185 D(1,1) = W1*DEL1 + W2*DEL2
202 DEL1 = DEL2
203 DEL2 = (F(1,I+1) - F(1,I))/H2
214 IF (DEL2 .EQ. ZERO) GO TO 50
216 DSAVE = DEL2
221 DSAVE = DEL2
230 DMAX = MAX( ABS(DEL1), ABS(DEL2) )
233 DRAT2 = DEL2/DMAX
243 D(1,N) = W1*DEL1 + W2*DEL2
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/pchips/
H A Dpchim.f173 DEL2 = (F(1,3) - F(1,2))/H2
181 D(1,1) = W1*DEL1 + W2*DEL2
198 DEL1 = DEL2
199 DEL2 = (F(1,I+1) - F(1,I))/H2
205 IF ( PCHST(DEL1,DEL2) ) 42, 41, 45
210 IF (DEL2 .EQ. ZERO) GO TO 50
212 DSAVE = DEL2
217 DSAVE = DEL2
229 DRAT2 = DEL2/DMAX
239 D(1,N) = W1*DEL1 + W2*DEL2
[all …]
H A Dpchci.f121 DEL2 = SLOPE(2)
129 D(1,1) = W1*DEL1 + W2*DEL2
132 ELSE IF ( PCHST(DEL1,DEL2) .LT. ZERO) THEN
144 DEL1 = DEL2
145 DEL2 = SLOPE(I)
158 DMAX = AMAX1( ABS(DEL1), ABS(DEL2) )
159 DMIN = AMIN1( ABS(DEL1), ABS(DEL2) )
161 DRAT2 = DEL2/DMAX
171 D(1,N) = W1*DEL1 + W2*DEL2
172 IF ( PCHST(D(1,N),DEL2) .LE. ZERO) THEN
[all …]
H A Dchfev.f96 REAL C2, C3, DEL1, DEL2, DELTA, H, X, XMI, XMA, ZERO
118 DEL2 = (D2 - DELTA)/H
120 C2 = -(DEL1+DEL1 + DEL2)
121 C3 = (DEL1 + DEL2)/H
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/
H A Ddpchim.f180 DEL2 = (F(1,3) - F(1,2))/H2
188 D(1,1) = W1*DEL1 + W2*DEL2
205 DEL1 = DEL2
206 DEL2 = (F(1,I+1) - F(1,I))/H2
217 IF (DEL2 .EQ. ZERO) GO TO 50
219 DSAVE = DEL2
224 DSAVE = DEL2
233 DMAX = MAX( ABS(DEL1), ABS(DEL2) )
236 DRAT2 = DEL2/DMAX
246 D(1,N) = W1*DEL1 + W2*DEL2
[all …]
H A Dpchim.f177 DEL2 = (F(1,3) - F(1,2))/H2
185 D(1,1) = W1*DEL1 + W2*DEL2
202 DEL1 = DEL2
203 DEL2 = (F(1,I+1) - F(1,I))/H2
214 IF (DEL2 .EQ. ZERO) GO TO 50
216 DSAVE = DEL2
221 DSAVE = DEL2
230 DMAX = MAX( ABS(DEL1), ABS(DEL2) )
233 DRAT2 = DEL2/DMAX
243 D(1,N) = W1*DEL1 + W2*DEL2
[all …]
H A Ddpchci.f121 DEL2 = SLOPE(2)
129 D(1,1) = W1*DEL1 + W2*DEL2
132 ELSE IF ( DPCHST(DEL1,DEL2) .LT. ZERO) THEN
144 DEL1 = DEL2
145 DEL2 = SLOPE(I)
158 DMAX = MAX( ABS(DEL1), ABS(DEL2) )
159 DMIN = MIN( ABS(DEL1), ABS(DEL2) )
161 DRAT2 = DEL2/DMAX
171 D(1,N) = W1*DEL1 + W2*DEL2
172 IF ( DPCHST(D(1,N),DEL2) .LE. ZERO) THEN
[all …]
H A Dpchci.f120 DEL2 = SLOPE(2)
128 D(1,1) = W1*DEL1 + W2*DEL2
131 ELSE IF ( PCHST(DEL1,DEL2) .LT. ZERO) THEN
143 DEL1 = DEL2
144 DEL2 = SLOPE(I)
157 DMAX = MAX( ABS(DEL1), ABS(DEL2) )
158 DMIN = MIN( ABS(DEL1), ABS(DEL2) )
160 DRAT2 = DEL2/DMAX
170 D(1,N) = W1*DEL1 + W2*DEL2
171 IF ( PCHST(D(1,N),DEL2) .LE. ZERO) THEN
[all …]
H A Dchfev.f95 REAL C2, C3, DEL1, DEL2, DELTA, H, X, XMI, XMA, ZERO
118 DEL2 = (D2 - DELTA)/H
120 C2 = -(DEL1+DEL1 + DEL2)
121 C3 = (DEL1 + DEL2)/H
H A Ddchfev.f99 DOUBLE PRECISION C2, C3, DEL1, DEL2, DELTA, H, X, XMI, XMA,
123 DEL2 = (D2 - DELTA)/H
125 C2 = -(DEL1+DEL1 + DEL2)
126 C3 = (DEL1 + DEL2)/H
/dports/math/slatec/src/
H A Ddpchim.f180 DEL2 = (F(1,3) - F(1,2))/H2
188 D(1,1) = W1*DEL1 + W2*DEL2
205 DEL1 = DEL2
206 DEL2 = (F(1,I+1) - F(1,I))/H2
217 IF (DEL2 .EQ. ZERO) GO TO 50
219 DSAVE = DEL2
224 DSAVE = DEL2
233 DMAX = MAX( ABS(DEL1), ABS(DEL2) )
236 DRAT2 = DEL2/DMAX
246 D(1,N) = W1*DEL1 + W2*DEL2
[all …]
H A Dpchim.f177 DEL2 = (F(1,3) - F(1,2))/H2
185 D(1,1) = W1*DEL1 + W2*DEL2
202 DEL1 = DEL2
203 DEL2 = (F(1,I+1) - F(1,I))/H2
214 IF (DEL2 .EQ. ZERO) GO TO 50
216 DSAVE = DEL2
221 DSAVE = DEL2
230 DMAX = MAX( ABS(DEL1), ABS(DEL2) )
233 DRAT2 = DEL2/DMAX
243 D(1,N) = W1*DEL1 + W2*DEL2
[all …]
H A Dpchci.f120 DEL2 = SLOPE(2)
128 D(1,1) = W1*DEL1 + W2*DEL2
131 ELSE IF ( PCHST(DEL1,DEL2) .LT. ZERO) THEN
143 DEL1 = DEL2
144 DEL2 = SLOPE(I)
157 DMAX = MAX( ABS(DEL1), ABS(DEL2) )
158 DMIN = MIN( ABS(DEL1), ABS(DEL2) )
160 DRAT2 = DEL2/DMAX
170 D(1,N) = W1*DEL1 + W2*DEL2
171 IF ( PCHST(D(1,N),DEL2) .LE. ZERO) THEN
[all …]
H A Ddpchci.f121 DEL2 = SLOPE(2)
129 D(1,1) = W1*DEL1 + W2*DEL2
132 ELSE IF ( DPCHST(DEL1,DEL2) .LT. ZERO) THEN
144 DEL1 = DEL2
145 DEL2 = SLOPE(I)
158 DMAX = MAX( ABS(DEL1), ABS(DEL2) )
159 DMIN = MIN( ABS(DEL1), ABS(DEL2) )
161 DRAT2 = DEL2/DMAX
171 D(1,N) = W1*DEL1 + W2*DEL2
172 IF ( DPCHST(D(1,N),DEL2) .LE. ZERO) THEN
[all …]
H A Dchfev.f95 REAL C2, C3, DEL1, DEL2, DELTA, H, X, XMI, XMA, ZERO
118 DEL2 = (D2 - DELTA)/H
120 C2 = -(DEL1+DEL1 + DEL2)
121 C3 = (DEL1 + DEL2)/H
H A Ddchfev.f99 DOUBLE PRECISION C2, C3, DEL1, DEL2, DELTA, H, X, XMI, XMA,
123 DEL2 = (D2 - DELTA)/H
125 C2 = -(DEL1+DEL1 + DEL2)
126 C3 = (DEL1 + DEL2)/H
/dports/math/cmlib/cmlib-3.0_8/src/pchipd/
H A Ddpchim.f176 DEL2 = (F(1,3) - F(1,2))/H2
184 D(1,1) = W1*DEL1 + W2*DEL2
201 DEL1 = DEL2
202 DEL2 = (F(1,I+1) - F(1,I))/H2
208 IF ( DPCHST(DEL1,DEL2) ) 42, 41, 45
213 IF (DEL2 .EQ. ZERO) GO TO 50
215 DSAVE = DEL2
220 DSAVE = DEL2
232 DRAT2 = DEL2/DMAX
242 D(1,N) = W1*DEL1 + W2*DEL2
[all …]
H A Ddpchci.f121 DEL2 = SLOPE(2)
129 D(1,1) = W1*DEL1 + W2*DEL2
132 ELSE IF ( DPCHST(DEL1,DEL2) .LT. ZERO) THEN
144 DEL1 = DEL2
145 DEL2 = SLOPE(I)
158 DMAX = DMAX1( DABS(DEL1), DABS(DEL2) )
159 DMIN = DMIN1( DABS(DEL1), DABS(DEL2) )
161 DRAT2 = DEL2/DMAX
171 D(1,N) = W1*DEL1 + W2*DEL2
172 IF ( DPCHST(D(1,N),DEL2) .LE. ZERO) THEN
[all …]
H A Ddchfev.f98 DOUBLE PRECISION C2, C3, DEL1, DEL2, DELTA, H, X, XMI, XMA,
121 DEL2 = (D2 - DELTA)/H
123 C2 = -(DEL1+DEL1 + DEL2)
124 C3 = (DEL1 + DEL2)/H
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dpchim.f162 DEL2 = (F(1,3) - F(1,2))/H2
170 D(1,1) = W1*DEL1 + W2*DEL2
187 DEL1 = DEL2
188 DEL2 = (F(1,I+1) - F(1,I))/H2
194 CRES=DPCHST(DEL1,DEL2)
206 IF (DEL2 .EQ. ZERO) GO TO 50
207 DSAVE = DEL2
211 DSAVE = DEL2
223 DRAT2 = DEL2/DMAX
233 D(1,N) = W1*DEL1 + W2*DEL2
[all …]
/dports/biology/mopac/mopac7-1.15/fortran/
H A Dders.f1 SUBROUTINE DERS(M,N,RR,DEL1,DEL2,DEL3,IS,IOL) argument
31 20 ABN=-4.0D0*(ADB**2)*DEL1*DEL2/(SQRT(ZG(N,J))*(A0**3))
36 40 ABN=4.0D0*(ADB**2)*DEL1*DEL2/(SQRT(ZG(M,I))*(A0**3))
41 60 ABN=-(4.0D0*(ADB**2)*DEL2/(SQRT(APB)*(A0**2)))*
44 70 ABN=8.0D0*(ADB**3)*DEL1*DEL2*DEL3/(SQRT(APB)*(A0**4))
47 1 (0.5D0-ADB*(DEL2**2)/(A0**2))
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/c4/
H A Dc45531j.ada57 DEL2 : CONSTANT := 2.0 * DEL1; constant
101 := FX_1 (DEL2 * FORTH );
103 := FX_1 (DEL2 * (FORTH + 1) );
106 A := FX_1 (DEL2 * (3 * FORTH + 1) );
H A Dc45531b.ada57 DEL2 : CONSTANT := 2.0 * DEL1; constant
101 := FX_1 (DEL2 * FORTH );
103 := FX_1 (DEL2 * (FORTH + 1) );
106 A := FX_1 (DEL2 * (3 * FORTH + 1) );
H A Dc45531f.ada57 DEL2 : CONSTANT := 2.0 * DEL1; constant
101 := FX_1 (DEL2 * FORTH );
103 := FX_1 (DEL2 * (FORTH + 1) );
106 A := FX_1 (DEL2 * (3 * FORTH + 1) );

1234567