| /dports/science/elk/elk-7.2.42/src/ |
| H A D | dhmlrad.f90 | 32 lm2=0
35 lm2=lm2+1
37 i=lm2
53 lm2=lm2+1
75 lm2=0
78 lm2=lm2+1
96 lm2=lm2+1
117 lm2=0
120 lm2=lm2+1
122 i=lm2
[all …]
|
| H A D | hmlrad.f90 | 68 lm2=1
71 lm2=lm2+1
90 lm2=lm2+1
120 lm2=1
123 lm2=lm2+1
125 i=lm2
141 lm2=lm2+1
168 lm2=1
171 lm2=lm2+1
173 i=lm2
[all …]
|
| H A D | ztorfmt.f90 | 56 lm2=lm1+2*(l+1)
59 lm2=lm2-1
61 rflm(lm1,:)=-c1*(aimag(zflm(lm1,:))+aimag(zflm(lm2,:)))
63 rflm(lm1,:)=c1*(aimag(zflm(lm2,:))-aimag(zflm(lm1,:)))
67 lm2=lm2-1
71 lm2=lm2-1
73 rflm(lm1,:)=c1*(dble(zflm(lm1,:))-dble(zflm(lm2,:)))
75 rflm(lm1,:)=c1*(dble(zflm(lm1,:))+dble(zflm(lm2,:)))
|
| H A D | rtozfmt.f90 | 56 lm2=lm1+2*(l+1)
59 lm2=lm2-1
61 zflm(lm1,:)=c1*cmplx(-rflm(lm2,:),-rflm(lm1,:),8)
63 zflm(lm1,:)=c1*cmplx(rflm(lm2,:),-rflm(lm1,:),8)
67 lm2=lm2-1
71 lm2=lm2-1
73 zflm(lm1,:)=c1*cmplx(rflm(lm1,:),-rflm(lm2,:),8)
75 zflm(lm1,:)=c1*cmplx(rflm(lm1,:),rflm(lm2,:),8)
|
| H A D | ylmrot.f90 | 55 lm2=lm1+2*l
56 dy(lm1:lm2,lm1:lm2)=-dy(lm1:lm2,lm1:lm2)
65 lm2=n+m2
67 d(lm1,lm2)=dy(lm1,lm2)*cmplx(cos(t1),sin(t1),8)
|
| /dports/biology/ncbi-toolkit/ncbi/biostruc/cdd/ |
| H A D | thrdsalr.c | 70 int lm1,lm2; /* Loop length limits */ in salr() local
88 lm2=cdf->lll.llmn[cs]; in salr()
89 ntmn+= (lm1>lm2) ? lm1 : lm2; in salr()
91 lm2=cdf->lll.llmx[cs]; in salr()
92 ntmx+= (lm1>lm2) ? lm1 : lm2; in salr()
107 lm2=cdf->lll.llmn[cs+1]; in salr()
108 ctmx-= (lm1>lm2) ? lm1 : lm2; in salr()
110 lm2=cdf->lll.llmx[cs+1]; in salr()
111 ctmn-= (lm1>lm2) ? lm1 : lm2; in salr()
|
| /dports/biology/ncbi-cxx-toolkit/ncbi_cxx--25_2_0/src/algo/structure/threader/ |
| H A D | thrdsalr.c | 59 int lm1,lm2; /* Loop length limits */ in salr() local
77 lm2=cdf->lll.llmn[cs]; in salr()
78 ntmn+= (lm1>lm2) ? lm1 : lm2; in salr()
80 lm2=cdf->lll.llmx[cs]; in salr()
81 ntmx+= (lm1>lm2) ? lm1 : lm2; in salr()
96 lm2=cdf->lll.llmn[cs+1]; in salr()
97 ctmx-= (lm1>lm2) ? lm1 : lm2; in salr()
99 lm2=cdf->lll.llmx[cs+1]; in salr()
100 ctmn-= (lm1>lm2) ? lm1 : lm2; in salr()
|
| /dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gcc.target/spu/ea/ |
| H A D | ops1.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "return from pointer to non-e… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } in lt_ealm()
[all …]
|
| H A D | ops2.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } /* { dg-error "invalid operands to binary -" } */ in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } /* { dg-error "return from pointer to non-e… in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } /* { dg-error "comparison of pointers to disjoint address … in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } /* { dg-error "comparison of pointers to disjoint address … in lt_ealm()
[all …]
|
| /dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gcc.target/spu/ea/ |
| H A D | ops2.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } /* { dg-error "invalid operands to binary -" } */ in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } /* { dg-error "return from pointer to non-e… in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } /* { dg-error "comparison of pointers to disjoint address … in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } /* { dg-error "comparison of pointers to disjoint address … in lt_ealm()
[all …]
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gcc.target/spu/ea/ |
| H A D | ops1.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "return from pointer to non-e… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } in lt_ealm()
[all …]
|
| H A D | ops2.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } /* { dg-error "invalid operands to binary -" } */ in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } /* { dg-error "return from pointer to non-e… in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } /* { dg-error "comparison of pointers to disjoint address … in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } /* { dg-error "comparison of pointers to disjoint address … in lt_ealm()
[all …]
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gcc.target/spu/ea/ |
| H A D | ops1.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "return from pointer to non-e… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } in lt_ealm()
[all …]
|
| H A D | ops2.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } /* { dg-error "invalid operands to binary -" } */ in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } /* { dg-error "return from pointer to non-e… in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } /* { dg-error "comparison of pointers to disjoint address … in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } /* { dg-error "comparison of pointers to disjoint address … in lt_ealm()
[all …]
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gcc.target/spu/ea/ |
| H A D | ops1.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "return from pointer to non-e… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } in lt_ealm()
[all …]
|
| H A D | ops2.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } /* { dg-error "invalid operands to binary -" } */ in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } /* { dg-error "return from pointer to non-e… in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } /* { dg-error "comparison of pointers to disjoint address … in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } /* { dg-error "comparison of pointers to disjoint address … in lt_ealm()
[all …]
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gcc.target/spu/ea/ |
| H A D | ops2.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } /* { dg-error "invalid operands to binary -" } */ in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } /* { dg-error "return from pointer to non-e… in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } /* { dg-error "comparison of pointers to disjoint address … in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } /* { dg-error "comparison of pointers to disjoint address … in lt_ealm()
[all …]
|
| H A D | ops1.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "return from pointer to non-e… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } in lt_ealm()
[all …]
|
| /dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gcc.target/spu/ea/ |
| H A D | ops2.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } /* { dg-error "invalid operands to binary -" } */ in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } /* { dg-error "return from pointer to non-e… in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } /* { dg-error "comparison of pointers to disjoint address … in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } /* { dg-error "comparison of pointers to disjoint address … in lt_ealm()
[all …]
|
| H A D | ops1.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "return from pointer to non-e… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } in lt_ealm()
[all …]
|
| /dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/gcc.target/spu/ea/ |
| H A D | ops1.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "return from pointer to non-e… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } in lt_ealm()
[all …]
|
| H A D | ops2.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } /* { dg-error "invalid operands to binary -" } */ in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } /* { dg-error "return from pointer to non-e… in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } /* { dg-error "comparison of pointers to disjoint address … in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } /* { dg-error "comparison of pointers to disjoint address … in lt_ealm()
[all …]
|
| /dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/gcc.target/spu/ea/ |
| H A D | ops1.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "return from pointer to non-e… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } in lt_ealm()
[all …]
|
| H A D | ops2.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } /* { dg-error "invalid operands to binary -" } */ in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "pointers to disjoint address… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } /* { dg-error "return from pointer to non-e… in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } /* { dg-error "comparison of pointers to disjoint address … in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } /* { dg-error "comparison of pointers to disjoint address … in lt_ealm()
[all …]
|
| /dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gcc.target/spu/ea/ |
| H A D | ops1.c | 35 lm_ptr_t lm, lm2; variable
65 int sub_ealm (void) { return ea - lm2; } in sub_ealm()
67 int sub_lmlm (void) { return lm - lm2; } in sub_lmlm()
70 ea_ptr_t if_ealm1 (int test) { return test? ea : lm2; } in if_ealm1()
71 lm_ptr_t if_ealm2 (int test) { return test? ea : lm2; } /* { dg-error "return from pointer to non-e… in if_ealm2()
74 ea_ptr_t if_lmlm1 (int test) { return test? lm : lm2; } in if_lmlm1()
75 lm_ptr_t if_lmlm2 (int test) { return test? lm : lm2; } in if_lmlm2()
79 int eq_ealm (void) { return ea == lm2; } in eq_ealm()
81 int eq_lmlm (void) { return lm == lm2; } in eq_lmlm()
83 int lt_ealm (void) { return ea < lm2; } in lt_ealm()
[all …]
|