Searched refs:tj_ext (Results 1 – 2 of 2) sorted by relevance
402 tj_ext, wj_ext, fm_mat_S, & argument411 INTENT(IN) :: tj_ext, wj_ext local444 cottj(jquad) = 1.0_dp/TAN(tj_ext(jquad))
390 tj_ext, wj_ext, fm_mat_S, & argument399 INTENT(IN) :: tj_ext, wj_ext local432 cottj(jquad) = 1.0_dp/TAN(tj_ext(jquad))