/dports/devel/py-cclib/cclib-1.7.1/data/Turbomole/basicTurbomole5.9/dvb_un_sp/ |
H A D | auxbasis | 1 $jbas
|
/dports/science/chemical-mime-data/chemical-mime-data-0.1.94/ |
H A D | ChangeLog | 63 chemical/x-turbomole-input, chemical/x-turbomole-jbas,
|
/dports/science/multiwfn/gMultiwfn-3.4.1-0-14-ge873677/src/ |
H A D | DOS.f90 | 479 …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 D | basinana.f90 | 2298 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 D | bondana.f90 | 722 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 D | compana.f90 | 357 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 D | excittransana.f90 | 472 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 D | otherfunc2.f90 | 2707 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 D | sub.f90 | 1026 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 D | exact_mem.F | 47 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 D | exactd_mem.F | 39 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 D | int_1e3ov.F | 58 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 D | int_1eelec.F | 70 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 D | int_1epvpe.F | 59 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 D | int_1epxvpe.F | 60 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 D | int_1er.F | 60 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 D | int_1estv.F | 217 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 D | int_angmom.F | 61 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 D | int_dipvel.F | 53 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 D | int_dso.F | 73 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 D | int_giaobq10.F | 70 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 D | int_giaoh01.F | 68 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 D | int_giaoh11.F | 69 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 D | int_giaol10.F | 63 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 D | int_giaos10.F | 64 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 …]
|