/dports/math/math77/MATH77/ |
H A D | dtgc1.f | 135 IM1 = SUB1(I) 141 S(I,8) = S(I,2)*S(IM1,5) + S(I,3)*S(IM1,6) 143 S(I,9) = 3.0D0*(LSQ(IP1)-LSQ(IM1)) / LSQ(I) 146 GTILDA(I)= (R(IP1)-R(IM1))*PHI(I) + S(I,9)*RHO(I) 147 * -RHO(IP1)+RHO(IM1) 155 IM1 = SUB1(I) 156 ZOUT=ZOUT + S(I,4)*(R(I)+GTILDA(IM1)-GTILDA(IP1)) 187 IM1=SUB1(I) 188 DGTILD(I) =(R(IP1)-R(IM1))*DPHI(I) 189 * +(DR(IP1) - DR(IM1))*PHI(I) [all …]
|
H A D | stgc1.f | 135 IM1 = SUB1(I) 141 S(I,8) = S(I,2)*S(IM1,5) + S(I,3)*S(IM1,6) 143 S(I,9) = 3.0E0*(LSQ(IP1)-LSQ(IM1)) / LSQ(I) 146 GTILDA(I)= (R(IP1)-R(IM1))*PHI(I) + S(I,9)*RHO(I) 147 * -RHO(IP1)+RHO(IM1) 155 IM1 = SUB1(I) 156 ZOUT=ZOUT + S(I,4)*(R(I)+GTILDA(IM1)-GTILDA(IP1)) 187 IM1=SUB1(I) 188 DGTILD(I) =(R(IP1)-R(IM1))*DPHI(I) 189 * +(DR(IP1) - DR(IM1))*PHI(I) [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/eispack/ |
H A D | comlr.f | 152 IM1 = I - 1 153 XR = HR(IM1,IM1) 154 XI = HI(IM1,IM1) 155 YR = HR(I,IM1) 156 YI = HI(I,IM1) 159 DO 440 J = IM1, EN 160 ZZR = HR(IM1,J) 173 480 HR(I,IM1) = ZZR 174 HI(I,IM1) = ZZI 177 HR(I,J) = HR(I,J) - ZZR * HR(IM1,J) + ZZI * HI(IM1,J) [all …]
|
/dports/math/slatec/src/ |
H A D | comlr.f | 165 IM1 = I - 1 166 XR = HR(IM1,IM1) 167 XI = HI(IM1,IM1) 168 YR = HR(I,IM1) 169 YI = HI(I,IM1) 172 DO 440 J = IM1, EN 173 ZZR = HR(IM1,J) 186 480 HR(I,IM1) = ZZR 187 HI(I,IM1) = ZZI 190 HR(I,J) = HR(I,J) - ZZR * HR(IM1,J) + ZZI * HI(IM1,J) [all …]
|
H A D | dqmomo.f | 70 INTEGER I,IM1,INTEGR 106 IM1 = 2 108 RG(I) = -(AN*(AN-ALFP2)*RG(IM1)-AN*RI(IM1)+ANM1*RI(I))/ 112 IM1 = I 122 IM1 = 2 124 RH(I) = -(AN*(AN-BETP2)*RH(IM1)-AN*RJ(IM1)+ 128 IM1 = I
|
H A D | qmomo.f | 70 INTEGER I,IM1,INTEGR 108 IM1 = 2 110 RG(I) = -(AN*(AN-ALFP2)*RG(IM1)-AN*RI(IM1)+ANM1*RI(I))/ 114 IM1 = I 124 IM1 = 2 126 RH(I) = -(AN*(AN-BETP2)*RH(IM1)-AN*RJ(IM1)+ 130 IM1 = I
|
/dports/math/cmlib/cmlib-3.0_8/src/quadpkd/ |
H A D | dqmomo.f | 61 INTEGER I,IM1,INTEGR 97 IM1 = 2 99 RG(I) = -(AN*(AN-ALFP2)*RG(IM1)-AN*RI(IM1)+ANM1*RI(I))/ 103 IM1 = I 113 IM1 = 2 115 RH(I) = -(AN*(AN-BETP2)*RH(IM1)-AN*RJ(IM1)+ 119 IM1 = I
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | dqmomo.f | 70 INTEGER I,IM1,INTEGR local 106 IM1 = 2 108 RG(I) = -(AN*(AN-ALFP2)*RG(IM1)-AN*RI(IM1)+ANM1*RI(I))/ 112 IM1 = I 122 IM1 = 2 124 RH(I) = -(AN*(AN-BETP2)*RH(IM1)-AN*RJ(IM1)+ 128 IM1 = I
|
/dports/science/siconos/siconos-4.4.0/externals/hairer/ |
H A D | dc_decsol.f | 565 Z1(IM1)=Z1(IM1)+S1*FAC1 611 Z1(IM1)=Z1(IM1)+S1*FAC1 1117 Z1(IM1)=Z1(IM1)+S1*FAC1 1191 Z1(IM1)=Z1(IM1)+S1*FAC1 1384 CONT(IM1)=SUM+Y0(IM1) 1420 CONT(IM1)=SUM+Y0(IM1) 1456 CONT(IM1)=SUM+Y0(IM1) 1740 CONT(IM1)=SUM+Y0(IM1) 1788 CONT(IM1)=SUM+Y0(IM1) 1836 CONT(IM1)=SUM+Y0(IM1) [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/quadpks/ |
H A D | qmomo.f | 61 INTEGER I,IM1,INTEGR 99 IM1 = 2 101 RG(I) = -(AN*(AN-ALFP2)*RG(IM1)-AN*RI(IM1)+ANM1*RI(I))/ 105 IM1 = I 115 IM1 = 2 117 RH(I) = -(AN*(AN-BETP2)*RH(IM1)-AN*RJ(IM1)+ 121 IM1 = I
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/c5/ |
H A D | c58004d.ada | 46 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER); 48 PROCEDURE MULT (IM1 : IN OUT INTEGER; IM2 : IN INTEGER) IS 50 IM1 := IM1 * IM2; 52 IF IM1 > 0 THEN RETURN; 55 IM1 := 0;
|