Searched defs:ke_ave (Results 1 – 2 of 2) sorted by relevance
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/pspw/lib/ke/ |
| H A D | ke.F | 217 subroutine ke_ave(ispin,ne,psi1,ave,fractional,occ) subroutine
219 integer ispin,ne(2)
220 complex*16 psi1(*)
221 real*8 ave
222 logical fractional
223 real*8 occ(*)
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/pspw/lib/ke/ |
| H A D | ke.F | 219 integer ispin,ne(2)
221 real*8 ave
223 real*8 occ(*)
231 integer tg_indx,tg_hndl
232 common / tg_block / tg_indx,tg_hndl
236 integer npack1,np
237 integer ms,n,n1(2),n2(2)
238 real*8 sum,ave1
240 common /eelectron_ejtmp/ sum,ave1
245 logical value
[all …]
|