Searched defs:deltakinetic_ij (Results 1 – 1 of 1) sorted by relevance
| /dports/science/atompaw/atompaw-4.1.1.0/src/ |
| H A D | gridmod.F90 | 1863 SUBROUTINE deltakinetic_ij(Grid,wfn1,wfn2,twfn1,twfn2,l,ekin,last) subroutine
1864 TYPE (GridInfo), INTENT(IN) :: Grid
1865 REAL(8), INTENT(IN) :: wfn1(:),wfn2(:),twfn1(:),twfn2(:)
1866 INTEGER, INTENT(IN) :: l local
1867 REAL(8), INTENT(OUT) :: ekin
1868 INTEGER, INTENT(IN), OPTIONAL :: last
1870 REAL(8), ALLOCATABLE :: dfdr1(:),dfdr2(:),arg1(:),arg2(:)
1871 REAL(8), ALLOCATABLE :: tdfdr1(:),tdfdr2(:),targ1(:),targ2(:)
1872 INTEGER :: i,n
|