Y_k_DK_I.f90

      MODULE Y_K_DK_I
      INTERFACE
      SUBROUTINE Y_K_DK (K,KM,GTheta,Phi,VAL_REAL,VAL_IM)
      USE vast_kind_param,        ONLY: DOUBLE
      INTEGER, INTENT(IN)       :: K, KM
      REAL(DOUBLE), INTENT(IN)  :: GTheta, Phi
      REAL(DOUBLE), INTENT(OUT) :: VAL_REAL, VAL_IM
      END SUBROUTINE
      END INTERFACE
      END MODULE