5 static void func1(const PetscReal a[], void *unused, PetscReal *val)  in func1()  argument
8   *val              = x * PetscLogReal(1 + x);  in func1()
11 static void func2(const PetscReal a[], void *unused, PetscReal *val)  in func2()  argument
14   *val              = x * x * PetscAtanReal(x);  in func2()
17 static void func3(const PetscReal a[], void *unused, PetscReal *val)  in func3()  argument
20   *val              = PetscExpReal(x) * PetscCosReal(x);  in func3()
23 static void func4(const PetscReal a[], void *unused, PetscReal *val)  in func4()  argument
27   *val              = PetscAtanReal(u) / ((1.0 + x * x) * u);  in func4()
30 static void func5(const PetscReal a[], void *unused, PetscReal *val)  in func5()  argument
33   if (x == 0.0) *val = 0.0;  in func5()
34   else *val = PetscSqrtReal(x) * PetscLogReal(x);  in func5()
37 static void func6(const PetscReal a[], void *unused, PetscReal *val)  in func6()  argument
40   *val              = PetscSqrtReal(1 - x * x);  in func6()
43 static void func7(const PetscReal a[], void *unused, PetscReal *val)  in func7()  argument
46   if (x == 1.0) *val = PETSC_INFINITY;  in func7()
47   else *val = PetscSqrtReal(x) / PetscSqrtReal(1 - x * x);  in func7()
50 static void func8(const PetscReal a[], void *unused, PetscReal *val)  in func8()  argument
53   if (x == 0.0) *val = PETSC_INFINITY;  in func8()
54   else *val = PetscLogReal(x) * PetscLogReal(x);  in func8()
57 static void func9(const PetscReal x[], void *unused, PetscReal *val)  in func9()  argument
59   *val = PetscLogReal(PetscCosReal(x[0]));  in func9()
62 static void func10(const PetscReal a[], void *unused, PetscReal *val)  in func10()  argument
65   if (x == 0.0) *val = 0.0;  in func10()
66   else if (x == 1.0) *val = PETSC_INFINITY;  in func10()
67   *val = PetscSqrtReal(PetscTanReal(x));  in func10()
70 static void func11(const PetscReal a[], void *unused, PetscReal *val)  in func11()  argument
73   *val              = 1 / (1 - 2 * x + 2 * x * x);  in func11()
76 static void func12(const PetscReal a[], void *unused, PetscReal *val)  in func12()  argument
79   if (x == 0.0) *val = 0.0;  in func12()
80   else if (x == 1.0) *val = PETSC_INFINITY;  in func12()
81   else *val = PetscExpReal(1 - 1 / x) / PetscSqrtReal(x * x * x - x * x * x * x);  in func12()
84 static void func13(const PetscReal a[], void *unused, PetscReal *val)  in func13()  argument
87   if (x == 0.0) *val = 0.0;  in func13()
88   else if (x == 1.0) *val = 1.0;  in func13()
89   else *val = PetscExpReal(-(1 / x - 1) * (1 / x - 1) / 2) / (x * x);  in func13()
92 static void func14(const PetscReal a[], void *unused, PetscReal *val)  in func14()  argument
95   if (x == 0.0) *val = 0.0;  in func14()
96   else if (x == 1.0) *val = 1.0;  in func14()
97   else *val = PetscExpReal(1 - 1 / x) * PetscCosReal(1 / x - 1) / (x * x);  in func14()