Home
last modified time | relevance | path

Searched refs:IM1 (Results 1 – 25 of 338) sorted by relevance

12345678910>>...14

/dports/math/math77/MATH77/
H A Ddtgc1.f135 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 Dstgc1.f135 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 Dcomlr.f152 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 Dcomlr.f165 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 Ddqmomo.f70 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 Dqmomo.f70 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 Ddqmomo.f61 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 Ddqmomo.f70 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 Ddc_decsol.f565 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 Dqmomo.f61 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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 Dc58004d.ada46 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;

12345678910>>...14