/dports/math/octave/octave-6.4.0/liboctave/external/slatec-fn/ |
H A D | dpchim.f | 180 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 D | pchim.f | 177 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 D | pchim.f | 173 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 D | pchci.f | 121 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 D | chfev.f | 96 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 D | dpchim.f | 180 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 D | pchim.f | 177 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 D | dpchci.f | 121 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 D | pchci.f | 120 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 D | chfev.f | 95 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 D | dchfev.f | 99 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 D | dpchim.f | 180 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 D | pchim.f | 177 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 D | pchci.f | 120 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 D | dpchci.f | 121 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 D | chfev.f | 95 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 D | dchfev.f | 99 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 D | dpchim.f | 176 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 D | dpchci.f | 121 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 D | dchfev.f | 98 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 D | pchim.f | 162 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 D | ders.f | 1 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 D | c45531j.ada | 57 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 D | c45531b.ada | 57 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 D | c45531f.ada | 57 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) );
|