Lines Matching refs:j_cent
93 integer lj, j_prim, j_gen, j_iexp, j_icfp, j_cent, j_geom
152 j_cent = (sf_ibs_cn2ce(jsh,basis_id))
162 & coords(1,j_cent,j_geom),
164 & dbl_mb(mb_exndcf(j_icfp,basis_id)),j_prim,j_gen,Lj,j_cent,
179 & coords(1,j_cent,j_geom),
196 & coords(1,j_cent,j_geom),
213 & coords(1,j_cent,j_geom),
270 integer lj, j_prim, j_gen, j_iexp, j_icfp, j_cent, j_geom
330 j_cent = (sf_ibs_cn2ce(jsh,basis_id))
363 write (LuOut,*) jsh,Lj,j_prim,j_gen,j_cent
381 & coords(1,j_cent,j_geom),
409 & coords(1,j_cent,j_geom),
519 integer lj, j_prim, j_gen, j_iexp, j_icfp, j_cent, j_geom
579 j_cent = (sf_ibs_cn2ce(jsh,basis_id))
593 & coords(1,j_cent,j_geom),
595 & dbl_mb(mb_exndcf(j_icfp,basis_id)),j_prim,j_gen,Lj,j_cent,
881 integer lj, j_prim, j_gen, j_iexp, j_icfp, j_cent, j_geom
942 j_cent = (sf_ibs_cn2ce(jsh,basis_id))
956 & coords(1,j_cent,j_geom),
958 & dbl_mb(mb_exndcf(j_icfp,basis_id)),j_prim,j_gen,Lj,j_cent,