430                     const real *wa1, const real *wa2, const real *wa3, const real *wa4, real fsign)  in passfb5()  argument
457   --wa4;  in passfb5()
524         ch_ref(i - 1, k, 5) = wa4[i - 1] * dr5 - fsign*wa4[i] * di5;  in passfb5()
525         ch_ref(i, k, 5) = wa4[i - 1] * di5 + fsign*wa4[i] * dr5;  in passfb5()
935                   const real *wa1, const real *wa2, const real *wa3, const real *wa4)  in radb5()  argument
965   --wa4;  in radb5()
1022       ch_ref(i - 1, k, 5) = wa4[i - 2] * dr5 - wa4[i - 1] * di5;  in radb5()
1023       ch_ref(i, k, 5) = wa4[i - 2] * di5 + wa4[i - 1] * dr5;  in radb5()
1455                   const real *wa1, const real *wa2, const real *wa3, const real *wa4)  in radf5()  argument
1485   --wa4;  in radf5()
1512       dr5 = wa4[i - 2] * cc_ref(i - 1, k, 5) + wa4[i - 1] * cc_ref(i, k, 5);  in radf5()
1513       di5 = wa4[i - 2] * cc_ref(i, k, 5) - wa4[i - 1] * cc_ref(i - 1, k, 5);  in radf5()