/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/so_dft/ |
H A D | getv_exchZ.F | 21 integer rtdb, g_densso(2), g_fockso(2), g_v(4) 90 call ga_zero(g_v(1)) 91 call ga_zero(g_v(2)) 92 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 93 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 99 & 1.0d0, g_v(1), 1, nao, 1, nao, 124 call ga_zero(g_v(1)) 125 call ga_zero(g_v(2)) 126 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 127 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) [all …]
|
H A D | getv_exchX.F | 21 integer rtdb, g_densso(2), g_fockso(2), g_v(4) 92 call ga_zero(g_v(1)) 93 call ga_zero(g_v(2)) 94 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 95 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 96 exchX= 0.5d0*ga_ddot(g_dens(1),g_v(1)) 101 & 1.d0,g_v(1),1,nao,1,nao, 126 call ga_zero(g_v(1)) 127 call ga_zero(g_v(2)) 128 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) [all …]
|
H A D | getv_exchY.F | 21 integer rtdb, g_densso(2), g_fockso(2), g_v(4) 91 call ga_zero(g_v(1)) 92 call ga_zero(g_v(2)) 93 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 94 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 95 exchY= 0.5d0*ga_ddot(g_dens(1),g_v(1)) 125 call ga_zero(g_v(1)) 126 call ga_zero(g_v(2)) 127 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 128 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) [all …]
|
H A D | getv_exch0.F | 90 call ga_zero(g_v(1)) 91 call ga_zero(g_v(2)) 92 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 93 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 99 & 1.0d0, g_v(1), 1, nao, 1, nao, 124 call ga_zero(g_v(1)) 125 call ga_zero(g_v(2)) 126 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 127 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 133 & 1.d0, g_v(1), 1, nao, 1, nao, [all …]
|
H A D | getv_coul.F | 4 subroutine getv_coul(rtdb, ecoul, g_densso, g_fockso, g_v) argument 21 integer rtdb, g_densso(2), g_fockso(2), g_v(4) 78 call ga_zero(g_v(1)) 79 call ga_zero(g_v(2)) 80 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 81 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 82 call ga_copy(g_v(1), g_v(2)) 83 ecoul = 0.5d0*ga_ddot(g_dens(1),g_v(1)) 89 & 1.0d0, g_v(1), 1, nao, 95 & 1.0d0, g_v(2), 1, nao,
|
H A D | getv_dftxc.F | 5 & g_fockso, g_v, which) 22 integer rtdb, g_densso(2), g_fockso(2), g_v(4) 89 call ga_zero(g_v(1)) 90 call ga_zero(g_v(2)) 91 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 92 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 97 & 1.0d0, g_v(1), 1, nao, 1, nao, 100 & 1+nao, 2*nao, 1.0d0, g_v(2), 1, nao,
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/so_dft/ |
H A D | getv_exchZ.F | 21 integer rtdb, g_densso(2), g_fockso(2), g_v(4) 90 call ga_zero(g_v(1)) 91 call ga_zero(g_v(2)) 92 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 93 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 99 & 1.0d0, g_v(1), 1, nao, 1, nao, 124 call ga_zero(g_v(1)) 125 call ga_zero(g_v(2)) 126 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 127 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) [all …]
|
H A D | getv_exch0.F | 90 call ga_zero(g_v(1)) 91 call ga_zero(g_v(2)) 92 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 93 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 99 & 1.0d0, g_v(1), 1, nao, 1, nao, 124 call ga_zero(g_v(1)) 125 call ga_zero(g_v(2)) 126 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 127 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 133 & 1.d0, g_v(1), 1, nao, 1, nao, [all …]
|
H A D | getv_exchX.F | 21 integer rtdb, g_densso(2), g_fockso(2), g_v(4) 92 call ga_zero(g_v(1)) 93 call ga_zero(g_v(2)) 94 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 95 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 96 exchX= 0.5d0*ga_ddot(g_dens(1),g_v(1)) 101 & 1.d0,g_v(1),1,nao,1,nao, 126 call ga_zero(g_v(1)) 127 call ga_zero(g_v(2)) 128 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) [all …]
|
H A D | getv_exchY.F | 21 integer rtdb, g_densso(2), g_fockso(2), g_v(4) 91 call ga_zero(g_v(1)) 92 call ga_zero(g_v(2)) 93 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 94 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 95 exchY= 0.5d0*ga_ddot(g_dens(1),g_v(1)) 125 call ga_zero(g_v(1)) 126 call ga_zero(g_v(2)) 127 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 128 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) [all …]
|
H A D | getv_coul.F | 4 subroutine getv_coul(rtdb, ecoul, g_densso, g_fockso, g_v) argument 21 integer rtdb, g_densso(2), g_fockso(2), g_v(4) 78 call ga_zero(g_v(1)) 79 call ga_zero(g_v(2)) 80 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 81 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 82 call ga_copy(g_v(1), g_v(2)) 83 ecoul = 0.5d0*ga_ddot(g_dens(1),g_v(1)) 89 & 1.0d0, g_v(1), 1, nao, 95 & 1.0d0, g_v(2), 1, nao,
|
H A D | getv_dftxc.F | 5 & g_fockso, g_v, which) 22 integer rtdb, g_densso(2), g_fockso(2), g_v(4) 89 call ga_zero(g_v(1)) 90 call ga_zero(g_v(2)) 91 call ga_dadd(1.0d0, g_v(1), 1.0d0, g_tmp(1), g_v(1)) 92 call ga_dadd(1.0d0, g_v(2), 1.0d0, g_tmp(2), g_v(2)) 97 & 1.0d0, g_v(1), 1, nao, 1, nao, 100 & 1+nao, 2*nao, 1.0d0, g_v(2), 1, nao,
|
/dports/devel/ga/ga-5.8/global/testing/ |
H A D | matrixc.c | 25 int g_a, g_v; in do_work() local 50 g_v = NGA_Create_handle(); in do_work() 57 NGA_Allocate(g_v); in do_work() 82 GA_Get_diag(g_a, g_v); in do_work() 111 GA_Get_diag(g_a, g_v); in do_work() 149 GA_Get_diag(g_a, g_v); in do_work() 178 GA_Get_diag(g_a, g_v); in do_work() 207 GA_Get_diag(g_a, g_v); in do_work() 242 GA_Scale_rows(g_a,g_v); in do_work() 277 GA_Scale_cols(g_a,g_v); in do_work() [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/lr_tddft_grad/ |
H A D | tddft_grad_mat_to_vec.F | 1 subroutine tddft_grad_mat_to_vec(g_m, ilo, ihi, g_v, klo, col, argument 39 integer g_m, g_v 56 call nga_copy_patch('n', g_m, ilo, ihi, g_v, vlo, vhi) 57 call nga_scale_patch(g_v, vlo, vhi, scale) 59 call nga_add_patch(scale, g_m, ilo, ihi, 1.0d0, g_v, vlo, vhi, 60 + g_v, vlo, vhi) 92 subroutine tddft_grad_vec_to_mat(g_m, ilo, ihi, g_v, klo, col) argument 123 integer g_m, g_v 136 + g_v, vlo, vhi,
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/lr_tddft_grad/ |
H A D | tddft_grad_mat_to_vec.F | 1 subroutine tddft_grad_mat_to_vec(g_m, ilo, ihi, g_v, klo, col, argument 39 integer g_m, g_v 56 call nga_copy_patch('n', g_m, ilo, ihi, g_v, vlo, vhi) 57 call nga_scale_patch(g_v, vlo, vhi, scale) 59 call nga_add_patch(scale, g_m, ilo, ihi, 1.0d0, g_v, vlo, vhi, 60 + g_v, vlo, vhi) 92 subroutine tddft_grad_vec_to_mat(g_m, ilo, ihi, g_v, klo, col) argument 123 integer g_m, g_v 136 + g_v, vlo, vhi,
|
/dports/deskutils/rolo/rolo-011/src/ |
H A D | view.c | 58 static vc_component *g_v = NULL; variable 191 vc = vc_get_next_by_name (g_v, VC_URL); in view_ident() 195 vc = vc_get_next_by_name (g_v, VC_PHOTO); in view_ident() 199 vc = vc_get_next_by_name (g_v, VC_SOUND); in view_ident() 213 vc = vc_get_next_by_name (g_v, VC_NOTE); in view_ident() 325 for (i = 1, vc = g_v; i <= 5; i++) in view_tel() 334 for (i = 1, vc = g_v; i <= 5; i++) in view_tel() 380 vc = vc_get_next_by_name (g_v, VC_ROLE); in view_org() 456 vc = vc_get_next_by_name (g_v, VC_KEY); in view_misc() 475 g_v = v; in view_vcard() [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/ |
H A D | ga_mat_to_vec.F | 1 subroutine ga_mat_to_vec(g_m, ilo, ihi, jlo, jhi, g_v, klo, col, argument 26 integer g_m, g_v 38 $ g_v, klo, klo+(ihi-ilo+1)*(jhi-jlo+1)-1, col, col) 43 $ 1d0,g_v, klo, klo+(ihi-ilo+1)*(jhi-jlo+1)-1, col, col, 44 $ g_v, klo, klo+(ihi-ilo+1)*(jhi-jlo+1)-1, col, col) 61 call ga_put(g_v, k, k+numi-1, col, col, dbl_mb(ioff), 64 call ga_acc(g_v, k, k+numi-1, col, col, dbl_mb(ioff), 77 subroutine ga_vec_to_mat(g_m, ilo, ihi, jlo, jhi, g_v, klo, col) argument 92 integer g_m, g_v 100 $ g_v, klo, klo+(ihi-ilo+1)*(jhi-jlo+1)-1, col, col, [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/ |
H A D | ga_mat_to_vec.F | 1 subroutine ga_mat_to_vec(g_m, ilo, ihi, jlo, jhi, g_v, klo, col, argument 26 integer g_m, g_v 38 $ g_v, klo, klo+(ihi-ilo+1)*(jhi-jlo+1)-1, col, col) 43 $ 1d0,g_v, klo, klo+(ihi-ilo+1)*(jhi-jlo+1)-1, col, col, 44 $ g_v, klo, klo+(ihi-ilo+1)*(jhi-jlo+1)-1, col, col) 61 call ga_put(g_v, k, k+numi-1, col, col, dbl_mb(ioff), 64 call ga_acc(g_v, k, k+numi-1, col, col, dbl_mb(ioff), 77 subroutine ga_vec_to_mat(g_m, ilo, ihi, jlo, jhi, g_v, klo, col) argument 92 integer g_m, g_v 100 $ g_v, klo, klo+(ihi-ilo+1)*(jhi-jlo+1)-1, col, col, [all …]
|
/dports/textproc/py-sphinx/stage/usr/local/lib/python3.8/site-packages/sphinx/search/non-minified-js/ |
H A D | romanian-stemmer.js | 268 if (!(base.in_grouping(g_v, 97, 259))) 297 if (!(base.in_grouping(g_v, 97, 259))) 334 if (!(base.in_grouping(g_v, 97, 259))) 363 if (!(base.in_grouping(g_v, 97, 259))) 386 if (!(base.out_grouping(g_v, 97, 259))) 393 if (!(base.out_grouping(g_v, 97, 259))) 415 if (!(base.in_grouping(g_v, 97, 259))) 434 if (!(base.in_grouping(g_v, 97, 259))) 449 if (!(base.out_grouping(g_v, 97, 259))) 465 if (!(base.in_grouping(g_v, 97, 259))) [all …]
|
/dports/textproc/py-sphinx/Sphinx-3.5.2/sphinx/search/non-minified-js/ |
H A D | romanian-stemmer.js | 268 if (!(base.in_grouping(g_v, 97, 259))) 297 if (!(base.in_grouping(g_v, 97, 259))) 334 if (!(base.in_grouping(g_v, 97, 259))) 363 if (!(base.in_grouping(g_v, 97, 259))) 386 if (!(base.out_grouping(g_v, 97, 259))) 393 if (!(base.out_grouping(g_v, 97, 259))) 415 if (!(base.in_grouping(g_v, 97, 259))) 434 if (!(base.in_grouping(g_v, 97, 259))) 449 if (!(base.out_grouping(g_v, 97, 259))) 465 if (!(base.in_grouping(g_v, 97, 259))) [all …]
|
/dports/textproc/py-sphinx/Sphinx-3.5.2/build/lib/sphinx/search/non-minified-js/ |
H A D | romanian-stemmer.js | 268 if (!(base.in_grouping(g_v, 97, 259))) 297 if (!(base.in_grouping(g_v, 97, 259))) 334 if (!(base.in_grouping(g_v, 97, 259))) 363 if (!(base.in_grouping(g_v, 97, 259))) 386 if (!(base.out_grouping(g_v, 97, 259))) 393 if (!(base.out_grouping(g_v, 97, 259))) 415 if (!(base.in_grouping(g_v, 97, 259))) 434 if (!(base.in_grouping(g_v, 97, 259))) 449 if (!(base.out_grouping(g_v, 97, 259))) 465 if (!(base.in_grouping(g_v, 97, 259))) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/ |
H A D | wfn1_lindep.F | 3 subroutine wfn1_lindep(g_s,g_s12,g_v,nindep,tol) argument 16 integer g_v ! the GA handle for the eigenvectors 64 call ga_pdsyev(g_s, g_v, eigval, 0) 66 call ga_diag_std(g_s, g_v, eigval) 69 call ga_diag_std_seq(g_s, g_v, eigval) 90 call ga_get(g_v,islo,ishi,1,nbf,vi,ishi-islo+1) 91 call ga_get(g_v,jslo,jshi,1,nbf,vj,jshi-jslo+1) 106 call ga_distribution(g_v,iproc,ilo,ihi,jlo,jhi) 107 call ga_access(g_v,ilo,ihi,jlo,jhi,k_v,ldv)
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/rdmft/ |
H A D | wfn1_lindep.F | 3 subroutine wfn1_lindep(g_s,g_s12,g_v,nindep,tol) argument 16 integer g_v ! the GA handle for the eigenvectors 64 call ga_pdsyev(g_s, g_v, eigval, 0) 66 call ga_diag_std(g_s, g_v, eigval) 69 call ga_diag_std_seq(g_s, g_v, eigval) 90 call ga_get(g_v,islo,ishi,1,nbf,vi,ishi-islo+1) 91 call ga_get(g_v,jslo,jshi,1,nbf,vj,jshi-jslo+1) 106 call ga_distribution(g_v,iproc,ilo,ihi,jlo,jhi) 107 call ga_access(g_v,ilo,ihi,jlo,jhi,k_v,ldv)
|
/dports/devel/ga/ga-5.8/global/src/ |
H A D | peigstubs.c | 25 void pnga_diag(Integer g_a, Integer g_s, Integer g_v, DoublePrecision *eval) { in pnga_diag() argument 28 gai_diag_(&g_a, &g_s, &g_v, eval); in pnga_diag() 40 void pnga_diag_std(Integer g_a, Integer g_v, DoublePrecision *eval) { in pnga_diag_std() argument 43 gai_diag_std_(&g_a, &g_v, eval); in pnga_diag_std() 56 Integer g_v, DoublePrecision *eval) { in pnga_diag_reuse() argument 59 gai_diag_reuse_(&reuse, &g_a, &g_s, &g_v, eval); in pnga_diag_reuse()
|
/dports/devel/ga/ga-5.8/ga++/testing/ |
H A D | mtest.cc | 138 g_v->fill(val); in test_scale_cols() 354 g_v->fill (val); in test_scale_rows() 1173 g_v->zero (); in test_get_diagonal() 1180 iresult = g_v->idot (g_v); in test_get_diagonal() 1194 lresult = g_v->ldot (g_v); in test_get_diagonal() 1208 fresult = g_v->fdot (g_v); in test_get_diagonal() 1222 dresult = g_v->ddot (g_v); in test_get_diagonal() 1239 zresult = g_v->zdot (g_v); in test_get_diagonal() 1314 g_v->fill (val); in test_add_diagonal() 1326 g_v->fill (val); in test_add_diagonal() [all …]
|