357   double dr;  in double_tests()  local
361   dr = d_d(d1);  in double_tests()
362   fprintf(out,"->%g\n",dr);  in double_tests()
364   dr = 0.0; clear_traces();  in double_tests()
371       FFI_CALL(cif,d_d,args,&dr);  in double_tests()
374   fprintf(out,"->%g\n",dr);  in double_tests()
379   dr = d_d2(d1,d2);  in double_tests()
380   fprintf(out,"->%g\n",dr);  in double_tests()
382   dr = 0.0; clear_traces();  in double_tests()
389       FFI_CALL(cif,d_d2,args,&dr);  in double_tests()
392   fprintf(out,"->%g\n",dr);  in double_tests()
397   dr = d_d4(d1,d2,d3,d4);  in double_tests()
398   fprintf(out,"->%g\n",dr);  in double_tests()
400   dr = 0.0; clear_traces();  in double_tests()
407       FFI_CALL(cif,d_d4,args,&dr);  in double_tests()
410   fprintf(out,"->%g\n",dr);  in double_tests()
415   dr = d_d8(d1,d2,d3,d4,d5,d6,d7,d8);  in double_tests()
416   fprintf(out,"->%g\n",dr);  in double_tests()
418   dr = 0.0; clear_traces();  in double_tests()
425       FFI_CALL(cif,d_d8,args,&dr);  in double_tests()
428   fprintf(out,"->%g\n",dr);  in double_tests()
433   dr = d_d16(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16);  in double_tests()
434   fprintf(out,"->%g\n",dr);  in double_tests()
436   dr = 0.0; clear_traces();  in double_tests()
443       FFI_CALL(cif,d_d16,args,&dr);  in double_tests()
446   fprintf(out,"->%g\n",dr);  in double_tests()
485   double dr;  in mixed_number_tests()  local
513   dr = d_iidd(i1,i2,d3,d4);  in mixed_number_tests()
514   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
516   dr = 0.0; clear_traces();  in mixed_number_tests()
523       FFI_CALL(cif,d_iidd,args,&dr);  in mixed_number_tests()
526   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
531   dr = d_iiidi(i1,i2,i3,d4,i5);  in mixed_number_tests()
532   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
534   dr = 0.0; clear_traces();  in mixed_number_tests()
541       FFI_CALL(cif,d_iiidi,args,&dr);  in mixed_number_tests()
544   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
549   dr = d_idid(i1,d2,i3,d4);  in mixed_number_tests()
550   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
552   dr = 0.0; clear_traces();  in mixed_number_tests()
559       FFI_CALL(cif,d_idid,args,&dr);  in mixed_number_tests()
562   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
567   dr = d_fdi(f1,d2,i3);  in mixed_number_tests()
568   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
570   dr = 0.0; clear_traces();  in mixed_number_tests()
577       FFI_CALL(cif,d_fdi,args,&dr);  in mixed_number_tests()
580   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
787   dr = d_di(d1,i9);  in mixed_number_tests()
788   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
790   dr = 0.0; clear_traces();  in mixed_number_tests()
797       FFI_CALL(cif,d_di,args,&dr);  in mixed_number_tests()
800   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
805   dr = d_d2i(d1,d2,i9);  in mixed_number_tests()
806   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
808   dr = 0.0; clear_traces();  in mixed_number_tests()
815       FFI_CALL(cif,d_d2i,args,&dr);  in mixed_number_tests()
818   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
823   dr = d_d3i(d1,d2,d3,i9);  in mixed_number_tests()
824   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
826   dr = 0.0; clear_traces();  in mixed_number_tests()
833       FFI_CALL(cif,d_d3i,args,&dr);  in mixed_number_tests()
836   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
841   dr = d_d4i(d1,d2,d3,d4,i9);  in mixed_number_tests()
842   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
844   dr = 0.0; clear_traces();  in mixed_number_tests()
851       FFI_CALL(cif,d_d4i,args,&dr);  in mixed_number_tests()
854   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
859   dr = d_d7i(d1,d2,d3,d4,d5,d6,d7,i9);  in mixed_number_tests()
860   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
862   dr = 0.0; clear_traces();  in mixed_number_tests()
869       FFI_CALL(cif,d_d7i,args,&dr);  in mixed_number_tests()
872   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
877   dr = d_d8i(d1,d2,d3,d4,d5,d6,d7,d8,i9);  in mixed_number_tests()
878   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
880   dr = 0.0; clear_traces();  in mixed_number_tests()
887       FFI_CALL(cif,d_d8i,args,&dr);  in mixed_number_tests()
890   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
895   dr = d_d12i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,i9);  in mixed_number_tests()
896   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
898   dr = 0.0; clear_traces();  in mixed_number_tests()
905       FFI_CALL(cif,d_d12i,args,&dr);  in mixed_number_tests()
908   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
913   dr = d_d13i(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,i9);  in mixed_number_tests()
914   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
916   dr = 0.0; clear_traces();  in mixed_number_tests()
923       FFI_CALL(cif,d_d13i,args,&dr);  in mixed_number_tests()
926   fprintf(out,"->%g\n",dr);  in mixed_number_tests()
1148   Double Dr;  in structure_tests()  local
1225   Dr = D_fDd(f1,D2,d3);  in structure_tests()
1226   fprintf(out,"->{%g}\n",Dr.x);  in structure_tests()
1228   Dr.x = 0.0; clear_traces();  in structure_tests()
1241       FFI_CALL(cif,D_fDd,args,&Dr);  in structure_tests()
1244   fprintf(out,"->{%g}\n",Dr.x);  in structure_tests()
1248   Dr = D_Dfd(D1,f2,d3);  in structure_tests()
1249   fprintf(out,"->{%g}\n",Dr.x);  in structure_tests()
1251   Dr.x = 0.0; clear_traces();  in structure_tests()
1264       FFI_CALL(cif,D_Dfd,args,&Dr);  in structure_tests()
1267   fprintf(out,"->{%g}\n",Dr.x);  in structure_tests()
1356   double dr;  in gpargs_boundary_tests()  local
1505   dr = d_d17l3L(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,l6,l7,l8,L1);  in gpargs_boundary_tests()
1506   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1508   dr = 0.0; clear_traces();  in gpargs_boundary_tests()
1515       FFI_CALL(cif,d_d17l3L,args,&dr);  in gpargs_boundary_tests()
1518   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1624   dr = d_l2d(l1,l2,d2,l9);  in gpargs_boundary_tests()
1625   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1627   dr = 0.0; clear_traces();  in gpargs_boundary_tests()
1634       FFI_CALL(cif,d_l2d,args,&dr);  in gpargs_boundary_tests()
1637   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1641   dr = d_l3d(l1,l2,l3,d2,l9);  in gpargs_boundary_tests()
1642   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1644   dr = 0.0; clear_traces();  in gpargs_boundary_tests()
1651       FFI_CALL(cif,d_l3d,args,&dr);  in gpargs_boundary_tests()
1654   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1658   dr = d_l4d(l1,l2,l3,l4,d2,l9);  in gpargs_boundary_tests()
1659   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1661   dr = 0.0; clear_traces();  in gpargs_boundary_tests()
1668       FFI_CALL(cif,d_l4d,args,&dr);  in gpargs_boundary_tests()
1671   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1675   dr = d_l5d(l1,l2,l3,l4,l5,d2,l9);  in gpargs_boundary_tests()
1676   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1678   dr = 0.0; clear_traces();  in gpargs_boundary_tests()
1685       FFI_CALL(cif,d_l5d,args,&dr);  in gpargs_boundary_tests()
1688   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1692   dr = d_l6d(l1,l2,l3,l4,l5,l6,d2,l9);  in gpargs_boundary_tests()
1693   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1695   dr = 0.0; clear_traces();  in gpargs_boundary_tests()
1702       FFI_CALL(cif,d_l6d,args,&dr);  in gpargs_boundary_tests()
1705   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1709   dr = d_l7d(l1,l2,l3,l4,l5,l6,l7,d2,l9);  in gpargs_boundary_tests()
1710   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()
1712   dr = 0.0; clear_traces();  in gpargs_boundary_tests()
1719       FFI_CALL(cif,d_l7d,args,&dr);  in gpargs_boundary_tests()
1722   fprintf(out,"->%g\n",dr);  in gpargs_boundary_tests()