GRASP rci-qed
Functions/Subroutines
skint.f90 File Reference

Functions/Subroutines

real(kind(0.0d0)) function skint (RAC, IA, IC, RBD, IB, ID, K, IW)
 

Function/Subroutine Documentation

◆ skint()

real(kind(0.0d0)) function skint ( real(double), dimension(nnnp), intent(in)  RAC,
integer  IA,
integer  IC,
real(double), dimension(nnnp), intent(in)  RBD,
integer  IB,
integer  ID,
integer, intent(in)  K,
integer, intent(in)  IW 
)