/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/api/ |
H A D | intd_1e3ov.F | 120 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent local 170 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 190 if ((i_cent.eq.j_cent).and.(j_cent.eq.k_cent)) then 212 & coords(1,j_cent,j_geom), 230 if ((i_cent.ne.j_cent).and.(i_cent.ne.k_cent).and. 233 idatom(2) = j_cent 245 else if (i_cent.eq.j_cent) then 266 idatom(2) = j_cent 278 else if (j_cent.eq.k_cent) then 282 idatom(2) = j_cent [all …]
|
H A D | intpd_1eke.F | 64 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent 109 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 113 if (i_cent.eq.j_cent) then 120 idatom(2) = j_cent 131 call intp_txyz(j_cent,j_geom,R,xyz_new) 138 & dbl_mb(mb_exndcf(j_icfp,jbas)), j_prim, j_gen, Lj, j_cent,
|
H A D | intpd_1eov.F | 63 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent 108 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 112 if (i_cent.eq.j_cent) then 119 idatom(2) = j_cent 130 call intp_txyz(j_cent,j_geom,R,xyz_new) 137 & dbl_mb(mb_exndcf(j_icfp,jbas)), j_prim, j_gen, Lj, j_cent,
|
H A D | intd_mpolel.F | 214 integer jbas, Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent, j_geom 276 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 305 if ((lval.eq.0).and.(i_cent.eq.j_cent)) then 316 & coords(1,j_cent,j_geom), 327 if (i_cent.eq.j_cent) then 335 idatom(2) = j_cent
|
H A D | intpd_mpolel.F | 135 integer jbas, Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent, j_geom local 198 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 211 call intp_txyz(j_cent,j_geom,R,xyz_new) 230 if ((lval.eq.0).and.(i_cent.eq.j_cent)) then 252 if (i_cent.eq.j_cent) then 260 idatom(2) = j_cent
|
H A D | int_1estv.F | 230 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 258 & coords(1,j_cent,j_geom), 284 & j_prim, j_gen, Lj, j_cent, 920 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 969 & coords(1,j_cent,j_geom), 995 & j_prim, j_gen, Lj, j_cent, 1295 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 1343 & coords(1,j_cent,j_geom), 1374 & j_prim, j_gen, Lj, j_cent, 1695 j_cent = (sf_ibs_cn2ce(jsh,jbas)) [all …]
|
H A D | intso_1e.F | 55 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent local 99 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 116 & coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)), 118 & j_prim, j_gen, Lj, j_cent,
|
H A D | intp_1eov.F | 55 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent local 100 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 112 call intp_txyz(j_cent,j_geom,R,xyz_new) 122 & j_prim, j_gen, Lj, j_cent,
|
H A D | intp_1epe.F | 57 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent local 98 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 111 call intp_txyz(j_cent,j_geom,Rj,xyz_new_j) 121 & j_prim, j_gen, Lj, j_cent,
|
H A D | intp_1eke.F | 55 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent local 100 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 112 call intp_txyz(j_cent,j_geom,R,xyz_new) 122 & j_prim, j_gen, Lj, j_cent,
|
H A D | intd_1eso.F | 59 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent local 111 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 128 & coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)), 130 & j_prim, j_gen, Lj, j_cent,
|
H A D | intpd_1epe.F | 61 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent 102 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 115 call intp_txyz(j_cent,j_geom,Rj,xyz_new_j) 126 & j_cent,
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/api/ |
H A D | intd_1e3ov.F | 120 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent 170 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 190 if ((i_cent.eq.j_cent).and.(j_cent.eq.k_cent)) then 212 & coords(1,j_cent,j_geom), 230 if ((i_cent.ne.j_cent).and.(i_cent.ne.k_cent).and. 233 idatom(2) = j_cent 245 else if (i_cent.eq.j_cent) then 266 idatom(2) = j_cent 278 else if (j_cent.eq.k_cent) then 282 idatom(2) = j_cent [all …]
|
H A D | intpd_1eke.F | 64 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent 109 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 113 if (i_cent.eq.j_cent) then 120 idatom(2) = j_cent 131 call intp_txyz(j_cent,j_geom,R,xyz_new) 138 & dbl_mb(mb_exndcf(j_icfp,jbas)), j_prim, j_gen, Lj, j_cent,
|
H A D | intpd_1eov.F | 63 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent 108 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 112 if (i_cent.eq.j_cent) then 119 idatom(2) = j_cent 130 call intp_txyz(j_cent,j_geom,R,xyz_new) 137 & dbl_mb(mb_exndcf(j_icfp,jbas)), j_prim, j_gen, Lj, j_cent,
|
H A D | intd_mpolel.F | 214 integer jbas, Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent, j_geom 276 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 305 if ((lval.eq.0).and.(i_cent.eq.j_cent)) then 316 & coords(1,j_cent,j_geom), 327 if (i_cent.eq.j_cent) then 335 idatom(2) = j_cent
|
H A D | intpd_mpolel.F | 135 integer jbas, Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent, j_geom 198 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 211 call intp_txyz(j_cent,j_geom,R,xyz_new) 230 if ((lval.eq.0).and.(i_cent.eq.j_cent)) then 252 if (i_cent.eq.j_cent) then 260 idatom(2) = j_cent
|
H A D | int_1estv.F | 230 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 258 & coords(1,j_cent,j_geom), 284 & j_prim, j_gen, Lj, j_cent, 920 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 969 & coords(1,j_cent,j_geom), 995 & j_prim, j_gen, Lj, j_cent, 1295 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 1343 & coords(1,j_cent,j_geom), 1374 & j_prim, j_gen, Lj, j_cent, 1695 j_cent = (sf_ibs_cn2ce(jsh,jbas)) [all …]
|
H A D | intso_1e.F | 55 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent local 99 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 116 & coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)), 118 & j_prim, j_gen, Lj, j_cent,
|
H A D | intp_1epe.F | 57 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent 98 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 111 call intp_txyz(j_cent,j_geom,Rj,xyz_new_j) 121 & j_prim, j_gen, Lj, j_cent,
|
H A D | intp_1eke.F | 55 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent 100 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 112 call intp_txyz(j_cent,j_geom,R,xyz_new) 122 & j_prim, j_gen, Lj, j_cent,
|
H A D | intp_1eov.F | 55 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent 100 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 112 call intp_txyz(j_cent,j_geom,R,xyz_new) 122 & j_prim, j_gen, Lj, j_cent,
|
H A D | intd_1eso.F | 59 integer Lj, j_prim, j_gen, j_iexp, j_icfp, j_cent 111 j_cent = (sf_ibs_cn2ce(jsh,jbas)) 128 & coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)), 130 & j_prim, j_gen, Lj, j_cent,
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/hondo/ |
H A D | hnd_stvintd.F | 7 1 i_cent,xyzj,expj,coefj, j_nprim, j_ngen, Lj, j_cent, 22 integer j_cent ! [input] lexical number of center j 74 3 vder((j_cent-1)*3*nint+1),scr,scr,scr,nder,nint,zan, 75 4 nat,doT,doV,i_cent,j_cent,scr,lscr) 80 3 nat,doT,doV,i_cent,j_cent,scr,lscr)
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/hondo/ |
H A D | hnd_stvintd.F | 7 1 i_cent,xyzj,expj,coefj, j_nprim, j_ngen, Lj, j_cent, 22 integer j_cent ! [input] lexical number of center j 74 3 vder((j_cent-1)*3*nint+1),scr,scr,scr,nder,nint,zan, 75 4 nat,doT,doV,i_cent,j_cent,scr,lscr) 80 3 nat,doT,doV,i_cent,j_cent,scr,lscr)
|