Home
last modified time | relevance | path

Searched refs:IM1 (Results 26 – 50 of 338) sorted by relevance

12345678910>>...14

/dports/lang/gcc9-aux/gcc-9.1.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/misc/cxx_atomics_pic/gcc-11.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/gcc10/gcc-10.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/lang/gcc9-devel/gcc-9-20211007/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/gcc8/gcc-8.5.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/gcc11/gcc-11.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/devel/zpu-binutils/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/mingw32-gcc/gcc-4.8.1/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/math/cmlib/cmlib-3.0_8/src/fishpak/
H A Dcblkt1.f49 CALL INXCB (I3,IRM1,IM1,NM1)
61 CALL INXCB (I-I1,IRM1,IM1,NM1)
65 CALL PRDCT (NM1,B(IM1),0,DUM,0,DUM,NA,AN(IDXA),W3,W1,M,AM,
89 CALL INXCB (I-I1,K-2,IM1,NM1)
106 CALL INXCB (I-I1,IR-1,IM1,NM1)
128 CALL INXCB (I-I1,IR-1,IM1,NM1)
144 CALL INXCB (IF/2,K-1,IM1,NM1)
147 121 CALL CPRDCT (NM+1,B(IP),NM1,B(IM1),0,DUM,0,DUM,Y(1,NM+1),
150 122 CALL PRDCT (NM+1,B(IP),NM1,B(IM1),0,DUM,0,DUM,Y(1,NM+1),
167 CALL INXCB (I-I1,IR-1,IM1,NM1)
[all …]
H A Dblktr1.f47 CALL INDXB (I3,IRM1,IM1,NM1)
59 CALL INDXB (I-I1,IRM1,IM1,NM1)
63 CALL PRDCT (NM1,B(IM1),0,DUM,0,DUM,NA,AN(IDXA),W3,W1,M,AM,
87 CALL INDXB (I-I1,K-2,IM1,NM1)
104 CALL INDXB (I-I1,IR-1,IM1,NM1)
126 CALL INDXB (I-I1,IR-1,IM1,NM1)
142 CALL INDXB (IF/2,K-1,IM1,NM1)
145 121 CALL CPRDCT (NM+1,B(IP),NM1,B(IM1),0,DUM,0,DUM,Y(1,NM+1),
148 122 CALL PRDCT (NM+1,B(IP),NM1,B(IM1),0,DUM,0,DUM,Y(1,NM+1),
165 CALL INDXB (I-I1,IR-1,IM1,NM1)
[all …]
/dports/math/slatec/src/
H A Dblktr1.f48 CALL INDXB (I3,IRM1,IM1,NM1)
60 CALL INDXB (I-I1,IRM1,IM1,NM1)
64 CALL PRDCT (NM1,B(IM1),0,DUM,0,DUM,NA,AN(IDXA),W3,W1,M,AM,
88 CALL INDXB (I-I1,K-2,IM1,NM1)
105 CALL INDXB (I-I1,IR-1,IM1,NM1)
127 CALL INDXB (I-I1,IR-1,IM1,NM1)
143 CALL INDXB (IF/2,K-1,IM1,NM1)
146 121 CALL CPRDCT (NM+1,B(IP),NM1,B(IM1),0,DUM,0,DUM,Y(1,NM+1),
149 122 CALL PRDCT (NM+1,B(IP),NM1,B(IM1),0,DUM,0,DUM,Y(1,NM+1),
166 CALL INDXB (I-I1,IR-1,IM1,NM1)
[all …]
H A Dcblkt1.f50 CALL INXCB (I3,IRM1,IM1,NM1)
62 CALL INXCB (I-I1,IRM1,IM1,NM1)
66 CALL PRDCT (NM1,B(IM1),0,DUM,0,DUM,NA,AN(IDXA),W3,W1,M,AM,
90 CALL INXCB (I-I1,K-2,IM1,NM1)
107 CALL INXCB (I-I1,IR-1,IM1,NM1)
129 CALL INXCB (I-I1,IR-1,IM1,NM1)
145 CALL INXCB (IF/2,K-1,IM1,NM1)
148 121 CALL CPRDCT (NM+1,B(IP),NM1,B(IM1),0,DUM,0,DUM,Y(1,NM+1),
151 122 CALL PRDCT (NM+1,B(IP),NM1,B(IM1),0,DUM,0,DUM,Y(1,NM+1),
168 CALL INXCB (I-I1,IR-1,IM1,NM1)
[all …]
H A Dcomlr2.f225 IM1 = I - 1
226 XR = HR(IM1,IM1)
227 XI = HI(IM1,IM1)
228 YR = HR(I,IM1)
229 YI = HI(I,IM1)
232 DO 440 J = IM1, N
233 ZZR = HR(IM1,J)
246 480 HR(I,IM1) = ZZR
247 HI(I,IM1) = ZZI
250 HR(I,J) = HR(I,J) - ZZR * HR(IM1,J) + ZZI * HI(IM1,J)
[all …]
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Ddlz.f92 IM1 = I - 1
95 Z = A(IM1,J)
102 A(IM1,K) = Y
104 DO 130 K=IM1,N
107 B(IM1,K) = Y
111 Y = Z/A(IM1,J)
119 170 W = B(I,IM1)
140 210 Z = B(I,IM1)
144 B(K,IM1) = B(K,IM1) - Y*B(K,I)
148 A(K,IM1) = A(K,IM1) - Y*A(K,I)
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/eispack/
H A Dcomlr2.f201 IM1 = I - 1
202 XR = HR(IM1,IM1)
203 XI = HI(IM1,IM1)
204 YR = HR(I,IM1)
205 YI = HI(I,IM1)
208 DO 440 J = IM1, N
209 ZZR = HR(IM1,J)
222 480 HR(I,IM1) = ZZR
223 HI(I,IM1) = ZZI
226 HR(I,J) = HR(I,J) - ZZR * HR(IM1,J) + ZZI * HI(IM1,J)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/leps/
H A Dgasdev.F41 INTEGER idum,IM1,IM2,IMM1,IA1,IA2,IQ1,IQ2,IR1,IR2,NTAB,NDIV
43 PARAMETER (IM1=2147483563,IM2=2147483399,AM=1./IM1,IMM1=IM1-1,
55 if (idum.lt.0) idum=idum+IM1
62 if (idum.lt.0) idum=idum+IM1
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/leps/
H A Dgasdev.F41 INTEGER idum,IM1,IM2,IMM1,IA1,IA2,IQ1,IQ2,IR1,IR2,NTAB,NDIV
43 PARAMETER (IM1=2147483563,IM2=2147483399,AM=1./IM1,IMM1=IM1-1,
55 if (idum.lt.0) idum=idum+IM1
62 if (idum.lt.0) idum=idum+IM1
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/g77/
H A D947.f4 INTEGER(kind=2) IM1, IP1
5 PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
6 DATA A(IM5) /-5./, A(IM1) /-1./
9 IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/g77/
H A D947.f4 INTEGER(kind=2) IM1, IP1
5 PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
6 DATA A(IM5) /-5./, A(IM1) /-1./
9 IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/g77/
H A D947.f4 INTEGER(kind=2) IM1, IP1
5 PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
6 DATA A(IM5) /-5./, A(IM1) /-1./
9 IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/g77/
H A D947.f4 INTEGER(kind=2) IM1, IP1
5 PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
6 DATA A(IM5) /-5./, A(IM1) /-1./
9 IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/g77/
H A D947.f4 INTEGER(kind=2) IM1, IP1
5 PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
6 DATA A(IM5) /-5./, A(IM1) /-1./
9 IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/testsuite/g77.f-torture/execute/
H A D947.f3 INTEGER*2 IM1, IP1 variable
4 PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
5 DATA A(IM5) /-5./, A(IM1) /-1./
8 IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/g77/
H A D947.f4 INTEGER(kind=2) IM1, IP1
5 PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
6 DATA A(IM5) /-5./, A(IM1) /-1./
9 IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/g77/
H A D947.f4 INTEGER(kind=2) IM1, IP1
5 PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
6 DATA A(IM5) /-5./, A(IM1) /-1./
9 IF (A(IM5) .NE. -5. .OR. A(IM1) .NE. -1. .OR.

12345678910>>...14