Home
last modified time | relevance | path

Searched refs:ifrag (Results 1 – 25 of 45) sorted by relevance

12

/dports/science/wannier90/wannier90-3.1.0/utility/w90vdw/
H A Dw90vdw.f90133 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 DCDA.f90112 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 DDOS.f90283 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 Dsurfana.f901632 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 Dtce_energy_fragment.F119 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 Dtce_energy_fragment.F119 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 Denergy.c35 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 Dmain.c306 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 Dmscfg_types.F102 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 Dmscfg_methods.F244 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 Dmscfg_types.F102 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 Dmscfg_methods.F244 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 Dgeom_fragment.F31 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 Dgeom_fragment.F31 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 Drestrict.c57 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 Dgfnff_setup.f90114 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 DMoleculeData.cpp1944 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 Dbuiltins-nvptx-mma.py131 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 Dbuiltins-nvptx-mma.py131 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 Dbuiltins-nvptx-mma.py131 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 Dbuiltins-nvptx-mma.py131 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 Dbuiltins-nvptx-mma.py131 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 Dbuiltins-nvptx-mma.py131 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 Dbuiltins-nvptx-mma.py131 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 Dbuiltins-nvptx-mma.py131 ifrag = "c"
134 ifrag = frag.frag
137 name = "%s_%s_%s_%s%s" % (prefix, frag.geom, op, ifrag,

12