Searched defs:mkvsint (Results 1 – 2 of 2) sorted by relevance
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/gw/Transfer/ |
| H A D | tetint.f90 | 534 subroutine mkvsint(kvtx,xk,vol,evtx,engy,de,sint0,sint1) subroutine
540 double precision :: kvtx(3,4),evtx(4),engy,de,vol,xk(3,4)
541 double precision :: vol_t
542 double precision :: sint0,sint1(3)
543 integer :: indxe(4),ii,jj
544 double precision :: engy2, ehi, elo, de1
545 double precision :: dewl1,dewl2,dewl3,dewl4,dewh1,dewh2,dewh3,dewh4
546 double precision :: dev21, dev31, dev41, dev32, dev42, dev43
547 double precision :: qq(3,6),qp(3,6),dq(3,6)
548 double precision :: denom1,denom2,term1,term2
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/gw/Transfer/ |
| H A D | tetint.f90 | 534 subroutine mkvsint(kvtx,xk,vol,evtx,engy,de,sint0,sint1) subroutine
540 double precision :: kvtx(3,4),evtx(4),engy,de,vol,xk(3,4)
541 double precision :: vol_t
542 double precision :: sint0,sint1(3)
543 integer :: indxe(4),ii,jj
544 double precision :: engy2, ehi, elo, de1
545 double precision :: dewl1,dewl2,dewl3,dewl4,dewh1,dewh2,dewh3,dewh4
546 double precision :: dev21, dev31, dev41, dev32, dev42, dev43
547 double precision :: qq(3,6),qp(3,6),dq(3,6)
548 double precision :: denom1,denom2,term1,term2
[all …]
|