Lines Matching refs:npack1
356 integer ispin,neq(2),neall,npack1,nbrillq,nb
385 call Cram_max_npack(npack1)
394 S0_tag = cpsi_data_push_stack(nbrillq,neall,2*npack1)
395 G0_tag = cpsi_data_push_stack(nbrillq,neall,2*npack1)
789 psi_ptr = psi_ptr + 2*ne(1)*npack1
867 psi_ptr = psi_ptr + 2*ne(1)*npack1
981 value = BA_push_get(mt_dcpl,npack1,'t0',t0(2),t0(1))
983 > BA_push_get(mt_dcpl,npack1,'r1',r1(2),r1(1))
985 > BA_push_get(mt_dcpl,npack1,'g',g(2),g(1))
987 > BA_push_get(mt_dcpl,npack1,'t',t(2),t(1))
1019 call cke_Precondition(nb,npack1,1,
1163 value = BA_push_get(mt_dcpl,npack1,'orb',
1166 > BA_push_get(mt_dcpl,npack1,'g',
1288 value = BA_push_get(mt_dcpl,npack1,'t0',t0(2),t0(1))
1290 > BA_push_get(mt_dcpl,npack1,'r1',r1(2),r1(1))
1292 > BA_push_get(mt_dcpl,npack1,'g',g(2),g(1))
1294 > BA_push_get(mt_dcpl,npack1,'t',t(2),t(1))
1325 call cke_Precondition(nb,npack1,1,
1453 value = BA_push_get(mt_dcpl,npack1,'orb',
1456 > BA_push_get(mt_dcpl,npack1,'g',
1535 value = BA_push_get(mt_dcpl,npack1,'r1',r1(2),r1(1))
1539 nshift = 2*npack1
1608 nshift=2*npack1
1701 shifts=2*npack1*ne(1)
1811 shifts=npack1*ne(1)
1820 shift = shift + 2*npack1
1834 shift = shift + 2*npack1
1883 shifts=2*npack1*ne(1)
1893 call Cram_cc_zdot(nb,dbl_mb(shift+shifts),Horb(1+npack1),zsum2)
1895 shift = shift + 2*npack1
1908 > Horb(1+npack1))
1909 shift = shift + 2*npack1
1961 shifts=2*npack1*ne(1)
1969 value = BA_push_get(mt_dcpl,2*npack1,'t0',t0(2),t0(1))
1971 > BA_push_get(mt_dcpl,2*npack1,'r1',r1(2),r1(1))
1973 > BA_push_get(mt_dcpl,2*npack1,'g',g(2),g(1))
1975 > BA_push_get(mt_dcpl,2*npack1,'t',t(2),t(1))
1995 > dcpl_mb(g(1)+npack1),
2007 call cke_Precondition(nb,npack1,1,
2014 call Cram_c_Copy(nb,dcpl_mb(g(1)+npack1),
2015 > dcpl_mb(r1(1)+npack1))
2025 call Cram_cc_dot(nb,dcpl_mb(r1(1)+npack1),
2026 > dcpl_mb(r1(1)+npack1),
2030 call Cram_c_Copy(nb,dcpl_mb(r1(1)+npack1),
2031 > dcpl_mb(t(1)+npack1))
2038 > dcpl_mb(t0(1)+npack1),
2039 > dcpl_mb(t(1)+npack1))
2044 call Cram_c_Copy(nb,dcpl_mb(t(1)+npack1),
2045 > dcpl_mb(t0(1)+npack1))
2062 call Cram_cc_dot(nb,dcpl_mb(t(1)+npack1),
2063 > dcpl_mb(t(1)+npack1),
2072 call Cram_c_SMul1(nb,de0,dcpl_mb(t(1)+npack1))
2080 call Cram_cc_dot(nb,dcpl_mb(t(1)+npack1),
2081 > dcpl_mb(g(1)+npack1),
2088 call Cram_c_Copy(nb,dcpl_mb(g(1)+npack1),
2089 > dcpl_mb(t(1)+npack1))
2157 shifts=2*ne(1)*npack1
2167 value = BA_push_get(mt_dcpl,npack1*2,'orb',
2170 > BA_push_get(mt_dcpl,npack1*2,'g',
2176 call Cram_c_Copy(nb,dbl_mb(psi_ptr+shifts),dcpl_mb(orb(1)+npack1))
2187 > dcpl_mb(orb(1)+npack1),
2193 > t(1+npack1),
2203 > dcpl_mb(g(1)+npack1),
2218 > dcpl_mb(orb(1)+npack1),
2219 > tau_t(npack1+1))
2224 > t(npack1+1),
2225 > tau_t(npack1+1))
2233 call Cram_c_SMul1(nb,sigma,tau_t(npack1+1))
2240 > dcpl_mb(orb(1)+npack1),
2246 > t(npack1+1),
2298 shifts=2*ne1*npack1
2306 value = BA_push_get(mt_dcpl,2*npack1,'t0',t0(2),t0(1))
2308 > BA_push_get(mt_dcpl,2*npack1,'r1',r1(2),r1(1))
2310 > BA_push_get(mt_dcpl,2*npack1,'g',g(2),g(1))
2312 > BA_push_get(mt_dcpl,2*npack1,'t',t(2),t(1))
2334 > dcpl_mb(g(1)+npack1),
2347 call Cram_c_Copy(nb,dcpl_mb(g(1)+npack1),
2348 > dcpl_mb(r1(1)+npack1))
2354 > dcpl_mb(r1(1)+npack1))
2361 call Cram_cc_dot(nb,dcpl_mb(r1(1)+npack1),
2362 > dcpl_mb(r1(1)+npack1),
2366 call Cram_c_Copy(nb,dcpl_mb(r1(1)+npack1),
2367 > dcpl_mb(t(1)+npack1))
2374 > dcpl_mb(t0(1)+npack1),
2375 > dcpl_mb(t(1)+npack1))
2380 call Cram_c_Copy(nb,dcpl_mb(t(1)+npack1),
2381 > dcpl_mb(t0(1)+npack1))
2390 call Cram_cc_dot(nb,dcpl_mb(t(1)+npack1),
2391 > dcpl_mb(t(1)+npack1),
2400 call Cram_c_SMul1(nb,de0,dcpl_mb(t(1)+npack1))
2407 call Cram_cc_dot(nb,dcpl_mb(t(1)+npack1),
2408 > dcpl_mb(g(1)+npack1),
2415 call Cram_c_Copy(nb,dcpl_mb(g(1)+npack1),
2416 > dcpl_mb(t(1)+npack1))
2483 shifts=2*npack1*ne(1)
2493 value = BA_push_get(mt_dcpl,2*npack1,'orb',orb(2),orb(1))
2495 > BA_push_get(mt_dcpl,2*npack1,'g',g(2),g(1))
2501 call Cram_c_Copy(nb,dbl_mb(psi_ptr+shifts),dcpl_mb(orb(1)+npack1))
2514 > dcpl_mb(orb(1)+npack1),
2517 > t(npack1+1),
2527 > dcpl_mb(g(1)+npack1),
2545 > dcpl_mb(orb(1)+npack1),
2551 > t(npack1+1),
2558 > dcpl_mb(orb(1)+npack1))
2559 call Cram_cc_dot(nb,dcpl_mb(orb(1)+npack1),
2560 > dcpl_mb(orb(1)+npack1),
2590 value = BA_push_get(mt_dcpl,npack1*2,'r1',r1(2),r1(1))
2595 shifts=2*ne1*npack1
2611 indx=(i-1)*2*npack1
2612 jndx=(j-1)*2*npack1
2616 > dcpl_mb(r1(1)+npack1))
2623 call Cram_c_Copy(nb,dcpl_mb(r1(1)+npack1),
2747 call Parallel_shared_vector_zero(.true.,2*npack1,orb)
2856 psi_ptr = psi_ptr + 2*ne(1)*npack1
2857 epsi_ptr = epsi_ptr + 2*ne_excited(1)*npack1
2933 psi_ptr = psi_ptr + 2*ne(1)*npack1
2934 epsi_ptr = epsi_ptr + 2*ne_excited(1)*npack1
3023 value = BA_push_get(mt_dcpl,npack1,'t0',t0(2),t0(1))
3025 > BA_push_get(mt_dcpl,npack1,'r1',r1(2),r1(1))
3027 > BA_push_get(mt_dcpl,npack1,'g',g(2),g(1))
3029 > BA_push_get(mt_dcpl,npack1,'t',t(2),t(1))
3071 call cke_Precondition(nb,npack1,1,
3221 value = BA_push_get(mt_dcpl,npack1,'orb',
3224 > BA_push_get(mt_dcpl,npack1,'g',
3301 if (.not.BA_push_get(mt_dcpl,npack1,'r1',r1(2),r1(1)))
3305 nshift = 2*npack1