Home
last modified time | relevance | path

Searched refs:ifill (Results 1 – 25 of 430) sorted by relevance

12345678910>>...18

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/mrpt/fci/
H A Dfci_mgraph.F19 call ifill(0,marc,1,2*nsmax1*nsmax1*nsmax2)
20 call ifill(0,marcwt,1,2*nsmax1*nsmax1*nsmax2)
21 call ifill(0,mwt,1,nsmax1*nsmax1*nsmax2)
22 call ifill(0,mnsdet,1,nsmax)
23 call ifill(0,mnscsf,1,nsmax)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/mrpt/fci/
H A Dfci_mgraph.F19 call ifill(0,marc,1,2*nsmax1*nsmax1*nsmax2)
20 call ifill(0,marcwt,1,2*nsmax1*nsmax1*nsmax2)
21 call ifill(0,mwt,1,nsmax1*nsmax1*nsmax2)
22 call ifill(0,mnsdet,1,nsmax)
23 call ifill(0,mnscsf,1,nsmax)
/dports/science/madness/madness-ebb3fd7/src/apps/moldft/fci/
H A Dfci_mgraph.F19 call ifill(0,marc,1,2*nsmax1*nsmax1*nsmax2)
20 call ifill(0,marcwt,1,2*nsmax1*nsmax1*nsmax2)
21 call ifill(0,mwt,1,nsmax1*nsmax1*nsmax2)
22 call ifill(0,mnsdet,1,nsmax)
23 call ifill(0,mnscsf,1,nsmax)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/auxil/
H A Dintb_chk_sum.F198 call ifill(memb,0,int_mb(i_ilab),1)
199 call ifill(memb,0,int_mb(i_jlab),1)
200 call ifill(memb,0,int_mb(i_klab),1)
201 call ifill(memb,0,int_mb(i_llab),1)
311 call ifill(memb,0,int_mb(i_ilab),1)
312 call ifill(memb,0,int_mb(i_jlab),1)
313 call ifill(memb,0,int_mb(i_klab),1)
314 call ifill(memb,0,int_mb(i_llab),1)
319 call ifill(atom_blk_sz,0,int_mb(i_iat),1)
320 call ifill(atom_blk_sz,0,int_mb(i_jat),1)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/auxil/
H A Dintb_chk_sum.F198 call ifill(memb,0,int_mb(i_ilab),1)
199 call ifill(memb,0,int_mb(i_jlab),1)
200 call ifill(memb,0,int_mb(i_klab),1)
201 call ifill(memb,0,int_mb(i_llab),1)
311 call ifill(memb,0,int_mb(i_ilab),1)
312 call ifill(memb,0,int_mb(i_jlab),1)
313 call ifill(memb,0,int_mb(i_klab),1)
314 call ifill(memb,0,int_mb(i_llab),1)
319 call ifill(atom_blk_sz,0,int_mb(i_iat),1)
320 call ifill(atom_blk_sz,0,int_mb(i_jat),1)
[all …]
/dports/devel/R-cran-data.table/data.table/src/
H A Dutils.c144 void coerceFill(SEXP fill, double *dfill, int32_t *ifill, int64_t *i64fill) { in coerceFill() argument
148 ifill[0] = NA_INTEGER; dfill[0] = NA_REAL; i64fill[0] = NA_INTEGER64; in coerceFill()
150 ifill[0] = INTEGER(fill)[0]; in coerceFill()
158 ifill[0] = NA_INTEGER; dfill[0] = NA_REAL; i64fill[0] = NA_INTEGER64; in coerceFill()
160 ifill[0] = (rfill>INT32_MAX || rfill<=INT32_MIN) ? NA_INTEGER : (int32_t)rfill; in coerceFill()
168 ifill[0] = NA_INTEGER; dfill[0] = rfill; i64fill[0] = NA_INTEGER64; in coerceFill()
170 …ifill[0] = (!R_FINITE(rfill) || rfill>INT32_MAX || rfill<=INT32_MIN) ? NA_INTEGER : (int32_t)rfill; in coerceFill()
176 ifill[0] = NA_INTEGER; dfill[0] = NA_REAL; i64fill[0] = NA_INTEGER64; in coerceFill()
184 int32_t ifill=NA_INTEGER; in coerceFillR() local
186 coerceFill(fill, &dfill, &ifill, &i64fill); in coerceFillR()
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/selci/
H A Dmkinta.F16 call ifill(nsym,0,itemp,1)
17 call ifill(nnorbs,0,int12,1)
18 call ifill(nnorbs,0,int34,1)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/selci/
H A Dmkinta.F16 call ifill(nsym,0,itemp,1)
17 call ifill(nnorbs,0,int12,1)
18 call ifill(nnorbs,0,int34,1)
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/
H A Dptr_func_assign_2.f0861 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
92 dt%fill (3) = ifill ! { dg-error "Pointer procedure assignment" }
94 if (any (dt%i .ne. [2,1,ifill])) call abort
97 dt%fill (3) = ifill + dt%fill (3) ! { dg-error "Pointer procedure assignment" }
H A Dptr_func_assign_1.f0860 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
91 dt%fill (3) = ifill ! Check with array variable rhs
93 if (any (dt%i .ne. [2,1,ifill])) call abort
96 dt%fill (3) = ifill + dt%fill (3) ! Array version of PR63921 assignment
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/
H A Dptr_func_assign_1.f0860 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
91 dt%fill (3) = ifill ! Check with array variable rhs
93 if (any (dt%i .ne. [2,1,ifill])) STOP 9
96 dt%fill (3) = ifill + dt%fill (3) ! Array version of PR63921 assignment
H A Dptr_func_assign_2.f0861 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
92 dt%fill (3) = ifill ! { dg-error "Pointer procedure assignment" }
94 if (any (dt%i .ne. [2,1,ifill])) STOP 9
97 dt%fill (3) = ifill + dt%fill (3) ! { dg-error "Pointer procedure assignment" }
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/
H A Dptr_func_assign_2.f0861 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
92 dt%fill (3) = ifill ! { dg-error "Pointer procedure assignment" }
94 if (any (dt%i .ne. [2,1,ifill])) STOP 9
97 dt%fill (3) = ifill + dt%fill (3) ! { dg-error "Pointer procedure assignment" }
H A Dptr_func_assign_1.f0860 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
91 dt%fill (3) = ifill ! Check with array variable rhs
93 if (any (dt%i .ne. [2,1,ifill])) STOP 9
96 dt%fill (3) = ifill + dt%fill (3) ! Array version of PR63921 assignment
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/
H A Dptr_func_assign_2.f0861 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
92 dt%fill (3) = ifill ! { dg-error "Pointer procedure assignment" }
94 if (any (dt%i .ne. [2,1,ifill])) STOP 9
97 dt%fill (3) = ifill + dt%fill (3) ! { dg-error "Pointer procedure assignment" }
H A Dptr_func_assign_1.f0860 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
91 dt%fill (3) = ifill ! Check with array variable rhs
93 if (any (dt%i .ne. [2,1,ifill])) STOP 9
96 dt%fill (3) = ifill + dt%fill (3) ! Array version of PR63921 assignment
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/
H A Dptr_func_assign_1.f0860 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
91 dt%fill (3) = ifill ! Check with array variable rhs
93 if (any (dt%i .ne. [2,1,ifill])) STOP 9
96 dt%fill (3) = ifill + dt%fill (3) ! Array version of PR63921 assignment
H A Dptr_func_assign_2.f0861 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
92 dt%fill (3) = ifill ! { dg-error "Pointer procedure assignment" }
94 if (any (dt%i .ne. [2,1,ifill])) STOP 9
97 dt%fill (3) = ifill + dt%fill (3) ! { dg-error "Pointer procedure assignment" }
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/
H A Dptr_func_assign_2.f0861 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
92 dt%fill (3) = ifill ! { dg-error "Pointer procedure assignment" }
94 if (any (dt%i .ne. [2,1,ifill])) STOP 9
97 dt%fill (3) = ifill + dt%fill (3) ! { dg-error "Pointer procedure assignment" }
H A Dptr_func_assign_1.f0860 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
91 dt%fill (3) = ifill ! Check with array variable rhs
93 if (any (dt%i .ne. [2,1,ifill])) STOP 9
96 dt%fill (3) = ifill + dt%fill (3) ! Array version of PR63921 assignment
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/
H A Dptr_func_assign_2.f0861 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
92 dt%fill (3) = ifill ! { dg-error "Pointer procedure assignment" }
94 if (any (dt%i .ne. [2,1,ifill])) STOP 9
97 dt%fill (3) = ifill + dt%fill (3) ! { dg-error "Pointer procedure assignment" }
H A Dptr_func_assign_1.f0860 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
91 dt%fill (3) = ifill ! Check with array variable rhs
93 if (any (dt%i .ne. [2,1,ifill])) STOP 9
96 dt%fill (3) = ifill + dt%fill (3) ! Array version of PR63921 assignment
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/
H A Dptr_func_assign_2.f0861 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
92 dt%fill (3) = ifill ! { dg-error "Pointer procedure assignment" }
94 if (any (dt%i .ne. [2,1,ifill])) STOP 9
97 dt%fill (3) = ifill + dt%fill (3) ! { dg-error "Pointer procedure assignment" }
/dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gfortran.dg/
H A Dptr_func_assign_1.f0860 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
91 dt%fill (3) = ifill ! Check with array variable rhs
93 if (any (dt%i .ne. [2,1,ifill])) call abort
96 dt%fill (3) = ifill + dt%fill (3) ! Array version of PR63921 assignment
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/
H A Dptr_func_assign_2.f0861 integer :: foobar, z, i, ifill(4) = [2, 7, 19, 61], ifill2(2) = [1,2] variable
92 dt%fill (3) = ifill ! { dg-error "Pointer procedure assignment" }
94 if (any (dt%i .ne. [2,1,ifill])) STOP 9
97 dt%fill (3) = ifill + dt%fill (3) ! { dg-error "Pointer procedure assignment" }

12345678910>>...18