Searched refs:fpT1 (Results 1 – 1 of 1) sorted by relevance
| /dports/science/dftbplus/dftbplus-19.1/prog/dftb+/lib_dftb/ |
| H A D | thirdorder.F90 | 773 res = exp(-tauA * rab) * (fpT1(tauA, tauB, rab) - rab * ff(tauA, tauB, rab))&
816 & - tauA * fpT1(tauA, tauB, rab) + fpT1pR(tauA, tauB, rab) - rab * fpR(tauA, tauB, rab))&
845 function fpT1(tauA, tauB, rab) result(res) function
852 end function fpT1
|