Searched defs:qr_k (Results 1 – 1 of 1) sorted by relevance
9 SUBROUTINE calc_btq( ql, qr_k, idbes ) argument24 REAL(DP) :: ql, qr_k(nbetam,nbetam,lmaxq,ntyp) local