Home
last modified time | relevance | path

Searched refs:j_cent (Results 1 – 25 of 52) sorted by relevance

123

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/api/
H A Dintd_1e3ov.F120 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 Dintpd_1eke.F64 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 Dintpd_1eov.F63 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 Dintd_mpolel.F214 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 Dintpd_mpolel.F135 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 Dint_1estv.F230 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 Dintso_1e.F55 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 Dintp_1eov.F55 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 Dintp_1epe.F57 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 Dintp_1eke.F55 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 Dintd_1eso.F59 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 Dintpd_1epe.F61 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 Dintd_1e3ov.F120 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 Dintpd_1eke.F64 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 Dintpd_1eov.F63 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 Dintd_mpolel.F214 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 Dintpd_mpolel.F135 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 Dint_1estv.F230 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 Dintso_1e.F55 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 Dintp_1epe.F57 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 Dintp_1eke.F55 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 Dintp_1eov.F55 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 Dintd_1eso.F59 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 Dhnd_stvintd.F7 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 Dhnd_stvintd.F7 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)

123