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