Home
last modified time | relevance | path

Searched refs:jbas (Results 1 – 25 of 137) sorted by path

123456

/dports/devel/py-cclib/cclib-1.7.1/data/Turbomole/basicTurbomole5.9/dvb_un_sp/
H A Dauxbasis1 $jbas
/dports/science/chemical-mime-data/chemical-mime-data-0.1.94/
H A DChangeLog63 chemical/x-turbomole-input, chemical/x-turbomole-jbas,
/dports/science/multiwfn/gMultiwfn-3.4.1-0-14-ge873677/src/
H A DDOS.f90479 …do jbas=1,nbasis !Cycle all basis, included inner&external cross term and local term (when ibas==j…
480 … compfrag(imo,ifrag)=compfrag(imo,ifrag)+tmpmat(ibas,imo)*tmpmat(jbas,imo)*Sbas(ibas,jbas)
490 jbas=fragDOS(j,2)
491 … OPfrag12(imo)=OPfrag12(imo)+2*tmpmat(ibas,imo)*tmpmat(jbas,imo)*Sbas(ibas,jbas)
H A Dbasinana.f902298 do jbas=ibas,numrealatt
2301 … DI(ibas,jbas)=DI(ibas,jbas)+dsqrt(MOocc(iorb)*MOocc(jorb))*BOM(iorb,jorb,ibas)*BOM(iorb,jorb,jbas)
2319 do jbas=ibas,numrealatt
2327 … DIa(ibas,jbas)=DIa(ibas,jbas)+dsqrt(occi*occj)*BOM(iorb,jorb,ibas)*BOM(iorb,jorb,jbas)
2333 …DIb(ibas,jbas)=DIb(ibas,jbas)+dsqrt(MOocc(iorb)/2D0*MOocc(jorb)/2D0)*BOM(iorb,jorb,ibas)*BOM(iorb,…
2356 do jbas=ibas,numrealatt
2359 …DIa(ibas,jbas)=DIa(ibas,jbas)+dsqrt(MOocc(iorb)*MOocc(jorb))*BOMa(iorb,jorb,ibas)*BOMa(iorb,jorb,j…
2372 do jbas=ibas,numrealatt
2377 …DIb(ibas,jbas)=DIb(ibas,jbas)+dsqrt(MOocc(iorb)*MOocc(jorb))*BOMb(iorbtmp,jorbtmp,ibas)*BOMb(iorbt…
H A Dbondana.f90722 jbas,NAOcen(jbas),NAOcenname(jbas),NAOtype(jbas),NAOshtype(jbas),NAOlang(jbas)
1117 do jbas=1,nbasis
1118 … Ptottmp(ibas,jbas)=Ptottmp(ibas,jbas)-MOocc(imo)*CObasa(ibas,imo)*CObasa(jbas,imo)
1154 do jbas=1,nbasis
1155 … Palphatmp(ibas,jbas)=Palphatmp(ibas,jbas)-MOocc(imo)*CObasa(ibas,imo)*CObasa(jbas,imo)
1160 do jbas=1,nbasis
1161 … Pbetatmp(ibas,jbas)=Pbetatmp(ibas,jbas)-MOocc(imo)*CObasb(ibas,imo-nbasis)*CObasb(jbas,imo-nbasis)
1168 do jbas=1,nbasis
1169 … Palphatmp(ibas,jbas)=Palphatmp(ibas,jbas)-1D0*CObasa(ibas,imo)*CObasa(jbas,imo)
1170 …Pbetatmp(ibas,jbas)=Pbetatmp(ibas,jbas)-1D0*CObasa(ibas,imo)*CObasa(jbas,imo) !For ROHF, Cobasb==C…
[all …]
H A Dcompana.f90357 do jbas=1,nbasis
358 if (jbas==ibas) cycle
359 crossij=tmpmat(ibas,irealmo)*tmpmat(jbas,irealmo)*Sbas(ibas,jbas)
360 if (any(frag1==jbas)) then
365 tmpdenom=tmpmat(ibas,irealmo)**2+tmpmat(jbas,irealmo)**2
370 if (allocated(frag2).and.any(frag2==jbas)) then
451 do jbas=1,nbasis
452 if (jbas==ibas) cycle
454 … bascross(ibas)=bascross(ibas)+tmpmat(ibas,ishowmo)*tmpmat(jbas,ishowmo)*Sbas(ibas,jbas)
457 tmp=tmpmat(ibas,ishowmo)**2+tmpmat(jbas,ishowmo)**2
[all …]
H A Dexcittransana.f90472 do jbas=1,nbasis
558 do jbas=ibas,nbasis
559 tdmata(ibas,jbas)=(tdmata(ibas,jbas)+tdmata(jbas,ibas))/dsqrt(2D0)
560 tdmata(jbas,ibas)=tdmata(ibas,jbas)
562 tdmatb(ibas,jbas)=(tdmatb(ibas,jbas)+tdmatb(jbas,ibas))/dsqrt(2D0)
563 tdmatb(jbas,ibas)=tdmatb(ibas,jbas)
641 do jbas=1,nbasis
696 do jbas=1,nbasis
698 bastrpopa(ibas)=bastrpopa(ibas)+tdmata(ibas,jbas)*Sbas(ibas,jbas)
701 … bastrpopa(ibas)=bastrpopa(ibas)+(tdmata(ibas,jbas)+tdmata(jbas,ibas))*Sbas(ibas,jbas)/2
[all …]
H A Dotherfunc2.f902707 compos=compos+CObasa(ibas,imo)*CObasa(jbas,imo)*Sbas(ibas,jbas)
2930 compdonor=compdonor+CObasa(ibas,imo)*CObasa(jbas,imo)*Sbas(ibas,jbas)
3016 …q12_1=q12_1+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
3026 …q12_2=q12_2+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
3045 …miu12(:)=miu12(:)+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Dbas(:,i…
3097 …q12_1=q12_1+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
3107 …q12_2=q12_2+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
3126 …miu12(:)=miu12(:)+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Dbas(:,i…
3177 …q12_1=q12_1+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
3187 …q12_2=q12_2+( CObasa(ibas,imo)*CObasa(jbas,jmo)+CObasa(ibas,jmo)*CObasa(jbas,imo) )*Sbas(ibas,jbas)
[all …]
H A Dsub.f901026 do jbas=basstart(iatm),basend(iatm)
1027 jtyp=bastype(jbas)
1029 basshell(ibas)==basshell(jbas)) then
1030 CObasa(jbas,orb)=CObasa_tmp(ibas)
1031 if (wfntype==1.or.wfntype==4) CObasb(jbas,orb)=CObasb_tmp(ibas)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/api/
H A Dexact_mem.F47 integer ibas,jbas, kbas
76 do 00200 jbas = 1,ibas
135 do 00400 jbas = 1,ibas
136 do 00500 kbas = 1,jbas
214 integer ibas, jbas, kbas
230 jbas = jbasin + BASIS_HANDLE_OFFSET
234 jt_ucont = infbs_head(HEAD_NCONT,jbas)
243 write(luout,*)' j name ',bs_name(jbas)
264 if (ibas.eq.jbas) j_lim = iic
268 j_prim = infbs_cont(CONT_NPRIM,ijc,jbas)
[all …]
H A Dexactd_mem.F39 integer ibas,jbas local
61 do 00200 jbas = 1,ibas
62 if (api_is_atomic_basis(bases(jbas))) then
64 if (bases(jbas).ne.bases(ibas)) then
71 & (bases(ibas),bases(jbas),lsz_2e4c,lmem_2e4c)
75 & (bases(ibas),bases(jbas),lsz_2e4c,lmem_2e4c)
80 call emem_d1e(bases(ibas), bases(jbas), lsz_1e, lmem_1e)
H A Dint_1e3ov.F58 integer ibas, jbas, kbas local
103 jbas = j_basis + BASIS_HANDLE_OFFSET
115 ucont = (sf_ibs_cn2ucn(jsh,jbas))
116 Lj = infbs_cont(CONT_TYPE ,ucont,jbas)
117 j_prim = infbs_cont(CONT_NPRIM,ucont,jbas)
118 j_gen = infbs_cont(CONT_NGEN ,ucont,jbas)
121 j_cent = (sf_ibs_cn2ce(jsh,jbas))
122 j_geom = ibs_geom(jbas)
148 & dbl_mb(mb_exndcf(j_iexp,jbas)),
149 & dbl_mb(mb_exndcf(j_icfp,jbas)),
[all …]
H A Dint_1eelec.F70 integer igeom, jgeom, ibas, jbas, ucont
100 jbas = j_basis + basis_handle_offset
111 ucont = (sf_ibs_cn2ucn(jsh,jbas))
112 jtype = infbs_cont(CONT_TYPE ,ucont,jbas)
113 jnp = infbs_cont(CONT_NPRIM,ucont,jbas)
114 jgen = infbs_cont(CONT_NGEN ,ucont,jbas)
115 jexp = infbs_cont(CONT_IEXP ,ucont,jbas)
117 jatom = (sf_ibs_cn2ce(jsh,jbas))
118 jgeom = ibs_geom(jbas)
137 & dbl_mb(mb_exndcf(jexp,jbas)),
[all …]
H A Dint_1epvpe.F59 integer i_geom, j_geom, ibas, jbas, ucont
88 jbas = j_basis + BASIS_HANDLE_OFFSET
90 jsbas = jbas
102 ucont = (sf_ibs_cn2ucn(jsh,jbas))
103 Lj = infbs_cont(CONT_TYPE ,ucont,jbas)
104 j_prim = infbs_cont(CONT_NPRIM,ucont,jbas)
105 j_gen = infbs_cont(CONT_NGEN ,ucont,jbas)
108 j_cent = (sf_ibs_cn2ce(jsh,jbas))
109 j_geom = ibs_geom(jbas)
141 & dbl_mb(mb_exndcf(j_icfp,jbas)),
[all …]
H A Dint_1epxvpe.F60 integer i_geom, j_geom, ibas, jbas, ucont
89 jbas = j_basis + BASIS_HANDLE_OFFSET
91 jsbas = jbas
103 ucont = (sf_ibs_cn2ucn(jsh,jbas))
104 Lj = infbs_cont(CONT_TYPE ,ucont,jbas)
105 j_prim = infbs_cont(CONT_NPRIM,ucont,jbas)
106 j_gen = infbs_cont(CONT_NGEN ,ucont,jbas)
109 j_cent = (sf_ibs_cn2ce(jsh,jbas))
110 j_geom = ibs_geom(jbas)
126 & dbl_mb(mb_exndcf(j_icfp,jbas)),
[all …]
H A Dint_1er.F60 integer i_geom, j_geom, ibas, jbas, ucont
84 jbas = j_basis + BASIS_HANDLE_OFFSET
95 ucont = (sf_ibs_cn2ucn(jsh,jbas))
96 Lj = infbs_cont(CONT_TYPE ,ucont,jbas)
97 j_prim = infbs_cont(CONT_NPRIM,ucont,jbas)
98 j_gen = infbs_cont(CONT_NGEN ,ucont,jbas)
99 j_iexp = infbs_cont(CONT_IEXP ,ucont,jbas)
100 j_icfp = infbs_cont(CONT_ICFP ,ucont,jbas)
101 j_cent = (sf_ibs_cn2ce(jsh,jbas))
102 j_geom = ibs_geom(jbas)
[all …]
H A Dint_1estv.F217 jbas = lbas
222 jsbas = jbas
231 j_geom = ibs_geom(jbas)
907 jbas = lbas
912 jsbas = jbas
921 j_geom = ibs_geom(jbas)
1282 jbas = lbas
1287 jsbas = jbas
1296 j_geom = ibs_geom(jbas)
1682 jbas = lbas
[all …]
H A Dint_angmom.F61 integer igeom, jgeom, ibas, jbas, ucont
91 jbas = j_basis + basis_handle_offset
102 ucont = (sf_ibs_cn2ucn(jsh,jbas))
103 jtype = infbs_cont(CONT_TYPE ,ucont,jbas)
104 jnp = infbs_cont(CONT_NPRIM,ucont,jbas)
105 jgen = infbs_cont(CONT_NGEN ,ucont,jbas)
106 jexp = infbs_cont(CONT_IEXP ,ucont,jbas)
108 jatom = (sf_ibs_cn2ce(jsh,jbas))
109 jgeom = ibs_geom(jbas)
128 & dbl_mb(mb_exndcf(jexp,jbas)),
[all …]
H A Dint_dipvel.F53 integer igeom, jgeom, ibas, jbas, ucont
83 jbas = j_basis + basis_handle_offset
94 ucont = (sf_ibs_cn2ucn(jsh,jbas))
95 jtype = infbs_cont(CONT_TYPE ,ucont,jbas)
96 jnp = infbs_cont(CONT_NPRIM,ucont,jbas)
97 jgen = infbs_cont(CONT_NGEN ,ucont,jbas)
98 jexp = infbs_cont(CONT_IEXP ,ucont,jbas)
100 jatom = (sf_ibs_cn2ce(jsh,jbas))
101 jgeom = ibs_geom(jbas)
120 & dbl_mb(mb_exndcf(jexp,jbas)),
[all …]
H A Dint_dso.F73 integer igeom, jgeom, ibas, jbas, ucont
103 jbas = j_basis + basis_handle_offset
114 ucont = (sf_ibs_cn2ucn(jsh,jbas))
115 jtype = infbs_cont(CONT_TYPE ,ucont,jbas)
116 jnp = infbs_cont(CONT_NPRIM,ucont,jbas)
117 jgen = infbs_cont(CONT_NGEN ,ucont,jbas)
118 jexp = infbs_cont(CONT_IEXP ,ucont,jbas)
120 jatom = (sf_ibs_cn2ce(jsh,jbas))
121 jgeom = ibs_geom(jbas)
140 & dbl_mb(mb_exndcf(jexp,jbas)),
[all …]
H A Dint_giaobq10.F70 integer igeom, jgeom, ibas, jbas, ucont
100 jbas = j_basis + basis_handle_offset
111 ucont = (sf_ibs_cn2ucn(jsh,jbas))
112 jtype = infbs_cont(CONT_TYPE ,ucont,jbas)
113 jnp = infbs_cont(CONT_NPRIM,ucont,jbas)
114 jgen = infbs_cont(CONT_NGEN ,ucont,jbas)
115 jexp = infbs_cont(CONT_IEXP ,ucont,jbas)
117 jatom = (sf_ibs_cn2ce(jsh,jbas))
118 jgeom = ibs_geom(jbas)
137 & dbl_mb(mb_exndcf(jexp,jbas)),
[all …]
H A Dint_giaoh01.F68 integer igeom, jgeom, ibas, jbas, ucont
98 jbas = j_basis + basis_handle_offset
109 ucont = (sf_ibs_cn2ucn(jsh,jbas))
110 jtype = infbs_cont(CONT_TYPE ,ucont,jbas)
111 jnp = infbs_cont(CONT_NPRIM,ucont,jbas)
112 jgen = infbs_cont(CONT_NGEN ,ucont,jbas)
113 jexp = infbs_cont(CONT_IEXP ,ucont,jbas)
115 jatom = (sf_ibs_cn2ce(jsh,jbas))
116 jgeom = ibs_geom(jbas)
135 & dbl_mb(mb_exndcf(jexp,jbas)),
[all …]
H A Dint_giaoh11.F69 integer igeom, jgeom, ibas, jbas, ucont
99 jbas = j_basis + basis_handle_offset
110 ucont = (sf_ibs_cn2ucn(jsh,jbas))
111 jtype = infbs_cont(CONT_TYPE ,ucont,jbas)
112 jnp = infbs_cont(CONT_NPRIM,ucont,jbas)
113 jgen = infbs_cont(CONT_NGEN ,ucont,jbas)
114 jexp = infbs_cont(CONT_IEXP ,ucont,jbas)
116 jatom = (sf_ibs_cn2ce(jsh,jbas))
117 jgeom = ibs_geom(jbas)
136 & dbl_mb(mb_exndcf(jexp,jbas)),
[all …]
H A Dint_giaol10.F63 integer igeom, jgeom, ibas, jbas, ucont
93 jbas = j_basis + basis_handle_offset
104 ucont = (sf_ibs_cn2ucn(jsh,jbas))
105 jtype = infbs_cont(CONT_TYPE ,ucont,jbas)
106 jnp = infbs_cont(CONT_NPRIM,ucont,jbas)
107 jgen = infbs_cont(CONT_NGEN ,ucont,jbas)
108 jexp = infbs_cont(CONT_IEXP ,ucont,jbas)
110 jatom = (sf_ibs_cn2ce(jsh,jbas))
111 jgeom = ibs_geom(jbas)
130 & dbl_mb(mb_exndcf(jexp,jbas)),
[all …]
H A Dint_giaos10.F64 integer igeom, jgeom, ibas, jbas, ucont
94 jbas = j_basis + basis_handle_offset
105 ucont = (sf_ibs_cn2ucn(jsh,jbas))
106 jtype = infbs_cont(CONT_TYPE ,ucont,jbas)
107 jnp = infbs_cont(CONT_NPRIM,ucont,jbas)
108 jgen = infbs_cont(CONT_NGEN ,ucont,jbas)
109 jexp = infbs_cont(CONT_IEXP ,ucont,jbas)
111 jatom = (sf_ibs_cn2ce(jsh,jbas))
112 jgeom = ibs_geom(jbas)
131 & dbl_mb(mb_exndcf(jexp,jbas)),
[all …]

123456