C C PURPOSE: COMPUTE RADIATIVE RATES R(3) FOR EQN (20) OF C CASINI, R. & JUDGE, P. G., 1999. AP J 522, 524-539 C THE COMPLETE COEFFICIENT NEEDED FOR EQ. (20) IS C BUILT BY SUMMING OUTSIDE OF THIS ROUTINE IN ROUTINE C SE0_BUILD C C INPUTS: C C OUTPUTS: C R3COEFF C COMMON: C C COMMENTS: OCTOBER 6, 1999, P. JUDGE C SUBROUTINE R3(KR,IJ,IJ1,K,K1,IQ,R3COEFF) C THIS SUBROUTINE CALCULATES THE RADIATIVE RATES R(3) (IJ1