Searched refs:K1 (Results 1 – 1 of 1) sorted by relevance
60 real(kind=8) :: K1(-1:1), K2(-1:1), K3(-1:1) local91 call fillK(P1,K1)96 sum(K1*P1)/h(1)**2 + &