| /dports/science/quantum-espresso/q-e-qe-6.7.0/PP/src/ |
| H A D | poormanwannier.f90 | 186 ldim1 = nwfcU
188 IF (ldim1 > ldim2 ) CALL errore( 'projection','too few bands',ldim1-ldim2)
232 lwork = 5 * max(ldim1,ldim2)
233 ALLOCATE (pp(ldim1,ldim2), u_m(ldim1,ldim1), w_m(ldim2,ldim2), &
293 CALL ZGESVD( 'A', 'A', ldim1, ldim2, pp, ldim1, ew, u_m, ldim1, &
307 CALL zgemm( 'N', 'N', ldim1, ldim2, ldim1, ONE, u_m, ldim1, w_m, &
310 CALL zgemm( 'N', 'C', ldim1, ldim1, ldim2, ONE, pp, ldim1, pp, &
311 ldim1, ZERO, u_m, ldim1 )
313 DO i=1,ldim1
315 DO j=1,ldim1
[all …]
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
| H A D | vhpsi.f90 | 261 INTEGER :: ldim2, ldimx, ldim1, m1, m2, equiv_na2, & local
271 ldim1 = ldim_u(nt1)
272 ldimx = MAX(ldimx,ldim1)
290 ldim1 = ldim_u(nt1)
354 DO m1 = 1, ldim1
393 DO m1 = 1, ldim1
422 CALL ZGEMM ('n','n', np, mps, ldim1, phase, &
461 DO m1 = 1, ldim1
477 DO m1 = 1, ldim1
500 do m1 = 1,ldim1
[all …]
|
| H A D | write_ns.f90 | 367 INTEGER :: na1, na2, ldm1, ldm2, ldim1,ldim2, viz, nt1, nr, nt2 local
488 ldim1 = ldim_u(nt1)
491 DO m2 = 1, ldim1
499 'real: ', (DBLE(vet(ldm1+m2,m1)),m2=1,ldim1)
503 ldm1 = ldm1 + ldim1
524 ldim1 = ldim_u(nt1)
529 DO m1 = 1, ldim1
530 DO m2 = 1, ldim1
544 CALL cdiagh(ldim1, f, ldmax, lambda, vet)
549 DO m1 = 1, ldim1
[all …]
|
| H A D | force_hub.f90 | 221 ldim1 = ldim_u(nt1)
721 ldim1 = ldim_u(nt1)
735 DO m1 = 1, ldim1
742 DO m1 = 1, ldim1
792 ldim1 = ldim_u(nt1)
799 DO m1 = 1, ldim1
901 ldim1 = ldim_u(nt1)
908 DO m1 = 1, ldim1
915 DO m1 = 1, ldim1
961 ldim1 = ldim_u(nt1)
[all …]
|
| H A D | new_nsg.f90 | 45 INTEGER :: na1, na2, viz, nt1, nt2, ldim1, ldim2, ldimb, nb1, nb2, viz_b local
106 ldim1 = ldim_u(nt1)
117 DO m1 = 1, ldim1
128 DO m1 = 1, ldim1
194 ldim1 = ldim_u(nt1)
201 DO m1 = 1, ldim1
|
| H A D | stres_hub.f90 | 52 INTEGER :: ldim, ldim1, ldim2, ldimb, equiv_na2, i_type, nb_s, nb_e, mykey, i local
257 ldim1 = ldim_u(nt1)
267 DO m1 = 1, ldim1
698 ldim1, ldim2, & ! dimensions of the Hubbard manifold local
729 ldim1 = ldim_u(nt1)
736 DO m1 = 1, ldim1
743 DO m1 = 1, ldim1
841 ldim1, ldim2, & ! dimensions of the Hubbard manifold local
872 ldim1 = ldim_u(nt1)
879 DO m1 = 1, ldim1
[all …]
|
| /dports/misc/adios2/ADIOS2-2.7.1/testing/adios2/performance/manyvars/ |
| H A D | PerfManyVars.c | 52 static const int ldim1 = 5; variable
74 n = ldim1 * ldim2; in alloc_vars()
107 gdim1 = size * ldim1; in set_gdim()
113 offs1 = rank * ldim1; in set_offsets()
124 n = ldim1 * ldim2; in set_vars()
257 size_t count[2] = {ldim1, ldim2}; in define_vars()
274 size_t count[2] = {ldim1, ldim2}; in write_file()
355 n = ldim1 * ldim2; in reset_readvars()
369 size_t count[2] = {ldim1, ldim2}; in read_file()
426 CHECK_ARRAY(varnames[i], r2, ldim1 * ldim2, v, step, block, in read_file()
|
| H A D | TestManyVars.cpp | 155 static const size_t ldim1 = 5; member in TestManyVars
173 n = ldim1 * ldim2; in alloc_vars()
202 gdim1 = numprocs * ldim1; in set_gdim()
208 offs1 = rank * ldim1; in set_offsets()
219 n = ldim1 * ldim2; in set_vars()
311 size_t count[2] = {ldim1, ldim2}; in define_vars()
327 size_t count[2] = {ldim1, ldim2}; in write_file()
366 n = ldim1 * ldim2; in reset_readvars()
381 size_t count[2] = {ldim1, ldim2}; in read_file()
442 CHECK_ARRAY(varnames[i], r2, ldim1 * ldim2, v, step, in read_file()
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/dftgrad/ |
| H A D | j_nucder_gen.F | 83 integer l_d_ija, k_d_ija, l_d_kla, k_d_kla, ldim1, ldim2,
138 & ldim1, ldim2, l_scr, k_scr, lscr, l_buf,
187 & hess, g_rhs, g_dens, ldim1, ao_bas_han,
316 & ldim1, ldim2, l_scr, k_scr, lscr, l_buf,
328 integer l_d_ija, k_d_ija, l_d_kla, k_d_kla, ldim1, ldim2,
348 ldim1 = max_at_bf
357 if (.not. MA_push_get(MT_DBL, ldim1*ldim1, 'd_ija', l_d_ija,
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/dftgrad/ |
| H A D | j_nucder_gen.F | 83 integer l_d_ija, k_d_ija, l_d_kla, k_d_kla, ldim1, ldim2,
138 & ldim1, ldim2, l_scr, k_scr, lscr, l_buf,
187 & hess, g_rhs, g_dens, ldim1, ao_bas_han,
316 & ldim1, ldim2, l_scr, k_scr, lscr, l_buf,
328 integer l_d_ija, k_d_ija, l_d_kla, k_d_kla, ldim1, ldim2,
348 ldim1 = max_at_bf
357 if (.not. MA_push_get(MT_DBL, ldim1*ldim1, 'd_ija', l_d_ija,
|