Searched refs:vsrc_rs (Results 1 – 1 of 1) sorted by relevance
592 vsrc_rs, vssc_rs local603 CALL dgcxc_unpol( 4, raux, s2aux, vrrx_rs, vsrx_rs, vssx_rs, vrrc_rs, vsrc_rs, vssc_rs )613 vsrrc = 0.25d0 * ((vsrc_rs(1) - vsrc_rs(2)) / dr &616 +(vsrc_rs(3) - vsrc_rs(4)) / ds / s)