Searched refs:Ka (Results 1 – 1 of 1) sorted by relevance
35 real(kind=8) :: Ka, Kb local36 call evalK((P(-1)+P( 0))/2.0, Ka)38 K(-1) = -Ka39 K( 0) = Ka + Kb