Lines Matching refs:npack1
28 integer npack1
38 call Pack_npack(1,npack1)
42 value = BA_alloc_get(mt_dcpl,npack1*(psi_neq(1)+psi_neq(2)),
137 integer i,npack1,V(2),ispin,neq(2)
149 call Pack_npack(1,npack1)
163 > dcpl_mb(U(1)),npack1,
167 > dcpl_mb(spsi1(1)),npack1)
170 call Dneall_f_SVD(0,A,dcpl_mb(U(1)),npack1,
243 integer npack1,nemax,ispin,ne(2),neq(2),shift,ms
267 call Pack_npack(1,npack1)
296 call Dneall_fmf_Multiply(0,Yold,npack1,
300 call Dneall_fmf_Multiply(0,dcpl_mb(U(1)),npack1,
311 shift = 1 + (ms-1)*neq(1)*npack1
312 call Grsm_gg_itrace(npack1,neq(ms),
321 shift = 1 + (ms-1)*neq(1)*npack1
322 call Dneall_f_Sortho(ms,Ynew,dcpl_mb(spsi1(1)),npack1)
327 shift = 1 + (ms-1)*neq(1)*npack1
328 call Grsm_gg_itrace(npack1,neq(ms),
337 shift = 1 + (ms-1)*neq(1)*npack1
339 call Dneall_f_GramSchmidt(ms,Ynew,npack1)
422 integer npack1,nemax
438 call Pack_npack(1,npack1)
463 call Dneall_fmf_Multiply(0,Yold,npack1,
467 call Dneall_fmf_Multiply(0,dcpl_mb(U(1)),npack1,
544 integer npack1,nemax
559 call Pack_npack(1,npack1)
572 call Dneall_ffm_Multiply(0,dcpl_mb(U(1)),tG,npack1,
586 call Dneall_fmf_Multiply(0,Yold,npack1,
590 call Dneall_fmf_Multiply(0,dcpl_mb(U(1)),npack1,