/dports/science/wannier90/wannier90-3.1.0/utility/w90vdw/ |
H A D | w90vdw.f90 | 133 ifrag, iwann, r(ifrag, 1:3, iwann)*ang2a0, s(ifrag, iwann)*ang2a0, fw(ifrag, iwann) 162 r(ifrag, :, iwann2:num_wann(ifrag)) = r(ifrag, :, iwann2 + 1:num_wann(ifrag) + 1) 164 s(ifrag, iwann2:num_wann(ifrag)) = s(ifrag, iwann2 + 1:num_wann(ifrag) + 1) 165 fw(ifrag, iwann) = fw(ifrag, iwann) + fw(ifrag, iwann2) 166 fw(ifrag, iwann2:num_wann(ifrag)) = fw(ifrag, iwann2 + 1:num_wann(ifrag) + 1) 190 s(ifrag, num_wann(ifrag) + num_orb(ifrag)) = s(ifrag, iwann) 191 r(ifrag, 1:3, num_wann(ifrag) + num_orb(ifrag)) = r(ifrag, 1:3, iwann) 192 r(ifrag, l, num_wann(ifrag) + num_orb(ifrag)) = r(ifrag, l, iwann) - 2.0d0*shift 194 fw(ifrag, num_wann(ifrag) + num_orb(ifrag)) = fw(ifrag, iwann) 199 num_wann(ifrag) = num_wann(ifrag) + num_orb(ifrag) [all …]
|
/dports/science/multiwfn/gMultiwfn-3.4.1-0-14-ge873677/src/ |
H A D | CDA.f90 | 112 if (ifrag>1) ntmp=sum(natmCDA(1:ifrag-1)) 153 … if (iopsh(ifrag)==0.and.naelecCDA(ifrag)/=nbelecCDA(ifrag)) iRO(ifrag)=1 !This is a ROHF fragment 257 if (ifrag>1) istart=sum(nmoCDA(1:ifrag-1))+1 266 occCDA(1:naelecCDA(ifrag),ifrag)=2 282 occCDA(:,ifrag)=occCDA(:,ifrag)/2D0 283 occCDAb(:,ifrag)=occCDA(:,ifrag) 284 eneCDAb(:,ifrag)=eneCDA(:,ifrag) 300 occCDA(1:naelecCDA(ifrag),ifrag)=1 301 occCDAb(1:nbelecCDA(ifrag),ifrag)=1 334 nbelecCDA(ifrag)=naelecCDA(ifrag) [all …]
|
H A D | DOS.f90 | 283 do ifrag=1,nfragmax 304 write(10,"(' #Fragment:',i4,' nbasis:',i8)") ifrag,nfragDOS(ifrag) 305 write(10,"(8i8)") fragDOS(1:nfragDOS(ifrag),ifrag) 315 read(10,"(8i8)") fragDOS(1:nfragDOS(ifrag),ifrag) 432 do ifrag=1,nfragmax 528 PDOSliney(inow+2,ifrag)=str(imo)*compfrag(imo,ifrag) 559 … if (nfragDOS(ifrag)>0) PDOScurve(ipoint,ifrag)=PDOScurve(ipoint,ifrag)+tmp*compfrag(imo,ifrag) 582 … if (nfragDOS(ifrag)>0) PDOScurve(ipoint,ifrag)=PDOScurve(ipoint,ifrag)+tmp*compfrag(imo,ifrag) 656 if (ishowPDOScurve(ifrag)==1.or.ishowPDOSline(ifrag)==1) then 830 …if (nfragDOS(ifrag)>0) write(*,"(' Set color for fragment',i3,', current: ',a)") ifrag,colorname(i… [all …]
|
H A D | surfana.f90 | 1632 do ifrag=1,nsurfrag 1634 …write(*,"(i7,1x,3f12.5,2f16.8)") ifrag,fragsurarea(ifrag,:)*b2a*b2a,fragsurmin(ifrag)*au2kcal,frag… 1639 do ifrag=1,nsurfrag 1641 …write(*,"(i7,1x,3f11.5,3x,3f11.5)") ifrag,fragsuravg(ifrag,:)*au2kcal,fragsurvar(ifrag,:)*au2kcal*… 1648 balencechg=fragsurvar(ifrag,2)*fragsurvar(ifrag,3)/fragsurvar(ifrag,1)**2 1649 …write(*,"(i7,1x,3f16.6)") ifrag,fragsurchgsep(ifrag)*au2kcal,balencechg,balencechg*fragsurvar(ifra… 1673 …2.6,2f15.6)") ifrag,fragsurarea(ifrag,2)*b2a*b2a,fragsurmin(ifrag)*au2eV,fragsurmax(ifrag)*au2eV,f… 1687 …write(*,"(i7,1x,3f12.5,2f16.8)") ifrag,fragsurarea(ifrag,:)*b2a*b2a,fragsurmin(ifrag)*au2eV,fragsu… 1694 … write(*,"(i7,1x,3f11.5,3x,3f11.5)") ifrag,fragsuravg(ifrag,:)*au2eV,fragsurvar(ifrag,:)*au2eV**2 1714 …write(*,"(i7,1x,3f12.5,2f16.9)") ifrag,fragsurarea(ifrag,:)*b2a*b2a,fragsurmin(ifrag),fragsurmax(i… [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ |
H A D | tce_energy_fragment.F | 119 do ifrag = 1, nfrags 126 do ifrag = 1, nfrags 134 do ifrag = 1, nfrags 151 1 ifrag,dbl_mb(k_efrags+ifrag-1) 167 do ifrag = 1, nfrags 184 do ifrag = 1, nfrags 272 int_mb(k_fcount+ifrag-1) = int_mb(k_fcount+ifrag-1)+1 318 int_mb(k_fcount+ifrag-1) = int_mb(k_fcount+ifrag-1)+1 447 1 dbl_mb(k_efrags+ifrag-1),int_mb(k_fcount+ifrag-1) 473 1 dbl_mb(k_efrags+ifrag-1),int_mb(k_fcount+ifrag-1) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/ |
H A D | tce_energy_fragment.F | 119 do ifrag = 1, nfrags 126 do ifrag = 1, nfrags 134 do ifrag = 1, nfrags 151 1 ifrag,dbl_mb(k_efrags+ifrag-1) 167 do ifrag = 1, nfrags 184 do ifrag = 1, nfrags 272 int_mb(k_fcount+ifrag-1) = int_mb(k_fcount+ifrag-1)+1 318 int_mb(k_fcount+ifrag-1) = int_mb(k_fcount+ifrag-1)+1 447 1 dbl_mb(k_efrags+ifrag-1),int_mb(k_fcount+ifrag-1) 473 1 dbl_mb(k_efrags+ifrag-1),int_mb(k_fcount+ifrag-1) [all …]
|
/dports/science/libefp/libefp-1.5.0/efpmd/src/ |
H A D | energy.c | 35 size_t ifrag, nfrag, iatom, natom; in compute_energy() local 52 for (ifrag = 0; ifrag < nfrag; ifrag++) { in compute_energy() 53 const struct frag *frag = state->sys->frags + ifrag; in compute_energy() 55 check_fail(efp_get_frag_xyzabc(state->efp, ifrag, xyzabc)); in compute_energy() 68 grad = state->grad + 6 * ifrag; in compute_energy() 80 for (ifrag = 0, itotal = 0; ifrag < nfrag; ifrag++) { in compute_energy() 81 check_fail(efp_get_frag_atom_count(state->efp, ifrag, &natom)); in compute_energy() 83 check_fail(efp_get_frag_atoms(state->efp, ifrag, natom, atoms)); in compute_energy() 94 for (ifrag = 0, itotal = 0, grad = state->grad; ifrag < nfrag; ifrag++, grad += 6) { in compute_energy() 95 check_fail(efp_get_frag_xyzabc(state->efp, ifrag, xyzabc)); in compute_energy() [all …]
|
H A D | main.c | 306 size_t ntotal, ifrag, nfrag, natom; in state_init() local 325 for (ifrag = 0, ntotal = 0; ifrag < nfrag; ifrag++) { in state_init() 326 check_fail(efp_get_frag_atom_count(state->efp, ifrag, &natom)); in state_init()
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | mscfg_types.F | 102 INTEGER :: ifrag, jfrag local 105 DO ifrag = 1, SIZE(env%mos_of_frag, 1) 106 DO jfrag = 1, env%nmosets_of_frag(ifrag) 107 CALL dbcsr_release(env%mos_of_frag(ifrag, jfrag)) 137 INTEGER :: handle, ifrag local 157 DO ifrag = 1, mscfg_env%nfrags 159 CPASSERT(iset .LE. mscfg_env%nmosets_of_frag(ifrag)) 161 submatrix_size(1) = dbcsr_nfullrows_total(mscfg_env%mos_of_frag(ifrag, iset)) 162 submatrix_size(2) = dbcsr_nfullcols_total(mscfg_env%mos_of_frag(ifrag, iset)) 164 CALL copy_submatrix_into_matrix(mscfg_env%mos_of_frag(ifrag, iset), &
|
H A D | mscfg_methods.F | 244 DO ifrag = 1, nfrags 252 CALL section_vals_val_set(dft_section, "CHARGE", i_val=charge_of_frag(ifrag)) 253 CALL section_vals_val_set(dft_section, "MULTIPLICITY", i_val=multip_of_frag(ifrag)) 259 first_atom = first_atom_of_frag(ifrag) 260 last_atom = last_atom_of_frag(ifrag) 298 CALL print_frag_info(atom_index, atom_type, ifrag, nfrags, & 299 charge_of_frag(ifrag), multip_of_frag(ifrag)) 312 mscfg_env%energy_of_frag(ifrag) = qs_energy%total 315 mscfg_env%nmosets_of_frag(ifrag) = nmosets_of_frag 335 CALL dbcsr_create(mscfg_env%mos_of_frag(ifrag, imo), & [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | mscfg_types.F | 102 INTEGER :: ifrag, jfrag local 105 DO ifrag = 1, SIZE(env%mos_of_frag, 1) 106 DO jfrag = 1, env%nmosets_of_frag(ifrag) 107 CALL dbcsr_release(env%mos_of_frag(ifrag, jfrag)) 137 INTEGER :: handle, ifrag local 157 DO ifrag = 1, mscfg_env%nfrags 159 CPASSERT(iset .LE. mscfg_env%nmosets_of_frag(ifrag)) 161 submatrix_size(1) = dbcsr_nfullrows_total(mscfg_env%mos_of_frag(ifrag, iset)) 162 submatrix_size(2) = dbcsr_nfullcols_total(mscfg_env%mos_of_frag(ifrag, iset)) 164 CALL copy_submatrix_into_matrix(mscfg_env%mos_of_frag(ifrag, iset), &
|
H A D | mscfg_methods.F | 244 DO ifrag = 1, nfrags 252 CALL section_vals_val_set(dft_section, "CHARGE", i_val=charge_of_frag(ifrag)) 253 CALL section_vals_val_set(dft_section, "MULTIPLICITY", i_val=multip_of_frag(ifrag)) 259 first_atom = first_atom_of_frag(ifrag) 260 last_atom = last_atom_of_frag(ifrag) 298 CALL print_frag_info(atom_index, atom_type, ifrag, nfrags, & 299 charge_of_frag(ifrag), multip_of_frag(ifrag)) 312 mscfg_env%energy_of_frag(ifrag) = qs_energy%total 315 mscfg_env%nmosets_of_frag(ifrag) = nmosets_of_frag 335 CALL dbcsr_create(mscfg_env%mos_of_frag(ifrag, imo), & [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/geom/ |
H A D | geom_fragment.F | 31 integer ifrag 113 do ifrag = 2, nfrags 119 if (f_map(iatom).eq.ifrag) then 183 do ifrag = 1, nfrags 186 if (f_map(iatom).eq.ifrag) then 221 integer ifrag 243 if (jfrag.eq.ifrag) then 325 integer ifrag 353 if (f_map(iatom).eq.ifrag) then 463 integer ifrag [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/geom/ |
H A D | geom_fragment.F | 31 integer ifrag 113 do ifrag = 2, nfrags 119 if (f_map(iatom).eq.ifrag) then 183 do ifrag = 1, nfrags 186 if (f_map(iatom).eq.ifrag) then 221 integer ifrag 243 if (jfrag.eq.ifrag) then 325 integer ifrag 353 if (f_map(iatom).eq.ifrag) then 463 integer ifrag [all …]
|
/dports/biology/emboss/EMBOSS-6.6.0/emboss/ |
H A D | restrict.c | 57 AjBool ifrag); 108 AjBool ifrag; in main() local 201 alpha,frags,ifrag); in main() 270 AjBool ifrag) in restrict_reportHits() argument 363 if(frags || ifrag) in restrict_reportHits() 436 if(i && !ifrag) in restrict_reportHits() 447 if(!ifrag) in restrict_reportHits() 456 if(i && !ifrag) in restrict_reportHits() 464 if(!ifrag) in restrict_reportHits() 475 if(!ifrag) in restrict_reportHits() [all …]
|
/dports/science/xtb/xtb-6.4.1/src/gfnff/ |
H A D | gfnff_setup.f90 | 114 integer :: ifrag local 134 ifrag=0 139 ifrag=ifrag+1 140 where(iresidue .eq. rn) topo%fraglist = ifrag
|
/dports/science/wxmacmolplt/wxmacmolplt-7.7-43-g9a46f7a/src/ |
H A D | MoleculeData.cpp | 1944 for (long ifrag=0; ifrag<NextId; ++ifrag) { in CreateFMOFragmentation() local 1948 if (newFragmentation[iatom] == (ifrag+1)) { in CreateFMOFragmentation() 1955 fragCenters[ifrag].x /= (float) atmcount; in CreateFMOFragmentation() 1956 fragCenters[ifrag].y /= (float) atmcount; in CreateFMOFragmentation() 1957 fragCenters[ifrag].z /= (float) atmcount; in CreateFMOFragmentation() 1960 for (long ifrag=0; ifrag<NextId; ifrag++) { in CreateFMOFragmentation() local 1964 offset.x = fragCenters[ifrag].x-fragCenters[ifrag+1].x; in CreateFMOFragmentation() 1965 offset.y = fragCenters[ifrag].y-fragCenters[ifrag+1].y; in CreateFMOFragmentation() 1966 offset.z = fragCenters[ifrag].z-fragCenters[ifrag+1].z; in CreateFMOFragmentation() 1969 long targetId = ifrag+1; in CreateFMOFragmentation() [all …]
|
/dports/devel/tinygo/tinygo-0.14.1/llvm-project/clang/test/CodeGen/ |
H A D | builtins-nvptx-mma.py | 131 ifrag = "c" 134 ifrag = frag.frag 137 name = "%s_%s_%s_%s%s" % (prefix, frag.geom, op, ifrag,
|
/dports/www/chromium-legacy/chromium-88.0.4324.182/third_party/llvm/clang/test/CodeGen/ |
H A D | builtins-nvptx-mma.py | 131 ifrag = "c" 134 ifrag = frag.frag 137 name = "%s_%s_%s_%s%s" % (prefix, frag.geom, op, ifrag,
|
/dports/devel/llvm11/llvm-11.0.1.src/tools/clang/test/CodeGen/ |
H A D | builtins-nvptx-mma.py | 131 ifrag = "c" 134 ifrag = frag.frag 137 name = "%s_%s_%s_%s%s" % (prefix, frag.geom, op, ifrag,
|
/dports/devel/llvm12/llvm-project-12.0.1.src/clang/test/CodeGen/ |
H A D | builtins-nvptx-mma.py | 131 ifrag = "c" 134 ifrag = frag.frag 137 name = "%s_%s_%s_%s%s" % (prefix, frag.geom, op, ifrag,
|
/dports/devel/llvm-cheri/llvm-project-37c49ff00e3eadce5d8703fdc4497f28458c64a8/clang/test/CodeGen/ |
H A D | builtins-nvptx-mma.py | 131 ifrag = "c" 134 ifrag = frag.frag 137 name = "%s_%s_%s_%s%s" % (prefix, frag.geom, op, ifrag,
|
/dports/devel/llvm90/llvm-9.0.1.src/tools/clang/test/CodeGen/ |
H A D | builtins-nvptx-mma.py | 131 ifrag = "c" 134 ifrag = frag.frag 137 name = "%s_%s_%s_%s%s" % (prefix, frag.geom, op, ifrag,
|
/dports/devel/llvm10/llvm-10.0.1.src/tools/clang/test/CodeGen/ |
H A D | builtins-nvptx-mma.py | 131 ifrag = "c" 134 ifrag = frag.frag 137 name = "%s_%s_%s_%s%s" % (prefix, frag.geom, op, ifrag,
|
/dports/devel/wasi-compiler-rt12/llvm-project-12.0.1.src/clang/test/CodeGen/ |
H A D | builtins-nvptx-mma.py | 131 ifrag = "c" 134 ifrag = frag.frag 137 name = "%s_%s_%s_%s%s" % (prefix, frag.geom, op, ifrag,
|