/dports/lang/gcc9-aux/gcc-9.1.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/misc/cxx_atomics_pic/gcc-11.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/gcc10/gcc-10.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/lang/gcc9-devel/gcc-9-20211007/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/gcc8/gcc-8.5.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/gcc11/gcc-11.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/devel/zpu-binutils/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/mingw32-gcc/gcc-4.8.1/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/math/cmlib/cmlib-3.0_8/src/fishpak/ |
H A D | cblkt1.f | 49 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 D | blktr1.f | 47 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 D | blktr1.f | 48 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 D | cblkt1.f | 50 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 D | comlr2.f | 225 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 D | dlz.f | 92 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 D | comlr2.f | 201 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 D | gasdev.F | 41 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 D | gasdev.F | 41 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 D | 947.f | 4 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 D | 947.f | 4 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 D | 947.f | 4 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 D | 947.f | 4 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 D | 947.f | 4 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 D | 947.f | 3 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 D | 947.f | 4 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 D | 947.f | 4 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.
|